502647092/MCServer_Protocol
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/MCServer_Protocol.git synced 2025-11-24 23:56:06 +00:00
Code Releases Activity

增加协议号的修改...

Browse Source 
Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092
2015-08-04 16:48:31 +08:00
parent bfc0bdebf6
commit a2a721b14b
4 changed files with 50 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
Frm_Main.frm
View File

@@ -12,6 +12,30 @@ Begin VB.Form Frm_Main
MinButton = 0 'False
ScaleHeight = 8385
ScaleWidth = 8880
Begin VB.TextBox protocolver
Height = 300
Left = 6075
TabIndex = 43
Text = "47"
Top = 60
Width = 315
End
Begin VB.CheckBox autosend
Caption = "<22>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>"
Height = 195
Left = 4950
TabIndex = 42
Top = 30
Width = 1125
End
Begin VB.CheckBox heart
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
Height = 195
Left = 4950
TabIndex = 41
Top = 240
Width = 1125
End
Begin VB.ListBox List1
Height = 2220
Left = 105
@@ -22,14 +46,14 @@ Begin VB.Form Frm_Main
Begin VB.TextBox datachr
Height = 300
Left = 105
TabIndex = 42
TabIndex = 40
Top = 1110
Width = 8640
End
Begin VB.TextBox resenddelay
Height = 270
Left = 7590
TabIndex = 41
TabIndex = 39
Text = "100"
Top = 7710
Width = 435
@@ -38,7 +62,7 @@ Begin VB.Form Frm_Main
Caption = "<22><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>"
Height = 225
Left = 7605
TabIndex = 40
TabIndex = 38
Top = 7425
Width = 1035
End
@@ -46,7 +70,7 @@ Begin VB.Form Frm_Main
Height = 930
Left = 105
MultiLine = -1 'True
TabIndex = 39
TabIndex = 37
Top = 7335
Width = 7350
End
@@ -58,7 +82,7 @@ Begin VB.Form Frm_Main
Begin VB.TextBox rconcommand
Height = 300
Left = 105
TabIndex = 38
TabIndex = 36
Top = 6525
Width = 1515
End
@@ -66,14 +90,14 @@ Begin VB.Form Frm_Main
Height = 300
Index = 5
Left = 1620
TabIndex = 37
TabIndex = 35
Top = 6525
Width = 5850
End
Begin VB.TextBox rconpassword
Height = 300
Left = 105
TabIndex = 36
TabIndex = 34
Top = 6225
Width = 1515
End
@@ -81,7 +105,7 @@ Begin VB.Form Frm_Main
Height = 300
Index = 3
Left = 1620
TabIndex = 35
TabIndex = 33
Top = 6225
Width = 5850
End
@@ -90,7 +114,7 @@ Begin VB.Form Frm_Main
Height = 345
Index = 6
Left = 7500
TabIndex = 34
TabIndex = 32
Top = 6930
Width = 1245
End
@@ -98,7 +122,7 @@ Begin VB.Form Frm_Main
Height = 300
Index = 6
Left = 105
TabIndex = 33
TabIndex = 31
Top = 6945
Width = 7365
End
@@ -107,30 +131,30 @@ Begin VB.Form Frm_Main
Height = 345
Index = 5
Left = 7500
TabIndex = 32
TabIndex = 30
Top = 6525
Width = 1245
End
Begin VB.CheckBox getdatac
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
Height = 195
Left = 3990
TabIndex = 31
Left = 3840
TabIndex = 29
Top = 240
Width = 1125
End
Begin VB.CheckBox checkwsk
Caption = "<22>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>"
Height = 195
Left = 3990
TabIndex = 30
Left = 3840
TabIndex = 28
Top = 30
Width = 1125
End
Begin VB.ComboBox port
Height = 300
Left = 2940
TabIndex = 29
TabIndex = 27
Text = "25565"
Top = 60
Width = 840
@@ -138,7 +162,7 @@ Begin VB.Form Frm_Main
Begin VB.ComboBox addr
Height = 300
Left = 585
TabIndex = 28
TabIndex = 26
Text = "127.0.0.1"
Top = 60
Width = 1815
@@ -146,40 +170,24 @@ Begin VB.Form Frm_Main
Begin VB.TextBox chrinfo
Height = 300
Left = 105
TabIndex = 27
TabIndex = 25
Top = 795
Width = 8640
End
Begin VB.TextBox finfo
Height = 300
Left = 105
TabIndex = 26
TabIndex = 24
Top = 480
Width = 8640
End
Begin VB.CheckBox heart
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
Height = 195
Left = 5190
TabIndex = 25
Top = 240
Width = 1125
End
Begin VB.TextBox commandT
Height = 300
Left = 105
TabIndex = 24
TabIndex = 23
Top = 5535
Width = 7365
End
Begin VB.CheckBox autosend
Caption = "<22>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>"
Height = 195
Left = 5190
TabIndex = 23
Top = 30
Width = 1125
End
Begin VB.Timer check
Enabled = 0 'False
Interval = 1000
@@ -559,8 +567,8 @@ Private Sub Wsk_Connect(Index As Integer)
Dim rndusername As String
List1.AddItem Index & " <20><><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
List1.AddItem Wsk(Index).RemoteHostIP
Text1(0) = Encode(addr & ":" & port, EncodeIP, "00-2F", "01")
logindata = Encode(addr & ":" & port, EncodeIP, "00-04", "02")
Text1(0) = Encode(addr.Text & ":" & port.Text, EncodeIP, "00-" + hhex(protocolver.Text), "01")
logindata = Encode(addr.Text & ":" & port.Text, EncodeIP, "00-" + hhex(protocolver.Text), "02")
Text1(1) = "01 00"
Text1(2) = "09 01 00 00 00 00 00 94-CA 29"
If autosend.Value = 1 Then

1
MCServer_Protocol.vbp
View File

@@ -6,6 +6,7 @@ Module=UTF8COde; UTF8Code.bas
Startup="Frm_Main"
HelpFile=""
ExeName32="MCServer_Protocol.exe"
Path32="C:\Users\Administrator\Desktop"
Command32=""
Name="MCServer_Protocol"
HelpContextID="0"

4
MCServer_Protocol.vbw
View File

@@ -1,3 +1,3 @@
MC_TCP = -217, 180, 1279, 685,
Frm_Main = 0, 0, 1496, 615, Z, 22, 22, 644, 715, C
MC_TCP = 327, 29, 1823, 725,
Frm_Main = 0, 0, 1496, 615, , 22, 22, 644, 715, C
UTF8COde = 0, 0, 0, 0, C

2
MC_TCP.bas
View File

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