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

Question

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)
                                         ~~~~~~

Answer 1

to un1:
    你的办法不行的，我以前试过，把那两个参数设成0后，程序就不动了，等拨号完事才动，不能在拨号过程中让用户自己选择是否断开，很不方便。to weedxg:
    你并没有说出解决的办法，我当然知道检测连接状态，只不过不知道怎样拨号过程中让程序把使用权交回系统，让用户有中断拨号的权利，而如果只是循环检测，那程序就不能动了，只能等待拨号结束。    我已经找到办法了，大家不用再回答了。

Answer 2

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

Answer 3

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

Answer 4

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