[VB6 ] 連續按按鍵呼叫程式的問題

看板Visual_Basic作者clv (給真相=封鎖)時間9年前 (2015/05/30 19:54)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串1/1

使用WINSOCK 我點按鈕時會去呼叫 sending程式待server回覆或Timeout時將結果傳回我是希望在執行第一次時如果還沒有接收到SOCK的回覆時不要送出第二次但不知為什麼點兩次按鈕（中間隔五秒）他還是直接送給SOCK Server而不是等第一次結束後才接著送出去而且sending的結果是錯誤的我想程式一定有問題只是找不到〉：〈程式如下 Private ackMsg As String Private Sub CWINSockTimer_Timer() CWinsock.Close B_Sending = False CWINSockTimer.Enabled = False ackMsg = "[Err]:TimeOut~" End Sub Private Sub Form_Load() B_Sending = False CWINSockTimer.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) CWinsock.Close End Sub Private Sub CWinsock_Connect() If CWinsock.State = sckConnected Then CWinsock.SendData sendStr Else ackMsg = CWinsock.State End If End Sub Public Function sending(ByVal sockHost As String, ByVal sockPort As Integer, ByVal tempStr As String, ByVal t_time As Integer) As String On Error GoTo Oops Dim RegTime As Variant RegTime = Now Do Until B_Sending = False Sleep 1 DoEvents If DateDiff("s", Now, RegTime) > t_time Then sending = "[Err]:TimeOut" Exit Function End If Loop If B_Sending = False Then B_Sending = True CWINSockTimer.Enabled = True CWINSockTimer.Interval = CLng(t_time) * 1000 sendStr = tempStr CWinsock.RemoteHost = sockHost CWinsock.RemotePort = sockPort CWinsock.Close ackMsg = "" CWinsock.Connect Do Until ackMsg <> "" Sleep 1 DoEvents If DateDiff("s", Now, RegTime) > t_time Then ackMsg = "[Err]:TimeOut" Loop sending = ackMsg CWinsock.Close CWINSockTimer.Enabled = False B_Sending = False End If Exit Function Oops: sending = "[Err]:" & Err.Description CWinsock.Close CWINSockTimer.Enabled = False B_Sending = False End Function Private Sub CWinsock_DataArrival(ByVal bytesTotal As Long) On Error GoTo Oops Dim temp As String temp = String(bytesTotal, Chr$(0)) CWinsock.GetData temp, vbString, bytesTotal ackMsg = temp Exit Sub Oops: ackMsg = "[Err]:" & Err.Description CWinsock.Close CWINSockTimer.Enabled = False B_Sending = False End Sub Private Sub CWinsock_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) ackMsg = "[Err]:" & Description & "Code:" & CStr(Number) CWinsock.Close CWINSockTimer.Enabled = False B_Sending = False End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 180.177.156.249 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1432986856.A.F32.html