資源描述：
《secureCRT VBS腳本語(yǔ)法.doc》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、常用語(yǔ)句：1.CRT命令?‘發(fā)送命令?crt.Screen.Send“whyy@dsl-vty”&chr(13)?‘等待字符串出現(xiàn)?crt.Screen.WaitForString“Password:”?‘等待字符串出現(xiàn)，等待1秒鐘?crt.Screen.WaitForString(“Password:”,1)?‘開(kāi)啟同步?crt.Screen.Synchronous=True?‘判斷指針1秒內(nèi)不移動(dòng)，用于確定安全連接可以進(jìn)行后續(xù)代碼輸入操作?Do?bCursorMoved=crt.Screen.WaitForCursor(1)?
2、LoopuntilbCursorMoved=False?‘判定是否已經(jīng)連接到設(shè)備?ifcrt.Session.Connected=truethen?‘?dāng)嚅_(kāi)連接?crt.session.disConnect?‘激活窗口用于多tab頁(yè)面?crt.Activate?‘連接到指定設(shè)備?crt.session.Connect(“/telnet”&b(n))?‘延時(shí)1秒?crt.Sleep10002.vbScript語(yǔ)句a.文件操作?Setfso=CreateObject(“Scripting.FileSystemObject”)‘創(chuàng)建文件對(duì)
3、象?Setfile1=fso.OpenTextFile(“c:test.txt”,1,False)‘設(shè)置文件對(duì)象1只讀模式;2寫(xiě)模式;8在文件末尾進(jìn)行寫(xiě)操作?objFso.FileExists(“文件路徑”)‘判定文件是否存在，存在返回trus，否則返回false?file1.AtEndOfStream<>True‘如果文件末尾無(wú)數(shù)據(jù)返回true，否則返回false?line=file1.ReadLine‘讀取第一行文本數(shù)據(jù)，并將讀取位移動(dòng)到下一行?params=Split(line)‘分割讀取的行數(shù)據(jù)，用空格符分割?file1
4、.Close‘關(guān)閉文件b.系統(tǒng)文檔操作?‘創(chuàng)建shell對(duì)象，對(duì)系統(tǒng)特殊文檔操作?SetobjShell=CreateObject(“WScript.Shell”)‘返回”我的文檔”的路徑給變量szMyDocs,可以動(dòng)態(tài)的返回”我的文檔”的路徑?szMyDocs=objShell.SpecialFolders(“MyDocuments”)‘設(shè)置文件路徑到變量中?szSessionsFile=szMyDocs&“SessionList.txt”3.知識(shí)點(diǎn)?（1）判斷文件是否存在?ifNotobjFso.FileExists(szS
5、essionsFile)then‘如果txt文件不存在，就報(bào)錯(cuò)并退出sub?crt.Dialog.MessageBox“Sessionlistfilenotfound:”&vbcrlf&?vbcrlf&szSessionsFile&vbcrlf&vbcrlf&?“Createasessionlistfileasdescribedinthedescriptionof”&“thisscriptcodeandthenrunthescriptagain.”?exitsub?endif（2）容錯(cuò)機(jī)制?OnErrorResumeNext‘后面
6、代碼錯(cuò)誤會(huì)繼續(xù)執(zhí)行?crt.Session.Connect“/telnet”&vSessionsArray(0)?szError=Err.Description‘將錯(cuò)誤表述信息放入變量szError中?OnErrorGoto0‘關(guān)閉容錯(cuò)機(jī)制（3）判斷是否安全連接?‘判斷是否連接正常?ifcrt.Session.Connectedthen?crt.Screen.Synchronous=True‘同步顯示?‘第一次連接時(shí)的安全檢測(cè)?Do?bCursorMoved=crt.Screen.WaitForCursor(1)?Loopunti
7、lbCursorMoved=False?’一旦光標(biāo)在一秒內(nèi)停止移動(dòng)，我們就認(rèn)為他已經(jīng)安全的連接上了遠(yuǎn)程設(shè)備?endif（4）安全關(guān)閉連接?’斷開(kāi)連接?crt.session.disconnect?’等待連接關(guān)閉?Do?crt.Sleep100?LoopWhilecrt.Session.Connected=True‘每100毫秒判斷連接是否斷開(kāi)（5）說(shuō)明:?1.CRT默認(rèn)tab的index為1?2.要?jiǎng)?chuàng)建第二個(gè)標(biāo)簽頁(yè)tab,必須使用函數(shù)setnewtab=objCurrentTab1.Clone()復(fù)制標(biāo)簽頁(yè)為新的tab頁(yè)面?否則報(bào)
8、錯(cuò)tab2超出index范圍rang函數(shù)：?SetobjCurrentTab1=crt.GetTab(1)‘創(chuàng)建標(biāo)簽頁(yè)1?objCurrentTab1.session.disConnect‘?dāng)嚅_(kāi)標(biāo)簽頁(yè)1的當(dāng)前連接?objCurrentTab1.Ac
