我现在要连接别的机器!!
但我想知道怎么样才算连上了!!!
我的服务器端程序如下!
Private Sub cmdcon_Click()StatusBar.SimpleText = "正在连接192.168.188.127" & "......"
Winsock.RemotePort = 10
Winsock.RemoteHost = "192.168.88.127"
Winsock.Connect
Do While Winsock.State <> sckConnected
Winsock.Connect
StatusBar.SimpleText = "连接成功"Loop
End SubPrivate Sub cmdclose_Click()
Winsock.Close
End SubPrivate Sub Form_Load()
StatusBar.SimpleText = "准备搜索"
End Sub
Private Sub Winsock_Connect()
MsgBox "连接成功!"
End Sub
但我想知道怎么样才算连上了!!!
我的服务器端程序如下!
Private Sub cmdcon_Click()StatusBar.SimpleText = "正在连接192.168.188.127" & "......"
Winsock.RemotePort = 10
Winsock.RemoteHost = "192.168.88.127"
Winsock.Connect
Do While Winsock.State <> sckConnected
Winsock.Connect
StatusBar.SimpleText = "连接成功"Loop
End SubPrivate Sub cmdclose_Click()
Winsock.Close
End SubPrivate Sub Form_Load()
StatusBar.SimpleText = "准备搜索"
End Sub
Private Sub Winsock_Connect()
MsgBox "连接成功!"
End Sub
解决方案 »
- 如何利用VB编写一个后台挂机软件?
- 数据库更新数据问题
- 关于SPACE函数,及空间释放的问题
- VB中怎樣檢測主機狀態
- 请高手帮帮忙,我用winsock编了一个邮件发送的,应该如何添加发送附件
- MDI窗体中工具栏的显示问题(子窗体加载和未加载时如何显示不同的工具栏按钮)
- 资源文件test.res里有好几个string table ,怎么调用其实某一个string table呢?
- 怎么获得一个打开的Excel文件里,坐标框里的内容()? 100分,急
- 一个简单的数据库问题,各位请进!
- 小弟急,各高手请进!
- 为什么我在用recordset的sort属性进行排序时会出错?
- VB+ADO+Oracle奇怪问题!
Connected = True
MsgBox "成功"
Timer1.Enabled = True
End SubPrivate Sub Client_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)
Connected = False
MsgBox "失败"
Client.Close
End Sub
S.LISTEN
C中连接成功后触发CONNECT的事件。
或者判断WINSOCK的状态
现在client连server后报错Run-time 'error'40020 Invalid operation at current state
server端程序如下:
Private Sub Form_Load()
Winsock.LocalPort = 1001
Winsock.Listen
End Sub
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Accept requestID
frmmessage.Show
End Sub我现在是在一台机器上做!所以连的是自己的机器!!
client端程序如下:
Private Sub cmdcon_Click()
Winsock.Connect "127.0.0.1", 100
StatusBar.SimpleText = "正在连接127.0.0.1" & ". . . . ."
End Sub
Private Sub cmdclose_Click()
Winsock.Close
End Sub
Private Sub Form_Load()
StatusBar.SimpleText = "准备搜索"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Winsock.State
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Winsock.State
End Sub