Re: [VB6 ] 網路傳送訊息的問題

看板Visual_Basic作者fumizuki (小獅子)時間20年前 (2005/11/30 06:12)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《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