如何建立撥號聯接

公共常量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)

位律師廻複