500分求telnet client 的VB源码或示例？

显示全部楼层 · 2010-8-16 13:11:23

请问那个高手有telnet client 的VB源码或示例，即用VB仿telnet工具连接到telnet服务器，并输入用户密码和执行命令。
请大家看清问题，请不要直接将网上的网页复制过来，请大家先验证是否成功。
我在网上已经搜索并测试过了，虽然能搜到VB的Telnet源码，但没有一个是正常成功的，Delphi的telnet源码反而测试没问题。国内的VB技术人才怎么少得这么可怜，请熟悉VB的高手突破这个难题。谢谢了。
虽然一次性不能送出500分，但我会通过其它问题变相送出。
谢谢【星月飞龙】的快速回复，现在再补充一下问题。
1、不用cmd命令行，要直接用VB的winsock协商或API。
2、不用VBS，因为会出现提示符窗口，即不用以下思路。
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "telnet IP地址23"
Sleep(1200)
WshShell.SendKeys "用户名{enter}"
Sleep(500)
WshShell.SendKeys "密码{enter}"
Sleep(500)
WshShell.SendKeys "命令{enter}"

千问 · 2010-8-16 13:11:23

原来是有认证信息，有个简单的方法是拒绝所有认证，代码如下Option ExplicitPrivate host As StringPrivate port As IntegerPrivate Sub Form_Load()
host = Trim(InputBox("输入主机地址，端口号用空格分割"))
Text1.Text = ""
Text1.Locked = True
If InStr(host, " ") > 0 Then
port = Val(Mid(host, InStr(host, " ") + 1))
host = Left(host, In

千问 · 2010-8-16 13:11:23

这个，给你个思路好了，可以在远程调用cmd /c "net user>c:\cmd.text" /vbhide,然后获取cmd.txt里的内容，用winsock.senddate发送回来，就得到了结果，唯一的不好就是执行 net start 服务名的时候，要确认Y/N的时候没办法搞，以前写过这么一个小木马，效果总体来说还不错，不过那个winsock的OC

千问 · 2010-8-16 13:11:23

男子汉顶天立地，说话要算话，500分也不多。看我的文章一定解决问题。 http://hi.baidu.com/shumagang/blog/item/7b5fe1ca437a4c15be09e6ba.html