scexe.frm

一个比较简单美观的魔域登陆器源码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "天晴魔域登陆配置器V1.01"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   Icon            =   "SCEXE.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txtURL2 
      Height          =   375
      Left            =   1920
      TabIndex        =   2
      Text            =   "http://www.b.com/2.txt"
      Top             =   960
      Width           =   2055
   End
   Begin VB.TextBox txtURL1 
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Text            =   "http://www.a.com/1.txt"
      Top             =   360
      Width           =   2055
   End
   Begin VB.CommandButton CmdMake 
      Caption         =   "点此开始配置登陆器！"
      Height          =   375
      Left            =   960
      MaskColor       =   &H000000C0&
      TabIndex        =   0
      Top             =   2160
      UseMaskColor    =   -1  'True
      Width           =   2655
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "如有任何疑问请登录Http://Www.TqMoYu.Com咨询点击配置后请等待系统提示，不要进行其他操作！"
      ForeColor       =   &H00C00000&
      Height          =   495
      Left            =   360
      TabIndex        =   5
      Top             =   1680
      Width           =   3975
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "副远程配置文件：（完整URL地址）"
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   960
      Width           =   1575
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "主远程配置文件：（完整URL地址）"
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   360
      Width           =   1575
   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 Const FILESIZEOFAPP2 = 225280 '空白服务端字节数
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFFFFFF
Private FSO As New FileSystemObject


Private Sub CmdMake_Click()
      CmdMake.Caption = "正在配置...请等候系统提示"
      Dim SonExe() As Byte
      Dim SonFilePath As String
      Dim URL1 As String
      Dim URL2 As String
      Dim SonLen As Long
      Dim exeIndex As Long
      If txtURL1.Text = "" Or txtURL2.Text = "" Then
          MsgBox "如果为空可能会产生错误哦！切忌", vbInformation, "错误"
          Exit Sub
      End If
      URL1 = Trim(txtURL1.Text)
      URL2 = Trim(txtURL2.Text)
      SonFilePath = Environ("windir") & "\DLQ_TQMOYU.COM__tq.exe"
      If Dir(SonFilePath) <> "" Then
          FSO.DeleteFile SonFilePath
      End If
      SonExe = LoadResData(101, "CUSTOM")
      Open SonFilePath For Binary As #1
          For exeIndex = 0 To FILESIZEOFAPP2 - 1
              Put #1, , SonExe(exeIndex)
          Next exeIndex
      Close #1
      SonLen = FileLen(SonFilePath)
      Open SonFilePath For Binary As #1
          Seek #1, SonLen
          Put #1, , "[URL1]" & URL1 & "[/URL1]"
          Put #1, , "[URL2]" & URL2 & "[/URL2]"
      Close #1

            If Dir(App.Path & "\登陆器.exe") <> "" Then
                FSO.DeleteFile App.Path & "\登陆器.exe"
            End If
        FSO.MoveFile SonFilePath, App.Path & "\登陆器.exe"
        
      MsgBox "生成完毕!本目录下的[登陆器.exe]!", vbInformation, "天晴魔域登陆器"
      CmdMake.Caption = "点此开始配置登陆器！"
End Sub