Version 2
Thread ID = Take process thread identifier_ (Hypertext browse box 1. Take window handle (), process ID) hook handle = set system hook_ (7, & hook function, 0, thread ID)
.subroutine hook function, integer type .parameter hook code, integer type .Parameter Parameter 1, integer type .Parameter Parameter 2, integer type .local variable focus handle, integer type .local variable class name, text type
Class Name = Take Blank Text (255) Focus Handle = Get Focus Window_ () Get Class Name_ (Focus Handle, Class Name, 256) If true (class name = "Internet Explorer_Server" and parameter one = 517) Back (1) If it really ends Return (call next hook_ (hook handle, hook code, argument one, argument two))
|