ethneldryt a écrit :Voila une petite modif, maintenant on peux cliquer sur le bouton [voir] puis ça ouvre le topic en question avec votre navigateur par défaut
Justement j'ai essayer de faire pareil et ca ne marche pas il ne se passe rien quand je clique sur le bouton et je trouve pas d'ou vient le problème
Code : Tout sélectionner
#include "_winanimate.au3"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("salutfinder", 325, 382, @DesktopWidth-325,@DesktopHeight-402,0x80880000)
$Label1 = GUICtrlCreateLabel("Un salut a été trouvé !", 72, 0)
$Label2 = GUICtrlCreateLabel("Lien : httpblabla", 0, 16)
;$Edit1 = GUICtrlCreateEdit("", 0, 40, 321, 337)
GUICtrlSetData(-1, "Edit1")
Opt("TrayMenuMode",1)
$about = TrayCreateItem("A Propos")
$quit = TrayCreateItem("Quitter")
TraySetToolTip("Trouveur de salut")
$clipsplitid = "lol"
Global $link,$tr
While 1
$msgt = TrayGetMsg()
Select
Case $msgt = $about
MsgBox(64, "Cool", "cool")
Case $msgt = $quit
Exit
EndSelect
$clip = ClipGet()
If $clip = "salut" Then
$link = "http://www.autoitscript.fr/"
$Button1 = GUICtrlCreateButton("Voir", 248, 0, 73, 33)
GUICtrlSetData($Label2, $link)
ClipPut($link)
WinActivate("salutfinder")
_WinAnimate($Form1, $AW_SLIDE_IN_BOTTOM)
$tr = 0
While 1
$msg = GUIGetMsg()
If $msg = $Button1 Then
ShellExecute($link)
MsgBox(0,"lklk","clic")
EndIf
$tr = $tr + 1
If $tr > 40 Then
ExitLoop
EndIf
Sleep(125)
WEnd
_WinAnimate($Form1, $AW_FADE_OUT)
EndIf
WEnd
L'annimation se lance si il y a "salut" dans le presse papier