VB 打开网络连接

最新推荐文章于 2021-02-10 20:14:11 发布

iteye_6846

最新推荐文章于 2021-02-10 20:14:11 发布

阅读量267

点赞数

文章标签： shell

本文链接：https://blog.csdn.net/iteye_6846/article/details/82264580

版权

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