ITPub博客

首页 > IT基础架构 > 网络安全 > 用API打开网页及文件

用API打开网页及文件

原创 网络安全 作者:yfzhu 时间:2005-01-10 16:19:27 0 删除 编辑
用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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2009-02-18

  • 博文量
    19
  • 访问量
    27738