|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：lcmcome 日期：2005-8-4 11:23:40 |
|
|
服务器端：
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const theScreen = 1
Private Sub Form_Load()
tcpServer.LocalPort = 1001 ' 设置监听端口号
tcpServer.Listen ' 开始监听
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID
End Sub
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim a As String
tcpServer.GetData a
If a = "b" Then
Call keybd_event(vbKeySnapshot, theScreen, 0, 0)
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Picture1.Image, "d:\ww.bmp"
Dim buf() As Byte
Dim position As Long
Open "d:\ww.bmp" For Binary As #1
position = 0
Do While Not EOF(1)
position = positon + 1
ReDim Preserve buf(1 To position)
Get #1, , buf(position)
Loop
Close #1
tcpServer.SendData buf
End If
End Sub
客户端：
Private Sub Command1_Click()
tcpClient.RemoteHost = txtip.Text
tcpClient.RemotePort = 1001
tcpClient.Connect ' 进行连接
End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture("d:\wr.bmp")
End Sub
Private Sub Command3_Click()
tcpClient.SendData "b"
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim receivefile(1 To 119862) As Byte
tcpClient.GetData receivefile, vbArray + vbByte
'告诉Winsock控件收到的是字节数组类型的数据
Open "d:\wr.bmp" For Binary As #1
Put #1, , receivefile
Close #1
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
End Sub
Private Sub Text1_Change()
End Sub |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： lcmcome |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:23:40 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]