一个微软研究员高手也无法解决的问题

Question

在win2000 server下 启动了ras服务 在这种情况下，如何得知是否 拨号到其他机器  ，vb或者vc 均可

Answer 1

Private Sub Form_Load()　　If IsConnected = True Then　　MsgBox ("您已经连通了Internet!")　　End If　　If IsConnected = False Then　　MsgBox ("您还没有连通 Internet!")　　End If　　End Sub　　将下面的代码作为模块放在程序中：　　Option Explicit　　/有关注册的API声明和定义以便使用/　　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　　/函数IsConnected返回是否连通的状态，如果为True则表示已连通/　　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 "错误"　　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　　通过使用上面代码，我们可以很方便地了解目前的Internet是否处于连通状态。
 - - - - -
※ 没有合同,没有保险.加班不给钱,迟到准扣钱.事假别想拿钱,病假算你倒霉.
上班时间开会影响你工作,下班后让你加班,没准给你安排个值班-还是义务的.
不来? 可以,扣你一天的工资!这种公司谁见过?!