-----------------------------------------------------------------------------------

黑客动画吧 http://www.hack58.com

致力于中国最专业的黑客安全站点

黑客动画吧，有你更精彩

-----------------------------------------------------------------------------------

大家好 ,我是傻小子 呵呵 刚装的机器 还行吧

呵呵 今天呢 我给大家做一个VB动画 叫做 VB打造个人挂机锁

不知道大家都会不会  呵呵

下面看我操作吧

我已经把大体页面设置好了

大家跟我这样做就行了

大家看一下

还有大家注意一下 这里 
由于这里是打密码的  所以我们要把密码显示设置成为 *

看操作
这里改为 *就可以了

记住 上面下面都改

好 我们先来加 登陆面的代码

都眼花.了....

我们再来填加一个窗体 那就是挂机显示面啦

看我操作吧  首先我们来载入一张图片

呵呵 好看吧

我们再来 填加一个安钮和 Text控件

这里我们的解锁密码也要设置成为 *

....我们今天VIP在讲课呢...呵呵语音地...能听...

好地 ..我们再来填加 这里的代码

好 代码我们完成 我们再需要来改一些设置  看我操作

把名字去掉..

这里我们改成0  无限制

再需要改一个  看一下昂

就是最后一个 我们改成  1-....

好了我们这就完成啦  我们来测试一下吧

哦 .弄错了 应该改成  2 不是3

好 我们再来测试一下吧

呵呵 看好用吧

就是这么简单地...

希望大家多多支持我们地黑吧  呵呵 

我是黑吧 傻小子  QQ 364580582 

谢谢大家观看 End  大家8888888888888888888
----------------程序代码-----------------

登陆框代码

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_SHOWWINDOW As Long = &H40
Private Const SWP_HIDEWINDOW As Long = &H80
Private Const SWP_NOACTIVATE As Long = &H10
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "你没有设定密码，请重试！", 0, "傻瓜提示"
Else
If Text1.Text <> Text2.Text Then
MsgBox "2次输入的密码不正确，请正确输入！", 0, "错误提示"
Else
Form3.show
Dim hide As Long
      hide = FindWindow("Shell_traywnd", vbNullString)
  Call SetWindowPos(hide, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End If
End If

End Sub

Private Sub Command2_Click()
Form2.show
End Sub

Private Sub Label1_Click()

End Sub

挂机页面代码

Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
    ByVal fuWinIni As Long) As Long
   
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Const SWP_SHOWWINDOW As Long = &H40
Private Const SWP_HIDEWINDOW As Long = &H80
Private Const SWP_NOACTIVATE As Long = &H10

Private Sub Command1_Click()
 If Text1.Text = Form1.Text1.Text Then
     Dim myval As Long, show As Long
     myval = SystemParametersInfo(97, False, CStr(1), 0)
       show = FindWindow("Shell_traywnd", vbNullString)
  Call SetWindowPos(show, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
  End
 
 Else
       MsgBox "密码错误！请正确输入您的密码", 0, "错误提示"
  End If
End Sub

Private Sub Form_Load()
Dim myval
  myval = SetWindowPos(Form2.hwnd, -1, 0, 0, 0, 0, 3)
End Sub