怎么让VB程序延迟啊，我做了一个拨号后打开网页的程序，可是用RASDIAL函数拨号后，还没等连接上程序就去执行下一步了，怎么能等拨号连接完毕再执行下一步啊。有WAIT命令吗？？

[lnjzwy]

怎么让VB程序延迟啊，我做了一个拨号后打开网页的程序，可是用RASDIAL函数拨号后，还没等连接上程序就去执行下一步了，怎么能等拨号连接完毕再执行下一步啊。有WAIT命令吗？？

[weedxg]

检测一下网络是否连接在执行下一步不就行了。至于网络连接的检测，可参看我以前做过的回答。

[Un1]

Public Declare Function RasDial Lib "rasapi32" Alias "RasDialA" (lpRasDialExtensions As Any, _
lpszPhonebook As Any, lprasdialparams As RASDIALPARAMS, ByVal dwNotifierType As Long, _
ByVal lpvNotifier As Long, lphRasConn As Long) As Long


Dim rp As RASDIALPARAMS
With rp
.dwSize = RASDIALPARAMSLEN
.szEntryName = EntryName & vbNullChar
.szPhoneNumber = PhoneNumber & vbNullChar
.szCallbackNumber = vbNullChar
.szUserName = vbNullChar
.szPassword = vbNullChar
.szDomain = "*" & vbNullChar
End With


l = RasDial(ByVal 0, ByVal 0, rp, 0, 0, mhConn)
~~~~~~

[lnjzwy]

to un1:
你的办法不行的，我以前试过，把那两个参数设成0后，程序就不动了，等拨号完事才动，不能在拨号过程中让用户自己选择是否断开，很不方便。

to weedxg:
你并没有说出解决的办法，我当然知道检测连接状态，只不过不知道怎样拨号过程中让程序把使用权交回系统，让用户有中断拨号的权利，而如果只是循环检测，那程序就不能动了，只能等待拨号结束。

我已经找到办法了，大家不用再回答了。

[Un1]

你不就是想要没有连接上去就等待的效果吗？否则只有你自己处理RAS的CallBack了。

[lnjzwy]

to qqrn:
很简单，在检测是否已连接的循环中加入 DoEvents 就可以把控制权交回系统，让用户有时间终止操作。

[QQRN]

已经找到办法了?干嘛不说出来让大伙看看呢？

[Blackhole]

有这么复杂吗，把mhconn设为public，不就可以了吗？

[Blackhole]

哦，对不起，小弟看错题意了！！！！！

[MonkeyLin]

关注