Public Function a2hex(alpha, length)
CHAPTER 3
Code ตามนี้คับ
Code: Private Sub cmdLogin_Click() 'สำหรับคนที่ตอนแรกส้รางเป็นจอเล็กแล้วพอกด Login จะเป็นจอใหญ่ (เหมือนพี่ FireBoy อีก) 'ให้เอา "'" ออกละกันคับ 'Form1.WindowState = 2 If cmdLogin.Caption = "Login" Then 'ดูว่า Caption เป็น Login มั้ย Select Case SvrSelect.ListIndex 'เลือกCase ของ Combobox คับ(ผมตั้งชื่อว่า SvrSelect) Case 0 Winsock1.Connect "203.144.179.133", 16100 'IP ที่ 1 Case 1 Winsock1.Connect "203.144.179.132", 16100 'IP ที่ 2 Case 2 Winsock1.Connect "203.144.179.131", 16100 'IP ที่ 3 End Select cmdLogin.Caption = "Logout" 'เปลี่ยน Caption เป็น Logout เหมือนของพี่ไฟนะคับ Connect เป็น Disconnect. Else Winsock1.Close cmdLogin.Caption = "Login" 'เปลี่ยนกลับเป็น Login อีกครั้ง End If End Sub
ให้ลอง Test ดูคับ ว่ามี Error อะไรมั้ย
เราจะรู้ได้ว่าเราต่อเข้า Serv ติดมั้ย เราต้องลองส่ง Packet ไปดูคับ
(ผม งงงงงงงงงงงง ตรงนี้คาฟ Code ข้างล่างมันต่อกับ Code ไหมคาฟ ใครรู้ช่วยตอบที) Function A2Hex
Code: Public Function a2hex(alpha, length) hextemplate = "0123456789ABCDEF" alpha = Right("00000000" & UCase(alpha), length) If Len(alpha) = 2 Then ahindex = InStr(1, hextemplate, Left(alpha, 1)) - 1 alindex = InStr(1, hextemplate, Right(alpha, 1)) - 1 a2hex = (ahindex * (16 ^ 1)) + (alindex * (16 ^ 0)) ElseIf Len(alpha) = 4 Then lb = Left(alpha, 2) hb = Right(alpha, 2) hx = a2hex(hb, 2) * (16 ^ 2) + a2hex(lb, 2) a2hex = hx ElseIf Len(alpha) = 8 Then aH = a2hex(Right(alpha, 4), 4) aL = a2hex(Left(alpha, 4), 4) a2hex = (aH * (16 ^ 4)) + aL End If End Function
Function BuildPacket นะคับ
Code: Public Function ฺีBuildPacket(ByVal strPacket As String) As Byte() Dim i As Long Dim Hstr As String Hstr = Replace(strPacket, " ", "") Dim pHex() As Byte ReDim Preserve pHex((Len(Hstr) / 2 - 1)) For i = 0 To Len(Hstr) / 2 - 1 pHex(i) = A2Hex(Mid(Hstr, (i * 2) + 1, 2), 2) Next Size = CInt(Len(strPacket) / 2) BuildPacket = pHex End Function
|