回 帖 发 新 帖 刷新版面

主题:自学Winsock控件问题

这2天看到这个控件,我们教科书里提都没提过的(好烂的书)
但因为想写联网小游戏,想从这个开始学一下
本人对网络知识可以说没有认知,就是前几天在家里连接成功了个小局域网,开始手痒了

正题
我现在写的程序目标是能够在2台机器中建立连接,可是老是出错
以下是我 的代码,大家看一下(所有时钟控件的那个属性都是500刷新一次)
'************************
'接受请求端程序
'*************************
Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command3_Click()
Winsock1.Close
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Winsock1.State

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept (requestID)
End Sub



'***********************
'发送连接请求端的程序
'**********************
Private Sub Command1_Click()
Winsock1.RemoteHost = "JUJUMAO1"   '问题1
Winsock1.RemotePort = 1011         '问题2
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Winsock1.State
End Sub

Private Sub Winsock1_Connect()
MsgBox ("lianjiechenggong")
End Sub

我2边同时运行后发送请求这里的STATE开始为4,后来就变9了,出错了
现在我有2个问题
问题1:
Winsock1.RemoteHost 这个属性是指要连接的机器的计算机名吗
问题2:
Winsock1.RemotePort这个属性的端口是什么意思,我是看到一个例子,那个例子里的这个属性用的是1011,正确的应该怎么填

回复列表 (共4个回复)

沙发

Winsock1.RemoteHost是对方计算机名,也可以是IP

Winsock1.RemotePort属性值设置之前,要先在远程端机子上绑定一个端口号

板凳

帮忙改下嘛

3 楼

不是不帮你改,是公司没有装VB,改了也没有地方调试

其实也就是在远程端加一句代码:winsock1.bind 1011

4 楼

o 试试

我来回复

您尚未登录,请登录后再回复。点此登录或注册