教你做超簡單的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,點擊保存。
這樣就做好了,桌面會顯示製作成功後,桌面出現了一個以“新建文本文檔”為文件名的文件,它就是我們製作的百度小助手。
雙擊打開,如下圖所示。
-
微信openid獲取教程
用微信支付平台發放紅包必須上載用户的微信openid,想要導出微信openid可以按以下步驟來做。操作方法(01)進入微信openid導出平台,根據下圖1更新列表;2刷新粉絲信息;3導出數據;(02)獲得的微信平台openid數據如下(03)把openid拷貝到t型台文件裏,格式如下。(04)導入到微信商户平...
-
解決TeamViewer無法按給定網絡地址聯繫夥伴
在使用TeamViewer遠程控制電腦的時候,突然出現下圖提示無法建立連接,無法按給定網絡地址聯繫夥伴。然後不管怎麼試,都彈出這個連接地址。下面是本人親身經歷和排除方法,僅供參考。操作方法(01)首先第一步就是修復一下網絡連接,打開網絡和共享中心。(02)選擇自己使用的上...
-
金萬維動態域名教程
現如今有很多nat123、金萬維等類似的建站軟件,那麼怎麼用金萬維獲得屬於自己的動態域名呢?操作方法(01)登陸金萬維服務器端,進入配置界面,點擊配件許可證,然後點擊“點擊申請試用賬號”。(02)按提示輸入相關信息,完成註冊。註冊完成後,一般建議勾選“啟動動態域名解析”,這...
-
如何把文件轉換成PDF格式?
PDF格式在如今使用頻率越來越高,在一些文檔中,PDF往往比較方便文字及圖片的查看。那麼如何把文件直接轉換成PDF格式呢?以福昕高級PDF編輯器為例,把文檔改成方便的PDF格式進行瀏覽和編輯。操作方法(01)PDF格式的文檔很多,一些方便的功能可以直接在PDF編輯器中實現。怎...