用VBS模拟NC发包

1。关于VBS如何成功调用MSWinsock.Winsock。zzzevazzz说的很清楚了。就是下载Winsock.ocs注册，和 VB6控件的授权密钥的.reg导入注册表。两个文件可以这里下载

2.有关WinSock控件引用的基本方法和事件：
LocalHostName //取得本地主机名
LocalIP //取得本地主机IP
SocketHandle //取得创建SOCＫ的句柄
RemotePort //设置或取得远程端口
LocalPort //设置或取得本地端口
State //返回创建sock的对像状态(代吗如下){
0 缺省的。关闭
1 打开
2 侦听
3 连接挂起
4 识别主机
5 已识别主机
6 正在连接
7 已连接
8 同级人员正在关闭连接
9 错误 }
BytesReceived //返回接收到的（当前在接收端缓冲区内的）数据的数量
Connect(RemoteHost,RemotePort) //建立远程连接，RemoteHost远程主机IP，RemotePort远程主机端口
Listen //使SOCK侦听
SendData/GetData //发送或接收数据
Close //关闭对像
Bind(LocalPort, LocalIP)//绑定本地端口。

3。发包例子

Set socket=WScript.CreateObject("MSWinsock.Winsock")
socket.Protocol=0
socket.RemotePort="80" '端口
socket.RemoteHost="192.168.8.101" '主机
socket.connect socket.RemoteHost, socket.RemotePort '连接

for a=1 to 30 step 1
     WScript.sleep 10
next

set fso=CreateObject("Scripting.FileSystemObject")
     with fso.opentextfile("c:\2.txt",1,false)   'c:\2.txt是抓的包
     data=.readall:.close
     End with
ddd=data
   
socket.SendData ddd
WScript.sleep 100
wscript.echo "ok"
socket.senddata Chr(13)
socket.close