Version 2
Tråd-ID = Ta processtråd identifier_ (Hypertext-bläddrarutan 1. Ta fönsterhandtag (), process-ID) hook handle = sätt system hook_ (7, & hook function, 0, tråd-ID)
.subrutin hook-funktion, heltalstyp .parameter hook-kod, heltalstyp .Parameter Parameter 1, heltalstyp .Parameter Parameter 2, heltalstyp .lokal variabel fokushandtag, heltalstyp .lokal variabel klassnamn, texttyp
Klassnamn = Ta tom text (255) Fokushandtag = Få Fokus Window_ () Få klass Name_ (fokushandtag, klassnamn, 256) Om sant (klassnamn = "Internet Explorer_Server" och parameter ett = 517) Tillbaka (1) Om det verkligen tar slut Return (anropa nästa hook_ (hook handle, hook code, argument ett, argument två))
|