如何建立拨号联接

公共常量RAS_MaxEntryName = 256

私有类型RASENTRYNAME
dwSize Long
szEntryName(RAS _ MaxEntryName)As Byte
End Type

C Char aa[16]代表16的长度，可以容纳15个字节，所以对应vb的是aa(15) as Byte
。这是16 (0-15)的长度。因此，在VB声明中不能再使用szEntryName(RAS_MaxEntryName+1)。

但是Lenb(RASENTRYNAME)的长度是261 (4+257)。的确，这是vb的问题，C的SizeOf
返回4的倍数(32位)，所以值是264。因此，当我们计算一个结构的长度时，我们需要多一个运算
。

下列功能仅适用于32位win95/ NT，

以下是表格。

private hconn as long
private subcommand 1 _ click()
hconn = dial up(" my Connection "，" user "，" passwd ")
ifhconn = 0然后
debug.print "连接失败"[/br]

private Sub command 2 _ Click()
Call hang up(hConn)
End Sub

以下是在。bas
option explicit
Public constras _ max entry name = 256
Public Const RAS _ max device Type = 128
Public Const RAS _ MaxPhoneNumber = 128
Public Const RAS _ MaxCallbackNumber = 128
Public Const UNLEN = 256
Public Const PWLEN = 256
Public Const

键入RASCONNSTATUS
dwSize As Long ' 144
RasConnState As Long
dwError As Long
szDeviceType(RAS _ max device Type)As Byte
szDeviceName(RAS _ max device name)As Byte
End Type

声明函数RasGetErrorString Lib " rasapi32 " _
Alias " RasGetErrorStringA "(ByVal err value为Long，ByVal lpErrStr为String，_
ByVal cSize为Long)声明函数RasDial Lib " rasapi32 " _
Alias " RasDialA "(dial XT为Long，ByVal lpPhoneBook为String，_
RasDialParam为RASDIALPARAMS，ByVal NotifyType为Long，_
_
lprasconnstatus As RASCONNSTATUS)As Long
Declare Function RasGetEntryDialParams Lib " rasapi 32 " _
Alias " RasGetEntryDialParamsA "(ByVal lpsz phone book As String，_
lpRasDialParams As RASDIALPARAMS，_
lpfPassword As Byte)Long
Declare Sub Sleep Lib " kernel 32 "(ByVal dw milliseconds As Long)