瑞星卡卡安全论坛

初学VB 很多问题都看不明白 请高手指点指点 THK U


SEVER我是怎么写的
Private Sub Command1_Click()
Dim maydata As String
Mydata = "你好吗?"
Winsock1.SendData Mydata
End Sub 
'发送信息

Private Sub Form_Load()
Winsock1.LocalPort = 5400
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
MsgBox "ok"  '确定是否连接成功
End Sub



Private Sub Winsock1_DtatArrival(ByVal bytesTotal As Long)
Dim Mydata As String
Winsock1.GetData Mydata
MsgBox Mydata
End Sub

**************************************

CLIENT 部分
Private Sub Command1_Click()
Dim maydata As String
Mydata = "你好吗?"
Winsock1.SendData Mydata
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "***.**.**.*"  '我写了我自己电脑的IP 
Winsock1.RemotePort = 5400
Winsock1.LocalPort = 0
Winsock1.Connect

End Sub





Private Sub Winsock1_DtatArrival(ByVal bytesTotal As Long)
Dim Mydata As String
Winsock1.GetData Mydata
MsgBox Mydata
End Sub


 


分别运行后  连接成功了 但是无论我按 SEVER 还是 CLIENT的 SEND 按扭 总是没反映  也不报错  请问是怎么回事啊谢谢~

求组~  急啊 等着交呢

看C看惯了,VB看不懂,看懂也费时间
既然运行没有问题,说明问题不在你的程序,而是你的电脑和程序出现冲突,导致端口不能打开,信息发送不过去

我知道你是在做一个黑客工具----远程连接器
不过还是一点一点来,把基础打好

还有你既然发送信息就要用到一个发送服务器--没有发送的服务或控件,只用send方法是不能实现的

我不是要做远程连接器
是夏季实习题目, 做个小游戏
我想让它能够实现,网络对战模式,通过发送一些简单的参数判别对方的状态~

自己顶

995~

9999

试一下在Server用另一个
winsock来Accept,再跟踪一下DataArrival部分，

你应该去参考一些可以运行的例子的