[..] Fonction Drop Drag : Hs sur Win 8.1

[brolee93]

Bonjour les amis ,
alors voila avec ma petite fonction drag drop fonctionne super bien sur win XP et win 7 mais c'est HS sur Win8.1 . Lorsque je glisse mon fichier dedans il ne se passe rien du tout :/
avez vous une idée ?

► Afficher le texte

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

Merci par avance

[jguinch]

Tu as essayer de désactiver l'UAC ?
Pour le peu que je l'ai utilisé, j'ai rencontré des problèmes avec les fonctions ControlXXX avec Windows 8 : l'UAC était la cause du problème.

[brolee93]

UAC c'est quoi ?

CECI :
http://www.windows8facile.fr/windows-8-desactiver-uac/

Mais n'ya t'il pas une commande a mettre dans mon script pour le desactiver seulement pour mon script/exe ?

Bon j'ai désactiver le UAC et la mon script/exe refonctionne comme win 7 ou XP. Ça c'est top. Merci beaucoup pour cette réponse rapide et efficace.
Par contre ce n'est pas trop grave d'avoir le UAC désactivé ? J'aurai préféré trouvé un truc dans mon script pour ne pas avoir à désactiver cela.
Alors?

[jguinch]

Oui, l'UAC c'est ça. Mais ça ne veut pas dire que ton problème vient de là.
Pour en être sûr, fais le test en ajoutant #RequireAdmin en début de script (ou clic-droit sur le script compilé, puis "Exécuter en tant qu'Administrateur").

[brolee93]

Regarde plus haut Please je t'ai en parti répondu

[jguinch]

OK, donc les deux solutions proposées dans ma réponse précédente doivent suffire pour ne pas désactiver l'UAC.

Edit : on parle justement de l'uac dans le sujet précédent

[brolee93]

Il y avait déjà des requireadmin pourtant. J'ai tester en faisant plusieurs test de compatibilité ou de exécuter en mode administratif mais rien n'y fait ça ne fonctionne que si je désactive le mode uac le mode passoire comme tu le dis lol

J'ai testé aussi en ajoutant cela mais idem même soucis tout fonctionne sauf mon drag grrrr:

Code : Tout sélectionner

#RequireAdmin
If IsAdmin() Then MsgBox("bro", "", "The script is running with admin rights.")
$sUserName="Administrateur"
$sDomain="WORKGROUP"
$sPassword=""
RunAs($sUserName, $sDomain, $sPassword, 0, 'cscript.exe "\\[Domain_Server]\NETLOGON\OCS\PluginsOCS.exe"')

[jguinch]

Si tu as ajouté ça tel quel, ça m'étonne que tu script ait pu se lancer.

► Afficher le texte

Code : Tout sélectionner

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

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

[brolee93]

voila meme avec ta mod cela ne fonctionne toujours pas .Hum je sens que je vais repartir sur du seven lol

[jguinch]

C'est bizarre.
Logiquement, avec juste un #RequireAdmin, ça aurait du suffire...
Là, je n'ai plus de solution pour toi, désolé (à part désactiver l'UAC), et je n'ai pas de Windows 8 sous la main.

[brolee93]

C'est bizarre.
Logiquement, avec juste un #RequireAdmin, ça aurait du suffire...
Là, je n'ai plus de solution pour toi, désolé (à part désactiver l'UAC), et je n'ai pas de Windows 8 sous la main.

C'est déjà vachement sympa .
Bon je vais encore tester un petit peu ou bien garder le mode UAC desactivé et voir si je ne remet pas du seven lol