mirror of
https://e.coding.net/circlecloud/MCServer_Protocol.git
synced 2024-11-21 14:48:51 +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
|
||||
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 = "×Ô¶¯·¢ËÍ"
|
||||
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
|
||||
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 = "开始发送"
|
||||
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 = "接受数据"
|
||||
Height = 195
|
||||
Left = 3990
|
||||
TabIndex = 31
|
||||
Left = 3840
|
||||
TabIndex = 29
|
||||
Top = 240
|
||||
Width = 1125
|
||||
End
|
||||
Begin VB.CheckBox checkwsk
|
||||
Caption = "自动检测"
|
||||
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 = "ĞÄÌø°ü"
|
||||
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 = "×Ô¶¯·¢ËÍ"
|
||||
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 & " 连接到服务器！"
|
||||
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
|
||||
|
||||
@ -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"
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user