rivate Sub ConnetionShell() '拨号 Shell "rasphone.exe", vbNormalFocus '拨号程序 Delay 20'我定义的延时程序, MsgShellF'这个是我定义的检测网络是否通的过程 End Sub Public Sub Delay(HowLong As Date) '延时程序 TempTime = DateAdd("s", HowLong, Now) While TempTime > Now DoEvents '控制权交给windows Wend
End Sub Shell "rasphone.exe", vbNormalFocus 这一句 就够了,可是要是 在程序里用就要注意,shell的特性,他和vb的程序是并行的,所以我定义了延时。
Shell "Rasphone.exe -d asdl", vbNormalFocus
"::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus
Shell "rasphone.exe", vbNormalFocus '拨号程序
Delay 20'我定义的延时程序,
MsgShellF'这个是我定义的检测网络是否通的过程
End Sub
Public Sub Delay(HowLong As Date) '延时程序
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents '控制权交给windows
Wend
End Sub
Shell "rasphone.exe", vbNormalFocus 这一句 就够了,可是要是 在程序里用就要注意,shell的特性,他和vb的程序是并行的,所以我定义了延时。