[VB6 ] 網路傳送訊息的問題
我這裡有一段程式碼
用來連線跟傳送訊號
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
但是這樣還是無法送出訊號
在中間加入暫停也無法順利動作
拜託各位
能否幫小弟解決這個問題
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.111.79.32
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
