Problem mit PExec

[Jac de Lad]

Warum funktioniert das folgende Programm, wenn ich in das erste Feld der Statusleiste was schreiben will, aber bei den anderen Feldern nicht? Bzw., wie würde das funktionieren?

proc Callback
parameters st&
messagebox(ClassOf(st&),"",0)
while 1
SetText st&,Str$(&GetTickCount)
Sleep 100
endwhile
endproc

cls
declare b#
dim b#,8
Long b#,0=100,100
var st&=Create("StatusWindow",%hWnd,"",2,b#)
Dispose b#
var h&=PExec("|Callback",st&)
Print ClassOf(st&)
waitinput
KillProcess h&
progend

Jac

[Bangkok]

Normalerweise sollte es ja so aussehen

SetText st&,0,Str$(&GetTickCount)
SetText st&,1,Str$(&GetTickCount)

das Feld 0 funktioniert auch aber das Feld 1 nicht, auch wenn man es ohne den Prozess verwendet. Scheint ein Fehler in Profan vorzuliegen.

Bei der Gelegenheit ist mir aufgefallen, das Pexec eine gefährliche Funktion ist. Ich hatte beim Testen in der Callback Proc einen Fehler produziert und der war nicht mehr zu stoppen, da der Thread trotz des Fehlers munter weiter aufgerufen wird. Das Programm war nicht mehr zu beenden.

[Bangkok]

Du hast auch einen Fehler im Create, muss so aussehen

declare b#
dim b#,8
Long b#,0 = 100,200
var st&=Create("StatusWindow",%hWnd,"",2,b#)
Dispose b#

kannst nicht 100,100 schreiben, mir 200 gehts

[Jac de Lad]

Argh, stimmt. Das erste war ein Fehler meinerseits, das hatte ich auch schon mit dem zusätzlichen Parameter probiert, ging aber trotzdem nicht. Beim zweiten habe ich nicht daran gedacht, dass dort absolute Koordinaten genommen werden, was ja meist unüblich ist. Ich probier gleich nochmal vor mich hin.

Danke,
Jac

Nachtrag:

proc Callback
parameters st&
messagebox(ClassOf(st&),"",0)
while 1
SetText st&,1,Str$(&GetTickCount)
Sleep 100
endwhile
endproc

cls
declare b#
dim b#,8
Long b#,0=100,200
var st&=Create("StatusWindow",%hWnd,"",2,b#)
Dispose b#
var h&=PExec("|Callback",st&)
Print ClassOf(st&)
waitinput
KillProcess h&
progend

Funktioniert aber leider auch nicht.

[Bangkok]

Kannst du das mal bei dir testen, bei mir gibt es die seltsamsten Ergebnisse, manchmal werden irgendwelche Zeichen angezeigt, aber nie die richtigen, manchmal wird gar nichts angezeigt und manchmal stürzt alles ab.

proc Callback
parameters Hwnd&,st&
settext hwnd&,ClassOf(st&)
var w& = 1
Window 1,1-200,100
while w&
w& = external("User32","IsWindow",Hwnd&)
SetText st&,0,dt("getdate", 6)
SetText st&,1,Str$(&GetTickCount)
SetText st&,2,dt("getdate", 6)
Print "Ich bin noch hier"
Sleep 200
endwhile
end
endproc

Windowstyle 31 + 512
window 600,300
var ende% = 0
declare b#
dim b#,12
Long b#,0=100,300,-1
var st&=Create("StatusWindow",%hWnd,"",3,b#)
Dispose b#
var h&=PExec("|Callback",%Hwnd,st&)
Print ClassOf(st&)
whilenot ende%
    waitinput
    ende% = 1
  endwhile
end

Ich habe immer den Taskmanager laufen, wenn es abstürzt ist es auf normalem Weg nicht mehr zu stoppen, nur über Processe im Taskmanger.
Ich denke die Sache ist noch nicht rund

[Jac de Lad]

Ja, ich hatte auch schon seltsame Einträge aus irgendwelchen Listboxen und so.

[RGH]

Hallo,
so wie es aussieht, gibt es Controls und Messages (und hinter SetText verbergen sich je nach Ziel-Control unterschiedliche Messages), die sich nicht zwischen verschiedenen Prozessen versenden lassen. SetText() auf eine Statuszeile eines fremden Prozesses gehört offensichtlich dazu.

Gruß
Roland

[Jac de Lad]

Das ist sehr schade, besonders weil es mit der SetTimer-API funktioniert hat. Ich weiß, dort funktionierts ein wenig anders. Damit ist PExec wohl doch nicht ganz so gut wie gedacht.

[RGH]

Zitat von Jac de Lad

Das ist sehr schade, besonders weil es mit der SetTimer-API funktioniert hat. Ich weiß, dort funktionierts ein wenig anders. Damit ist PExec wohl doch nicht ganz so gut wie gedacht.

Noch bestehen Chancen, dass ich da etwas ändern kann. Ich würde es auch gerne sehen, wenn gerade SetText mit möglichst vielen Controls Prozess-sicher wäre.

Ich hoffe, beim zum XProfaner-Treffen einen Release-Kandidaten von XProfan 12 mitzubringen.

Gruß
Roland

[Andreas Miethe]

Zitat von RGH

Noch bestehen Chancen, dass ich da etwas ändern kann. Ich würde es auch gerne sehen, wenn gerade SetText mit möglichst vielen Controls Prozess-sicher wäre.

Ich fürchte das wird mit Statusbars nicht einfach werden.

WM_SETTEXT würde noch gehen für das linke Panel, aber
Messages ( Sendmessage ) kanst Du wohl nur per DLL und Hook versenden.
Soll heissen :
Du musst die Dll in das laufende Programm injizieren und aus der Dll heraus Sendmessage(SB_SETTEXT) aufrufen.

So wird das wahrscheinlich mit allen Controls laufen, bei denen Settext nicht WM_SETTEXT benutzt.

[Andreas Miethe]

Geht doch ohne Hook, aber einfach ist es trotzden nicht. Du musst Dich schon in den Process einklinken. Sollte aber auch mit Delphi möglich sein.

$H messages.ph

Proc Callback
ImportDll("Kernel32.dll","")
Parameters PID&,Hwnd&,st&
Declare remote_process&,remote_struct&,res&

settext hwnd&,ClassOf(st&)
var w& = 1
Var T$ = ""
Var text$ = "irgendwas"
Window 1,1-200,100
While external("User32","IsWindow",Hwnd&)

'Panel 0
t$ = dt("getdate", 6)
sendmessage(st&,~WM_SETTEXT,0,addr(t$))

'ab hier werden die anderen Panels bestückt !
'Panel 1
remote_process& = OpenProcess($38,0,pid&)
remote_struct& = VirtualAllocEx(remote_process&,0,len(Text$),$1000,$4)
res& = WriteProcessMemory(remote_process&,remote_struct&,addr(Text$),len(Text$),0)
SendMessage(st&,1025,1,remote_struct&)'SB_SETTEXT
VirtualFreeEx(remote_process&,remote_struct&,0,$8000 )
CloseHandle(remote_process&)

'Panel 2
remote_process& = OpenProcess($38,0,pid&)
remote_struct& = VirtualAllocEx(remote_process&,0,len(T$),$1000,$4)
res& = WriteProcessMemory(remote_process&,remote_struct&,addr(T$),len(T$),0)
SendMessage(st&,1025,2,remote_struct&)'SB_SETTEXT
VirtualFreeEx(remote_process&,remote_struct&,0,$8000 )
CloseHandle(remote_process&)


Waitinput 1000
endwhile
end
endproc

Windowstyle 31 + 512
window 600,300
var ende% = 0
declare b#
dim b#,12
Long b#,0=200,300,-1
var st&=Create("StatusWindow",%hWnd,"",3,b#)
Dispose b#
var h&=PExec("|Callback",&PID,%Hwnd,st&)
Print ClassOf(st&)
whilenot ende%
    waitinput
    ende% = 1
  endwhile
End

[Andreas Miethe]

Und so geht es ohne die PID und %hwnd zu übergeben.

$H windows.ph
$H messages.ph

Proc Callback
ImportDll("Kernel32.dll","")
Parameters st&
Declare remote_process&,remote_struct&,res&

'ProcessID von Fensterhandle
Declare PID&,hwnd&
'Elternfenster von Statusbar
hwnd& = ~GetParent(st&)
~GetWindowThreadProcessId(hwnd&,Addr(PID&))

settext hwnd&,ClassOf(st&)
var w& = 1
Var T$ = ""
Var T1$ = ""
Var text$ = "irgendwas"
Window 1,1-200,100
While external("User32","IsWindow",Hwnd&)

'Panel 0
t$ = dt("getdate", 2)
sendmessage(st&,~WM_SETTEXT,0,addr(t$))

'ab hier werden die anderen Panels bestückt !
'Panel 1
remote_process& = OpenProcess($38,0,pid&)
remote_struct& = VirtualAllocEx(remote_process&,0,len(Text$),$1000,$4)
res& = WriteProcessMemory(remote_process&,remote_struct&,addr(Text$),len(Text$),0)
SendMessage(st&,1025,1,remote_struct&)'SB_SETTEXT
VirtualFreeEx(remote_process&,remote_struct&,0,$8000 )
CloseHandle(remote_process&)

'Panel 2
t1$ = right$(dt("getdate", 6),8)
remote_process& = OpenProcess($38,0,pid&)
remote_struct& = VirtualAllocEx(remote_process&,0,len(T1$),$1000,$4)
res& = WriteProcessMemory(remote_process&,remote_struct&,addr(T1$),len(T1$),0)
SendMessage(st&,1025,2,remote_struct&)'SB_SETTEXT
VirtualFreeEx(remote_process&,remote_struct&,0,$8000 )
CloseHandle(remote_process&)

Waitinput 1000
endwhile
end
endproc

Windowstyle 31 + 512
window 600,300
var ende% = 0
declare b#
dim b#,12
Long b#,0=200,300,-1
var st&=Create("StatusWindow",%hWnd,"",3,b#)
Dispose b#
var h&=PExec("|Callback",st&)
whilenot ende%
    waitinput
    ende% = 1
  endwhile
End

[Jac de Lad]

Wow, das ist beeindruckend. Ich warte mal auf Rolands Antwort.

[p. specht]

Geht PExec schon in XPro11.2a? Bei mir kommt "Unbekannte Funktion"...
Wie wäre das dort nachzubauen?

[RGH]

Tja, das ist so eine Sache. Natürlich kann man Andreas' Vorlage in seinem Programm folgen.
Aber wie ich Jac kenne, hätte er gerne, dass XProfan die Arbeit für ihn erledigt.
Das ist natürlich nicht ganz ohne, denn SetText weiß ja nicht, dass der erste Parameter das Control eines anderen Prozesses ist.
Natürlich könnte ich jetzt immer abfragen, ob die PID des Controls mit der PID des aktuellen Prozesses übereinstimmt ...
Und wenn ich das für SetText einbaue, dann kommen weitere Begehrlichkeiten, deren Ende unabsehbar ist ...
Ich muss mal drüber nachdenken, ob mir da eine praktikable und in endlicher Zeit einbaubare Lösung einfällt ...

Gruß
Roland