vb相关文章(归档)

风清扬斈 17年前 (2005-10-13) My Articles 7019 0
共享软件的一个最大特点就是需要输入注册码才能使用其中最主要的一点就是对软件进行加锁。
用VB的计时器可以很轻松的实现对软件的加锁
首先在主窗体上增加一个计时器,然后新建一个frmLogin窗体,在窗体上添加两个按钮,两个标签框,两个框文本,形成一个密码验证窗体
在主窗体的菜单中插入一个“软件注册”菜单
程序代码如下
‘密码验证代码
Private Sub cmdCancel_Click()   
 LoginSucceeded = False
    Form1.Show’点取消返回主窗体
End Sub

Private Sub cmdOK_Click()
    ’检查密码的正确性
    If txtUserName = "zhucema" Then ’这里可以用if设置多个注册码
           If txtPassword = "8888" Then 
          LoginSucceeded = True
           MsgBox "现在您可以放心地使用本软件了", , "恭喜,软件注册成功"
Form1.Timer1 = False ’输入密码成功,关闭计时器
’写入注册表  



    Form1.Show 
form1.Caption = "注册软件" ’改变主窗口标题
        Else 
        MsgBox "密码无效,请重试!", 49, "密码验证"
        End If
    Else
        MsgBox "注册码错误,请重试!", 50, "密码验证"
        txtPassword.SetFocus
    End If
End Sub

Private Sub Form_Load()
form1.Caption = "注册软件"
End Sub
Private Sub timer1_timer()
timer1.interval=5000
end sub
’关联解锁菜单
Private Sub jiesuo_Click()
If Timer1.Enabled = False Then
MsgBox "已经解锁!" ’也可以直接读注册表信息
Else
frmLogin.Show
End If
end sub
’结合注册表信息,每次启动时关闭计时器"

相关推荐

  • 网友评论

    • (*)

    最新评论