► Afficher le texte
Code : Tout sélectionner
; ----------------------------------------------------
; -------------------- Section I --------------------
; ----------------------------------------------------
; Version AutoIt : 3.2.8.1
; Langue : Francais
; Plateforme : XP
; Autheur : Genaille08
;
; Fonction du script: Rentrer des mots de passe log ..etc en appuyany sur une seul touche.
;
;
;
; Version 1.0 : 21/11/2007
; - Première Version.
;
;DANS TOUT CE SCRIPT REMPLACEZ LES * PAR VOS LOGUE
; ----------------------------------------------------
; -------------------- Section II --------------------
; ----------------------------------------------------
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info
MsgBox(64,"autolog bot","bonjour et bienvenue sur mon script permettant de rentrer du texte log et lassant en appuyant sur 1 seule touche" & @CRLF & @CRLF & "pour mettre le script en pause appuyez sur la touche pause" & @CRLF & "pour quitter le bot appuyez ser la touche echap" & @CRLF & "pour afficher un toolyipe appuyez sur la touche fin" & @CRLF & "et pour réaffiché ce message appuyez sur ²")
#EndRegion --- CodeWizard generated code End ---
; ----------------------------------------------------
; -------------------- Section III --------------------
; ----------------------------------------------------
;cette partie permet d'attribué vos logue au touche desirée ainsi que de mettre le script en pause et de le quitter
Global $Paused
HotKeySet ("{PAUSE}" , "pauseduscript")
HotKeySet ("{ESC}" , "quitterlescript")
HotKeySet ("{²}" , "reafficherlemessage")
HotKeySet ("{F12}" , "*")
HotKeySet ("{F2}" , "*")
HotKeySet ("{F3}" , "*")
HotKeySet ("{F4}" , "*")
HotKeySet ("{F5}" , "*")
HotKeySet ("{F6}" , "*")
HotKeySet ("{F7}" , "*")
HotKeySet ("{F8}" , "genaille08")
HotKeySet ("{F9}" , "*")
HotKeySet ("{F10}" , "*")
HotKeySet ("{F11}" , "*")
Func pauseduscript()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func quitterlescript()
Exit 0
EndFunc
Func *()
Send ("*")
EndFunc
Func *()
Send ("*")
EndFunc
Func *()
Send ("*")
EndFunc
Func *()
Send ("*")
EndFunc
Func *()
Send ("*")
EndFunc
Func *()
Send ("*")
EndFunc
Func *()
Send ("*")
EndFunc
Func genaille08()
Send ("genaille08")
EndFunc
Func *()
Send ("*")
EndFunc
Func *()
Send ("*")
EndFunc
Func *()
Send ("*")
EndFunc
Func reafficherlemessage()
#Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info
MsgBox(64,"autolog bot","bonjour et bienvenue sur mon script permettant de rentrer du texte log et lassant en appuyant sur 1 seule touche" & @CRLF & @CRLF & "pour mettre le script en pause appuyez sur la touche pause" & @CRLF & "pour quitter le bot appuyez ser la touche echap" & @CRLF & "pour afficher un toolyipe appuyez sur la touche fin" & @CRLF & "et pour réaffiché ce message appuyez sur ²")
#EndRegion --- CodeWizard generated code End ---
EndFunc
; ----------------------------------------------------
; -------------------- Section IV --------------------
; ----------------------------------------------------
;cette partie vous rappelle vos attribution dans une bulle et fait que le script ne s'arrette jammais
Global $tooltip
HotKeySet ("{END}" , "afficheruntooltipe")
Func afficheruntooltipe()
$tooltip = NOT $tooltip
While $tooltip
sleep(100)
ToolTip("F1 -> *" & @CRLF & "F2 -> *" & @CRLF & "F3 -> *" & @CRLF & "F4 -> *" & @CRLF & "F5 -> *" & @CRLF & "F6 -> *" & @CRLF & "F7 -> *" & @CRLF & "F8 -> *" & @CRLF & "F9 -> *" & @CRLF & "F10 -> *" & @CRLF & "F11 -> *",0,0,"vos logue",1,1)
WEnd
ToolTip("")
EndFunc
While 2
Sleep(100)
WEnd
Et ensuite j'aurais voulu savoir comment le raccourcir un peu.
merci d'avance