form1.frm

我想学习一下其他的编程工具.希望能得到帐号

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3570
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3570
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "About Dll"
      Height          =   495
      Left            =   720
      TabIndex        =   1
      Top             =   3000
      Width           =   3255
   End
   Begin VB.ListBox List1 
      Height          =   2580
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   4095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------------
' 本文出自 vBin 的水色银光站。
' 站址：Http://www.vbin.org
' 邮件：[e-mail]
' 本程序最好生成EXE文件后，单独运行EXE文件调试！否则可能会出错，原因我暂时没找出来。
' 可能是因为我VB的问题，因为我VB安装完毕后，提示我“安装失败！“
'---------------------------------------------------------------------------------------------
Option Explicit

Private Sub Command1_Click()
 vAboutHook
End Sub

Private Sub Form_Load()
  On Error GoTo Exit_Label
  '------------------------------------------ 出错退出
  InstallHook Me.hWnd, WM_KEYBOARD
  '------------------------------------------ 安装钩子
  PrevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
  '------------------------------------------ 保存原窗口函数地址
  SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
  '------------------------------------------ 设置新的窗口函数地址
  Exit Sub
Exit_Label:
  MsgBox "出错！"
  '------------------------------------------ 出错退出
End Sub

Private Sub Form_Unload(Cancel As Integer)
    UninstallHook
    '------------------------------------------ 卸载钩子
    SetWindowLong Me.hWnd, GWL_WNDPROC, PrevWndProc
    '------------------------------------------ 恢复原窗口函数地址
End Sub