VB6.0写的游戏登入器的开发

隔了很久，终于完成了登入器的制作，其实写登录器也很简单。

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，有软件项目定制 可以发布。