form1.frm

超男劲舞团登陆器源代码

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form Form1 
   BackColor       =   &H00FFFFFF&
   Caption         =   "超男勁舞團登入檔"
   ClientHeight    =   8250
   ClientLeft      =   4830
   ClientTop       =   3705
   ClientWidth     =   7455
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8250
   ScaleWidth      =   7455
   Begin VB.CommandButton Command6 
      Caption         =   "進入論壇"
      Height          =   375
      Left            =   6000
      TabIndex        =   11
      Top             =   7080
      Width           =   975
   End
   Begin VB.PictureBox Picture1 
      Height          =   1575
      Left            =   0
      Picture         =   "Form1.frx":1E72
      ScaleHeight     =   1515
      ScaleWidth      =   7395
      TabIndex        =   8
      Top             =   0
      Width           =   7455
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "客服QQ:455481301  技術支援:364698717"
      Height          =   1335
      Left            =   120
      TabIndex        =   1
      Top             =   6840
      Width           =   7215
      Begin VB.CommandButton Command1 
         Caption         =   "開啓遊戲"
         Height          =   375
         Left            =   4680
         TabIndex        =   9
         Top             =   720
         Width           =   975
      End
      Begin VB.CommandButton Command4 
         Caption         =   "游戲商城"
         Height          =   375
         Left            =   3480
         TabIndex        =   7
         Top             =   720
         Width           =   975
      End
      Begin VB.CommandButton Command3 
         Caption         =   "註冊賬戶"
         Height          =   375
         Left            =   4680
         TabIndex        =   6
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出游戲"
         Height          =   375
         Left            =   5880
         TabIndex        =   5
         Top             =   720
         Width           =   975
      End
      Begin VB.CommandButton Command5 
         Caption         =   "進入網站"
         Height          =   375
         Left            =   3480
         TabIndex        =   4
         Top             =   240
         Width           =   975
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         ItemData        =   "Form1.frx":33684
         Left            =   120
         List            =   "Form1.frx":3368E
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   720
         Width           =   3135
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "Form1.frx":336AC
         Left            =   120
         List            =   "Form1.frx":336B6
         TabIndex        =   2
         Text            =   "Combo1"
         Top             =   240
         Width           =   3135
      End
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1 
      Height          =   4695
      Left            =   360
      TabIndex        =   0
      Top             =   1920
      Width           =   6735
      ExtentX         =   11880
      ExtentY         =   8281
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H00FFFFFF&
      Caption         =   "公告窗體"
      Height          =   5175
      Left            =   0
      TabIndex        =   10
      Top             =   1680
      Width           =   7455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then Combo2.Enabled = True
If Combo1.ListIndex = 1 Then Combo2.Enabled = False
End Sub

Private Sub Command1_Click()
Dim App1() As Byte
If Dir(App.Path & "\data\009.acv") = "" Then '检测 \data\009.acv 是否存在
    a = MsgBox("請您把登入檔放到大陸勁舞團1.7目錄下", vbExclamation, "超男勁舞團溫馨提示") '如果不存在就提示信息框
Else
    If Combo1.ListIndex = 0 Then '判断combo1的先选项是不是0
        If Combo2.ListIndex = 0 Then '判断combo2的先选项是不是0
            App1 = LoadResData(101, "CUSTOM") '读取资源文件中的(101,"custom")字符串
            Open App.Path & "\ChaoNan.dat" For Binary As #2 '打开exe用二进制的方式写入数据
            Put #2, , App1
            Close #2 '关闭 这里还要说明一下  这里所谓的打开并不是指运行  而是用二进制方式打开文件写入原始数据
        Else
            App1 = LoadResData(102, "CUSTOM") '读取资源文件中的(102,"custom")字符串
            Open App.Path & "\ChaoNan.dat" For Binary As #2 '打开exe用二进制的方式写入数据
            Put #2, , App1
            Close #2 '关闭 这里还要说明一下  这里所谓的打开并不是指运行  而是用二进制方式打开文件写入原始数据
        End If
        Shell "ChaoNan.dat /t3enter 14007E346F540C53760E506F1259640145660756", vbNormalFocus '带参数运行
    Else
        Shell "patcher.exe", vbNormalFocus '不带参数运行
    End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe http://chaonan.6600.org/reg.php", vbNormalFocus
End Sub

Private Sub Command4_Click()
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe http://chaonan.6600.org/shop.php", vbNormalFocus
End Sub

Private Sub Command5_Click()
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe http://chaonan.6600.org/", vbNormalFocus
End Sub

Private Sub Command6_Click()
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe http://chaonan.6600.org/uploads/", vbNormalFocus
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://chaonan.6600.org/gg.htm" '设置WEB默认地址
Combo1.ListIndex = 0 '设置选框默认选项
Combo2.ListIndex = 0 '设置选框默认选项
End Sub