116.htm

vb功能实例介绍。详细、很好的实例说明。

<p>在程序中打开 Internet 拨号连接窗口   </p>
<p>       </p>
<p>Private Sub StartConnection()</p>
<p>Dim X</p>
<p>X = Shell("rundll32.exe rnaui.dll,RnaDial " & "_连接的名称_", 1)</p>
<p>DoEvents</p>
<p>SendKeys "{enter}", True</p>
<p>DoEvents</p>
<p>End Sub</p>
<p> </p>