[..] Freeze du gui avec _IECreate

[networe]

Bonjour donc voila c'est simple,

Quand je lance l'Ouverture d'une fenetre IE, il m'est impossible d'intéragire avec le Gui, même si la page est fermé :/

Comment arrangé cela ?

Merci

Code : Tout sélectionner

; A simple custom messagebox that uses the MessageLoop mode

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
    Local $YesID, $NoID, $ExitID, $msg

    GUICreate("Custom Msgbox", 210, 80)

    GUICtrlCreateLabel("Please click a button!", 10, 10)
    $YesID = GUICtrlCreateButton("Yes", 10, 50, 50, 20)
    $NoID = GUICtrlCreateButton("Internet", 80, 50, 50, 20)
    $ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)

    GUISetState()  ; display the GUI

    Do
        $msg = GUIGetMsg()

        Select
            Case $msg = $YesID
                MsgBox(0, "You clicked on", "Yes")
            Case $msg = $NoID
                _IECreate("https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=5EFCDJCQQ9V34&lc=CA&item_name=AntiPorno%20Win%20%2d%20Achat%20a%20vie&amount=1%2e00&currency_code=EUR&button_subtype=services&bn=PP%2dBuyNowBF%3abtn_buynowCC_LG%2egif%3aNonHosted")
            Case $msg = $ExitID
                MsgBox(0, "You clicked on", "Exit")
            Case $msg = $GUI_EVENT_CLOSE
                MsgBox(0, "You clicked on", "Close")
        EndSelect
    Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID
EndFunc   ;==>_Main

[Sh4dows]

Si tu veux de l'aide il nous faudrait peut être ton code non ?
Parce que là, je ne voit pas comment l'on peut voir pourquoi tu a la GUI qui freeze sans ton code

Merci de ta compréhension...

[networe]

C'est édité

[Sh4dows]

j'ai changer ta boucle "Do While" en "While" et la façon de quitter le programme !

Sinon _IECreate fige ta GUI car avant de fermer le navigateur que le script ouvre, tu doit attendre que la page soit entièrement charger.
Pour corriger cela il va falloir soit passer en mode évènementiel et encore je n'en suis pas sur; sinon programmation multi thread et pour cela tourne toi du coté de _Adlib..()

Code : Tout sélectionner

; A simple custom messagebox that uses the MessageLoop mode

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
    Local $YesID, $NoID, $ExitID, $msg

    GUICreate("Custom Msgbox", 210, 80)

    GUICtrlCreateLabel("Please click a button!", 10, 10)
    $YesID = GUICtrlCreateButton("Yes", 10, 50, 50, 20)
    $NoID = GUICtrlCreateButton("Internet", 80, 50, 50, 20)
    $ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)

    GUISetState()  ; display the GUI

    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $YesID
                MsgBox(0, "You clicked on", "Yes")
            Case $msg = $NoID
                _IECreate("https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=5EFCDJCQQ9V34&lc=CA&item_name=AntiPorno%20Win%20%2d%20Achat%20a%20vie&amount=1%2e00&currency_code=EUR&button_subtype=services&bn=PP%2dBuyNowBF%3abtn_buynowCC_LG%2egif%3aNonHosted")

           Case $msg = $ExitID
                MsgBox(0, "You clicked on", "Exit")
                Exit
            Case $msg = $GUI_EVENT_CLOSE
                MsgBox(0, "You clicked on", "Close")
                Exit
        EndSelect
    WEnd
EndFunc   ;==>_Main
 

[networe]

Oui en fait ca bug car j'envoi sur un lien de téléchargement direct et non une page

[SrBelial]

sans doute existe il une solution plus élégante ....
je pense que pour un téléchargement direct la fonction inetget(http://monsite/monDDL.zip, "C:\Telechargements\monDDL.zip") sera plus appropriée non ?