超简单的(VB代码)弹窗源码

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 Private Sub Form_Load() Me.Hide Dim r As Long r = ShellExecute(0, "open", "http://www.zaoyc.com", 0, 0, 1) End Sub