Private Sub Command2_Click()
If Trim(Text2.Text) <> "" Then
Winsock1.SendData Text2.Text
Text2.Text = ""
Else
MsgBox "没有消息可以发送!"
End If
End Sub
Private Sub Form_Load()
Winsock1.RemotePort = 80
Winsock1.RemoteHost = "127.0.0.1"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
Command2.Enabled = False
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Winsock1.GetData a, vbString
Text1.Text = a
a = ""
End Sub
———————————————————————————————————
服务器端的代码如下:
Private Sub Command1_Click()
If Trim(Text2.Text) <> "" Then
Winsock1.SendData Text2.Text
Text2.Text = ""
Else
MsgBox "没有消息可以发送!"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
sckserver(0).LocalPort = 80
sckserver(0).Bind sckserver(0).LocalPort
sckserver(0).Listen
Label1.Caption = "IP:" + CStr(sckserver(0).LocalIP)
End Sub
Private Sub sckserver_ConnectionRequest(index As Integer, ByVal requestID As Long)
If sckserver.Count = 1 Then
Load sckserver(1)
sckserver(1).Accept requestID
Command1.Enabled = True
End If
End Sub
Private Sub sckserver_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim a As String
sckserver(1).GetData a, vbString
Text1.Text = a
a = ""
End Sub
注:服务器端的Winsock按件名为sckserver,Index属性为0
———————————————————————————————————
但是当Index属性为0时服务器端就不可以发送了信息给客户端了!
但……当Index属性为“空”时,虽然可以通过。
不过新的问题又出现了!
就是Private Sub sckserver_ConnectionRequest(index As Integer, ByVal requestID As Long
这一句编译错误“过程声明与同名事件或过和的描述不匹配”
请各大高手指案一下。
———————————————————————————————————另外如果上面的问题解决了。
可否顺便回答我下面的这一条?(下面是我自己想的,不知是对还是错。)
就是如果在“服务器端”的程序中加入DriveListBox控件、DirListBox控件
和FileListBox控件,那么怎样才能将这些控件的参数传到“客户器端”?
也就是在“客户器端”可以查看“服务器端”的磁盘资料。(有点意想天开^_^)
还有如何操“服务器端”的机器?(不好!好像要变成木马了!)
如果这个方法是错的请高手写个正确的给我。
我在这里置于十二万分的谢意~!