diff --git a/Frm_Main.frm b/Frm_Main.frm
index bcbeaff..f9cc28d 100644
--- a/Frm_Main.frm
+++ b/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
diff --git a/MCServer_Protocol.vbp b/MCServer_Protocol.vbp
index d979475..b5a4701 100644
--- a/MCServer_Protocol.vbp
+++ b/MCServer_Protocol.vbp
@@ -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"
diff --git a/MCServer_Protocol.vbw b/MCServer_Protocol.vbw
index c046656..2feeda4 100644
--- a/MCServer_Protocol.vbw
+++ b/MCServer_Protocol.vbw
@@ -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
diff --git a/MC_TCP.bas b/MC_TCP.bas
index f001ffb..02a916c 100644
--- a/MC_TCP.bas
+++ b/MC_TCP.bas
@@ -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