form2.frm

完整的英语900句源码－采用顶条技术

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:[e-mail]", "", 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