请高手赐教
解决方案 »
- 【新人发帖】关于VBA的一个很小的问题,怎么都解决不了,求各位老师指点
- 怎样将一个数组写入文本文件并保存
- 一个报表构件,有大量 VB 例子
- 窗口置顶。。。。
- Webbrowser控件:(1)NewWindow2(ppDisp As Object, Cancel As Boolean)的ppDisp怎么用?(2)Web1控件运行时怎么让它不可见?
- 请问高手:如何遍历局域网中所有的机器?
- 用TCP发送文件问题!!!
- 各位vb的网友,大家看一下这篇文章,有什么感想?
- 请问如何得到access数据库的字段长度(这里指的是建库的时候设定的字段长度,不是实际字段的长度,因为实际字段长度可能达不到设定长度,比如“文本型”字段。)十分着急,在线等待~~
- 凡说“一定再加分”的多数最后连帐都没结
- 请问:COMBOBOX哪个属性控制其有多选的功能的?
- 请问打包后安装时协注册信息怎么实现
wskInternet.RemotePort = "80"
wskInternet.Connect
Do
DoEvents
Loop Until wskInternet.State = sckConnected Or wskInternet.State = sckError If wskInternet.State = sckError Then
CheckInternet = False
Else
CheckInternet = True
End If wskInternet.Close
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'----------------------------------------------
Private Sub Form_Load()
If IsConnected = True Then
MsgBox ("您已经连通了Internet!")
End If
If IsConnected = False Then
MsgBox ("您还没有连通 Internet!")
End If
End Sub