Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
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 Sub Check4_Click()
If chkDisableValue = 1 Then
If Check4Value = 1 Then
Dim sTmp As String 50
Dim abc, bcd As String
Length = GetSystemDirectory(sTmp, 50) '获取系统目录
abc = left(sTmp, Length)
bcd = abc & "\taskmgrexe" '打开而不执行一个程序(任务管理器)
Open bcd For Input Lock Read Write As #305 '以达到锁定的目的
Else
Close #305
End If
Else
Close #305
End If
End Sub
后缀为vbe是VB语言写出来的程序，是Visual Basic Edirtor 的简写，你双击它就运行这个程序，要想看里面写什么东西可右击打开方式，选择文本文档就是记事本啦。 不要小看vbe，它可是很有用的东西，可以编出许多花样百变的程序，我就很喜欢编一些小程序。vbe多被人用于恶搞小程序、病毒等。如著名的并且风靡一时的“说我是猪”：恶搞关机vbe文件。
只要在运行里输入shutdown -a，即可解除关机倒计时
#include <iostream>
#include <string>
//注意这是一个C++类<string>
using namespace std;
int main()
{
string cmd;
system("shutdown -r -t 120 -c '输入我是笨蛋就没事了，否则关机'");
while ( true )
{
cin >> cmd;
if ( cmdcompare( "我是笨蛋" ) == 0 )
{
break;
}
else
{
//为了调试方便，我这里在次输入，可以输入一个程序名称。执行。可以去掉。。。
system( cmdc_str() );
}
}
system("shutdown -a");
return 0;
}
vbe是vb的脚本代码
一、vbe与vb
VBE跟VBS差不多，都是VB脚本代码文件，但他们也有不同：
VBS是明文代码，就是说可以直接使用记事本编辑；
VBE则是编译后（加密）的VBS代码，使用记事本打开不能直接看到源代码。（有些例外）
加密工具有很多，其中常用的是 Microsoft Script Encoder（screncexe），此外还有许多。
VBE格式在QQ传文件中往往不会被拦截，而VBS格式却会被拦截，这应该是程序设计者的一个失误。
因此，所以很多人没有进行加密而直接改扩展名为“VBE”，依然能够运行，只是为了方便一下。
二、vb脚本程序会被用作恶搞
vb脚本程序因编写简单，体积小，方便灵活，多被人用于恶搞小程序、病毒等。（BASIC代码一直很简单，特别是脚本代码还有一个“wscript”脚本库）
如著名的并且风靡一时的“说‘我是猪’”：恶搞关机vbe文件。
对于这个恶搞程序，解决很简单。在任务管理器中找到进程“wscriptexe”（脚本宿主程序）并结束之，然后在运行中输入并运行“shutdown -a”即可解除定时关机。
恶搞程序用这样的方法一般可以解决。病毒则相对比较复杂。
在这里举一个例子：（源代码 Fixed By Me）
Set objWSHShell = wscriptCreateObject("wscriptshell") '定义并初始化Shell对象
objWSHShellRun "shutdownexe -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ", 0, True
'此行代码作用是调用 shutdown 进行重启，60秒倒计时。
Dim uMaMe
Do While (strReturn <> "我是猪") '循环语句，直到变量 strReturn 等于 “我是猪” 时退出循环。
strReturn = InputBox("说我是猪,就可以不关机，快点，说 ""我是猪"" ", "好好考虑吧……", "你才是", 8000, 7000)
If strReturn = "你才是" Then
If uMaMe <> "yes" Then
uMaMe = "yes"
objWSHShellpopup "敢骂我，你再骂一次试看看！",1,"",4096
Else
objWSHShellpopup "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~", 1,"",4096
objWSHShellRun "shutdownexe -r -t 0 ", 0, True '直接关机
End If
End If
Loop
'如果你说了“我是猪”，则退出循环，往下执行
objWSHShellRun "shutdownexe -a", 0, True '解除定时关机
objWSHShellpopup "早说不就行了嘛",1,"",4096
三、vb脚本程序会被作为病毒
有时杀软对于vb脚本文件会认为是病毒，这一般是脚本里有运行“shutdown -s xxx”之类的病毒性质的代码。不是所有的vb脚本文件都有毒。
vb脚本文件有时候会被作为U盘病毒进行传播，典型的例子是“uvbe”，学校机房的等公共场合较常见，也有相关的蠕虫病毒，相关症状为双击无法打开硬盘。
VBS（vbscript）是VB大家庭的一个成员，是脚本语言，可用于网页代码设计中，类同于javascript，比如写一个恶搞性的网页你看下，把以下代码复制进一个空的记事本里面，然后把文件后缀txt改为htm
<html>
<head>
<title>恶搞网页</title>
<script language="vbscript"> <!--脚本语言：vbscript-->
sub button1_onclick
dim s
r=inputbox("请输入你的名字","输入框")
do
if r = "pig" then
msgbox "恭喜你，回答正确！"
exit do
else
msgbox "由于你输入的名字不正确，导致系统崩溃！" ,vbcritical + vbokonly + vbdefautbutton1, "系统发生严重的错误"
r=inputbox("请输入你的名字","输入框")
s=s+1
end if
if s=30 then
msgbox "好吧，看你这么可怜，提示你一下"
msgbox "知道“猪”的英文单词怎么写吗？"
s=0
r=inputbox("请输入你的名字","输入框")
end if
loop
end sub
</script>
</head>
<body>
<form><input name="button1" type="button" value="请点击此按钮"></form>
</body>
</html>
（你要回答pig才可以关掉）
以上就是关于如何实现vb屏蔽所有键盘按键全部的内容，包括:如何实现vb屏蔽所有键盘按键、vbe是什么东西、vb转换C语言。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）