服务器和客户传值的问题

[zclzy520]

我的程序在服务器上产生了一个值
如：123456
要把这个值传到客户机192.168.0.2的机器上，并在客户端程序的一个textbox控件中显示出来

请问如何实现
在线等......，搞定很快结帐

[jonahclinton]

用WINSOCK不可以吗？

[zou19820704]

服务端
Private Sub Command1_Click()

End

End Sub



Private Sub Form_Load()

textsend.Visible = False

textget.Visible = False

Winsockserver.LocalPort = 1001

Me.Winsockserver.Listen

End Sub



Private Sub textsend_Change()

Winsockserver.SendData textsend.Text

End Sub



Private Sub Winsockserver_Close()

Winsockserver.Close

End

End Sub



Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)

textsend.Visible = True

textget.Visible = True

If Winsockserver.State <> sckClosed Then Winsockserver.Close

Winsockserver.Accept requestID

End Sub



Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)

Dim tmpstr As String

Winsockserver.GetData tmpstr

textget.Text = tmpstr

End Sub

客户端：




Private Sub Command1_Click()

End

End Sub



Private Sub Command2_Click()

Winsockclient.Connect
Form1.Show

End Sub



Private Sub Form_Load()

textsend.Visible = False

textget.Visible = False

Winsockclient.RemotePort = 1001

Winsockclient.RemoteHost = "pc-25"

End Sub



'Private Sub Text1_Change()

'Winsockclient.RemoteHost = Text1.Text

' End Sub



Private Sub textsend_Change()

Winsockclient.SendData textsend.Text

End Sub



Private Sub Winsockclient_Close()

Winsockclient.Close

End

End Sub



Private Sub winsockclient_Connect()

textsend.Visible = True

textget.Visible = True

Command2.Visible = False

End Sub



Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long)

Dim tmpstr As String

Winsockclient.GetData tmpstr

textget.Text = tmpstr

End Sub

现在你需要做的是把123456变为“123456” 就好了