VB 打开网络连接

最新推荐文章于 2021-09-12 10:23:23 发布

原创最新推荐文章于 2021-09-12 10:23:23 发布 · 302 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#shell

本文提供了一个使用VB实现网络连接并演示了网络延时操作的示例代码，包括使用ShellExecute打开浏览器并导航到特定URL，以及通过自定义函数实现延时功能。代码中详细介绍了如何调用系统API来实现这些功能。

VB 打开网络连接
2011年10月29日
　　Option Explicit
　　Private Declare Function GetTickCount Lib "kernel32" () As Long
　　Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
　　Dim StartTm&
　　Private Sub Command1_Click()
　　'网络联接
　　ShellExecute Me.hwnd, "open", "explorer", "::{7007ACC7-3202-11D1-AAD2-00805FC1270E}", vbNullString, 1
　　Call DlyTm(500)
　　SendKeys "{F2}"
　　Call DlyTm(100)
　　SendKeys Chr(13)
　　Call DlyTm(100)
　　SendKeys Chr(13)
　　End Sub
　　Public Sub DlyTm(Optional Dtm As Long)
　　On Error Resume Next
　　If Dtm = 0 Then Dtm = 500
　　StartTm = GetTickCount
　　Do
　　DoEvents
　　Loop Until GetTickCount >= StartTm + Dtm
　　End Sub