
| Quote: | |
|
CODE: [Copy to clipboard]保存为 查看端口.vbs 后运行即可,须注册MSWinsock控件。host=inputbox("输入主机名或IP:")
port=inputbox("端口:")
Set socket=WScript.CreateObject("MSWinsock.Winsock","winsock_")
socket.Protocol=0
socket.RemotePort=port
socket.RemoteHost=host
socket.connect
for a=1 to 30
WScript.sleep 10
next
msgbox("端口 "&socket.remoteport&" 被关闭!")
socket.close
WScript.quit
Sub winsock_connect()
msgbox("端口 "&socket.remoteport&" 已打开!")
socket.close
WScript.quit
end sub
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |