作者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