教你做超簡單的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,點擊保存。
這樣就做好了,桌面會顯示製作成功後,桌面出現了一個以“新建文本文檔”爲文件名的文件,它就是我們製作的百度小助手。
雙擊打開,如下圖所示。
-
word中替換功能的六個實用技巧
在這個講效率的年代,word的使用也需要效率,那麼,我們怎麼才能使word的使用也有效率呢,這就需要我們在平時多積累一些實用小技巧,但如何能夠更加了解word各個功能的使用技巧呢?那下面我們就以Word中替換功能爲例,詳細講解它的6個技巧。操作方法(01)第一、去除word裏括號...
-
如何使用新浪郵箱發郵件
許多人擁有一個電子郵箱,卻不會使用它來發送電子郵件,接下來,我以新浪郵箱爲例教大家如何發送電子郵件。操作方法(01)首先,登陸郵箱(02)找到“寫信”,單擊打開(03)收件人就是對方的電子郵箱地址,輸入到方框內(04)主題可以隨便寫(05)正文寫在紅色的框內(06)下面是例子(07)寫完後,單擊...
-
adobe acrobat教程---5分鐘輕鬆編輯文檔
AdobeAcrobat的功能非常強大,只是很多人都沒有去深入的使用它。AdobeAcrobat能輕鬆簡化您的工作。它的主要功能有:1.將PDF轉換爲其它格式;2.編輯PDF;3.文檔創建和分析表單;4.創建PDF文件;5.合併文件;6.簡化審閱和審批;7.保護PDF文件;8.前後一致地準備文件。9.將...
-
商用wifi路由器怎麼來設置?怎麼用呢?
不論是餐廳、咖啡廳、足療店,還是機場、商場,只要是人流量大、人羣密集的地方,WiFi已成爲人們連接互聯網的重要上網方式,它在爲人們提供便捷的移動網絡服務同時,也正潛移默化的改變着人們的上網習慣、消費習慣,讓人們更加依賴它。因此不少商家看到了可以藉助WiFi平臺...