[AutoIt]Flodder by Antru

Stato
Discussione chiusa ad ulteriori risposte.
Ordina per data Ordina commenti per reazioni
I

imported_antru

Utente Silver
17 Settembre 2007
25
0
0
64
Salve a tutti, questo è uno dei miei primi script, infatti fa un pò schifo!
Ecco il codice:
Codice: 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon

$Form1 = GUICreate("Flooder", 314, 370, 192, 124)
GUISetBkColor(0x0054E3)
$Input1 = GUICtrlCreateInput("", 56, 24, 193, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Cambia", 112, 48, 73, 33, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label1 = GUICtrlCreateLabel("F1", 32, 24, 20, 19)
GUICtrlSetFont(-1, 10, 800, 0, "Lucida Sans Typewriter")
$Input2 = GUICtrlCreateInput("", 56, 88, 193, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("Cambia", 112, 112, 73, 33, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label2 = GUICtrlCreateLabel("F2", 32, 88, 20, 19)
GUICtrlSetFont(-1, 10, 800, 0, "Lucida Sans Typewriter")
$Input3 = GUICtrlCreateInput("", 56, 152, 193, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("Cambia", 112, 176, 73, 33, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label3 = GUICtrlCreateLabel("F3", 32, 152, 20, 19)
GUICtrlSetFont(-1, 10, 800, 0, "Lucida Sans Typewriter")
$Input4 = GUICtrlCreateInput("", 56, 216, 193, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button4 = GUICtrlCreateButton("Cambia", 112, 240, 73, 33, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label4 = GUICtrlCreateLabel("F4", 32, 216, 20, 19)
GUICtrlSetFont(-1, 10, 800, 0, "Lucida Sans Typewriter")
$Input5 = GUICtrlCreateInput("", 56, 280, 193, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Cambia", 112, 304, 73, 33, 0)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label5 = GUICtrlCreateLabel("F5", 32, 280, 20, 19)
GUICtrlSetFont(-1, 10, 800, 0, "Lucida Sans Typewriter")
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	$sinput1 = GUICtrlRead ($Input1)
	$sinput2 = GUICtrlRead ($Input2)
	$sinput3 = GUICtrlRead ($Input3)
	$sinput4 = GUICtrlRead ($Input4)
	$sinput5 = GUICtrlRead ($Input5)
	HotKeySet ("{F1}", "f1")
	HotKeySet ("{F2}", "f2")
	HotKeySet ("{F3}", "f3")
	HotKeySet ("{F4}", "f4")
	HotKeySet ("{F5}", "f5")
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$f1 = InputBox ("Flooder", "Inserisci il testo:")
			GUICtrlSetData ($Input1, $f1)
		Case $Button2
			$f2 = InputBox ("Flooder", "Inserisci il testo:")
			GUICtrlSetData ($Input2, $f2)
		Case $Button3
			$f3 = InputBox ("Flooder", "Inserisci il testo:")
			GUICtrlSetData ($Input3, $f3)
		Case $Button4
			$f4 = InputBox ("Flooder", "Inserisci il testo:")
			GUICtrlSetData ($Input4, $f4)
		Case $Button5
			$f5 = InputBox ("Flooder", "Inserisci il testo:")
			GUICtrlSetData ($Input5, $f5)

	EndSwitch
WEnd
Func f1 ()
	Send ($sinput1)
	Send ("{ENTER}")
EndFunc
Func f2 ()
	Send ($sinput2)
	Send ("{ENTER}")
EndFunc
Func f3 ()
	Send ($sinput3)
	Send ("{ENTER}")
EndFunc
Func f4 ()
	Send ($sinput4)
	Send ("{ENTER}")
EndFunc
Func f5 ()
	Send ($sinput5)
	Send ("{ENTER}")
EndFunc
Fatemi sapere cosa ne pensate!:rulezmg:
 
Io non conosco l'autoit come tutti i linguaggi della MS, però posso assicurarti che non è mai una cattiva abitudine spazziare ed indentare il source xD.
 
n1ghtmare ha detto:
Io non conosco l'autoit come tutti i linguaggi della MS, però posso assicurarti che non è mai una cattiva abitudine spazziare ed indentare il source xD.
Clicca per espandere...

AutoIT non e' della MS.
 
n1ghtmare ha detto:
Io non conosco l'autoit come tutti i linguaggi della MS, però posso assicurarti che non è mai una cattiva abitudine spazziare ed indentare il source xD.
Clicca per espandere...

n1ghtmare ha detto:
A parte questo io non ho mai detto che fosse della Microsoft, non confondete i termini, una bella sezione per la grammatica non la apriremo mai?
Clicca per espandere...

Magari ti riferivi alle sigarette.
 
Volevo soltanto sapere se vi piaceva... ma ho notato che in questo forum o in un modo o nell'altro si finisce sempre per andare OT...
 
antru ha detto:
Volevo soltanto sapere se vi piaceva... ma ho notato che in questo forum o in un modo o nell'altro si finisce sempre per andare OT...
Clicca per espandere...

Beh, e' sempre cosi'.

Comunque a mio parere potresti renderlo un po' piu' fico, lasciando la possibilita' di scegliere le combinazioni di tasti e salvando la conf in un bel file xml.
 
antru ha detto:
Volevo soltanto sapere se vi piaceva... ma ho notato che in questo forum o in un modo o nell'altro si finisce sempre per andare OT...
Clicca per espandere...

Scusaci, io non ero OT ma quando vengono a dirmi cose assurde per loro incomprensione non riesco a non rispondergli.

[OT]Meh, 'come' è generico e non associativo xD, io posso dire:"Mi piace la spiaggia 'come' la montagna"[/OT]
 
meh. ha detto:
antru ha detto:
Volevo soltanto sapere se vi piaceva... ma ho notato che in questo forum o in un modo o nell'altro si finisce sempre per andare OT...
Clicca per espandere...

Beh, e' sempre cosi'.

Comunque a mio parere potresti renderlo un po' piu' fico, lasciando la possibilita' di scegliere le combinazioni di tasti e salvando la conf in un bel file xml.
Clicca per espandere...
E' una buona idea, ma credo che abbandono il progetto... insomma è solo uno dei miei primi programmi, ansi credo di aver raggiunto un traguardo... :rulezmg:
 
[ot]
n1ghtmare ha detto:
Meh, 'come' è generico e non associativo xD, io posso dire:"Mi piace la spiaggia 'come' la montagna"
Clicca per espandere...

Io infatti non programmo in VB.NET come non mangio il pesce.

Capisci cosa intendo? :)
[/ot]
 
[ot]A dire il vero no ma lasciamo perdere, non mi sembra una cosa di vitale importanza ( la frase che hai formato è di senso compiuto, non sò se tu intendevi il contrario, comunque ora ti passo la mia mail così al limite ne discutiamo privatamente :blamg:). [/ot]
 
Stato
Discussione chiusa ad ulteriori risposte.
Top Bottom
Indietro