Patcher mit Ladebalken (Copybin with progressbar)

12/12/2011 17:26 GoDJGo#1
Hallo com!

Ich habe folgendes problem, ich will einen patcher machen, der ein paar ordner austausch!
Code:
PHP Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Minecraft Mod Packet Patcher 1.0.0", 325, 160, 193, 125)
$Label1 = GUICtrlCreateLabel("Patcher by Csfreakable", 8, 136, 114, 17)
$Label2 = GUICtrlCreateLabel("Created for GoldfieldMC.do.am", 128, 136, 148, 17)
$Button1 = GUICtrlCreateButton("Patch", 16, 96, 105, 33)
$Button2 = GUICtrlCreateButton("Close", 168, 96, 121, 33)
$Progress1 = GUICtrlCreateProgress(8, 32, 289, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg 
= GUIGetMsg()
    Switch 
$nMsg
        
Case $GUI_EVENT_CLOSE
            
Exit
        Case 
$Button1
            _Start
()
        Case 
$Button2
            _Exit
()

    EndSwitch
WEnd


Func _Exit
()
    exit
EndFunc

Func _Start
()
    
irCopy (".Minecraft", @AppDataDir &"\.Minecraft" ,1 )
For 
$i = 0 To 100 Step 1
    GUICtrlSetData
($Progress1,$i)
    
Sleep(100)
Next
Msgbox
(0,"Patcher", "Ehrfolgreich gepatch´d!")
Endfunc 
hilfe!!

#Closed

Hab fehler entdeckt!

PHP Code:
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Minecraft Mod Packet Patcher 1.0.0", 325, 160, 193, 125)
$Label1 = GUICtrlCreateLabel("Patcher by Csfreakable", 8, 136, 114, 17)
$Label2 = GUICtrlCreateLabel("Created for GoldfieldMC.do.am", 128, 136, 148, 17)
$Button1 = GUICtrlCreateButton("Patch", 16, 96, 105, 33)
$Button2 = GUICtrlCreateButton("Close", 168, 96, 121, 33)
$Progress1 = GUICtrlCreateProgress(8, 32, 289, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg 
= GUIGetMsg()
    Switch 
$nMsg
        
Case $GUI_EVENT_CLOSE
            
Exit
        Case 
$Button1
            _Start
()
        Case 
$Button2
            _Exit
()

    EndSwitch
WEnd


Func _Exit
()
    exit
EndFunc

Func _Start
()
    [
B]DirCopy[/B] (".Minecraft", @AppDataDir &"\.Minecraft" ,1 )
For 
$i = 0 To 100 Step 1
    GUICtrlSetData
($Progress1,$i)
    
Sleep(100)
Next
Msgbox
(0,"Patcher", "Ehrfolgreich gepatch´d!")
Endfunc 
12/23/2011 14:08 Adroxxx#2
#closed