|
发表于 2024-7-12 11:32:54
|
显示全部楼层
明白了
原來是 win32api ShellExecuteA
- 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
- Sub openUrl(url)
- ShellExecute 0, vbNullString, url, vbNullString, vbNullString, 1
- End Sub
- Private Sub about_Click()
- MsgBox "-by JuncoJet", vbInformation
- End Sub
- Private Sub baidu_Click()
- openUrl "https://www.baidu.com/s?wd=" & Text1 & "%20site%3Awww.crystalradio.cn"
- End Sub
- Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- PopupMenu menu
- End Sub
- Private Sub normal_Click()
- openUrl "http://www.crystalradio.cn/search.php?mod=forum?formhash=add25d82&srchtxt=" & Text1 & "&searchsubmit=yes"
- End Sub
- Private Sub user_Click()
- openUrl "http://www.crystalradio.cn/search.php?mod=forum?formhash=add25d82&srchtxt=&seltableid=0&srchuname=" & Text1 & "&srchfilter=all&srchfrom=0&orderby=lastpost&srchfid%5B%5D=all&searchsubmit=yes"
- End Sub
复制代码 |
|