VB语言写的一款Hack_tools，超级漂亮！欢迎下载。 - 编程论坛

#2

不是小孩2010-10-25 08:24

好厉害！

#3

qqxxaq2010-10-28 07:32

不错哦！谢谢啦！

#4

ytsm05262010-10-28 19:41

老菜鸟来下载一下,谢谢楼主.

#5

csx00002010-11-11 13:43

看看了，厉了

#6

yuma2010-11-11 17:25

支持一下

#7

梦断蓝桥2010-11-13 08:02

功能很多啊，真不错的

#8

y3608696012010-11-26 18:56

先顶一下！
请问用vb做的tcp连接，如果是不同机子需要把服务器设成别的主机ip地址以外，还得做什么。

#9

y3608696012010-11-26 19:06

这是服务器端的：Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then
tcpServer.Close
tcpServer.Accept requestID
End If
End Sub

Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show '显示客户端的窗体。

End Sub

Private Sub txtSendData_Change()
tcpServer.SendData txtSendData.Text

End Sub
这是客户端的：
Private Sub cmdConnect_Click()
   tcpClient.Connect

End Sub

Private Sub Form_Load()
   tcpClient.RemoteHost = tcpClient.LocalHostName
   tcpClient.RemotePort = 1001

End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
   tcpClient.GetData strData
   txtOutput.Text = strData

End Sub

Private Sub txtSend_Change()
tcpClient.SendData txtSend.Text

End Sub

#10

e3bnsd2012-12-02 22:59

good

#11

e3bnsd2012-12-13 22:40

不是局域网的吧？外网能用吗？