| |
| |
|
 | ¡Hola Profaner...
Vorab una (bastante, bastante) kleiner Ausblick darauf, qué demnächst con el DACL_SET.INC posible ser se  .
Keine Angst, es nichts Gefährliches - tal vez (en cada Fall!) auch veces el Taskmanager benutzen?
Kommentar es erwünscht, Por favor, aber con Betriebssystemangabe!
Tarea: Bajo NT/2000/XP Programa ausschalten sin se abzumelden (es lösbar, quería no a schwierig hacer  ) oder el Button a drücken.
Bin gespannt...
Beste Grüße
AH |
 | 643 kB | | | Kurzbeschreibung: | Killme - versuch mich a töten! | | | Hochgeladen: | 05.09.2005 | | | Ladeanzahl: |  | | | Descargar |
|
| |
| |
| |
|
|
| PS: Das Programa ändert no Systemeinstellungen - sólo el des aktuellen Prozesses!
(viel Spaß)... |
|
| |
| |
| |
|
|
 | | Würde lo sí gerne testen - aber qué se Yo testen? |
|
| |
| |
| |
|
|
Rolf
Koch | @IF
Einfach Taskmanager aufmachen y versuchen (sin el Button a clic en el Anwendung) esta Anwendung a killen.
Danach veces el Button clic y luego killen.
@Andreas
Einwandfrei bajo WinXP Pro 
Rolf |
|
| |
| |
| |
|
|
| Nur si se ausschalten läßt, egal como (sólo Herunterfahren y Cancelar es no erlaubt).
Bajo Windows2000 sehe Yo como en el Augenblick todavía 2 Möglichkeiten - hay todavía mehr? Funktioniert lo bajo XP überhaupt???
PS: Button Drücken sólo en el Notfall! |
|
| |
| |
| |
|
|
| Nun - lo lässt se en me völlig problemlos como jede Anwendung con el Taskmanager terminieren. (WinXPHome)
Salve, IF. |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Andreas,
oder war Yo a voreilig?
Anwendung final se en no erlaubt hervorragend verboten.
Prozess final killt Su Anwendung trotz no erlaubt
Rolf |
|
| |
| |
| |
|
|
| OK, como se ejecuta also algo anders como bajo Windows2000 - Yo voluntad veces versuchen, el Handle anders a ermitteln...
Melde mich otra vez! |
|
| |
| |
| |
|
|
| So, ahora muß Yo sólo algo erklären:
Yo habe hier el aktuellen Prozess el Recht PROCESS_TERMINATE geklaut, y el para cada User (außer SYSTEM).
Egal como viele Rechte uno klaut, derjenige el el Eigentümer uno Objektes es (hier una Prozess) behält siempre el Rechte para Listen y Cambio el Zugriffsgerechtigungen (READ_CONTROL y WRITE_DAC). Bajo Windows2000 nutzt el Taskmanager esta el Eigentümer verbleibenden Rechte no, a Zugriffsrechte otra vez así a ändern, daß una Prozess darse por concluido kann - es entonces quasi para esta Prozess abgeschaltet (deshalb dieses Smily - como hatte MS qué vergessen).
Bajo XP scheint esta Unzulänglichkeit Fijo a ser - el heißt, el Taskmanager verschafft se scheinbar vorher otra vez mehr Rechte.
Versucht una vez, el Programa mittels des Kommandozeilenbefehls AT como Service en el Account Sistema a starten, entonces dürftet ihr sehen, Yo mi . |
|
| |
| |
| |
|
|
| Nochmals una Bitte:
Versucht veces, el Programa encima esta Code a starten y otra vez a final. Was passiert entonces?
KompilierenMarcaSeparaciónDef @CreateProcess(10) !"KERNEL32","CreateProcessA"
Def @GetExitCodeProcess(2) !"KERNEL32","GetExitCodeProcess"
Def @TerminateProcess(2) !"KERNEL32","TerminateProcess"
Declare Command#,StartupInfo#,ProcessInfo#,ExitCode#
Proc CreateProcess
Parameters command$
Declare handle&
Dim Command#,Add(Len(command$),1)
Dim StartupInfo#,68
Clear startupinfo#
Long StartupInfo#,0=68
Dim ProcessInfo#,16
Clear ProcessInfo#
String Command#,0=command$
@CreateProcess(0,Command#,0,0,0,0,0,0,StartupInfo#,ProcessInfo#)
Let handle&=Long(ProcessInfo#,0)
Dispose Command#
Dispose StartupInfo#
Dispose ProcessInfo#
Return handle&
EndProc
Proc KillProcess
Parameters hprocess&
Dim exitcode#,4
@GetExitCodeProcess(hprocess&,exitcode#)
@TerminateProcess(hprocess&,@Long(exitcode#,0))
Dispose exitcode#
EndProc
Declare Terminate&,Start&,Programm$
Windowstyle 31
WindowTitle "Process starten und killen"
Window 0,0-640,440
Let Start&=@CreateButton(%HWND,"Start",20,300,100,30)
Let Terminate&=@CreateButton(%HWND,"Terminate",200,300,100,30)
Enablewindow Terminate&,0
Enablewindow Start&,1
While 0=0
Waitinput
IF @Getfocus(Terminate&)
KillProcess @&(0)
Enablewindow Terminate&,0
Enablewindow Start&,1
ElseIF @Getfocus(Start&)
Let Programm$=@Loadfile$("Eine Anwendung auswählen:","Programme|*.EXE;*.COM;*.PIF;*.BAT")
IF Programm$<>""
CreateProcess Programm$,""
Enablewindow Terminate&,1
Enablewindow Start&,0
endif
Endif
<s=s4 href='./../../function-references/XProfan/wend/'>Wend
|
|
| |
| |
| |
|
|
| Duplicate Identifier Createprocess - schonmal schlecht.  [hr:5a5b330929]Aber auch así lässt se el Prog encima el Button oder el TM einfachst terminieren. 
Salve, IF.[hr:5a5b330929]PS: Ists correcto el Yo todos Su Programas con Profano²4 teste?  |
|
| |
| |
| |
|
|
| [quote:bc1c8f568c=iF]Duplicate Identifier Createprocess - schonmal schlecht. [hr:bc1c8f568c]Aber auch así lässt se el Prog encima el Button oder el TM einfachst terminieren.
[/quote:bc1c8f568c]
Au uno, bin Yo blöd .
Der SID es con diesem Handle sí todavía default - kann also nada ir - el Handle hole Yo sí antes el Cambio des SIDs.
Ist me gestern igual después de el Puesto aufgefallen .
Yo habe veces una neue Versión hochgeladen y dieser Ver código fuente dürfte para XP auch ir:
KompilierenMarcaSeparaciónDef @GetExitCodeProcess(2) !"KERNEL32","GetExitCodeProcess"
Def @TerminateProcess(2) !"KERNEL32","TerminateProcess"
DEF @GetWindowThreadProcessId(2) !"USER32","GetWindowThreadProcessId"
DEF @OpenProcess(3) !"KERNEL32","OpenProcess"
DEF @CloseHandle(1) !"KERNEL32","CloseHandle"
DEF @GetLastError(0) !"KERNEL32","GetLastError"
DEF @FormatMessage(7) !"KERNEL32","FormatMessageA"
Declare ExitCode#,PROCESS_ID&,Fenster&,PHandle&
Declare Terminate&,Fensterk_killen&,Programm$,Active&
Declare AHRückgabe&,AHGETERROR_Buffer#,AHGETERROR_Buffer$
Declare Fehler&
Proc KillProcess
Parameters hprocess&
Dim exitcode#,4
LET Fehler&=@GetExitCodeProcess(hprocess&,exitcode#)
Let Fehler&=@TerminateProcess(hprocess&,@Long(exitcode#,0))
IF Fehler&<>1
LET AHRückgabe&=@GetLastError()
DIM AHGETERROR_Buffer#,32000
@FormatMessage($1000,0,AHRückgabe&,0,AHGETERROR_Buffer#,32000,0) Wandelt Fehlercode in Landesspezifische Message um.
Let AHGETERROR_Buffer$=AHGETERROR_Buffer$+@STRING$(AHGETERROR_Buffer#,0)
Dispose AHGETERROR_Buffer#
@messagebox(AHGETERROR_Buffer$,"Fehlermeldung",16)
endif
Dispose exitcode#
EndProc
Windowstyle 31
WindowTitle "Process starten und killen"
Window 0,0-640,440
Let Fensterk_killen&=@CreateButton(%HWND,"Fenster killen",20,300,150,30)
Let Terminate&=@CreateButton(%HWND,"Prozess killen",300,300,150,30)
While 0=0
Waitinput
IF @Getfocus(Terminate&)
Clearlist
AddWindows ""
LET Programm$=@Listbox$("Fenster wählen",3)
IF Programm$<>""
Let Fenster&=@Findwindow(Programm$)
@GetWindowThreadProcessId(Fenster&,@ADDR(PROCESS_ID&))
LET PHandle&=@OpenProcess($401,0,PROCESS_ID&)
IF Fehler&=0
LET AHRückgabe&=@GetLastError()
DIM AHGETERROR_Buffer#,32000
@FormatMessage($1000,0,AHRückgabe&,0,AHGETERROR_Buffer#,32000,0) Wandelt Fehlercode in Landesspezifische Message um.
Let AHGETERROR_Buffer$=@STRING$(AHGETERROR_Buffer#,0)
Dispose AHGETERROR_Buffer#
endif
KillProcess PHandle&
@CloseHandle(PHandle&)
Endif
ElseIF @Getfocus(Fensterk_killen&)
Clearlist
AddWindows ""
LET Programm$=@Listbox$("Fenster wählen",3)
IF Programm$<>""
@Sendmessage(@Findwindow(Programm$),$10,0,0)
Endif
Wend
Bitte auch veces versuchen, el Prog con AT como Service a starten y lo entonces encima el Taskmanager auszuschalten.
[quote:bc1c8f568c=iF]
Salve, IF.[hr:bc1c8f568c]PS: Ists correcto el Yo todos Su Programas con Profano²4 teste? [/quote:bc1c8f568c]
Na sí, 7.5 wurde reichen . 4.5 Yo hier auch todavía laufen - si du dazu Ver código fuente necesidad, escribir Yo dir gerne qué . |
|
| |
| |
| |
|
(1.044)
Deutsch
English
Français
Español
Italia