Ce qui laisse sous entendre que 49 antivirus sont des ânes.
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <APIGdiConstants.au3>
#include <FontConstants.au3>
#include <WinAPIGdi.au3>
FormA()
Func FormA()
Opt("GUIOnEventMode", 1)
Global $lireSlider1, $lireSlider2, $lireSlider3, $lireSlider4, $format, $font, $size
Global $leftX, $leftY, $WidthRect, $HeightRect
Global $FormA = GUICreate("String", 320, 249, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
Global $Combo1A = GUICtrlCreateCombo("", 8, 8, 137, 25)
Global $Combo2A = GUICtrlCreateCombo("", 160, 8, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Normal|Bold|Italic","Normal")
GUICtrlSetOnEvent(-1, "Combo2Change")
Global $Combo3A = GUICtrlCreateCombo("", 232, 8, 57, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "7|8|10|13|15|18|20|25|30|36|38|40|45|50","10")
Global $Input1A = GUICtrlCreateInput("Message", 29, 40, 265, 21)
Global $Input2A = GUICtrlCreateInput("10", 53, 80, 49, 21)
Global $Label1A = GUICtrlCreateLabel("Left X", 49, 64, 52, 17)
Global $Input3A = GUICtrlCreateInput("10", 109, 80, 49, 21)
Global $Label2A = GUICtrlCreateLabel("Left Y", 105, 64, 52, 17)
Global $Input4A = GUICtrlCreateInput("100", 165, 80, 49, 21)
Global $Label3A = GUICtrlCreateLabel("Width", 161, 64, 52, 17)
Global $Input5A = GUICtrlCreateInput("20", 221, 80, 49, 21)
Global $Label4A = GUICtrlCreateLabel("Height", 217, 64, 52, 17)
Global $Slider1A = GUICtrlCreateSlider(8, 104, 265, 18, 0)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 123)
GUICtrlSetOnEvent(-1, "Slider1Change")
Global $Slider2A = GUICtrlCreateSlider(8, 120, 265, 18, 0)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 123)
GUICtrlSetOnEvent(-1, "Slider2Change")
Global $Slider3A = GUICtrlCreateSlider(8, 136, 265, 18, 0)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 123)
GUICtrlSetOnEvent(-1, "Slider3Change")
Global $Slider4A = GUICtrlCreateSlider(8, 152, 265, 18, 0)
GUICtrlSetLimit(-1, 255, 0)
GUICtrlSetData(-1, 123)
GUICtrlSetOnEvent(-1, "Slider4Change")
Global $Label5A = GUICtrlCreateLabel("A", 272, 104, 36, 17, $SS_CENTER)
Global $Label6A = GUICtrlCreateLabel("R", 272, 120, 36, 17, $SS_CENTER)
Global $Label7A = GUICtrlCreateLabel("G", 272, 136, 36, 17, $SS_CENTER)
Global $Label8A = GUICtrlCreateLabel("B", 272, 152, 36, 17, $SS_CENTER)
Global $Pic1A = GUICtrlCreatePic("", 8, 168, 121, 41)
Global $Pic2A = GUICtrlCreatePic("", 136, 168, 177, 41)
Global $Button1A = GUICtrlCreateButton("Test", 51, 216, 65, 25)
GUICtrlSetOnEvent(-1, "Button1Click")
Global $Button2A = GUICtrlCreateButton("Annuler", 127, 216, 65, 25)
GUICtrlSetOnEvent(-1, "Button2Click")
Global $Button3A = GUICtrlCreateButton("Valider", 203, 216, 65, 25)
GUICtrlSetOnEvent(-1, "Button3Click")
GUISetState(@SW_SHOW)
Local $aData = _WinAPI_EnumFontFamilies(0, '', $ANSI_CHARSET, BitOR($DEVICE_FONTTYPE, $TRUETYPE_FONTTYPE), '@*', 1)
For $a = 1 To $aData[0][0] - 1
GUICtrlSetData($Combo1A,$aData[$a][0] & "|",$aData[1][0])
Next
Combo2Change()
EndFunc
While 1
Sleep(100)
WEnd
Func SpecialEvents()
Opt("GUIOnEventMode", 0)
GUIDelete($FormA)
Exit
EndFunc
Func Combo2Change()
$valcombo2 = GUICtrlRead($Combo2A)
Switch $valcombo2
Case "Normal"
$format = 0
Case "Bold"
$format = 1
Case "Italic"
$format = 2
EndSwitch
EndFunc
Func Button1Click();test
EndFunc
Func Button2Click();annuler
SpecialEvents()
EndFunc
Func Button3Click();valider
EndFunc
Func Slider1Change()
$lireSlider1 = GUICtrlRead($Slider1A)
GUICtrlSetData($Label5A,$lireSlider1)
EndFunc
Func Slider2Change()
$lireSlider2 = GUICtrlRead($Slider2A)
GUICtrlSetData($Label6A,$lireSlider2)
EndFunc
Func Slider3Change()
$lireSlider3 = GUICtrlRead($Slider3A)
GUICtrlSetData($Label7A,$lireSlider3)
EndFunc
Func Slider4Change()
$lireSlider4 = GUICtrlRead($Slider4A)
GUICtrlSetData($Label8A,$lireSlider4)
EndFunc
Func latotal()
$font = GUICtrlRead($Combo1A)
$format = GUICtrlRead($Combo2A)
$size = GUICtrlRead($Combo3A)
$leftX = GUICtrlRead($Combo3A)
$leftY = GUICtrlRead($Combo3A)
$WidthRect = GUICtrlRead($Combo3A)
$HeightRect = GUICtrlRead($Combo3A)
$lireSlider1 = GUICtrlRead($Slider1A)
$lireSlider2 = GUICtrlRead($Slider2A)
$lireSlider3 = GUICtrlRead($Slider3A)
$lireSlider4 = GUICtrlRead($Slider4A)
EndFunc
Et Avast, c'est la cata ! Il me supprime des programmes mais sur totalvirus, il n'a rien à redire !!!
@ZDS je pense qu'ils sont tout à fait au courant, le problème a été soulevé sur le forum US. Mais comme Autoit est utilisé pour créer des virus, ils préfèrent travailler à" l'emporte pièce"