這篇文章主要為大家展示了“vbs如何實現(xiàn)百度小助手”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“vbs如何實現(xiàn)百度小助手”這篇文章吧。

成都創(chuàng)新互聯(lián)公司網(wǎng)站建設(shè)由有經(jīng)驗的網(wǎng)站設(shè)計師、開發(fā)人員和項目經(jīng)理組成的專業(yè)建站團隊，負責(zé)網(wǎng)站視覺設(shè)計、用戶體驗優(yōu)化、交互設(shè)計和前端開發(fā)等方面的工作，以確保網(wǎng)站外觀精美、成都做網(wǎng)站、網(wǎng)站制作易于使用并且具有良好的響應(yīng)性。

運行它直接選擇：
1.我要回答;2.歌曲搜索;3,新聞搜索;4.網(wǎng)頁搜索;5.貼吧搜索;6.知道搜索;7.圖片搜索;8.視頻搜索;9;百科搜索;
然后輸入需要搜索的內(nèi)容即可直接自動打開轉(zhuǎn)到指定網(wǎng)址自動進行搜索．

代碼如下:

xz=InputBox("1.我要回答;2.歌曲搜索;3,新聞搜索;" & Chr(13) & "4.網(wǎng)頁搜索;5.貼吧搜索;6.知道搜索;" & Chr(13) & "7.圖片搜索;8.視頻搜索;9;百科搜索;","百度小助手 [Null_vbt]","")
If Len(xz)=0 Then
MsgBox "沒有選擇，腳本退出！",64,"錯誤"
WScript.Quit
else
Select Case xz
Case 1
x=Urlcode(InputBox("請輸入要回答的問題","百度我要回答",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
else
strurl="/tupian/20230522/error.html & x & "&ct=17&pn=0&tn=ikaslist&rn=10&lm=65536&fr=answersearch_0"
End if
Case 2
x=Urlcode(InputBox("請輸入要搜索的歌曲名","百度歌曲搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
Else
strurl="http://mp3.baidu.com/m?f=ms&tn=baidump3&ct=134217728&lf=&rn=&word=" & x & "&lm=-1"
End if
Case 3
x=Urlcode(InputBox("請輸入要搜索的新聞標(biāo)題","百度新聞搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
else
strurl="/tupian/20230522/tuxing.html & x & "&t=1"
End if
Case 4
x=Urlcode(InputBox("請輸入要搜索的內(nèi)容","百度網(wǎng)頁搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
else
strurl="/tupian/20230522/ & x
End if
Case 5
x=Urlcode(InputBox("請輸入要搜索的貼子標(biāo)題","百度貼吧搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
else
strurl="/tupian/20230522/ & x
End if
Case 6
x=InputBox("請輸入要搜索的知道標(biāo)題","百度知道搜索","")
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
else
strurl="/tupian/20230522/ & x
End if
Case 7
x=Urlcode(InputBox("請輸入要搜索的圖片標(biāo)題","百度圖片搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
else
strurl="/tupian/20230522/tuxing.html & x & "&t=3"
End if
Case 8
x=Urlcode(InputBox("請輸入要搜索的視頻標(biāo)題","百度視頻搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
else
strurl="/tupian/20230522/ & x
End if
Case 9
x=Urlcode(InputBox("請輸入要搜索的百科標(biāo)題","百度百科搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容，腳本退出！",64,"錯誤"
WScript.Quit
else
strurl="/tupian/20230522/error.html & x
End if
End Select
End if
Set objIe = CreateObject("InternetExplorer.Application")
objie.visible=true
objIe.Navigate strUrl
function Urlcode(InpStr)
Dim InpAsc,I
For I = 1 To Len(InpStr)
InpAsc = Asc(Mid(InpStr, I, 1))
If ((InpAsc < 58) And (InpAsc > 47)) Or ((InpAsc < 91) And (InpAsc > 64)) Or ((InpAsc < 123) And (InpAsc > 96)) Then
Urlcode = Urlcode & Chr(InpAsc)
Else
Urlcode = Urlcode & "%" & mid(Trim(Hex(InpAsc)),1,2) & "%" & mid(Trim(Hex(InpAsc)),3,2)
End If
Next
end Function

以上是“vbs如何實現(xiàn)百度小助手”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

新聞標(biāo)題：vbs如何實現(xiàn)百度小助手-創(chuàng)新互聯(lián)
當(dāng)前URL：http://www.chinadenli.net/article24/djoije.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計、服務(wù)器托管、ChatGPT、網(wǎng)站制作、手機網(wǎng)站建設(shè)、軟件開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)