vb锁定任务管理器代码（vb锁定任务管理器代码是多少）[20240426更新]

本篇文章给大家谈谈vb锁定任务管理器代码，以及vb锁定任务管理器代码是多少对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、锁定任务管理器的VB代码
• 2、vb怎么禁用任务管理器
• 3、vb锁定任务管理器，锁定桌面，锁定键盘把这个三个的代码放到command1里面应该怎么写
• 4、vb禁用任务管理器的问题。
• 5、怎样用vb编写一个无法关闭的程序

锁定任务管理器的VB代码

① 整人

此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你

Private Sub Form_Load()

Open Environ$("WinDir") "\system32\taskmgr.exe" For Binary As #1

For m = 1 To 999

MsgBox "呵呵，你知道我是谁吗？", 16

MsgBox "什么？？不知道？", 16

MsgBox "那你打开我干什么？", 16

MsgBox "你有空没事做吧？！", 16

MsgBox "我..就是鼎鼎大名的987876198", 16

MsgBox "987876198..", 16

MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16

MsgBox "算了算了，不玩你了", 16

MsgBox "现在我数3声就闪人,行了吧?", 16

MsgBox "1.............", 16

MsgBox "2.............", 16

MsgBox "3.............", 16

MsgBox "噔噔噔噔,我又回来了！", 16

MsgBox "哈哈，是不是很过瘾呢？", 16

MsgBox "现在我先介绍下自己..", 16

MsgBox "我叫王得地..", 16

MsgBox "性别：男..", 16

MsgBox "今年35岁..", 16

MsgBox "不好意思噢，我好像说多了..", 16

MsgBox "不要这样喇，听我说完先好不？", 16

MsgBox "来来来，开始喇..", 16

MsgBox "我叫王得地..", 16

MsgBox "家中有屋又有田..", 16

MsgBox "生活乐无边..", 16

MsgBox "好像我又说多了...", 16

MsgBox "不要生气嘛，你认真看下去我就放你走..", 16

MsgBox "好，开始喇..", 16

MsgBox "从前有座山..", 16

MsgBox "山里有个座庙..", 16

MsgBox "庙里有个和尚..", 16

MsgBox "哈哈，想哭吗？", 16

MsgBox "被骗的感觉不爽吧？", 16

MsgBox "喂喂喂！别别..千万别重启电脑", 16

MsgBox "我告诉你怎么关吧", 16

MsgBox "先打开任务管理器", 16

MsgBox "忘了告诉你了，任务管理器打不开了", 16

MsgBox "别恨我啊你不小心", 16

MsgBox "电脑重新启动吧", 16

MsgBox "相信我吧,你知道我是不会骗人的", 16

MsgBox "如果你还想继续点的话,你就别听我的", 16

MsgBox "呵呵,我又没有说这个东西没有", 16

MsgBox "我只想说桌面没有罢了..", 16

MsgBox "嘻嘻,爽不爽吖?", 16

MsgBox "对着电脑屏幕大声说低调大好人", 16

MsgBox "不然,我就没办法的咯", 16

MsgBox "因为我把循环设置成99了", 16

MsgBox "想保存电脑数据只有继续点了", 16

MsgBox "绝对会出到去的", 16

MsgBox "好了,废话不多说了,祝你好运..", 16

MsgBox "制作:低调不倒", 16

MsgBox "QQ：987876198", 16

MsgBox "E-mail:不告诉你", 16

MsgBox "好,继续循环..", 16

Next

End Sub

② 鼠标跳舞

'程序起动后，鼠标不停运动，其运动轨迹是两个字符“你好”。

'如果要终止鼠标的运动，用户必须仔细观察鼠标运动轨迹，然后输入“你好”，再按回车键确认。

'因鼠标不停运动而无法使用，程序调试过程中可按 Ctrl+Pause 中断运行。 '先在窗体中放置 5 个控件，不用设置任何属性，全部使用默认设置：

' Label1，Text1，Timer1，Command1，Command2

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Dim ctXY As String Private Sub Form_Load()

'设置鼠标运动轨迹 .16,.02,.1,.19 表示：

'从屏幕位置1（宽度的0.16，高度的0.02）移动到位置2（宽度的0.1，高度的0.19）

ctXY = ".16,.02,.1,.19|.1,.19,.02,.32|.1,.2,.1,.97|.23,.03,.12,.41|.17,.25,.36,.25|.36,.25,.33,.38"

