隔了很久,终于完成了登入器的制作,其实写登录器也很简单。
Private WithEvents 下载对象 As 下载类
Dim tc As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "", "", "", 0
End Sub
Private Sub Command2_Click()
Dim 注册机路径 As String
注册机路径 = 释放出注册机()
Sleep 500
'MsgBox 注册机路径
Shell 注册机路径, 1
'Call 创建注册机(注册机路径)
End Sub
Private Sub Command3_Click()
On Error Resume Next
Call Command5_Click '更新
Sleep 500
If 百分比进度条1.Value = 100 Then
If Label1.Caption = "已是最新版" Then
Call 解压文件
Sleep 2000
End If
Call Command9_Click '启动主进程和内挂
IS登录器启动 = IS登录器启动 + 1
End If
End Sub
Private Sub Command4_Click()
MsgBox 获取大区配置()
End Sub
Private Sub Command5_Click()
百分比进度条1.Value = 0
Dim 版本号 As String
版本号 = Trim(获取版本号())
If Dir(版本txt路径) = "" Then '首次玩家判断 这个 版本路径 是空的 ,那么就更新下
If 下载对象.StartDownloading("http://www.xxxxxx.com/21111.zip", "C:\123567.zip") Then
' MsgBox "下载成功!"
Else
MsgBox "更新失败!"
End If
Else
If InStr(读取txt记事本(版本txt路径), 版本号) <= 0 Then
If 下载对象.StartDownloading("http://www.xxxxxx.com/21111.zip", "C:\123567.zip") Then
Else
MsgBox "更新失败!"
End If
Else
Label1.Caption = "已是最新版"
百分比进度条1.Value = 100
End If
End If
Call 写入记事本(版本号)
End Sub
Private Sub Command6_Click()
Call 解压文件 '解压下载的 tdsj.zip 覆盖到当前目录
End Sub
Private Sub Command9_Click() '启动游戏 和内挂
Dim 内挂路径 As String, 主进程路径 As String
If 判断MD5是否合法() = True Then
' Call 释放多开模块
主进程路径 = 释放游戏原始主进程模块()
Sleep 500
If 主进程路径 <> "" Then
'Shell 游戏主文件路径, 1
Call 创建进程(游戏主文件路径)
End If
Sleep 1000
'Call 修改窗口名
Sleep 500
内挂路径 = 释放出内挂()
Sleep 500
If 内挂路径 <> "" Then '启动内挂
' Shell 内挂路径, 1
Call 创建内挂(内挂路径)
End If
Sleep 500
If Check1.Value = 1 Then
Call 窗口化
Else
Call 最大化
End If
End If
End Sub
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "天地登入器已在运行,请不要重复开启!"
End
End If
Call SetHook
Call 清除编号
AppPath = App.Path
Call 释放ZIP模块
Set 下载对象 = New 下载类
游戏主文件路径 = AppPath & "\game.exe"
版本txt路径 = AppPath & "\v.txt"
If Dir(版本txt路径) = "" Then '首次玩家判断 这个 版本路径 是空的 ,那么就更新下
Call 写入记事本("111")
End If
Dim 版本号 As String
版本号 = Trim(获取版本号())
If InStr(读取txt记事本(版本txt路径), 版本号) <= 0 Then
Label1.Caption = "发现最新版"
Else
Label1.Caption = "已是最新版"
End If
Label3.Caption = 版本号
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnSetHook
End Sub
Private Sub Timer1_Timer()
'Call 修改窗口名
End Sub
Private Sub Timer2_Timer()
tc = tc + 1
If tc = 10 Then
Dim 版本号 As String
版本号 = Trim(获取版本号())
If InStr(读取txt记事本(版本txt路径), 版本号) <= 0 Then
MsgBox "发现游戏有最新版本,请更新!"
Label1.Caption = "发现最新版"
Timer2.Enabled = False
Else
Label1.Caption = "已是最新版"
End If
tc = 0
End If
End Sub
Private Sub 下载对象_OnProgress(ByVal lProgress As Long, ByVal lMaxProgress As Long, ByVal lStatusCode As Long, ByVal sStatusText As String)
Dim bPercent As Long
Label2.Caption = lProgress & "/ " & lMaxProgress
If lMaxProgress = 0 Then
bPercent = 0
Else
bPercent = Int(lProgress / lMaxProgress * 100)
End If
百分比进度条1.Value = bPercent
End Sub
有幸创建了一个软件开发交流站 www.zai996.com,有软件项目定制 可以发布。