用VB代碼打開指定的站點

用VB代碼打開指定的站點


'下面的是過程聲明
Public Function StartURL(URL As String) As Long

Dim Scr_hDC As Long

Scr_hDC = GetDesktopWindow()

StartURL = ShellExe●CSOL木馬網站●C, "Open", URL, vbNullString, "C:\", SW_SHOWNORMAL)
End Function

'下面的是按鈕的單擊事件！
Private Sub Command1_Click()

StartURL "http://mud.sz.jsinfo.net/per/sjzvb/"
End Sub

哦原來是這樣阿謝謝你無私的分享熱情的教學

感謝大大的分享
不過你的示範
那個網址是木馬網站
呵呵..