******如何判断一个用户是否在线（连通INTERNET）？还有发送email ...******

我的想法是定时PING   internet内某主机，一旦...呵呵，你就在线，  
  这种方法可对付除了普通MODEM拨号外的ADSL，CABLE   MODEM，DDN专线上网  
   
  不过这法也忒土了点，你有何高招，请露一手，让俺一个土人也学学！  
   
  还有如何在菜单上放置超链接？可以一击就email   to:girl@love.net?  
  还有在发送email是调用OUTLOOK最为方便，但有的老兄装了Outlook却没  
  配置SMTP，咱如何给它自动设个？  
  请大家就发送EMAIL再多讨论下，让俺也开开眼界！  
  谢谢了，高手们！ 问题点数：36、回复次数：2Top

1 楼ByTheWay（摓崯堦熰）回复于 2001-11-14 15:05:44 得分 36

如何检测是否已连接到Internet？  
   
   
  声明：  
   
  Public   Declare   Function   RasEnumConnections   Lib   "RasApi32.dll"   _  
          Alias   "RasEnumConnectionsA"   (lpRasCon   As   Any,   _  
          lpcb   As   Long,   lpcConnections   As   Long)   As   Long  
  Public   Declare   Function   RasGetConnectStatus   Lib   "RasApi32.dll"   _  
          Alias   "RasGetConnectStatusA"   (ByVal   hRasCon   As   Long,   _  
          lpStatus   As   Any)   As   Long  
   
  Public   Const   RAS95_MaxEntryName   =   256  
  Public   Const   RAS95_MaxDeviceType   =   16  
  Public   Const   RAS95_MaxDeviceName   =   32  
   
  Public   Type   RASCONN95  
          dwSize   As   Long  
          hRasCon   As   Long  
          szEntryName(RAS95_MaxEntryName)   As   Byte  
          szDeviceType(RAS95_MaxDeviceType)   As   Byte  
          szDeviceName(RAS95_MaxDeviceName)   As   Byte  
  End   Type  
   
  Public   Type   RASCONNSTATUS95  
          dwSize   As   Long  
          RasConnState   As   Long  
          dwError   As   Long  
          szDeviceType(RAS95_MaxDeviceType)   As   Byte  
          szDeviceName(RAS95_MaxDeviceName)   As   Byte  
  End   Type  
   
  程序：  
  Private   Sub   main()  
          If   IsConnected   =   True   Then  
                  MsgBox   "已连接到Internet！",   vbInformation,   "提示"  
          Else  
                  MsgBox   "未连接到Internet！",   vbInformation,   "提示"  
          End   If  
  End   Sub  
   
  Public   Function   IsConnected()   As   Boolean  
          Dim   TRasCon(255)   As   RASCONN95  
          Dim   lg   As   Long  
          Dim   lpcon   As   Long  
          Dim   RetVal   As   Long  
          Dim   Tstatus   As   RASCONNSTATUS95  
          '  
          TRasCon(0).dwSize   =   412  
          lg   =   256   *   TRasCon(0).dwSize  
          '  
          RetVal   =   RasEnumConnections(TRasCon(0),   lg,   lpcon)  
          If   RetVal   <>   0   Then  
                  MsgBox   "产生错误！",   vbInformation,   "提示"  
                  Exit   Function  
          End   If  
          '  
          Tstatus.dwSize   =   160  
          RetVal   =   RasGetConnectStatus(TRasCon(0).hRasCon,   Tstatus)  
          If   Tstatus.RasConnState   =   &H2000   Then  
                  IsConnected   =   True  
          Else  
                  IsConnected   =   False  
          End   If  
  End   Function  
  Top

2 楼alinker（www.freeton.com）回复于 2001-11-16 23:49:23 得分 0

shell   "emailto:girl@love.net"Top

相关问题

• .net
• internet
• 连接
• ras95
• hrascon
• maxdevicetype
• maxdevicename
• tstatus
• isconnected
• 发送email

• 帖主：alinker
• ByTheWay

• Visual Basic类图书
• Visual Basic类源码下载