crt.Screen.Send “whyy@dsl-vty” & chr(13) ‘等待字符串出现 crt.Screen.WaitForString “Password:” ‘等待字符串出现,等待1秒钟 crt.Screen.WaitForString (“Password:”,1) ‘开启同步 crt.Screen.Synchronous = True ‘判断指针1秒内不移动,用于确定安全连接可以进行后续代码输入操作 Do bCursorMoved = ...
While 1 crt.Screen.Send "ps" & chr(13) crt.Sleep 3000 crt.Screen.Send "cat /proc/meminfo" & chr(13) crt.Sleep 3000 crt.Screen.Send "cat /proc/2189/status" & chr(13) crt.Sleep 3000 crt.Screen.Send "cat /proc/2191/status" & chr(13) crt.Sleep 3000 crt.Screen.Send "cat /pro...
crt.Screen.Send "interface f0/0" & chr(13) crt.Screen.Send "ip address dhcp" & chr(13) crt.Screen.WaitForString "R1(config-if)#" crt.Screen.Send "no shutdown" & chr(13) crt.Screen.Send chr(13) crt.Screen.Send "interface loopback 0" & chr(13) crt.Screen.Send "ip address 10....
Screen动作,发送字符串 crt.Screen.Send yes & VbCr 发送yes 并回车crt.Screen.Send VbCr 发送回车 Chr(13)crt.Screen.Send “” 发送空格 Chr(32)crt.screen.sendkeys(c) 发送Ctrl+C3. 等待crt.sleep 2004. 定义变量 Dim LocalIpDim com9600Dim MyString, myArray, screen1 2、5. 变量赋值 com9600 =...
1)发送命令 crt.Screen.Send “你想发啥发啥” & chr(13) 2)等待字符串出现 crt.Screen.WaitForString “继上次操作后屏幕中出现的某个特征字符串” 3)等待字符串出现,等待t秒钟,可用于判断,弱ts内出现则返回1,否则返回0 crt.Screen.WaitForString (“继上次操作后屏幕中出现的某个特征字符串”,t) ...
crt.Screen.SendVbCr——发送回车Chr(13) crt.Screen.Send“”——发送空格Chr(32) crt.screen.sendkeys("^c")——发送Ctrl+C 3. crt.sleep200 4. DimLocalIp Dim com9600 DimMyString,myArray, screen1 5. com9600 = "串口\" +ComNo+"-9600" LocalIp=crt.Dialog.Prompt("请输入设备IP地址", "设...
crt.Screen.Send "Hrj123!@#" & chr(13) Wend End Sub 本脚本实现死循环,等待passwd字符出现,则输入密码并回车。 其中chr(13)是指回车符的ASCII码值。 (二)执行脚本 弹出的选择对话框,选中auto_input_passwd.vbs脚本。 再次执行uname.sh脚本,看实际效果: ...
screen.Send ""&chr(13) screen.WaitForStrings "Username:","ogin:" screen.send "XXXXXXXXXX"& chr(13) screen.WaitForString "Password:" screen.Send "XXXXXXXXXX"& chr(13) Do Loop Until (screen.WaitForStrings("NE40E>","SE800#",5)<>False) ...
crt.Screen.SendVbCr——发送回车Chr(13) crt.Screen.Send“”——发送空格Chr(32) crt.screen.sendkeys("^c")——发送Ctrl+C 3. crt.sleep200 4. DimLocalIp Dim com9600 DimMyString,myArray, screen1 5. com9600 = "串口\" +ComNo+"-9600" LocalIp=crt.Dialog.Prompt("请输入设备IP地址", "设...
crt.Screen.Send"root@100.100.100.100"&chr(13)crt.Screen.WaitForString"root@100.100.100.100's password: "crt.Screen.Send"mypassword"&chr(13)crt.Screen.Send"cd /opt/app"&chr(13)crt.Screen.Send"ls"&chr(13)End Sub 此例子中,首先登录ip地址为100.100.100.100的地址,用户名为root,密码为mypassword...