Dim RetVal As Long RetVal = Shell("C:WindowsNotepad.exe C:Test.txt", 3) a=Shell("Explorer.exe http://ccidnet.com/",3) Shell("Start C:Test.txt") Call Shell("rundll32.exe url.dll,FileProtocolHandler " & Text1, 1) 打开EXE
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 ret& ret& = ShellExecute(Me.hwnd, "Open", "http://vbonline.yes8.com", "", App.Path, 1) End Sub
打开网址 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 Command1_Click() ShellExecute Me.hwnd, "", "mailto:a@c.com?subject=help&body=OK", _ "", "", 0 End Sub 建立包含主题和正文的邮件