56.htm

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

<p>如何启动拨号网路中的连线？ </p>
<p></p>
<p></p>
<p>拨号网路其实不是一个可执行文件， 所以一般常用的「Shell 可执行文件名」方</p>
<p>法，在此并不适用。</p>
<p>要叫出拨号网路本身，方法如下：(藉助 explorer.exe 来开启拨号网路)</p>
<p>Shell "explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{992CFFA0-</p>
<p>F557-101A-88EC-00DD010CCC48}"</p>
<p>要启动拨号网路中的某一个连线， 其方法是：(假设连线名称为 Hinet) (藉助 </p>
<p>rundll.exe 及 rnaui.dll 来启动连线窗口)</p>
<p>Shell "rundll rnaui.dll,RnaDial Hinet"</p>
<p>请注意在以上叙述中，「,RnaDial Hinet」这个部分不要插入额外的空白字符，大</p>
<p>小写不要任意更改。</p>
<p></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>