PrivateSubStartConnection()
DimX
X=Shell(“rundll32.exernaui.dll,RnaDial”&”_连接的名称_”,1)
DoEvents
SendKeys”{enter}”,True
DoEvents
EndSub->
PrivateSubStartConnection()
DimX
X=Shell(“rundll32.exernaui.dll,RnaDial”&”_连接的名称_”,1)
DoEvents
SendKeys”{enter}”,True
DoEvents
EndSub->