VB 打开网络连接

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