Alors je suis en train de créer un bot ( Attention j'en vois déjà qui crient au cheat !) qui consiste à publier une musique qui vient d'être "rendu" directement sur soundcloud. Je sais qu'ableton le fait directement après si on le souhaite mais ce programme n'est pas pour moi, il est pour un collègue qui utilise reason.
Donc le problème est en réalité que ma GUI se lance parfaitement bien ( dans SciTE ) mais je ne peux tout simplement pas interagir avec les boutons !
Voici mon code :
Code : Tout sélectionner
;-----------------------------------------------------------------------------------------
;------------------------------ SECTION I ------------------------------------------------
;-----------------------------------------------------------------------------------------
; Version AutoIT : 3.3
; Langue : Français
; Plateforme : Win7
; Auteur : Jokerbadtrip
; Version : Beta 0.9
; Date : 03/08/2013
;
;
;------------------------------------------------------------------------------------------
;------------------------------ SECTION II ------------------------------------------------
;------------------------------------------------------------------------------------------
; Déclarations diverses :
#include <String.au3>
#include <Array.au3>
#include <Inet.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <IE.au3>
;Les variables
$bString = True
;-------------------------------------------------------------------------------------------
;------------------------------ SECTION III ------------------------------------------------
;-------------------------------------------------------------------------------------------
; Fenêtre Principale
#Region ### START Koda GUI section ### Form=c:\users\sim-sim\pictures\gui koda\gui bot sc.kxf
$Form1_1 = GUICreate("Bot Soundcloud - Jokerbadtrip", 818, 618, 291, 57)
GUISetBkColor(0xA0A0A0)
$Pic1 = GUICtrlCreatePic("C:\Users\Sim-Sim\Pictures\Jokerbadtrip.jpg", 0, 0, 816, 616)
$Group1 = GUICtrlCreateGroup("Bienvenue sur le Bot SoundCloud créé par Jokerbadtrip.", 80, 16, 657, 97)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Label1 = GUICtrlCreateLabel("", 88, 40, 568, 17)
$Label2 = GUICtrlCreateLabel("", 88, 64, 625, 17)
$Label3 = GUICtrlCreateLabel("", 88, 88, 281, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetCursor (-1, 0)
$Group2 = GUICtrlCreateGroup("Copyright (C) - Jokerbadtrip 2013", 40, 512, 737, 89)
GUICtrlSetFont(-1, 4, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Button1 = GUICtrlCreateButton("Fermer", 48, 568, 89, 25)
GUICtrlSetColor(-1, 0x000000)
$Button2 = GUICtrlCreateButton("Suivant", 688, 568, 81, 25)
GUICtrlSetColor(-1, 0x000000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### END Koda GUI section ###
; Fenêtre secondaire
#Region ### START Koda GUI section ### Form=c:\users\sim-sim\pictures\gui koda\gui bot sc2.kxf
$Form2 = GUICreate("Bot Soundcloud - Jokerbadtrip", 818, 618, 186, 113)
$Pic1 = GUICtrlCreatePic("C:\Users\Sim-Sim\Pictures\Jokerbadtrip.jpg", 0, 0, 816, 616)
$Group1 = GUICtrlCreateGroup("Il est impératif d'utiliser Google Chrome, sinon le bot ne fonctionnera pas !", 120, 40, 577, 193)
$Group2 = GUICtrlCreateGroup("Indiquez le chemin de Chrome.exe", 136, 96, 545, 113)
$Input1 = GUICtrlCreateInput("C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe", 152, 136, 329, 21)
GUICtrlSetCursor (-1, 5)
$Button3 = GUICtrlCreateButton("Parcourir", 528, 136, 83, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4 = GUICtrlCreateButton("Précédent", 80, 552, 75, 25)
$Button5 = GUICtrlCreateButton("Lancer le bot", 664, 552, 75, 25)
$Label1 = GUICtrlCreateLabel(" Copyright (C) - Jokerbadtrip 2013", 632, 592, 161, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
#EndRegion ### END Koda GUI section ###
;-------------------------------------------------------------------------------------------
;------------------------------ SECTION IV -------------------------------------------------
;-------------------------------------------------------------------------------------------
GUISetState(@SW_SHOW, $Form1_1)
;Fenêtre principale :
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
_IECreate("https://soundcloud.com/jokerbadtrip")
Case $Button1
Exit
Case $Button2
GUISetState(@SW_HIDE, $Form1_1)
GUISetState(@SW_SHOW, $Form2)
Case $Button3
FileOpenDialog("Chemin de Chrome.exe", @Scriptdir&'\', "Tous(*.*)", 9)
Case $Button4
GUISetState(@SW_HIDE, $Form2)
GUISetState(@SW_SHOW, $Form1_1)
Case $Button5
EndSwitch
WEnd
Comme le bouton 5 qui n'a pas de tâche à effectuer.
Merci de vôtre aide.
Bye !