中国DOS联盟

telnet 192.168 如何自动输入用户密码，第三方软件也可以，只要能满足就行，有的话给代码，

我这里没有可用的主机没法测试，你可以手工执行一遍，把控制台的输出原样地贴出来（当然可以把IP或者用户名密码以大家理解的方式屏蔽掉），我写了一个东西还从来没真正用过呢，试试看行不行

你这命令是在局域网中使用的吧！···

写一批处理，让其自动应答 就可以啦~~·

附带工具给你啦：

http://u.115.com/file/t08dfbd556

[ Last edited by bbsphixy on 2010-2-3 at 16:33 ]

用VBS的SendKeys可以

偶那天也为这个烦，网上有vbs的实例最后采用的是autoit。这段代码仿老外的写法

; Run Telnet

Run("telnet 192.168.1.1 61174")



; Rename window

$WinTitle="Telnet (ZXDSL 831) <<- F9-Private Deny / F10-Private Accept / CTRL+d to exit ->>"

WinWait("Telnet 192.168.1.1","")

WinSetTitle("Telnet 192.168.1.1","",$WinTitle)

WinActivate($WinTitle,"")



; Login and change to export directory

xSend($WinTitle,"username{ENTER}")

xSend($WinTitle,"password{ENTER}")

Changeset1()

runwait(@ComSpec & ' /C "c:\windows\system32\ipconfig.exe" /renew')



; Main loop

while WinExists($WinTitle,"")

  if WinActive($WinTitle,"") then

    HotKeySet("{F9}", "changeset1")

    HotKeySet("{F10}", "changeset2")

  else

    HotKeySet("{F9}")

    HotKeySet("{F10}")

  endif



  Sleep(20)

wend

Exit



; Extended send function

func xSend($aWinTitle,$aString)

  Sleep(500)

  WinActivate($aWinTitle,"")

  Send($aString)

endfunc



func Changeset1()

  xSend($WinTitle,"modify zipb cfg enable{ENTER}")

; xSend($WinTitle,"modify zipb cfg disable{ENTER}")  

; xSend($WinTitle,"modify ipf global  seclevel high pubdefact accept pvtdefact accept{ENTER}")

  xSend($WinTitle,"modify ipf global  seclevel high pubdefact accept pvtdefact deny{ENTER}")

;  xSend($WinTitle,"modify nat global tcpidletimeout 1800 tcpclosewait 120 tcptimeout 120 udptimeout 15 defnatage 120 portend 50380 disable{ENTER}")

;  xSend($WinTitle,"quit{ENTER}")

endfunc



func Changeset2()

  xSend($WinTitle,"modify zipb cfg enable{ENTER}")

; xSend($WinTitle,"modify zipb cfg disable{ENTER}")  

  xSend($WinTitle,"modify ipf global  seclevel high pubdefact accept pvtdefact accept{ENTER}")

  xSend($WinTitle,"modify nat global tcpidletimeout 1800 tcpclosewait 120 tcptimeout 120 udptimeout 15 defnatage 120 portend 50380 disable{ENTER}")

; xSend($WinTitle,"modify ipf global  seclevel high pubdefact accept pvtdefact deny{ENTER}")

;  xSend($WinTitle,"quit{ENTER}")

endfunc

没有成功,可否写一个, 192.168.1.1 用户名 root 密码 admin 进路由器用的

dd-wrt login : 用户名
password : 密码

上面不是有我发的工具吗？？你都不下载来试试..

工具是进Telnet的

[ Last edited by bbsphixy on 2010-2-3 at 23:31 ]

试过了,进不了

什么提示？？你先使用“”更改Telnet配置.bat“”设置下你的信息，然后再用“自动登陆Telnet.bat” 连接就是啦！！

如果你设置没问题，那就是你的 Telnet 没打开

你可以连接自己本机（自己电脑）试下就知道了。

如果提示23端口没打开的话，也就是你电脑没启动Telnet服务

[ Last edited by bbsphixy on 2010-2-3 at 23:37 ]

设置过了,能tel进入,用户和密码不行 手工可以进入

提示用户名密码错误？？？？那你的用户名和密码没输对吧，请确认用户和密码正确

重新“更改Telnet配置.bat” 要确认清楚。。

先拿自己本机来试。。

[ Last edited by bbsphixy on 2010-2-3 at 23:40 ]

搞了好几次了,就是进不了

set sh=WScript.CreateObject("WScript.Shell")
iReturn=Sh.Run("cmd.exe /c start telnet.exe", 1, TRUE)
WScript.Sleep 300
sh.SendKeys "open 192.168.1.1"
WScript.Sleep 300
sh.SendKeys "{ENTER}"
WScript.Sleep 300
sh.SendKeys "root{ENTER}"
WScript.Sleep 300
sh.SendKeys "123456{ENTER}"
WScript.Sleep 300
sh.SendKeys "{ENTER}"

上面的代码好用,感谢,对了,怎么在下面填入自己需要输入的命令