作者fumizuki (小狮子)
看板Visual_Basic
标题Re: [VB6 ] 网路传送讯息的问题
时间Wed Nov 30 06:18:56 2005
※ 引述《clarkandsam (丁力)》之铭言：
: 我这里有一段程式码
: 用来连线跟传送讯号
: Private Sub Command2_MouseDown(Button As Integer, Shift As Integer,
: X As Single, Y As Single)
: Winsock1.Close
: Winsock1.RemoteHost = c1
: Winsock1.RemotePort = 3347
: DoEvents
: Winsock1.Connect
: End Sub
: ----------------------------------------------------------------------------
: Private Sub Command2_MouseUp(Button As Integer, Shift As Integer,
: X As Single, Y As Single)
: If Winsock1.State = sckConnected Then Winsock1.SendData Text1.Text
: End Sub
: ----------------------------------------------------------------------------
: 我不想利用按键的压下跟弹起
: 我想把他写在同一个程式回圈内
: 我尝试过
: Winsock1.Close
: Winsock1.RemoteHost = c1
: Winsock1.RemotePort = 3347
: DoEvents
多余的
: Winsock1.Connect
: If Winsock1.State = sckConnected Then Winsock1.SendData Text1.Text
: 但是这样还是无法送出讯号
: 在中间加入暂停也无法顺利动作
: 拜托各位
: 能否帮小弟解决这个问题
方法一，用回圈检查状态...最好要补上个逾时判断...
Do
DoEvents
Loop Until Winsock1.State = sckConnected
方法二，SendData写在Winsock的connect事件中 (建议使用此方法)
Private Sub Winsock1_Connect()
Winsock1.SendData Text1.Text
End Sub
方法三，使用 Timer 检查状态
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43