高手请进。vb问题

来源：百度知道编辑：UC知道时间：2024/06/20 07:52:19

text1,ip地址
text2,起始端口
text3,终止端口
text4,信息
command1,扫描
command2,停止
添加winsock控件，
代码
Option Explicit
Dim PortNo As Long

Private Sub Command1_Click()
PortNo = CLng(Text2.Text)
Text4.Text = ""
Command2.Enabled = True
Command1.Enabled = False
Winsock1.Connect Text1.Text, PortNo
Me.Caption = "连接端口扫描编号：" & PortNo
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
Winsock1.Close
PortNo = CLng(Text2.Text)
End Sub

Private Sub Form_Load()
Text1.Text = "127.0.0.1"
Text2.Text = "1&

由于text2.text得到的是字符串，而port是长整数。
必须把text2.text输入转成长整数。
连接超时会触发error 事件。
如果出错表示这一个端口连接不上。

你用winsock试图连接别人，返回error说明对方端口已占用，不能接受你的连接请求。

不知道对不对。

CLng(Text2.Text) 是不字符型转化为长整形

vb问题?高手请进!! vb问题,高手请进! vb问题高手请进 Vb问题,高手请进 VB问题，高手请进 VB问题高手请进 VB高手问题！高手请进。 VB高手请进..关于VB时间差问题! VB的问题，高手请进！ VB程序代码问题--高手请进!