📄 form1.frm
字号:
Left = 840
TabIndex = 14
Top = 720
Width = 2415
End
Begin VB.TextBox Text2
Height = 270
Index = 2
Left = 840
TabIndex = 13
Top = 480
Width = 2415
End
Begin VB.TextBox Text1
Height = 270
Index = 2
Left = 840
TabIndex = 12
Top = 240
Width = 2415
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "3/10"
Height = 180
Index = 11
Left = 1320
TabIndex = 19
Top = 0
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "修"
Height = 180
Index = 2
Left = 3000
TabIndex = 18
Top = 0
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "端口号:"
Height = 180
Index = 10
Left = 120
TabIndex = 17
Top = 840
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "登陆IP:"
Height = 180
Index = 9
Left = 120
TabIndex = 16
Top = 600
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "登陆名:"
Height = 180
Index = 8
Left = 120
TabIndex = 15
Top = 360
Width = 630
End
End
Begin VB.CommandButton Command2
Caption = "修改"
Height = 255
Left = 4800
TabIndex = 6
Top = 6120
Width = 855
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 7320
Top = 2400
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame1
Caption = "服务器列表"
Height = 1095
Index = 0
Left = 120
TabIndex = 1
Top = 120
Width = 3375
Begin VB.TextBox Text3
Height = 270
Index = 0
Left = 840
TabIndex = 10
Top = 720
Width = 2415
End
Begin VB.TextBox Text2
Height = 270
Index = 0
Left = 840
TabIndex = 9
Top = 480
Width = 2415
End
Begin VB.TextBox Text1
Height = 270
Index = 0
Left = 840
TabIndex = 3
Top = 240
Width = 2415
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "1/10"
Height = 180
Index = 3
Left = 1320
TabIndex = 8
Top = 0
Width = 360
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "修"
Height = 180
Index = 0
Left = 3000
TabIndex = 7
Top = 0
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "端口号:"
Height = 180
Index = 2
Left = 120
TabIndex = 5
Top = 840
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "登陆IP:"
Height = 180
Index = 1
Left = 120
TabIndex = 4
Top = 600
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "登陆名:"
Height = 180
Index = 0
Left = 120
TabIndex = 2
Top = 360
Width = 630
End
End
Begin VB.CommandButton Command1
Caption = "读取"
Height = 255
Left = 3960
TabIndex = 0
Top = 6120
Width = 855
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "服务器名:"
Height = 180
Left = 120
TabIndex = 93
Top = 6120
Width = 810
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'内存操作
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type SERVER_LIST
ServName(&HF) As Byte
ServIP(&H1F) As Byte
ServPort(&HF) As Byte
End Type
Private Type STR_SERVER_LIST
ServName As String * &HF
ServNameEnd As Byte
ServIP As String * &H1F
ServIPEnd As Byte
ServPort As String * &HF
ServPortEnd As Byte
End Type
Private Type STR_SERVER_NAME
ServName As String * &HF
ServNameEnd As Byte
End Type
Dim bServName(&HF) As Byte
Dim ServName As STR_SERVER_NAME
Dim ServLst(10) As SERVER_LIST
Dim StrServLst(10) As STR_SERVER_LIST
Dim FileName As String
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Dim FileNum As Integer
Dim i As Integer
FileNum = FreeFile
FileName = CommonDialog1.FileName
Open CommonDialog1.FileName For Binary Access Read As FileNum
Get FileNum, &H801, bServName
Get FileNum, &H811, ServLst
Close FileNum
DeCode
CopyMemory ServName, bServName(0), &H10
Text4.Text = ServName.ServName
For i = 0 To 9
CopyMemory StrServLst(i), ServLst(i), &H40
Text1(i).Text = StrServLst(i).ServName
Text2(i).Text = StrServLst(i).ServIP
Text3(i).Text = StrServLst(i).ServPort
Next
End If
End Sub
Private Sub DeCode()
Dim i As Long
Dim j As Long
Dim size As Long
For i = 0 To &HF
If bServName(i) <> 0 Then
bServName(i) = bServName(i) Xor &HFF
End If
Next i
For i = 0 To 9
For j = 0 To &HF
If ServLst(i).ServName(j) <> 0 Then
ServLst(i).ServName(j) = ServLst(i).ServName(j) Xor &HFF
End If
If ServLst(i).ServIP(j) <> 0 Then
ServLst(i).ServIP(j) = ServLst(i).ServIP(j) Xor &HFF
End If
If ServLst(i).ServPort(j) <> 0 Then
ServLst(i).ServPort(j) = ServLst(i).ServPort(j) Xor &HFF
End If
Next j
Next i
End Sub
Private Sub Command2_Click()
Dim FileNum As Integer
CopyMemory bServName(0), ServName, &H10
DeCode
FileNum = FreeFile
Open FileName For Binary Access Write As FileNum
Put FileNum, &H801, bServName
Put FileNum, &H811, ServLst
Close FileNum
DeCode
MsgBox "保存成功"
End Sub
Private Sub Command3_Click()
Dim i As Long
Dim FileNum As Integer
For i = 0 To 9
StrServLst(i).ServName = Text1(i).Text + Chr(0)
StrServLst(i).ServIP = Text2(i).Text + Chr(0)
StrServLst(i).ServPort = Text3(i).Text + Chr(0)
StrServLst(i).ServNameEnd = 0
StrServLst(i).ServIPEnd = 0
StrServLst(i).ServPortEnd = 0
CopyMemory ServLst(i), StrServLst(i), &H40
Next i
ServName.ServName = Text4.Text + Chr(0)
ServName.ServNameEnd = 0
CopyMemory bServName(0), ServName, &H10
DeCode
FileNum = FreeFile
Open FileName For Binary Access Write As FileNum
Put FileNum, &H801, bServName
Put FileNum, &H811, ServLst
Close FileNum
DeCode
MsgBox "保存成功"
End Sub
Private Sub Label3_Click(Index As Integer)
StrServLst(Index).ServName = Text1(Index).Text + Chr(0)
StrServLst(Index).ServIP = Text2(Index).Text + Chr(0)
StrServLst(Index).ServPort = Text3(Index).Text + Chr(0)
StrServLst(Index).ServNameEnd = 0
StrServLst(Index).ServIPEnd = 0
StrServLst(Index).ServPortEnd = 0
CopyMemory ServLst(Index), StrServLst(Index), &H40
MsgBox "成功修改"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -