一个VB关于sendkeys的问题,请帮助解决,谢谢!
我想写一个自动TELNET的代码.可以自动输入用户名和密码.可总是有问题
具体代码如下:
shell (telnet ***.***.***.***)
sendkeys "我的用户名",true
sendkeys "{enter}",true
sendkeys "我的密码",true
sendkeys "{enter}",true
我怀疑是因为远程的服务器没响应就输出完毕了.所以在中间加了
delay 5000
类似的语句.可是没什么效果.
结果就是输入了一部分.可不是我想要的结果
希望高手可以帮我!
参考答案:Shell 函数的用法有错,代码修改如下,添加TIMER控件,在连接正确后执行SendKeys语句:
Private Sub Command1_Click()
Dim lianjie
lianjie = Shell("telnet ***.***.***.***")
Me.Show
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "MsgBox Demonstration" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Call Timer1_Timer
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End
End If
End Sub
Private Sub Timer1_Timer()
SendKeys "我的用户名", True
SendKeys "{enter}", True
SendKeys "我的密码", True
SendKeys "{enter}", True
End Sub