form6.frm

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

VERSION 5.00
Begin VB.Form Form6 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "软件注册"
   ClientHeight    =   3960
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3255
   Icon            =   "Form6.frx":0000
   LinkTopic       =   "Form6"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3960
   ScaleWidth      =   3255
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "试用"
      Height          =   270
      Left            =   2580
      TabIndex        =   5
      Top             =   180
      Width           =   555
   End
   Begin VB.CommandButton Command1 
      Caption         =   "注册"
      Height          =   270
      Left            =   2580
      TabIndex        =   4
      Top             =   540
      Width           =   555
   End
   Begin VB.Frame Frame1 
      Height          =   3015
      Left            =   60
      TabIndex        =   3
      Top             =   840
      Width           =   3135
      Begin VB.Line Line1 
         BorderColor     =   &H000000FF&
         X1              =   120
         X2              =   660
         Y1              =   1905
         Y2              =   1905
      End
      Begin VB.Label Label6 
         BackStyle       =   0  'Transparent
         Caption         =   "E-Mail"
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   120
         MouseIcon       =   "Form6.frx":038A
         MousePointer    =   99  'Custom
         TabIndex        =   9
         ToolTipText     =   "[e-mail]"
         Top             =   1740
         Width           =   675
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         Caption         =   "    不付款您同样可以索要注册码，或者您有什么意见和建议都请给我发E-Mail。我真诚的希望您注册！！！"
         Height          =   615
         Left            =   60
         TabIndex        =   8
         Top             =   1380
         Width           =   3015
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         Caption         =   "    汇款地址：广东省湛江市霞山区圆岭路14号。                         收 款 人：张新华            邮政编码：524016        "
         Height          =   795
         Left            =   60
         TabIndex        =   7
         Top             =   2100
         Width           =   3015
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         Caption         =   $"Form6.frx":11CC
         Height          =   1095
         Left            =   60
         TabIndex        =   6
         Top             =   180
         Width           =   3015
      End
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   1260
      TabIndex        =   2
      Top             =   540
      Width           =   1035
   End
   Begin VB.Label Label2 
      Caption         =   "软件注册码："
      Height          =   255
      Left            =   180
      TabIndex        =   1
      Top             =   600
      Width           =   1155
   End
   Begin VB.Label Label1 
      Height          =   255
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   2055
   End
End
Attribute VB_Name = "Form6"
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 Command1_Click()
  If Text1.Text = Right(softcode ^ 0.3, 6) Then
     sn = Text1.Text
     SaveSetting "tooboy", "e900", "sn", sn
     MsgBox ("谢谢注册！")
     Unload Form6
     Unload Form3
  Else
     MsgBox ("注册码错误！")
     Text1.Text = ""
     Text1.SetFocus
  End If
End Sub

'单击返回按钮退出
Private Sub Command2_Click()
Unload Form6
End Sub

'显示软件编号
Private Sub Form_Load()
Form1.Image1.Enabled = False '设置窗口出现时禁止菜单弹出
Label1.Caption = "软件编号为：" + "  " + left(softcode, 6)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form1.Image1.Enabled = True '设置窗口退出时恢复菜单弹出
Set Form6 = Nothing
End Sub

'启动发送EMAIL默认软件
Private Sub Label6_Click()
     Dim ret&
     ret& = ShellExecute(Me.hwnd, "Open", "mailto:[e-mail]", "", App.Path, 1)
End Sub