мучиюсь уже 2 дня
Заранее спасибо!
Код: Выделить всё
Private Const Request = "49 255 0 48 46 48 46 48 46 48 58 48 0 92 103 97 109 101 100 105 114 92 103 97 114 114 121 115 109 111 100 92 119 104 105 116 101 92 49 92 110 97 112 112 92 52 48 48 48"
'Сам запрос в байтах
Public QueryOut As String
Public Sub Master_Server_Query(Socket As Winsock)
'
Dim RequestByte() As Byte
ReDim RequestByte(UBound(Split(Request, " ")))
For i = 0 To UBound(RequestByte)
RequestByte(i) = Split(Request, " ")(i)
Next i
'
Socket.Close
Socket.RemoteHost = "63.234.149.90"
Socket.RemotePort = 27011
Socket.Bind
Socket.SendData RequestByte
Do
If QueryOut <> "" Then
'Что-то нужно вставить сюда
Exit Do
End If
DoEvents
Loop
End Sub