注册
登录
| 关键词： Long ByVal Private Text SetWindowPos Sub Function End Declare Const |
大家好 我是:簖誸侽孒゛ QQ：294828098 今天给大家带来的教程是（VB做个人挂机锁） ------------------------------------------------------------------------------- 用到的工具有 1.VB 因为我的记事本出了 问题啊 就用这个将就一下吧！ 好了 语音教程 不多打字了 ----------------程序代码----------------- 登陆框代码 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 Form2.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 ============================================================================= |
|
| 友情提醒：以上链接来自互联网，请注意风险！ |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
