mirror of
https://e.coding.net/circlecloud/MCServer_Protocol.git
synced 2024-11-22 14:58:49 +00:00
增加协议号的修改...
Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092
parent
bfc0bdebf6
commit
a2a721b14b
84
Frm_Main.frm
84
Frm_Main.frm
@ -12,6 +12,30 @@ Begin VB.Form Frm_Main
|
|||||||
MinButton = 0 'False
|
MinButton = 0 'False
|
||||||
ScaleHeight = 8385
|
ScaleHeight = 8385
|
||||||
ScaleWidth = 8880
|
ScaleWidth = 8880
|
||||||
|
Begin VB.TextBox protocolver
|
||||||
|
Height = 300
|
||||||
|
Left = 6075
|
||||||
|
TabIndex = 43
|
||||||
|
Text = "47"
|
||||||
|
Top = 60
|
||||||
|
Width = 315
|
||||||
|
End
|
||||||
|
Begin VB.CheckBox autosend
|
||||||
|
Caption = "×Ô¶¯·¢ËÍ"
|
||||||
|
Height = 195
|
||||||
|
Left = 4950
|
||||||
|
TabIndex = 42
|
||||||
|
Top = 30
|
||||||
|
Width = 1125
|
||||||
|
End
|
||||||
|
Begin VB.CheckBox heart
|
||||||
|
Caption = "ÐÄÌø°ü"
|
||||||
|
Height = 195
|
||||||
|
Left = 4950
|
||||||
|
TabIndex = 41
|
||||||
|
Top = 240
|
||||||
|
Width = 1125
|
||||||
|
End
|
||||||
Begin VB.ListBox List1
|
Begin VB.ListBox List1
|
||||||
Height = 2220
|
Height = 2220
|
||||||
Left = 105
|
Left = 105
|
||||||
@ -22,14 +46,14 @@ Begin VB.Form Frm_Main
|
|||||||
Begin VB.TextBox datachr
|
Begin VB.TextBox datachr
|
||||||
Height = 300
|
Height = 300
|
||||||
Left = 105
|
Left = 105
|
||||||
TabIndex = 42
|
TabIndex = 40
|
||||||
Top = 1110
|
Top = 1110
|
||||||
Width = 8640
|
Width = 8640
|
||||||
End
|
End
|
||||||
Begin VB.TextBox resenddelay
|
Begin VB.TextBox resenddelay
|
||||||
Height = 270
|
Height = 270
|
||||||
Left = 7590
|
Left = 7590
|
||||||
TabIndex = 41
|
TabIndex = 39
|
||||||
Text = "100"
|
Text = "100"
|
||||||
Top = 7710
|
Top = 7710
|
||||||
Width = 435
|
Width = 435
|
||||||
@ -38,7 +62,7 @@ Begin VB.Form Frm_Main
|
|||||||
Caption = "开始发送"
|
Caption = "开始发送"
|
||||||
Height = 225
|
Height = 225
|
||||||
Left = 7605
|
Left = 7605
|
||||||
TabIndex = 40
|
TabIndex = 38
|
||||||
Top = 7425
|
Top = 7425
|
||||||
Width = 1035
|
Width = 1035
|
||||||
End
|
End
|
||||||
@ -46,7 +70,7 @@ Begin VB.Form Frm_Main
|
|||||||
Height = 930
|
Height = 930
|
||||||
Left = 105
|
Left = 105
|
||||||
MultiLine = -1 'True
|
MultiLine = -1 'True
|
||||||
TabIndex = 39
|
TabIndex = 37
|
||||||
Top = 7335
|
Top = 7335
|
||||||
Width = 7350
|
Width = 7350
|
||||||
End
|
End
|
||||||
@ -58,7 +82,7 @@ Begin VB.Form Frm_Main
|
|||||||
Begin VB.TextBox rconcommand
|
Begin VB.TextBox rconcommand
|
||||||
Height = 300
|
Height = 300
|
||||||
Left = 105
|
Left = 105
|
||||||
TabIndex = 38
|
TabIndex = 36
|
||||||
Top = 6525
|
Top = 6525
|
||||||
Width = 1515
|
Width = 1515
|
||||||
End
|
End
|
||||||
@ -66,14 +90,14 @@ Begin VB.Form Frm_Main
|
|||||||
Height = 300
|
Height = 300
|
||||||
Index = 5
|
Index = 5
|
||||||
Left = 1620
|
Left = 1620
|
||||||
TabIndex = 37
|
TabIndex = 35
|
||||||
Top = 6525
|
Top = 6525
|
||||||
Width = 5850
|
Width = 5850
|
||||||
End
|
End
|
||||||
Begin VB.TextBox rconpassword
|
Begin VB.TextBox rconpassword
|
||||||
Height = 300
|
Height = 300
|
||||||
Left = 105
|
Left = 105
|
||||||
TabIndex = 36
|
TabIndex = 34
|
||||||
Top = 6225
|
Top = 6225
|
||||||
Width = 1515
|
Width = 1515
|
||||||
End
|
End
|
||||||
@ -81,7 +105,7 @@ Begin VB.Form Frm_Main
|
|||||||
Height = 300
|
Height = 300
|
||||||
Index = 3
|
Index = 3
|
||||||
Left = 1620
|
Left = 1620
|
||||||
TabIndex = 35
|
TabIndex = 33
|
||||||
Top = 6225
|
Top = 6225
|
||||||
Width = 5850
|
Width = 5850
|
||||||
End
|
End
|
||||||
@ -90,7 +114,7 @@ Begin VB.Form Frm_Main
|
|||||||
Height = 345
|
Height = 345
|
||||||
Index = 6
|
Index = 6
|
||||||
Left = 7500
|
Left = 7500
|
||||||
TabIndex = 34
|
TabIndex = 32
|
||||||
Top = 6930
|
Top = 6930
|
||||||
Width = 1245
|
Width = 1245
|
||||||
End
|
End
|
||||||
@ -98,7 +122,7 @@ Begin VB.Form Frm_Main
|
|||||||
Height = 300
|
Height = 300
|
||||||
Index = 6
|
Index = 6
|
||||||
Left = 105
|
Left = 105
|
||||||
TabIndex = 33
|
TabIndex = 31
|
||||||
Top = 6945
|
Top = 6945
|
||||||
Width = 7365
|
Width = 7365
|
||||||
End
|
End
|
||||||
@ -107,30 +131,30 @@ Begin VB.Form Frm_Main
|
|||||||
Height = 345
|
Height = 345
|
||||||
Index = 5
|
Index = 5
|
||||||
Left = 7500
|
Left = 7500
|
||||||
TabIndex = 32
|
TabIndex = 30
|
||||||
Top = 6525
|
Top = 6525
|
||||||
Width = 1245
|
Width = 1245
|
||||||
End
|
End
|
||||||
Begin VB.CheckBox getdatac
|
Begin VB.CheckBox getdatac
|
||||||
Caption = "接受数据"
|
Caption = "接受数据"
|
||||||
Height = 195
|
Height = 195
|
||||||
Left = 3990
|
Left = 3840
|
||||||
TabIndex = 31
|
TabIndex = 29
|
||||||
Top = 240
|
Top = 240
|
||||||
Width = 1125
|
Width = 1125
|
||||||
End
|
End
|
||||||
Begin VB.CheckBox checkwsk
|
Begin VB.CheckBox checkwsk
|
||||||
Caption = "自动检测"
|
Caption = "自动检测"
|
||||||
Height = 195
|
Height = 195
|
||||||
Left = 3990
|
Left = 3840
|
||||||
TabIndex = 30
|
TabIndex = 28
|
||||||
Top = 30
|
Top = 30
|
||||||
Width = 1125
|
Width = 1125
|
||||||
End
|
End
|
||||||
Begin VB.ComboBox port
|
Begin VB.ComboBox port
|
||||||
Height = 300
|
Height = 300
|
||||||
Left = 2940
|
Left = 2940
|
||||||
TabIndex = 29
|
TabIndex = 27
|
||||||
Text = "25565"
|
Text = "25565"
|
||||||
Top = 60
|
Top = 60
|
||||||
Width = 840
|
Width = 840
|
||||||
@ -138,7 +162,7 @@ Begin VB.Form Frm_Main
|
|||||||
Begin VB.ComboBox addr
|
Begin VB.ComboBox addr
|
||||||
Height = 300
|
Height = 300
|
||||||
Left = 585
|
Left = 585
|
||||||
TabIndex = 28
|
TabIndex = 26
|
||||||
Text = "127.0.0.1"
|
Text = "127.0.0.1"
|
||||||
Top = 60
|
Top = 60
|
||||||
Width = 1815
|
Width = 1815
|
||||||
@ -146,40 +170,24 @@ Begin VB.Form Frm_Main
|
|||||||
Begin VB.TextBox chrinfo
|
Begin VB.TextBox chrinfo
|
||||||
Height = 300
|
Height = 300
|
||||||
Left = 105
|
Left = 105
|
||||||
TabIndex = 27
|
TabIndex = 25
|
||||||
Top = 795
|
Top = 795
|
||||||
Width = 8640
|
Width = 8640
|
||||||
End
|
End
|
||||||
Begin VB.TextBox finfo
|
Begin VB.TextBox finfo
|
||||||
Height = 300
|
Height = 300
|
||||||
Left = 105
|
Left = 105
|
||||||
TabIndex = 26
|
TabIndex = 24
|
||||||
Top = 480
|
Top = 480
|
||||||
Width = 8640
|
Width = 8640
|
||||||
End
|
End
|
||||||
Begin VB.CheckBox heart
|
|
||||||
Caption = "ĞÄÌø°ü"
|
|
||||||
Height = 195
|
|
||||||
Left = 5190
|
|
||||||
TabIndex = 25
|
|
||||||
Top = 240
|
|
||||||
Width = 1125
|
|
||||||
End
|
|
||||||
Begin VB.TextBox commandT
|
Begin VB.TextBox commandT
|
||||||
Height = 300
|
Height = 300
|
||||||
Left = 105
|
Left = 105
|
||||||
TabIndex = 24
|
TabIndex = 23
|
||||||
Top = 5535
|
Top = 5535
|
||||||
Width = 7365
|
Width = 7365
|
||||||
End
|
End
|
||||||
Begin VB.CheckBox autosend
|
|
||||||
Caption = "×Ô¶¯·¢ËÍ"
|
|
||||||
Height = 195
|
|
||||||
Left = 5190
|
|
||||||
TabIndex = 23
|
|
||||||
Top = 30
|
|
||||||
Width = 1125
|
|
||||||
End
|
|
||||||
Begin VB.Timer check
|
Begin VB.Timer check
|
||||||
Enabled = 0 'False
|
Enabled = 0 'False
|
||||||
Interval = 1000
|
Interval = 1000
|
||||||
@ -559,8 +567,8 @@ Private Sub Wsk_Connect(Index As Integer)
|
|||||||
Dim rndusername As String
|
Dim rndusername As String
|
||||||
List1.AddItem Index & " 连接到服务器！"
|
List1.AddItem Index & " 连接到服务器！"
|
||||||
List1.AddItem Wsk(Index).RemoteHostIP
|
List1.AddItem Wsk(Index).RemoteHostIP
|
||||||
Text1(0) = Encode(addr & ":" & port, EncodeIP, "00-2F", "01")
|
Text1(0) = Encode(addr.Text & ":" & port.Text, EncodeIP, "00-" + hhex(protocolver.Text), "01")
|
||||||
logindata = Encode(addr & ":" & port, EncodeIP, "00-04", "02")
|
logindata = Encode(addr.Text & ":" & port.Text, EncodeIP, "00-" + hhex(protocolver.Text), "02")
|
||||||
Text1(1) = "01 00"
|
Text1(1) = "01 00"
|
||||||
Text1(2) = "09 01 00 00 00 00 00 94-CA 29"
|
Text1(2) = "09 01 00 00 00 00 00 94-CA 29"
|
||||||
If autosend.Value = 1 Then
|
If autosend.Value = 1 Then
|
||||||
|
|||||||
@ -6,6 +6,7 @@ Module=UTF8COde; UTF8Code.bas
|
|||||||
Startup="Frm_Main"
|
Startup="Frm_Main"
|
||||||
HelpFile=""
|
HelpFile=""
|
||||||
ExeName32="MCServer_Protocol.exe"
|
ExeName32="MCServer_Protocol.exe"
|
||||||
|
Path32="C:\Users\Administrator\Desktop"
|
||||||
Command32=""
|
Command32=""
|
||||||
Name="MCServer_Protocol"
|
Name="MCServer_Protocol"
|
||||||
HelpContextID="0"
|
HelpContextID="0"
|
||||||
|
|||||||
@ -1,3 +1,3 @@
|
|||||||
MC_TCP = -217, 180, 1279, 685,
|
MC_TCP = 327, 29, 1823, 725,
|
||||||
Frm_Main = 0, 0, 1496, 615, Z, 22, 22, 644, 715, C
|
Frm_Main = 0, 0, 1496, 615, , 22, 22, 644, 715, C
|
||||||
UTF8COde = 0, 0, 0, 0, C
|
UTF8COde = 0, 0, 0, 0, C
|
||||||
|
|||||||
@ -55,7 +55,7 @@ Function hextobyte(hex As String)
|
|||||||
hextobyte = bytes
|
hextobyte = bytes
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Function hhex(data As Long) As String
|
Public Function hhex(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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user