VB能否开发QQ代理软件?
来源:百度知道 编辑:UC知道 时间:2024/05/17 22:23:51
我的问题是如何用VB实现QQ代理功能,从而实现局域网电脑通过代理电脑登录QQ的功能。或者说用VB是否可能实现这样的功能。
Winsock属性先设置好。这个你应该知道的。下面就按照这个命令试试看。
仅供参考~~~~~!
发送命令如下:
Private Sub Command2_Click()
On Error GoTo ErrProc
Dim SendStr(15) As Byte
Dim RcvStr() As Byte
SendStr(0) = XX
SendStr(1) = XX
SendStr(2) = XX
SendStr(3) = XX
SendStr(4) = XX
SendStr(5) = XX
SendStr(6) = XX
SendStr(7) = XX
SendStr(8) = XX
SendStr(9) = XX
SendStr(10) = XX
SendStr(11) = XX
Dim aStr As String
Dim i As Integer
For i = 0 To 11
aStr = aStr & Chr(SendStr(i))
Next
Winsock1.SendData aStr
Exit Sub
ErrProc:
MsgBox "传输数据失败", vbCritical, "网络传输"
Text1.Text = Winsock1.State
End Sub
接收的事件和指令如下:
'数据接收后的处理,仅供显示,若溢出,请disable多余的ax.
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)<