GetModuleHandle VB声明 
Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long 
说明 
获取一个应用程序或动态链接库的模块句柄 
返回值 
Long,如执行成功成功,则返回模块句柄。零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
lpModuleName String,指定模块名,这通常是与模块的文件名相同的一个名字。例如,NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD 
注解 
只有在当前进程的场景中,这个句柄才会有效
 

解决方案 »

  1.   

    TerminateProcess VB声明 
    Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long 
    说明 
    结束一个进程 
    在VB里使用 
    可以使用,但尽量不用 
    返回值 
    Long,非零表示成功,零表示失败。会设置GetLastError 
    参数表 
    参数 类型及说明 
    hProcess Long,指定要中断的一个进程的句柄 
    uExitCode Long,进程的一个退出代码 
      

  2.   

    EnumWindows VB声明 
    Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) 
    说明 
    枚举窗口列表中的所有父窗口(顶级和被所有窗口) 
    返回值 
    Long,非零表示成功,零表示失败 
    参数表 
    参数 类型及说明 
    lpEnumFunc Long,指向为每个子窗口都调用的一个函数的指针。用AddressOf运算符获得函数在标准模式下的地址 
    lParam Long,在枚举期间,传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的 
    注解 
    我的理解——在随vb5同时提供的api32.txt文件中,找不到这个函数GetWindowText VB声明 
    Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 
    说明 
    取得一个窗体的标题(caption)文字,或者一个控件的内容(在vb里使用:使用vb窗体或控件的caption或text属性) 
    返回值 
    Long,复制到lpString的字串长度;不包括空中止字符。会设置GetLastError 
    参数表 
    参数 类型及说明 
    hwnd Long,欲获取文字的那个窗口的句柄 
    lpString String,预定义的一个缓冲区,至少有cch+1个字符大小;随同窗口文字载入 
    cch Long,lpString缓冲区的长度 
    注解 
    不能用它从另一个应用程序的编辑控件中获取文字SendMessage, SendMessageBynum, SendMessageByString VB声明 
    Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
    Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
    Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) 
    说明 
    调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, SendMessageByString是该函数的“类型安全”声明形式 
    返回值 
    Long,由具体的消息决定 
    参数表 
    参数 类型及说明 
    hwnd Long,要接收消息的那个窗口的句柄 
    wMsg Long,消息的标识符 
    wParam Long,具体取决于消息 
    lParam Any,具体取决于消息 这三个API可以实现你的要求。
    SendMessage app_hWnd, WM_CLOSE, 0, 0