在程序中打开Internet拨号连接窗口
PrivateSubStartConnection()
DimX
X=Shell("rundll32.exernaui.dll,RnaDial"&"_连接的名称_",1)
DoEvents
SendKeys"{enter}",True
DoEvents
EndSub->
DimX
X=Shell("rundll32.exernaui.dll,RnaDial"&"_连接的名称_",1)
DoEvents
SendKeys"{enter}",True
DoEvents
EndSub->
精彩图集
精彩文章




