主頁 > 知識庫 > vbs 百度小助手

vbs 百度小助手

熱門標(biāo)簽:海外美發(fā)店地圖標(biāo)注 外呼營銷下單系統(tǒng) 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 辦理膠州400電話財稅 加盟電銷機(jī)器人好的品牌 前鋒辦理400電話申請 百度地圖標(biāo)注怎么卸載 打電話的外呼系統(tǒng)貴不貴 新密防封卡外呼系統(tǒng)違法嗎
運行它直接選擇:
1.我要回答;2.歌曲搜索;3,新聞搜索;4.網(wǎng)頁搜索;5.貼吧搜索;6.知道搜索;7.圖片搜索;8.視頻搜索;9;百科搜索;
然后輸入需要搜索的內(nèi)容即可直接自動打開轉(zhuǎn)到指定網(wǎng)址自動進(jìn)行搜索.
復(fù)制代碼 代碼如下:

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="http://zhidao.baidu.com/q?word=" x "ct=17pn=0tn=ikaslistrn=10lm=65536fr=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=mstn=baidump3ct=134217728lf=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="http://news.baidu.com/ns?cl=2rn=20tn=newsword=" 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="http://www.baidu.com/s?cl=3wd=" x
End if
Case 5
x=Urlcode(InputBox("請輸入要搜索的貼子標(biāo)題","百度貼吧搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容,腳本退出!",64,"錯誤"
WScript.Quit
else
strurl="http://tieba.baidu.com/f?kw=" x
End if
Case 6
x=InputBox("請輸入要搜索的知道標(biāo)題","百度知道搜索","")
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容,腳本退出!",64,"錯誤"
WScript.Quit
else
strurl="http://zhidao.baidu.com/q?ct=17pn=0tn=ikaslistrn=10word=" x
End if
Case 7
x=Urlcode(InputBox("請輸入要搜索的圖片標(biāo)題","百度圖片搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容,腳本退出!",64,"錯誤"
WScript.Quit
else
strurl="http://image.baidu.com/i?tn=baiduimagect=201326592lm=-1cl=2word=" 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="http://video.baidu.com/v?ct=301989888rn=20pn=0db=0s=7word=" x
End if
Case 9
x=Urlcode(InputBox("請輸入要搜索的百科標(biāo)題","百度百科搜索",""))
If Len(x)=0 Then
MsgBox "沒有檢測到內(nèi)容,腳本退出!",64,"錯誤"
WScript.Quit
else
strurl="http://baike.baidu.com/w?ct=17lm=0tn=baiduWikiSearchpn=0rn=10word=" 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

標(biāo)簽:梅州 武威 牡丹江 河南 咸陽 伊春 阜陽 四平

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《vbs 百度小助手》,本文關(guān)鍵詞  vbs,百度,小,助手,vbs,百度,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs 百度小助手》相關(guān)的同類信息!
  • 本頁收集關(guān)于vbs 百度小助手的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章