?? form2.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -