Private Sub Command1_Click()
Dim websiteURL As String
websiteURL = "http://www.baidu.com" '请替换为您想要打开的网址或网站URL
' 使用Shell函数打开默认浏览器并访问指定网址
Shell "cmd /c start " & websiteURL, vbNormalFocus
End Sub
Private Sub btnOpenBaidu_Click()
OpenWebsite "http://www.baidu.com"
End Sub
Private Sub btnOpenSogou_Click()
OpenWebsite "http://www.sogou.com"
End Sub
Private Sub btnOpenhao123_Click()
OpenWebsite "https://www.hao123.com/"
End Sub
Private Sub OpenWebsite(ByVal websiteURL As String)
' 使用Shell函数打开默认浏览器并访问指定网址
Shell "cmd /c start " & websiteURL, vbNormalFocus
End Sub
Private Sub btnSearch_Click()
' 获取用户输入的搜索关键字
Dim keyword As String
keyword = txtKeyword.Text
' 构建搜索URL,将用户输入的关键字作为参数
Dim searchURL As String
searchURL = "https://www.baidu.com/s?wd=" & keyword
' 使用Shell函数打开默认浏览器并访问搜索URL
Shell "cmd /c start " & searchURL, vbNormalFocus
End Sub
Private Sub nSearch_Click()
'获取文本框中的关键字
Dim keyword As String
keyword = txtSearch.Text
'打开默认浏览器,使用百度搜索关键字
Dim searchURL As String
searchURL = "https://www.baidu.com/s?wd=" & keyword
'创建Internet Explorer对象并打开搜索结果
Dim webBrowser As Object
Set webBrowser = CreateObject("InternetExplorer.Application")
'设置IE窗口为非可见,后台执行
webBrowser.Visible = True
'打开搜索结果页面
webBrowser.Navigate searchURL
End Sub
Private Sub Search_Click()
' 获取用户输入的搜索关键字
Dim keyword As String
keyword = word.Text
'打开默认浏览器,使用百度搜索关键字
Dim searchURL As String
searchURL = "https://www.baidu.com/s?wd=" & keyword
' 使用Shell函数打开默认浏览器并访问搜索URL
Shell "cmd /c start " & searchURL, vbNormalFocus
End Sub
Private Sub Form_Load()
txtKeyword.Text = "机器人"
word.Text = "百度百科官网"
txtSearch.Text = "百度知道官网"
End Sub