WindowFromPoint_() geändert?[Erledigt]

[Falko]

Code: Alles auswählen

; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=906&highlight=
; Author: Volker (updated for PB 4.00 by Andre)
; Date: 06. May 2003
; OS: Windows
; Demo: No


; Klartext 
; 
; ändert die EM_SETPASSWORDCHAR-Eigenschaft eines Textfeldes via API, 
; so dass das Auslesen des Passwortes im Klartext möglich wird. 
; Nach dem Start den Cursor über ein Passwort-Textfeld bewegen. 
; 
; 06.05.2003 Volker 
; Change for PB5Beta8 and Windows 8 , 31.10.2012

#SWP_NOMOVE = $2 
#SWP_NOSIZE = $1 
#HWND_TOPMOST = -1 
#HWND_NOTOPMOST = -2 

#EM_SETPASSWORDCHAR = $CC 

#Text1 = 1 
#Label2 = 2 



Structure POINTAPI 
  X.l 
  Y.l 
EndStructure 
Global hwnd.l, Title.s

;/////////////////////////////////////////////////////////// 
Procedure getWindowUM() 
  ;/////////////////////////////////////////////////////////// 
  Global Dim P.POINTAPI(1) 
  lo.l 

  
  ;Cursorposition auslesen 
  GetCursorPos_(P(0)) 
  
  ;Das entsprechende Fenster finden 
  ;lo = WindowFromPoint_(P(0)\X , P(0)\Y) 
  lo = WindowFromPoint_(P(0)\X | P(0)\Y << 32) 
  
  ;Den Titel auslesen 
  Title = Str(GetWindowTextLength_(lo)) 
  GetWindowText_ (lo, Title, 100) 
  
  ;Ergebnis anzeigen 
  SetGadgetText (#Text1, Title) 
  
  ;Den Passwortcharacter entfernen 
  SendMessage_ (lo, #EM_SETPASSWORDCHAR, 0, "") 

EndProcedure 


;/////////////////////////////////////////////////////////// 
Procedure Open_Window() 
  ;/////////////////////////////////////////////////////////// 
  hwnd = OpenWindow(#Label2, 352, 182, 270, 98, "Klartext", #PB_Window_MinimizeGadget |#PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar ) 
  ;If CreateGadgetList(WindowID(#Label2)) 
    StringGadget(#Text1, 10, 10, 250, 30, "") 
  ;EndIf 
EndProcedure 



;-Main //////////////////////////////////////////////////////////////////////////////// 

Open_Window() 

;Formular immer oben halten 
SetWindowPos_ (hwnd, #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE) 

Repeat 
  Event = WaitWindowEvent() 
  getWindowUM() 

Until Event = #PB_Event_CloseWindow 
End

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -
; EnableAsm

WindowFromPoint nochmal angepasst.

Im Foglendem mit Structure:

Code: Alles auswählen

; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=906&highlight=
; Author: Volker (updated for PB 4.00 by Andre)
; Date: 06. May 2003
; OS: Windows
; Demo: No

; WindowFromPoint neu angepasst von Falko
; Klartext
;
; ändert die EM_SETPASSWORDCHAR-Eigenschaft eines Textfeldes via API,
; so dass das Auslesen des Passwortes im Klartext möglich wird.
; Nach dem Start den Cursor über ein Passwort-Textfeld bewegen.
;
; 06.05.2003 Volker
; Source von Volker here:  http://www.purearea.net/pb/CodeArchiv/Encode+Decode/Password-Finder.pb
; 24.07.2011 Falko (change WindowFromPoint) PB5B7 http://www.purebasic.fr/german/viewtopic.php?f=6&t=23458
; Change for PB5Beta8 and Windows 8 , 31.10.2012



EnableExplicit


#SWP_NOMOVE = $2
#SWP_NOSIZE = $1
#HWND_TOPMOST = -1
#HWND_NOTOPMOST = -2

#EM_SETPASSWORDCHAR = $CC

#Text1 = 1
#Label2 = 2

Global hwnd.l
Define Event.l

Structure Point64
  StructureUnion
    p.POINT
    q.q  
  EndStructureUnion
EndStructure 
Global Title.s

;///////////////////////////////////////////////////////////
Procedure getWindowUM()
;///////////////////////////////////////////////////////////
  Protected cursor.POINT64, lo.l;, Title.s
  
  GetCursorPos_(@cursor.POINT64) 
  lo = WindowFromPoint_( cursor\q );Den Titel auslesen
  
  Title = Str(GetWindowTextLength_(lo))
  GetWindowText_ (lo, Title, 100)
   
  ;Ergebnis anzeigen
   SetGadgetText(#Text1, Title)
 
  ;Den Passwortcharacter entfernen
  SendMessage_ (lo, #EM_SETPASSWORDCHAR, 0, "")

EndProcedure


;///////////////////////////////////////////////////////////
Procedure Open_Window()
;///////////////////////////////////////////////////////////
  hwnd = OpenWindow(#Label2, 352, 182, 270, 98, "Klartext", #PB_Window_MinimizeGadget |#PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  StringGadget(#Text1, 10, 10, 250, 30, "")
EndProcedure



;-Main ////////////////////////////////////////////////////////////////////////////////

Open_Window()

;Formular immer oben halten
SetWindowPos_ (hwnd, #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE)

Repeat
  Event.l = WaitWindowEvent()
  getWindowUM()
Until Event = #PB_Event_CloseWindow

Gruß Falko

[Kiffi]

@Falko:

ts, ts, ts! Suchfunktion kaputt?

beispielsweise:
http://www.purebasic.fr/german/viewtopi ... FromPoint_

Grüße ... Kiffi

[Falko]

@Falko:

ts, ts, ts! Suchfunktion kaputt?

beispielsweise:
http://www.purebasic.fr/german/viewtopi ... FromPoint_

Grüße ... Kiffi

Danke , die Suchfunktion wohl nicht, aber die Emailbenachrichtigung

Zwar habe ich die Suchfunktion benutzt, aber diesen Thread leider nicht gesehen bzw. übersehen.

Also musste ich nur folgendes ersetzen:

;lo = WindowFromPoint_(P(0)\X,P(0)\Y); dieses ging so leider nicht
lo=WindowFromPoint_(P(0)\y<<32|P(0)\x)

Funktioniert prima.

Gruß Falko

[Regenduft]

Gehört der Thread nicht eher in "Betriebssystemspezifisch > Windows"?
Dieses Posting kann man gerne einfach löschen.

[Falko]

Ich habe den Source oben nochmal angepasst.

Gruß Falko

[ts-soft]

Ich habe den Source oben nochmal angepasst.

Gruß Falko

Was soll der Code den machen?
Mit den 2 Delays funktioniert ja erstmal garnichts

(wer proggt so einen scheiss zusammen ?)

[Falko]

Eigentlich soll er unter dem Mauscursor den Text auslesen.
Dieser sollte die Kennwörter im Klartext anzeigen, was aber
irgendwie nicht funktioniert.

Gruß, Falko

[Falko]

Könnte jemand die obigen beiden Codes unter Windows7 und kleiner mit PB5B7 probieren?
Bei mir unter Windows8 wird das Programm im Debugmodus zwar gestartet und für
kurze Zeit funktioniert es, aber dann kommt ein Speicherfehler. Als Exe wird es sofort
abgebrochen. Ich weiß nun nicht warum. Darum der Test. Ich habe auch ältere PB-Versioinen,
wie 4.60 und 4.51 unter Windows8 Pro probiert.

Man kann hiermit z.B. unter Outlook sein Passwort hinter den Asterix sichtbar machen, wenn man
es vergessen hat.

Gruß,
Falko

[Kiffi]

Könnte jemand die obigen beiden Codes unter Windows7 und kleiner mit PB5B7 probieren?

kein Absturz unter Windows Vista Business x86

(ist das so gewollt, dass der Fenster-Titel in der Textbox erscheint?)

Grüße ... Kiffi

[Falko]

Danke @Kiffi,
dann liegt das wohl an Windows 8.
Den Source habe ich so von Volker übernommen und damals schon angepasst,
wegen dem Point-problem. Darum habe ich an den Titel nichts geändert.
Wenn es damit zu tun haben könnte, probiere ich mal den wegzulassen
Da werde ich wohl heute Abend nach meiner Spätschicht erst weitermachen können.

Gruß,
Falko