Win32::Process - Prozesskontrolle scheitert bei explorer.exe (Fragen zu Perl-Modulen)

[thread]15701[/thread]

Win32::Process - Prozesskontrolle scheitert bei explorer.exe

Leser: 20

Articles: hide open all | hide show old branches

+13 replies
Molaf

2010-12-03 08:43
User since
2007-10-11
119 Artikel
BenutzerIn
Hallo,

ich habe Probleme einen explorer-Prozess wieder abzuschiessen, bei notepad bestehen diese Probleme nicht.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

use strict; use Win32; use Win32::Process; sub ErrorReport{ print Win32::FormatMessage( Win32::GetLastError() ); } my $ProcessObj; Win32::Process::Create($ProcessObj, $ENV{SystemRoot}."\\explorer.exe", "explorer.exe D:\\", 0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport(); sleep 5; $ProcessObj->Kill(0);
ersetze ich die zwei Zeilen beim Aufruf durch:
Code: (dl )

1 2

$ENV{SystemRoot}."\\notepad.exe", "notapad.exe C:\\test.txt",
... klappt alles wie erwartet, Notepad geht auf, nach 5 s ist er dann aus.
Der olle Explorer geht zwar auf (allerdings auch nur minimiert), lebt aber fröhlich weiter.

OS: WinXP sp3
Perl: 5.10 von ActivePerl

Versuche mit dem perl-eigenen kill und der PID waren übrigens bei keinem Programm erfolgreich, die Umsetzung auf Win scheint nicht so geglückt.

Gruß,
Molaf

//MODEDIT GwenDragon: Titel um Modulnamen ergänzt.
Das nächste Mal bitte Modul im Titel angeben.
Last edited: 2010-12-03 08:56:14 +0100 (CET)
- +5 replies
- GwenDragon
  
  2010-12-03 09:08
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Wenn du den Aufruf von Kill nicht abfragst, weißt du nicht warum es nicht geklappt hat.
  
  PERL-5.8 U:\>perl -MWin32::Process -MWin32 sub ErrorReport{ print Win32::FormatMessage( Win32::GetLastError() ); } Win32::Process::Create($ProcessObj,'C:\Windows\explorer.exe',"",0, NORMAL_PRIORITY_CLASS,".") || die ErrorReport(); sleep 20; $ProcessObj->Kill(0) or die ErrorReport(); ^Z Zugriff verweigert 1 at - line 7.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - Molaf
    
    2010-12-03 09:27
    
    User since
    2007-10-11
    119 Artikel
    BenutzerIn
    
    Ok, damit habe ich nicht gerechnet.
    
    Das Skript wird mit Admin-Rechten ausgeführt. Warum darf denn der Admin keine Programme beenden, die er mit der Maus und dem roten X auch manuell erledigen könnte?
    
    Ich werde mal weiter forschen, Danke für den Hinweis.
    - +2 replies
    - GwenDragon
      
      2010-12-03 09:45
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ich nehme mal an der Explorer als Systemprogramm hat erhöhte Rechte.
      Wenn ich mit dem Program Taskkill den explorer beende, kommt sofort die Abmeldung.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Molaf
        
        2010-12-03 10:25
        
        User since
        2007-10-11
        119 Artikel
        BenutzerIn
        
        Aha! Da habe ich ja wieder was gelernt, ein neuer nützlicher Windows-Befehl. :)
        
        Trotzdem habe ich noch ein Problem, diesmal die richtige PID zu bekommen für taskkill:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
        
        use strict; use Win32; use Win32::Process; sub ErrorReport{ print Win32::FormatMessage( Win32::GetLastError() ); } my $ProcessObj1; my $ProcessObj2; Win32::Process::Create($ProcessObj1, $ENV{SystemRoot}."\\explorer.exe", "explorer.exe D:\\", 0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport(); Win32::Process::Create($ProcessObj2, $ENV{SystemRoot}."\\notepad.exe", "notepad.exe C:\\test.txt", 0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport(); sleep 5; $ProcessObj1->Kill(0) or &ErrorReport; $ProcessObj2->Kill(0) or &ErrorReport; sleep 1; my $pid = $ProcessObj1->GetProcessID(); system('taskkill','/PID',$pid); print "pid:$pid\n";
        
        Die PID scheint nicht zu stimmen, die GetProcessID mir zurückgibt.
    - bianca
      
      2010-12-03 10:37
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Vorsicht, hinter dem Prozess explorer.exe verbirgt sich nicht allein nur der Dateimanager. Auch Taskleiste, Dektop und andere Dinge laufen darunter.
      Am besten lädst Du Dir mal den Processexplorer von http://download.sysinternals.com/Files/ProcessExpl... runter und zeigst Dir mal die Prozesse mit der View-Option "Show Process Tree" an.
      
      Du wirst sehen, unterhalb von explorer.exe verbirgt sich so einiges mehr als erwartet. Hier mit kill ranzugehen verursacht meiner Erfahrung nach häufig unerwartete Systemzustände....:)
      
      Edit: Das sieht man auch daran, dass kein neuer Prozess hinzukommt, wenn man den Dateimanager öffnet. Es verschwindet auch keiner wenn man ihn schließt. Denn er ist Teil der gesamten Benutzeroberfläche und kein eigener Prozess.
      Last edited: 2010-12-03 10:42:15 +0100 (CET)
      10 print "Hallo"
      20 goto 10
- +7 replies
- GwenDragon
  
  2010-12-03 10:49
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Warum sendest du nicht einfach über die Win32-API eine Windowmessage WM_CLOSE an das Explorer-Fenster
  
  Ungetestet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  use Win32::API; use Win32::GUI qw { WM_CLOSE }; my $findwindow = new Win32::API("user32", "FindWindowA", ['P','P'], 'N'); my $hwnd = $findwindow->Call('Explorer', 0); Win32::GUI::SendMessage($hwnd, WM_CLOSE, 0, 0);
  
  Auszüge aus: http://dasskript.blogspot.com/2009/08/automatisier...
  Last edited: 2010-12-03 10:51:56 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2010-12-03 10:51
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-12-03T09:49:54 GwenDragon
    Warum sendest du nicht einfach eine Windowmessage WM_CLOSE an das Explorer-Fenster
    
    Jau, das Fenster ansprechen ist definitiv die bessere Wahl anstatt den Prozess explorer.exe anzusprechen.
    10 print "Hallo"
    20 goto 10
  - +4 replies
  - Molaf
    
    2010-12-03 11:05
    
    User since
    2007-10-11
    119 Artikel
    BenutzerIn
    
    So werde ich wohl vorgehen. Danke - daran hätte ich jetzt nicht mehr gedacht.
    
    Also scheitert das Beenden das Explorers daran, dass die PID von GetProcessID keinen richtigen Wert zurückliefert (weil Explorer eben auch Systemprozess ist)?!
    - GwenDragon
      
      2010-12-03 11:15
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Nein, das Beenden scheitert, weil der Windows-Kernel den Prozess Explorer als wichtigen Systembestandteil vor dem Beenden schützt.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - bianca
      
      2010-12-03 11:19
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-12-03T10:05:13 Molaf
      (weil Explorer eben auch Systemprozess ist)?!
      
      GwenDragon hat Dir schon richtig geantworte.
      
      Man muss verstehen, dass explorer.exe bei Windows nicht nur der Dateimanager mit dem gelben Icon sondern ganz erheblich viel mehr ist. Den vermutlich kleinsten Teil darin stellt der Dateimanager dar.
      
      Vielleicht kannst Du Dein Problem viel einfacher lösen, indem Du nicht den Windows Explorer als Dateimanager sondern ein anderes Tool wie z.B. den TotalCMD verwendest. Dann haste wieder eine eigene Prozess-ID und kannst dies nach Deinem Schema steuern analog dem notepad.exe.
      10 print "Hallo"
      20 goto 10
    - topeg
      
      2010-12-03 12:44
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Um es noch mal ganz deutlich zu sagen.
      Wenn du die "exporer.exe" ausführst schaut sie nach, ob schon eine "exporer.exe" läuft. Wenn dem so ist kontaktiert das Programm diese Instanz und teilt mit, dass ein neues Explorer-Fenster geöffnet werden soll. Wenn du nun versuchst eine "exporer.exe" zu beenden, versuchst du das nicht bei der, welche du gestartet hast, sondern die zentrale Instanz.
      
      Dieses verhalten ist nötig, damit die Integrität der Benutzergrenzen gewahrt belibt. Ein Explorer muss auf alle Verzeichnisse auf vershiedene Systembestandteile (USB z.B) usw. zugreifen. Das ist aus einem normalen Benutzeraccount nicht erlaubt. Darum läuft normalerweise nur eine "explorer.exe" Instanz in einem sehr privilegieren BenutzerAccount.
  - GwenDragon
    
    2010-12-03 11:13
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Auch mal in MSDN die Artikel
    http://support.microsoft.com/kb/178893/en-us/
    http://msdn.microsoft.com/en-us/library/ms633497
    http://msdn.microsoft.com/en-us/library/ms633522(v...
    lesen, das ist interessant.
    Lässt sich ja aus C in Perl Win32-API-Aufrufe umsetzen.
    Last edited: 2010-12-03 11:14:23 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-12-03 08:43.