📄 frmain.frm
字号:
VERSION 5.00
Begin VB.Form frmain
Caption = "传奇助手标准版 02外语2班 71区朱雀我最俊"
ClientHeight = 4200
ClientLeft = 60
ClientTop = 345
ClientWidth = 5925
Icon = "FRMAIN.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4200
ScaleWidth = 5925
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Height = 1095
Left = 1680
MultiLine = -1 'True
TabIndex = 16
Text = "FRMAIN.frx":628A
Top = 600
Width = 2535
End
Begin VB.TextBox Text2
BackColor = &H80000000&
BorderStyle = 0 'None
Height = 255
Left = 4320
TabIndex = 15
Top = 2730
Width = 1215
End
Begin VB.TextBox Text1
BackColor = &H80000000&
BorderStyle = 0 'None
Height = 255
Left = 2160
TabIndex = 14
Top = 2730
Width = 1455
End
Begin VB.Frame Frame2
Caption = "私服登录"
Height = 735
Left = 1440
TabIndex = 9
Top = 2400
Width = 4335
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "名称:"
Height = 180
Left = 2280
TabIndex = 17
Top = 360
Width = 450
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "地址:"
Height = 180
Left = 195
TabIndex = 12
Top = 330
Width = 450
End
End
Begin VB.CommandButton Command5
Appearance = 0 'Flat
Caption = "退出"
Height = 375
Left = 4680
TabIndex = 8
Top = 3720
Width = 1095
End
Begin VB.CommandButton Command4
Appearance = 0 'Flat
Caption = "外挂"
Height = 375
Left = 1320
TabIndex = 7
ToolTipText = "启动简单破解外挂"
Top = 3720
Width = 1095
End
Begin VB.Frame Frame1
Caption = "基本设置"
Height = 2175
Left = 1440
TabIndex = 3
Top = 120
Width = 4335
Begin VB.CommandButton Command6
Height = 1095
Left = 2880
MaskColor = &H80000005&
Picture = "FRMAIN.frx":62CC
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "登录盛大热血传奇"
Top = 480
Width = 1335
End
Begin VB.CommandButton Command3
Appearance = 0 'Flat
Caption = "私服"
Height = 375
Left = 1680
TabIndex = 6
ToolTipText = "先在下面填写私服信息,然后点此登录其它私服"
Top = 1680
Width = 975
End
Begin VB.CommandButton Command2
Appearance = 0 'Flat
Caption = "内网"
Default = -1 'True
Height = 375
Left = 360
TabIndex = 5
ToolTipText = "点此登录学校内网传奇"
Top = 1680
Width = 975
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "登录热血传奇"
Height = 180
Left = 3000
TabIndex = 11
Top = 1800
Width = 1080
End
Begin VB.Label Label2
Caption = "爱上传奇:"
Height = 255
Left = 840
TabIndex = 4
Top = 240
Width = 1575
End
End
Begin VB.CommandButton Command1
Appearance = 0 'Flat
BackColor = &H80000009&
Caption = "网关"
Height = 375
Left = 120
TabIndex = 2
ToolTipText = "登录透明网关"
Top = 3720
Width = 975
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 3015
Left = 120
Picture = "FRMAIN.frx":6B0E
ScaleHeight = 2985
ScaleWidth = 1185
TabIndex = 0
Top = 120
Width = 1215
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "学校内网私服址为:210.35.26.2 名称:我就是神!"
Height = 180
Left = 1680
TabIndex = 13
Top = 3240
Width = 3870
End
Begin VB.Line Line1
X1 = 120
X2 = 5760
Y1 = 3600
Y2 = 3600
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "怀念小龙"
Height = 180
Left = 360
TabIndex = 1
Top = 3240
Width = 720
End
End
Attribute VB_Name = "frmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strCharB, strCharA
Dim strSectionTemp As String
Dim strNameTemp As String
Dim strreturn As String
Function setProfile(strFileName As String, strSection As String, strName As String, strSave As String) As Boolean
Dim strTemp As String
Dim strfileback As String
Dim strreturn As String
strfileback = App.Path & "\solong.tmp"
Open strFileName For Input As #1
Open strfileback For Output As #2
Do While Not EOF(1)
Line Input #1, strTemp
strreturn = strTemp
Print #2, strreturn
If InStr(1, Trim(strTemp), "[") <> 0 Then
If InStr(1, Trim(strTemp), Trim(strSection)) <> 0 Then
Do While Not EOF(1)
Line Input #1, strTemp
If InStr(1, Trim(strTemp), Trim(strName)) <> 0 Then Exit Do
strreturn = strTemp
Print #2, strreturn
Loop
strreturn = strName & "=" & strSave
Print #2, strreturn
End If
End If
Loop
Close #1
Close #2
Open strfileback For Input As #1
Open strFileName For Output As #2
Do While Not EOF(1) And EOF(2)
Line Input #1, strreturn
Print #2, strreturn
Loop
Close #1
Close #2
End Function
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()
If Dir("ftp.ini") = "" Then
FileCopy "bak\ftpbak.txt", "ftp.ini"
End If
If Dir("mir.ini") = "" Then
FileCopy "bak\mirbak.txt", "mir.ini"
End If
Text1 = "210.35.26.2"
Text2 = "我就是神!"
Dim strPath As String
strPath = App.Path & "\ftp.ini"
setProfile strPath, "Server", "server1name", Text2
setProfile strPath, "Server", "server1caption", Text2
strPath = App.Path & "\mir.ini"
setProfile strPath, "setup", "ServerAddr", Text1
setProfile strPath, "ftpsetup", "site", Text1
Dim sifu As String
sifu = Shell("4f.exe")
End Sub
Private Sub Command3_Click()
If Dir("ftp.ini") = "" Then
FileCopy "bak\ftpbak.txt", "ftp.ini"
End If
If Dir("mir.ini") = "" Then
FileCopy "bak\mirbak.txt", "mir.ini"
End If
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "地址或名称不能为空,请在私服登录中填写."
End
End If
Dim strPath As String
strPath = App.Path & "\ftp.ini"
setProfile strPath, "Server", "server1name", Text2
setProfile strPath, "Server", "server1caption", Text2
strPath = App.Path & "\mir.ini"
setProfile strPath, "setup", "ServerAddr", Text1
setProfile strPath, "ftpsetup", "site", Text1
Dim sifu As String
sifu = Shell("4f.exe")
End Sub
Private Sub Command4_Click()
Dim wgmain As String
wgmain = Shell("wg\wg.exe")
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Dim zhengban As String
zhengban = Shell("shanda.exe")
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim IntR As Integer
IntR = MsgBox("确认要退出程序吗？", vbYesNo, "退出确认")
If IntR = vbNo Then Cancel = -1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -