module1.bas

来自「主要是网络和数据库的一些东东」· BAS 代码 · 共 54 行

Attribute VB_Name = "Module1"
Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412
Public Const ERROR_SUCCESS = 0&
Public Type RasEntryName
    dwSize As Long
    szEntryName(RAS_MAXENTRYNAME) As Byte
End Type

Public Type RasConn
    dwSize As Long
    hRasConn As Long
    szEntryName(RAS_MAXENTRYNAME) As Byte
    szDeviceType(RAS_MAXDEVICETYPE) As Byte
    szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type

Public Declare Function RasEnumConnections Lib "rasapi32.dll" _
    Alias "RasEnumConnectionsA" _
    (lpRasConn As Any, _
    lpcb As Long, _
    lpcConnections As Long) _
    As Long
    
Public Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" _
    (ByVal hRasConn As Long) _
    As Long
    
Public gstrISPName As String
Public ReturnCode As Long
Public Const APINULL = 0&
Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Declare Function RegCloseKey Lib "advapi32.dll" _
    (ByVal hKey As Long) _
    As Long
    
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
    (ByVal hKey As Long, _
    ByVal lpSubKey As String, _
    phkResult As Long) _
    As Long
    
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
    (ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal lpReserved As Long, _
    lpType As Long, _
    lpData As Any, _
    lpcbData As Long) _
    As Long