教你做超簡單的vbs百度小助手！

接下來讓我們一起來學習如何做vbs百度小助手吧！

操作方法

開啟電腦，右鍵單擊選擇新建文字文檔。

建立成功後，桌面上會出現新建文字文檔的圖標，雙擊開啟。

輸入

xz=InputBox("1.我要回答;2.歌曲搜尋;3,新聞搜尋;" & Chr(13) & "4.網頁搜尋;5.貼吧搜尋;6.知道搜尋;" & Chr(13) & "7.圖片搜尋;8.視頻搜尋;9;百科搜尋;","百度小助手 [Null_vbt]","")
If Len(xz)=0 Then
MsgBox "沒有選擇，腳本退出！",64,"錯誤"

else
Select Case xz
Case 1
x=Urlcode(InputBox("請輸入要回答的問題","百度我要回答",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內容，腳本退出！",64,"錯誤"

else
strurl=" & 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 "沒有檢測到內容，腳本退出！",64,"錯誤"

Else
strurl=" & x & "&lm=-1"
End if
Case 3
x=Urlcode(InputBox("請輸入要搜尋的新聞標題","百度新聞搜尋",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內容，腳本退出！",64,"錯誤"

else
strurl=" & x & "&t=1"
End if
Case 4
x=Urlcode(InputBox("請輸入要搜尋的內容","百度網頁搜尋",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內容，腳本退出！",64,"錯誤"

else
strurl=" & x
End if
Case 5
x=Urlcode(InputBox("請輸入要搜尋的貼子標題","百度貼吧搜尋",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內容，腳本退出！",64,"錯誤"

else
strurl=" & x
End if
Case 6
x=InputBox("請輸入要搜尋的知道標題","百度知道搜尋","")
If Len(x)=0 Then
MsgBox "沒有檢測到內容，腳本退出！",64,"錯誤"

else
strurl=" & x
End if
Case 7
x=Urlcode(InputBox("請輸入要搜尋的圖片標題","百度圖片搜尋",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內容，腳本退出！",64,"錯誤"

else
strurl=" & x & "&t=3"
End if
Case 8
x=Urlcode(InputBox("請輸入要搜尋的視頻標題","百度視頻搜尋",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內容，腳本退出！",64,"錯誤"

else
strurl=" & x
End if
Case 9
x=Urlcode(InputBox("請輸入要搜尋的百科標題","百度百科搜尋",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內容，腳本退出！",64,"錯誤"

else
strurl=" & x
End if
End Select
End if
Set objIe = CreateObject("ication")
ble=true
gate 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，點擊儲存。

這樣就做好了，桌面會顯示製作成功後，桌面出現了一個以“新建文字文檔”爲檔案名的檔案，它就是我們製作的百度小助手。

雙擊開啟，如下圖所示。