VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   270
   ClientLeft      =   5760
   ClientTop       =   3900
   ClientWidth     =   1500
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   270
   ScaleWidth      =   1500
   Begin VB.Menu mnu_file 
      Caption         =   "file"
      Begin VB.Menu mnu_sysset 
         Caption         =   "系統設置"
      End
      Begin VB.Menu mnu_hlp 
         Caption         =   "自助模式"
      End
      Begin VB.Menu mnu_regi 
         Caption         =   "軟件注冊"
      End
      Begin VB.Menu mnu_veri 
         Caption         =   "版本信息"
      End
      Begin VB.Menu f1 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_page 
         Caption         =   "作者主頁"
      End
      Begin VB.Menu mnu_email 
         Caption         =   "給我寫信"
      End
      Begin VB.Menu f2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_exit 
         Caption         =   "退    出"
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'用來打開指定網頁或EMAIL的API聲明
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
   As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'打開設置窗口
Private Sub mnu_sysset_Click()
     Form3.top = Screen.Height / 2 - 1500: Form3.left = Screen.Width / 2
     Form3.Visible = True
End Sub
'打開自助模式窗口
Private Sub mnu_hlp_Click()
     Form5.Visible = True
End Sub
'啟動發送EMAIL默認軟件
Private Sub mnu_email_Click()
     Dim ret&
     ret& = ShellExecute(Me.hwnd, "Open", "mailto:tooboy@21cn.com", "", App.Path, 1)
End Sub
'打開軟件注冊窗口
Private Sub mnu_regi_Click()
      If sn <= 10 Or sn > 999999 Or sn <> Right(softcode ^ 0.3, 6) Then
      Form6.Visible = True
      Else
      MsgBox ("軟件已經注冊！")
      End If
End Sub
'顯示版本信息
Private Sub mnu_veri_Click()
     Form7.Visible = True
End Sub
'打開指定網頁
Private Sub mnu_page_Click()
     Dim ret&
     ret& = ShellExecute(Me.hwnd, "Open", "http://qianmm.533.net", "", App.Path, 1)
End Sub
'結束程序、保存數據到注冊表、卸載所有窗體
Private Sub mnu_exit_Click()
SaveSetting "tooboy", "e900", "voice", voice '保存開關聲音設置
SaveSetting "tooboy", "e900", "left", Form1.left '保存窗口的位置信息
SaveSetting "tooboy", "e900", "usetime", 3 * usetime + 1 '保存軟件累計使用時間的反破解值
If psave = 1 And rd = 1 Then SaveSetting "tooboy", "e900", "guagen", guagen '保存進度信息
Set Form8 = Nothing
Set Form7 = Nothing
Set Form6 = Nothing
Set Form5 = Nothing
Set Form4 = Nothing
Set Form3 = Nothing
Set Form2 = Nothing
Set Form1 = Nothing
End
End Sub