开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 钩子与API截获 > 查看源码
Form1.frm
资源名称：cs8_gl3.rar　[点击查看]
上传用户：hylsl0102
上传日期：2022-03-20
资源大小：3k
文件大小：1k
源码类别：

钩子与API截获

开发平台：

Visual Basic

Form1.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5340
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   13230
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   5340
  10.    ScaleWidth      =   13230
  11.    StartUpPosition =   3  '窗口缺省
  12.    Begin VB.TextBox Text1 
  13.       Height          =   375
  14.       Left            =   600
  15.       TabIndex        =   1
  16.       Top             =   4680
  17.       Width           =   2055
  18.    End
  19.    Begin VB.PictureBox Picture1 
  20.       Height          =   3855
  21.       Left            =   720
  22.       ScaleHeight     =   3795
  23.       ScaleWidth      =   10635
  24.       TabIndex        =   0
  25.       Top             =   480
  26.       Width           =   10695
  27.    End
  28. End
  29. Attribute VB_Name = "Form1"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34. Private Sub Form_Load()
  35.     Text1 = 0
  36.     '取得Text1控件的句柄
  37.     hwndTextBox = Text1.hwnd
  38.     hwndPict = Picture1.hwnd
  39.     '保存Text1控件的默认窗口消息处理函数地址
  40.     OldWindowProc = GetWindowLong(Text1.hwnd, GWL_WNDPROC)
  41.     OldWindowProc1 = GetWindowLong(Picture1.hwnd, GWL_WNDPROC)
  42.     '将Text1控件的消息处理函数指定为自定义函数NewWindowProc
  43.     Call SetWindowLong(Picture1.hwnd, GWL_WNDPROC, AddressOf NewWindowProc)
  44.     Call SetWindowLong(Text1.hwnd, GWL_WNDPROC, AddressOf NewWindowProc)
  45. End Sub