VBS（VBScript）中有没
应该是不行的，需要调用WinAPI函数钩子函数(HOOK Function)，vbs不能实现
但是VB是可以的
一）钩子函数(HOOK Function)的格式。Hook Function实际上是一个函数，如果是系统钩子，该函数必须放在动态链接库中。 该函数有一定的参数格式，在VB中如下:
Private Function HookFunc(ByVal nCode As Long，ByVal wParam As Long，ByVal lParam As Long)As Long
其中，nCode代表是什么情况之下所产生的钩子，随钩子的不同而有不同组的可能值；参数wParam，lPar...全部
应该是不行的，需要调用WinAPI函数钩子函数(HOOK Function)，vbs不能实现
但是VB是可以的
一）钩子函数(HOOK Function)的格式。Hook Function实际上是一个函数，如果是系统钩子，该函数必须放在动态链接库中。
该函数有一定的参数格式，在VB中如下:
Private Function HookFunc(ByVal nCode As Long，ByVal wParam As Long，ByVal lParam As Long)As Long
其中，nCode代表是什么情况之下所产生的钩子，随钩子的不同而有不同组的可能值；参数wParam，lParam传回值包括了所监视到的消息内容，它随Hook所监视消息的种类和nCode的值不同而不同。
对于用VB所设置的钩子函数,一般的框架形式如下:
Private Function HookFunc(ByVal nCode As Long，ByVal wParam As Long，ByVal lParam As Long)As Long
Select case of nCode
case ncode<0:hookfunc=callnexthookex(hHookFunc，nCode，wParam，lParam)
case值1:处理过程1:HookFunc=X1
case2:处理过程2:HookFunc=X1
……
end select
end Function
函数的传回值，如果消息要被处理，则传0，否则传1，吃掉消息。
（二）钩子的安装及执行。钩子的安装要用到几个API函数:可以使用API函数SetWindowsHookEx()把一个应用程序定义的钩子子程安装到钩子链表中。SetWindowsHookEx()函数的声明如下:
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
idHook值为它处理的消息类型；lpfn值为钩子子程序的地址指针。
如果dwThreadId参数为0或是一个由别的进程创建的线程的标识，lpfn必须指向DLL中的钩子子程。除此以外，lpfn可以指向当前进程的一段钩子子程代码。hMod值为应用程序的句柄，标识包含lpfn所指的子程的DLL。
如果dwThreadId标识当前进程创建的一个线程，而且子程代码位于当前进程，hMod必须为0。dwThreadId值为与安装的钩子子程相关联的线程的标识符，如果为0，钩子子程与所有的线程关联。
钩子安装成功则返回钩子子程的句柄，失败返回0。
另外，一般应在钩子子程中调用CallNextHookEx()函数以执行钩子链表所指的下一个钩子子程，否则安装了别的钩子的应用程序就会收不到钩子通知，从而产生错误的结果。
CallNextHookEx()函数的声明如下:
Declare Function CallNextHookEx Lib"user32" Alias "CallNextHookEx"(ByVal hHook As Long，ByVal ncode As Lonog， ByVal wParam As Long，lParam As Any)As Long
hHook值是SetWindowsHookEx()的传回值，nCode、wParam、lParam则是Hook函数中的三个参数。
在程序终止之前，必须调用UnhookWindowsHookEx()函数释放与钩子关联的系统资源。UnhookWindowsEx()函数声明如下:
Declare Function Unhook WindowsHookEx Lib "user32" Alias "Unhook WindowsHookEx(ByVal hHook As Long)As Long
hHook为安装钩子时的返回值，即钩子子程的句柄。
（三）VB中钩子安装应注意的问题。lpfn参数是一个HookFunc的地址,VB规定必须将HookFunc代码放到标准的。BAS模块中，并以"Address Of HookFunc"传入，而不可以将其放到类模块中，也不能将其附加到窗体上。
而对于RemoteHook来说，HookFunc应包含在动态链接库中，因此如果在VB中使用RemoteHook，则还要用到GetModuleHandle()、GetProcAddress()两个API函数,它们的声明如下:
Declare Function GetModuleHandle Lib"kernel32" Alias "GetModuleHandleA"（ByVal lpModuleName As String）As Long
Declare Function GetProcAddress Lib "kernel32" Alias "GetProcAddress"（ByVal hModule As Long，ByVal lpProcName As String）As Long
hmod值是含钩子过程的模块名柄，如果是LocalHook，该值可以是Null(VB中传0)，而如果是RemoteHook，则可以使用GetModuleHandle("名称。
dll")来传入。
你可以试试用VBS能不能使用。收起
