salve a tutti!
ho bisogno di monitorare le finestre di window che sono al momento in esecuzione.
ho bisogno di poter prendere una di esse e andarci a scrivere dentro.
ho fatto questo programma che prende la finestra attiva e ci va a scrivere dentro.
non funziona, contro ogni logica.
qualcuno sa dirmi il perchè? e magari come cacchiarola si fa?
date un'occhiata al codice.
inserite il codice in un form.
dovete solo mettere un controllo timer.
Option Explicit
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Sub Form_Load()
Timer1.Interval = 900
End Sub
Private Sub Timer1_Timer()
Dim finatt As Long, fjk As Long, j As Long, i As Long
finatt = GetActiveWindow
fjk = GetDC(finatt)
For j = 1 To 100
For i = 1 To 100
Call SetPixel(fjk, i, j, IIf(Second(Now) Mod 2 = 0, vbGreen, vbYellow))
Next i
Next j
End Sub
cortesi saluti,
mauro v.
======================
Rispondi quotando
