502647092/MCServer_Protocol
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/MCServer_Protocol.git synced 2024-11-21 14:48:51 +00:00
Code Releases Activity

添加未连接屏蔽模块...

Browse Source 
Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092 2015-08-07 20:51:09 +08:00
parent a2a721b14b
commit 988af6570b
3 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Frm_Main.frm
View File

@ -12,6 +12,14 @@ Begin VB.Form Frm_Main
MinButton = 0 'False MinButton = 0 'False
ScaleHeight = 8385 ScaleHeight = 8385
ScaleWidth = 8880 ScaleWidth = 8880
Begin VB.Frame b
Caption = "δÁ¬½Ó"
Height = 4680
Left = 75
TabIndex = 44
Top = 3720
Width = 8820
End
Begin VB.TextBox protocolver Begin VB.TextBox protocolver
Height = 300 Height = 300
Left = 6075 Left = 6075
@ -560,11 +568,13 @@ Private Sub Wsk_Close(Index As Integer)
Wsk(Index).Close Wsk(Index).Close
If autosend.Value = 1 Then Wsk(Index).connect addr, port If autosend.Value = 1 Then Wsk(Index).connect addr, port
keeplive(Index).Enabled = False keeplive(Index).Enabled = False
b.Visible = True
End Sub End Sub
Private Sub Wsk_Connect(Index As Integer) Private Sub Wsk_Connect(Index As Integer)
Dim tempip As String Dim tempip As String
Dim rndusername As String Dim rndusername As String
b.Visible = False
List1.AddItem Index & " Á¬½Óµ½·þÎñÆ÷£¡" List1.AddItem Index & " Á¬½Óµ½·þÎñÆ÷£¡"
List1.AddItem Wsk(Index).RemoteHostIP List1.AddItem Wsk(Index).RemoteHostIP
Text1(0) = Encode(addr.Text & ":" & port.Text, EncodeIP, "00-" + hhex(protocolver.Text), "01") Text1(0) = Encode(addr.Text & ":" & port.Text, EncodeIP, "00-" + hhex(protocolver.Text), "01")
@ -598,7 +608,7 @@ Private Sub Wsk_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Wsk(Index).GetData bytes, vbByte + vbArray Wsk(Index).GetData bytes, vbByte + vbArray
If getdatac.Value = 1 Then If getdatac.Value = 1 Then
For i = LBound(bytes) To UBound(bytes) For i = LBound(bytes) To UBound(bytes)
Temp = Temp & hex(bytes(i)) & " " Temp = Temp & hhex(bytes(i)) & " "
DoEvents DoEvents
Next Next
List1.AddItem Temp List1.AddItem Temp

4
MCServer_Protocol.vbw
View File

@ -1,3 +1,3 @@
MC_TCP = 327, 29, 1823, 725, MC_TCP = 643, 21, 2139, 717,
Frm_Main = 0, 0, 1496, 615, , 22, 22, 644, 715, C Frm_Main = 712, 33, 1473, 648, , 22, 22, 644, 715, C
UTF8COde = 0, 0, 0, 0, C UTF8COde = 0, 0, 0, 0, C

2
MC_TCP.bas
View File

@ -55,7 +55,7 @@ Function hextobyte(hex As String)
hextobyte = bytes hextobyte = bytes
End Function End Function
Public Function hhex(data As Long) As String Public Function hhex(ByVal data As Long) As String
Dim Temp As String Dim Temp As String
Temp = hex(data) Temp = hex(data)
If Len(Temp) = 1 Then Temp = "0" + Temp If Len(Temp) = 1 Then Temp = "0" + Temp