VB写的一款Hack_tools工具，包括文本编辑，文件下载，屏幕截图，英汉翻译，端口扫描.......等等..
   使用多个窗体合成一个窗体，还有响应键盘，弹出菜单，以及菜单背景颜色制作，对新手很有用，希望高手不要见笑！多多给出指教...

   欢迎新手跟老鸟下载，多多提出宝贵意见...谢谢！有好的源码，我还会继续发布！！

  屏幕截图：


 程序源码：
  

好厉害！

不错哦！谢谢啦！

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

看看了，厉了

支持一下

功能很多啊，真不错的

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

这是服务器端的：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

good