我是一个VB初学者,我自己没有电脑,所以只有在网吧上机学习。我在用Winsock这个控件的时候,其中的RemoteHost属性,也就是要远程连接的机算机的名称,我试着写了很多都不能成功的连接,我这里详细说一下,希望大家帮我看一下我错在哪里:
我先建了两个工程,一个是服务器,一个是客户端,我想要达到的目的是:在客户端的文本框中输入文字,单击command1的时候,winsock与服务器连接,单击command2的时候发送文本框中的文字到服务器,然后服务器接收到客户端的数据后,把接收到的文字信息用print方法显示出来。具体代码如下:
服务器代码:
Private Sub form_load()
Winsock1.LocalPort = 1001
Winsock1.Listen
End Sub
Private Sub winsock1_connectionrequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Winsock1.GetData a, vbString
Print a
End Sub
客户端代码:
Private Sub command1_click()
Winsock1.RemoteHost = "就是这里不知道写什么???????????"
Winsock1.RemotePort = 1001
Winsock1.Connect
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
Winsock1.SendData Text1.Text
End Sub
其中客户端代码中winsock1的RemoteHost属性我不知道从哪里找,我把服务器和客户端都在一台机器上运行,然后在‘我的电脑’上单击右键,查看属性中的计算机名,里面的计算机名是:038. 我在RemoteHost属性后面写了这个,但是程序运行后服务器端窗体上没有显示客户端输入的文本,然后我在控制面板里找到网络连接里查看IP,在IP后面还有4,5种类似于IP的东西,依次是:IP地址 子网掩码 默认网关 DNS服务器 WINS服务器 这几种后面都是类似IP的数字串,我在RemoteHost属性后面输入了第一个,就是IP地址,这个好像是局域网的IP,但我想是在一台机器上的,应该是IP就行了,但拿入代码后,还是一样没有反应,我还试过进入 http://www.whatchina.com/html/sip.asp这个网站查IP,进这个网站查到的IP,和我之前在控制面板的网络里看到的IP又不一样了,但我把这个IP写进代码,一样还是没有反应,到底是我代码有错,还是IP有错?我真的烦死了,希望哪位高手指点一二啊,真是万分感谢了!