AutoIt Français

Code : Tout sélectionner

;KODA :

GUICtrlSetState(-1, $GUI_DISABLE)
$edit=GUICtrlCreateEdit("",0,0,189,70,@SW_HIDE)
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState($edit,$GUI_DROPACCEPTED)
$edit=GUICtrlCreateEdit("",465,0,192,70,@SW_HIDE)
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState($edit,$GUI_DROPACCEPTED)

;
Func GUI_EVENT_DROPPED();
        FileChangeDir("C:\BroLee\")
$Dossier_Here= ("C:\BroLee\place-apk-here\")
$Dossier_Temp= ("C:\BroLee\place-apk-here\Temp\")
$Dossier_Modding=("C:\BroLee\place-apk-here-for-modding\")

    if $nMsg=$GUI_EVENT_DROPPED then
        $chemin_complet=StringTrimRight(@GUI_DRAGFILE,0);il y a 2 caractéres qui se place aprés le nom du fichier je les supprime ici

        $var=StringSplit($chemin_complet,"\")
        $fichier=$var[$var[0]]

        $chemin=StringLeft($chemin_complet,StringLen($chemin_complet)-StringLen($fichier))

;~         MsgBox(0,"","Le chemin d'acces du Fichier "&@crlf&$fichier&@CRLF&"est"&@crlf&$chemin,20)
    EndIf
    If $nMsg=$GUI_EVENT_CLOSE Then return


    FileDelete($Dossier_Modding & "*.apk")
    FileDelete($Dossier_Temp & "*.apk")
;~  FileDelete("C:\BroLee\place-apk-here-for-modding\*.apk")


;~ $var=  FileOpenDialog("Selectionnez votre apk ici svp", $Dossier_Here, "Tous (*.apk*)", 5)
;~ ClipPut($var)

FileCopy ($chemin_complet, $Dossier_Temp,9)


Local $FileList[3]
Local $FileList = _FileListToArray($Dossier_Temp)
If @error = 1 Then
    MsgBox(0, "", "Pas de dossier trouvé.")
    Return
EndIf
If @error = 4 Then
    MsgBox(0, "", "Pas d'apk trouvé.")
 Return
EndIf
$FileList[0] = "Apk en cours ci dessous"
;~ _ArrayDisplay($FileList, "Apk en cours")   ; AFFICHAGE LISTE COMPLETE
;~ msgbox(0,"Apk en cours", ""& $FileList[1] & "")    ; AFFICHAGE POPUP DE DU FILELISTE ARRAY



$bro=StringReplace($FileList[1], " ", "_")
$bro1=StringReplace($bro, "(", "-")
$bro2=StringReplace($bro1, ")", "-")
$bro3=StringReplace($bro2, "- ", "_")
$bro4=StringReplace($bro3, " -", "_")
$bro5=StringReplace($bro4, " (", "_")
$bro6=StringReplace($bro5, ") ", "_")
$finish = StringReplace($bro6, "+", "")
filecopy($Dossier_Temp & $FileList[1], $Dossier_Modding & $finish)
$numreplacements = @extended
;~ MsgBox(0, "New string is", $finish)
;~ MsgBox(0, "The number of replacements done was", $numreplacements)
FileCopy($Dossier_Modding,$Dossier_Here)
FileDelete($Dossier_Temp & "*.apk")
FileRecycle($Dossier_Temp)
Local $FileListt[3]
Local $FileListt = _FileListToArray("C:\BroLee\place-apk-here-for-modding\")
If @error = 1 Then
    MsgBox(0, "", "Pas de dossier trouvé.")
    Return
EndIf
If @error = 4 Then
    MsgBox(0, "", "Pas d'apk trouvé.")
Return
EndIf
$FileListt[0] = "Apk en cours ci dessous"
;~ _ArrayDisplay($FileList, "Apk en cours")   ; AFFICHAGE LISTE COMPLETE
;~ msgbox(0,"Apk en cours", ""& $FileList[1] & "")    ; AFFICHAGE POPUP DE DU FILELISTE ARRAY
;~ $FileList[1]=$FileListbro
GUICtrlSetData ($Label_info_Apk_En_Cours, $FileListt[1])

EndFunc

Code : Tout sélectionner

$sUsername = "administrateur"
$sDomain = @ComputerName
$sPassword = "P@$$w0rd"

If NOT IsAdmin() Then
    Runas($sUsername, $sDomain, $sPassword, 0, @ScriptFullPath)
    Exit
EndIf