Brauche Hilfe mit Fortschritsbalken

1. offizieller Beitrag

    hollo!
    brauche eine loesung bei folgenden prob.
    ich habe einen gameserver und einen client pc.
    am client kann ich mit click auf shortcuts games vom server runterladen!
    wenn der client voll ist moechte ich die spiele die ich im script habe loeschen!
    mit dem script funktionier es ja auch aber ich moechte noch einen Fortschritsbalken einfuegen! Diese soll beginnen wen das script losgeht und enden wenn das script endet!


    ProcessClose("clientxp.exe")
    DirRemove("D:\games\2 Fast Driver", 1)
    DirRemove("D:\games\3D_SexVilla", 1)
    DirRemove("D:\games\7 Sins", 1)
    DirRemove("D:\games\18 WoS Pedal to the Metal", 1)
    DirRemove("D:\games\123 Free Solitaire", 1)
    DirRemove("D:\games\Age of Wonders", 1)
    DirRemove("D:\games\Air Offensive - The Art of Flying", 1)
    DirRemove("D:\games\AirHockey 3D", 1)
    DirRemove("D:\games\AirStrike II Gulf Thunder", 1)
    DirRemove("D:\games\Alawar", 1)
    DirRemove("D:\games\America", 1)
    DirRemove("D:\games\American Conquest", 1)
    DirRemove("D:\games\AquaNox", 1)
    DirRemove("D:\games\Arabian Nights", 1)
    DirRemove("D:\games\Area 51", 1)
    DirRemove("D:\games\Army Ranger Mogadishu", 1)
    DirRemove("D:\games\Art of War", 1)
    DirRemove("D:\games\Asterix", 1)
    DirRemove("D:\games\Asterix And Obelix XXL", 1)
    DirRemove("D:\games\AstroAvenger", 1)
    DirRemove("D:\games\Atari Emulator", 1)
    DirRemove("D:\games\Atomic Bomberman", 1)
    DirRemove("D:\games\Battle Realms Winter of the Wolf", 1)
    DirRemove("D:\games\Bejeweled 2 Deluxe", 1)
    DirRemove("D:\games\BGPack", 1)
    DirRemove("D:\games\Blade of Darkness", 1)
    DirRemove("D:\games\Blitzkrieg", 1)
    DirRemove("D:\games\BloodRayne 2", 1)
    DirRemove("D:\games\Bowling Mania", 1)
    DirRemove("D:\games\Capitalism II", 1)
    DirRemove("D:\games\Carmageddon 2", 1)
    DirRemove("D:\games\Catwoman", 1)
    DirRemove("D:\games\CDICE95", 1)
    DirRemove("D:\games\Chess", 1)
    DirRemove("D:\games\Chessmaster 8000", 1)
    DirRemove("D:\games\Chicago 1930", 1)
    DirRemove("D:\games\Chuzzle Deluxe", 1)
    DirRemove("D:\games\Civilization III", 1)
    DirRemove("D:\games\Cold Fear", 1)
    DirRemove("D:\games\Cold Fear", 1)
    DirRemove("D:\games\Colin McRae Rally 04", 1)
    DirRemove("D:\games\Commandos 3 - Destination Berlin", 1)
    DirRemove("D:\games\Commandos Strike Force", 1)
    DirRemove("D:\games\conflict desert storm", 1)
    DirRemove("D:\games\Conflict Vietnam", 1)
    DirRemove("D:\games\Constantine", 1)
    DirRemove("D:\games\Counterstrike 2D", 1)
    DirRemove("D:\games\Crazy Factory", 1)
    DirRemove("D:\games\Crazy Minigolf", 1)
    DirRemove("D:\games\Crazy Taxi 3", 1)
    DirRemove("D:\games\CrazyFrog", 1)
    DirRemove("D:\games\Cricket 2005", 1)
    DirRemove("D:\games\Crimson", 1)
    DirRemove("D:\games\Crown Of Glory", 1)
    DirRemove("D:\games\Customplay Golf", 1)
    DirRemove("D:\games\Daemonica", 1)
    DirRemove("D:\games\Day of Defeat", 1)
    DirRemove("D:\games\Delaware St. John Volume 1 - The Curse of Midnight Manor", 1)
    DirRemove("D:\games\Delta Force Land Warrior", 1)
    DirRemove("D:\games\Delta Force Task Force Dagger", 1)
    DirRemove("D:\games\Dino", 1)
    DirRemove("D:\games\Doom 3", 1)
    DirRemove("D:\games\DreamCatcher", 1)
    DirRemove("D:\games\DRIV3R", 1)
    DirRemove("D:\games\Drome Racers", 1)
    DirRemove("D:\games\DXBall2", 1)
    DirRemove("D:\games\e-Games", 1)
    DirRemove("D:\games\Elite Force 2", 1)
    DirRemove("D:\games\Emergency3", 1)
    DirRemove("D:\games\Enter The Matrix", 1)
    DirRemove("D:\games\F1 Challenge 99-02 UPDATE 06", 1)
    DirRemove("D:\games\Falcon 4", 1)
    DirRemove("D:\games\Fantastic Four", 1)
    DirRemove("D:\games\Far Cry", 1)
    DirRemove("D:\games\Fate of the Dragon", 1)
    DirRemove("D:\games\FIFA 2003", 1)
    DirRemove("D:\games\FIFA 2004", 1)
    DirRemove("D:\games\Finding Nemo", 1)
    DirRemove("D:\games\Ford Racing 2", 1)
    DirRemove("D:\games\FunPause Atlantis", 1)
    DirRemove("D:\games\Global Operations", 1)
    DirRemove("D:\games\GORE", 1)
    DirRemove("D:\games\Gothic", 1)
    DirRemove("D:\games\Grand Theft Auto 3", 1)
    DirRemove("D:\games\Guild Wars", 1)
    DirRemove("D:\games\Gun Metal", 1)
    DirRemove("D:\games\Hard Truck 2", 1)
    DirRemove("D:\games\Heavyweight Thunder", 1)
    DirRemove("D:\games\Heroes of Might and Magic 5", 1)
    DirRemove("D:\games\Heroes of Might and Magic IV", 1)
    DirRemove("D:\games\Hitman Code 47", 1)
    DirRemove("D:\games\Hitman Contracts", 1)
    DirRemove("D:\games\Hot Wheels Mechanix", 1)
    DirRemove("D:\games\HOUSE OF THE DEAD", 1)
    DirRemove("D:\games\IGI 2", 1)
    DirRemove("D:\games\Insane 4X4 Offroad Racing", 1)
    DirRemove("D:\games\International Cricket Captain 2005", 1)
    DirRemove("D:\games\Jane's Attack Squadron", 1)
    DirRemove("D:\games\Jetfighter 2015", 1)
    DirRemove("D:\games\Jewel Quest", 1)
    DirRemove("D:\games\JFK Reloaded", 1)
    DirRemove("D:\games\Kayak Extreme", 1)
    DirRemove("D:\games\Knights of the Old Republic 2", 1)
    DirRemove("D:\games\Korea Forgotten Conflict", 1)
    DirRemove("D:\games\Kyodai Mahjongg", 1)
    DirRemove("D:\games\Lemmings Revolution", 1)
    DirRemove("D:\games\Lightspeed", 1)
    DirRemove("D:\games\LoveChess The Greek Era 1.35", 1)
    DirRemove("D:\games\Luxor Amun Rising", 1)
    DirRemove("D:\games\Mafia", 1)
    DirRemove("D:\games\Magic Wand", 1)
    DirRemove("D:\games\Mario Forever", 1)
    DirRemove("D:\games\Master Rallye", 1)
    DirRemove("D:\games\Max Payne 2", 1)
    DirRemove("D:\games\Maximum Sports Extreme", 1)
    DirRemove("D:\games\Monopoly Tycoon", 1)
    DirRemove("D:\games\Moraff's MoreJongg", 1)
    DirRemove("D:\games\Mortal Kombat 4", 1)
    DirRemove("D:\games\Nascar 4", 1)
    DirRemove("D:\games\Need For Speed - Underground", 1)
    DirRemove("D:\games\Pear Harbor Zero Hour", 1)
    DirRemove("D:\games\Prison Tycoon", 1)
    DirRemove("D:\games\Project Igi", 1)
    DirRemove("D:\games\Psi Ops - The Mindgate Conspiracy", 1)
    DirRemove("D:\games\RACER", 1)
    DirRemove("D:\games\Red Alert 2", 1)
    DirRemove("D:\games\Redfaction", 1)
    DirRemove("D:\games\Renegade", 1)
    DirRemove("D:\games\Restricted Area", 1)
    DirRemove("D:\games\Re-volt", 1)
    DirRemove("D:\games\Rising Kingdoms", 1)
    DirRemove("D:\games\Rollercaster Tycoon 3", 1)
    DirRemove("D:\games\Rome - Total War", 1)
    DirRemove("D:\games\Rune", 1)
    DirRemove("D:\games\Scooter War3z", 1)
    DirRemove("D:\games\SEGA", 1)
    DirRemove("D:\games\Serious Sam - The Second Encounter", 1)
    DirRemove("D:\games\Shogun - Total War", 1)
    DirRemove("D:\games\Sierra Sports Game Room", 1)
    DirRemove("D:\games\Simpsons Hit And Run", 1)
    DirRemove("D:\games\Ski Alpin 2006", 1)
    DirRemove("D:\games\Snooker", 1)
    DirRemove("D:\games\Solaris 104", 1)
    DirRemove("D:\games\Soldier of Fortune", 1)
    DirRemove("D:\games\SolSuite", 1)
    DirRemove("D:\games\Sonic Heroes", 1)
    DirRemove("D:\games\Speedboat Attack", 1)
    DirRemove("D:\games\StillLife", 1)
    DirRemove("D:\games\Stolen", 1)
    DirRemove("D:\games\Sudeki", 1)
    DirRemove("D:\games\Super Taxi Driver 2006", 1)
    DirRemove("D:\games\T72 - Balkans on Fire", 1)
    DirRemove("D:\games\Taxi3 eXtreme Rush", 1)
    DirRemove("D:\games\Terrorist Takedown", 1)
    DirRemove("D:\games\Tony Hawk's Underground 2", 1)
    DirRemove("D:\games\Total War", 1)
    DirRemove("D:\games\Vietcong", 1)
    DirRemove("D:\games\War World - Tactical Combat", 1)
    DirRemove("D:\games\Wicked Studios", 1)
    DirRemove("D:\games\Wolfenstein - Enemy Territory", 1)
    DirRemove("D:\games\Wolfenstein", 1)
    DirRemove("D:\games\World Worms Party", 1)
    DirRemove("D:\games\Worms 3D", 1)
    DirRemove("D:\games\Worms Forts Under Siege", 1)
    DirRemove("D:\games\WW II Tank Commander", 1)
    DirRemove("D:\games\XXX Extreme Beach Soccer", 1)
    DirRemove("D:\games\Yu-Gi-Oh! Power of Chaos Common", 1)
    DirRemove("D:\games\Yu-Gi-Oh! Power of Chaos KAIBA THE REVENGE", 1)
    DirRemove("D:\games\Zax", 1)
    DirRemove("D:\games\Zoo tycoon", 1)
    DirRemove("D:\games\Zuma", 1)
    DirRemove("D:\program files\games", 1)

    $val = RunWait("p:\gamescyb.exe", "", @SW_HIDE)
    $val = RunWait("p:\icons.exe", "", @SW_HIDE)

    Runwait("d:\program files\cyber\clientxp.exe", "", @SW_MAXIMIZE)

    2 Mal editiert, zuletzt von apollox65 (2. Dezember 2006 um 23:32)

    Hallo,

    starten wenn das Script beginnt .... enden wenn das Script stoppt

    Das hört sich für mich so an als wenn er wissen will wieviel Zeit vom
    Start bis zum Ende des Script vergangen ist. Oder ?

    MfG
    trallala

    • Offizieller Beitrag

    Hi,

    hilft das?

    Spoiler anzeigen
    [autoit]

    ProcessClose("clientxp.exe")

    [/autoit] [autoit][/autoit] [autoit]

    Global $games_A[169] = ["7 Sins", "18 WoS Pedal to the Metal", "123 Free Solitaire", "Age of Wonders", _
    "Air Offensive - The Art of Flying", "AirHockey 3D", "AirStrike II Gulf Thunder", "Alawar", _
    "America", "American Conquest", "AquaNox", "Arabian Nights", "Area 51", "Army Ranger Mogadishu", _
    "Art of War", "Asterix", "Asterix And Obelix XXL", "AstroAvenger", "Atari Emulator", "Atomic Bomberman", _
    "Battle Realms Winter of the Wolf", "Bejeweled 2 Deluxe", "BGPack", "Blade of Darkness", "Blitzkrieg", _
    "BloodRayne 2", "Bowling Mania", "Capitalism II", "Carmageddon 2", "Catwoman", "CDICE95", "Chess", _
    "Chessmaster 8000", "Chicago 1930", "Chuzzle Deluxe", "Civilization III", "Cold Fear", _
    "Cold Fear", "Colin McRae Rally 04", "Commandos 3 - Destination Berlin", "Commandos Strike Force", _
    "conflict desert storm", "Conflict Vietnam", "Constantine", "Counterstrike 2D", "Crazy Factory", _
    "Crazy Minigolf", "Crazy Taxi 3", "CrazyFrog", "Cricket 2005", "Crimson", "Crown Of Glory", _
    "Customplay Golf", "Daemonica", "Day of Defeat", "Delaware St. John Volume 1 - The Curse of Midnight Manor", _
    "Delta Force Land Warrior", "Delta Force Task Force Dagger", "Dino", "Doom 3", "DreamCatcher", "DRIV3R", _
    "Drome Racers", "DXBall2", "e-Games", "Elite Force 2", "Emergency3", "Enter The Matrix", _
    "F1 Challenge 99-02 UPDATE 06", "Falcon 4", "Fantastic Four", "Far Cry", "Fate of the Dragon", _
    "FIFA 2003", "FIFA 2004", "Finding Nemo", "Ford Racing 2", "FunPause Atlantis", _
    "Global Operations", "GORE", "Gothic", "Grand Theft Auto 3", "Guild Wars", "Gun Metal", _
    "Hard Truck 2", "Heavyweight Thunder", "Heroes of Might and Magic 5", "Heroes of Might and Magic IV", _
    "Hitman Code 47", "Hitman Contracts", "Hot Wheels Mechanix", "HOUSE OF THE DEAD", "IGI 2", _
    "Insane 4X4 Offroad Racing", "International Cricket Captain 2005", "Jane's Attack Squadron", "Jetfighter 2015", _
    "Jewel Quest", "JFK Reloaded", "Kayak Extreme", "Knights of the Old Republic 2", "Korea Forgotten Conflict", _
    "Kyodai Mahjongg", "Lemmings Revolution", "Lightspeed", "LoveChess The Greek Era 1.35", "Luxor Amun Rising", _
    "Mafia", "Magic Wand", "Mario Forever", "Master Rallye", "Max Payne 2", "Maximum Sports Extreme", _
    "Monopoly Tycoon", "Moraff's MoreJongg", "Mortal Kombat 4", "Nascar 4", "Need For Speed - Underground", _
    "Pear Harbor Zero Hour", "Prison Tycoon", "Project Igi", "Psi Ops - The Mindgate Conspiracy", "RACER", _
    "Red Alert 2", "Redfaction", "Renegade", "Restricted Area", "Re-volt", "Rising Kingdoms", _
    "Rollercaster Tycoon 3", "Rome - Total War", "Rune", "Scooter War3z", "SEGA", "Serious Sam - The Second Encounter", _
    "Shogun - Total War", "Sierra Sports Game Room", "Simpsons Hit And Run", "Ski Alpin 2006", "Snooker", _
    "Solaris 104", "Soldier of Fortune", "SolSuite", "Sonic Heroes", "Speedboat Attack", _
    "StillLife", "Stolen", "Sudeki", "Super Taxi Driver 2006", "T72 - Balkans on Fire", "Taxi3 eXtreme Rush", _
    "Terrorist Takedown", "Tony Hawk's Underground 2", "Total War", "Vietcong", "War World - Tactical Combat", _
    "Wicked Studios", "Wolfenstein - Enemy Territory", "Wolfenstein", "World Worms Party", "Worms 3D", _
    "Worms Forts Under Siege", "WW II Tank Commander", "XXX Extreme Beach Soccer", "Yu-Gi-Oh! Power of Chaos Common", _
    "Yu-Gi-Oh! Power of Chaos KAIBA THE REVENGE", "Zax", "Zoo tycoon", "Zuma"]

    [/autoit] [autoit][/autoit] [autoit]

    ProgressOn("Spiele werden gelöscht", "Spiel", "0 percent")
    $anzahl = UBound($games_A) + 1
    ConsoleWrite($anzahl)
    For $i = 0 To UBound($games_A) - 1
    DirRemove("D:\games\" & $games_A[$i], 1)
    ProgressSet(Round($i * 100/ ($anzahl - 2), 2), "D:\games\" & $games_A[$i], Round($i * 100/ ($anzahl - 2), 2) & " percent")
    Sleep(10)
    Next
    DirRemove("D:\program files\games", 1)
    ProgressSet("100 percent")
    Sleep(2500)
    ProgressOff()

    [/autoit] [autoit][/autoit] [autoit]

    $val = RunWait("p:\gamescyb.exe", "", @SW_HIDE)
    $val = RunWait("p:\icons.exe", "", @SW_HIDE)

    [/autoit] [autoit][/autoit] [autoit]

    RunWait("d:\program files\cyber\clientxp.exe", "", @SW_MAXIMIZE)

    [/autoit]

    So long,

    Mega

    • Offizieller Beitrag

    Hallo!

    Warum so umständlich? Einfach mit FileListToArray!:

    Spoiler anzeigen
    [autoit]

    #Include <File.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $frta = _FileListToArray("D:\Games","*.",2)
    If Not IsArray($frta) Then Exit MsgBox(48,"","Keine Spiele verfügbar!")

    ProgressOn("~~D:\Games\~~","Delete:")

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 To $frta[0]
    ProgressSet((100*$i)/$frta[0],"Games Deletet: "&$i&"/"&$frta[0] &@CRLF&Round((100*$i)/$frta[0])&"%","Delete: "&$frta[$i])
    DirRemove("D:\Games\"&$frta[$i],1)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    ProgressSet(100,"DONE!")
    Sleep(1000)
    ProgressOff()

    [/autoit] [autoit][/autoit] [autoit]

    $val = RunWait("p:\gamescyb.exe", "", @SW_HIDE)
    $val = RunWait("p:\icons.exe", "", @SW_HIDE)

    RunWait("d:\program files\cyber\clientxp.exe", "", @SW_MAXIMIZE)

    [/autoit]

    Mfg Spider

    • Offizieller Beitrag

    Hallo!

    Achso.. ich dachte er will alle löschen... Naja... da is dann deine methode besser ausser er will nur 1-2 spiele nich löschen (oder halt er will doch alle löschen^^)dann könnte man es schnell mit If $frta[$i] = "NichLöschen" Then Continueloop machen..

    Mfg SPider

    Ich danke euch allen! Super schnelle antwort! Das ist echt das BESTE Forum das ich gesehen habe! Werde sicher noch sehr offt hier zu sehen sein!!!!

    Nochmal DANKE AN ALLE!!!!