首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请问lprasdialparams.dwSize设置有关问题

2013-03-13 
请教lprasdialparams.dwSize设置问题。这是一段网上找的宽带拨号的代码,如下:Public Function AddConnectio

请教lprasdialparams.dwSize设置问题。
这是一段网上找的宽带拨号的代码,如下:

Public Function AddConnection(strNewEntryName As String, strNewPhoneNumber As String, strNewCallbackNumber As String, strNewUsername As String, strNewPassword As String, strNewDomain As String) As Long
Const APINULL = 0&
Dim lngRetCode As Long
Dim lngRetLstrcpy As Long
Dim lngRetHangUp As Long
'Dim lprasdialparams As RASDIALPARAMS95
On Error GoTo 10
lprasdialparams.dwSize = 2884 '1052
lngRetLstrcpy = lstrcpy(lprasdialparams.szEntryName(0), strNewEntryName)
lngRetLstrcpy = lstrcpy(lprasdialparams.szPhoneNumber(0), strNewPhoneNumber)
lngRetLstrcpy = lstrcpy(lprasdialparams.szCallbackNumber(0), strNewCallbackNumber)
lngRetLstrcpy = lstrcpy(lprasdialparams.szUserName(0), strNewUsername)
lngRetLstrcpy = lstrcpy(lprasdialparams.szPassword(0), strNewPassword)
lngRetLstrcpy = lstrcpy(lprasdialparams.szDomain(0), strNewDomain)
Screen.MousePointer = vbHourglass
hRasConn = 0
lngRetCode = RasDial(ByVal APINULL, vbNullString, lprasdialparams, APINULL, ByVal APINULL, hRasConn)
Screen.MousePointer = vbDefault
If lngRetCode Then
lngRetHangUp = RasHangUp(hRasConn)
End If
10
AddConnection = lngRetCode
End Function


执行到lprasdialparams.dwSize = 2884 '1052后直接执行AddConnection = lngRetCode,中间部分并未执行。
BAIDU了很多次,也没明白所以,高手指点下吧。
[解决办法]
lprasdialparams 的变量声明都给你注释起来了,根本没有声明过这个结构,哪里去找 dwSize 属性?
所以。第一句赋值就直接出错了。

务必在整个模块的代码最前面加上 Option Explicit 语句,编译时就能发现的错误。

热点排行