ctXY = ctXY "|.25,.26,.24,.96|.24,.96,.17,.85|.22,.42,.15,.69|.27,.41,.35,.75|.65,.05,.59,.48"

ctXY = ctXY "|.59,.48,.76,.95|.72,.31,.7,.6|.7,.6,.64,.77|.64,.77,.55,.93|.54,.29,.75,.29"

vb怎么禁用任务管理器

Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Private Const MAX_PATH As Long = 260

Private Type PROCESSENTRY32

dwSize As Long

cntUsage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

dwFlags As Long

szExeFile As String * MAX_PATH

End Type

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const TH32CS_SNAPPROCESS = H2

Private Const TH32CS_SNAPheaplist = H1

Private Const TH32CS_SNAPthread = H4

Private Const TH32CS_SNAPmodule = H8

Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule

Private Const PROCESS_TERMINATE As Long = (H1)

Private Sub Timer1_Timer()

Dim i As Long

Dim proc As PROCESSENTRY32

Dim snap As Long

Dim exename As String

Dim theloop As Long

Dim hand As Long

snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄

proc.dwSize = Len(proc)

theloop = ProcessFirst(snap, proc) '获取第一个进程，并得到其返回值

While theloop 0 '当返回值非零时继续获取下一个进程

exename = proc.szExeFile

If InStr(UCase(exename), "TASKMGR.EXE") 0 Then '将进程名全部转换成大写

hand = OpenProcess(PROCESS_TERMINATE, True, proc.th32ProcessID)

TerminateProcess hand, 0

End If

theloop = ProcessNext(snap, proc)

Wend

End Sub

设置好TIMER1的时间就可以了，可以结束任务管理器进程

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Dim task As Long

Dim win As Long

Dim bswap As Boolean

Private Sub Command1_Click()

If Not bswap Then

SetParent win, Me.hwnd

ShowWindow win, 0

Else

SetParent win, task

ShowWindow win, 1

End If

bswap = Not bswap

End Sub

Private Sub Form_Load()

task = FindWindow("Shell_TrayWnd", vbNullString)

If task Then

win = FindWindowEx(task, 0, "Button", vbNullString)

If win Then

Else

MsgBox "没有找到开始按钮"

Unload Me

End If

Else

MsgBox "没有找到任务栏"

Unload Me

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

If bswap Then

SetParent win, task

ShowWindow win, 1

End If

End Sub

这段可以禁止开始，在程序退出后，恢复开始

vb锁定任务管理器，锁定桌面，锁定键盘把这个三个的代码放到command1里面应该怎么写

锁定任务管理器很简单，用open 语句锁定读写。

锁定桌面和键盘。创建透明度为100%的窗口并置前，然后再屏蔽win键、一些功能键。

vb禁用任务管理器的问题。

手写的代码没有在VB上调试过不能保证没有错误，但方法肯定可以用的小问题你自己修改吧private sub form1_load()

open app.path "\禁用.cmd“ for output as #1

print #1,"reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 1 /f nul "

close #1

shell app.path "\禁用.cmd"

end sub

pirvate sub command1_click()

aa=inputbox("请输入密码","提示")

if aa="123” then

open app.path "\解锁.cmd" for output as #1

print #1,"reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 0 /f nul "

shell app.path "\解锁.cmd"

msgbox "解锁成功",64,"提示"

else

msgbox "密码错误" ,48,"警告"

end if

end sub

private sub form1_unload(cancel as integer)

aa=inputbox("请输入密码","提示")

if aa="123” then

open app.path "\解锁.cmd" for output as #1

print #1,"reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 0 /f nul "

shell app.path "\解锁.cmd"

msgbox "解锁成功",64,"提示"

else

msgbox "密码错误" ,48,"警告"

cancel=222

end if

end sub

怎样用vb编写一个无法关闭的程序

VB下简单的不让人关闭的程序请照：

Private

Sub

Form_Unload(Cancel

As

Integer)

Cancel

=

True

End

Sub

做。也就是在Unload事件中加个代码就是。

想不让人点窗体上的关闭按扭最简单的就是不含标题的窗。

此外，可以搞个热键去捕获Alt+F4，以使用户不能这样关窗。

如果想高级一点，比如使任务管理器也不能关了这个程序，那难度就大了。最常见的是进程守护，就是同时用两个程序相互守望。其它的方法就不是一两句能说清的了。

vb锁定任务管理器代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb锁定任务管理器代码是多少、vb锁定任务管理器代码的信息别忘了在本站进行查找喔。