用API打开网页及文件

用API打开网页及文件

[@more@]

End Sub Call cRun   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  建立包含主题和正文的邮件

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/3875/viewspace-786654/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/3875/viewspace-786654/