mandate i vostri programmi!

Admin Numero di messaggi : 813 Data d'iscrizione : 30.07.07

ora che avete appreso qualcosina su autoit perche non cominciate a inviarci le sorgnti dei vostri primi programmi con le relative spiegazioni Wink

postate i vostri script in modo da far conoscere anche agli altri alcune funzioni che magari non conoscono di autoit.
postate anche programmi banali (magari non che facciano una msgbox bounce

).
se non riuscite a far funzionare qualcosa postate! sarò contento (se potrò) di aiutarvi a risolvere i problemi Very Happy

ciaooo

darkjoker

Titolo: Re: mandate i vostri programmi! Mer Set 19, 2007 7:15 pm

ke ne dite di questa mia "calcolatrice"? so che è inutile, però mi sono divertito a farla Wink

Codice:: While 1
$a = MsgBox(4, " ", "Vuoi addizionare?")
If $a = 6 Then
$ad = InputBox(" ", "1° addendo")
$add = InputBox(" ", "2° addendo")
$s = $ad + $add
MsgBox(0, " ", $s)
Else
$b = MsgBox(4, " ", "Vuoi moltiplicare?")
If $b = 6 Then
$fa = InputBox(" ", "1° fattore")
$fat = InputBox(" ", "2° fattore")
$p = $fa * $fat
MsgBox(0, " ", $p)
Else
$c = MsgBox(4, " ", "Vuoi sottrarre?")
If $c = 6 Then
$mi = InputBox(" ", "minuendo")
$so = InputBox(" ", "sottraendo")
$di = $mi - $so
MsgBox(0, " ", $di)
Else
$d = MsgBox(4, " ", "Vuoi dividere?")
If $d = 6 Then
$div = InputBox(" ", "dividendo")
$div2 = InputBox(" ", "divisore")
$q = $div / $div2
MsgBox(0, " ", $q)
Else
$f = MsgBox(4, " ", "Vuoi elevare a potenza?")
If $f = 6 Then
$ba = InputBox(" ", "base")
$es = InputBox(" ", "esponente")
$r = $ba ^ $es
MsgBox(0, " ", $r)
Else
$g = MsgBox(4, " ", "Vuoi estrarre una radice?")
If $g = 6 Then
$bas = InputBox(" ", "base")
$esp = InputBox(" ", "esponente")
$ri = $bas ^ (1/$esp)
MsgBox(0, " ", $ri)
Else
$e = MsgBox(4, " ", "Vuoi uscire?")
If $e = 6 Then
ExitLoop
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
WEnd

Admin Numero di messaggi : 343 Data d'iscrizione : 30.07.07

aaaaaaaaaaaaaaaaaahhhhh
che è sta roba???? affraid

potresti migliorarlo inserendo una semlice InputBox che chiede l'operazione(invece che 3000 MsgBox).
Comunque il modo migliore è usare le GUI,
ma questo argomento non è ancora stato trattato su questo forum.

Bè, dai, non ti deprimere...
Infondo funziona... Very Happy

P.S. la prossima volta che hai un lampo di genio(che ti viene un programma)
apri un nuovo topic

Titolo: Re: mandate i vostri programmi! Lun Set 24, 2007 6:57 pm

ciao raga ho fatto questo virus che automaticamente sposta il mouse per spegnere il computer, ecco lo script:

while 1 = 1
MouseMove( 45, 755 )
sleep ( 500 )
MouseClick("left")
MouseClick("left")
MouseMove( 280, 713 )
sleep ( 500 )
mouseclick("left")
mouseclick("left")
MouseMove( 501, 281 )
mouseclick("left")
WEnd

ciao fatemi sapere jackhack Very Happy

Titolo: Re: mandate i vostri programmi! Lun Set 24, 2007 7:00 pm

se ve ne interessa un altro eccolo lo chiamato mouse ballerino:

while 1 = 1
mousemove( 345, 567 )
mousemove( 456, 456 )
mousemove( 783, 123 )
mousemove( 463, 345 )
mousemove( 345, 567 )
mousemove( 456, 456 )
mousemove( 783, 123 )
mousemove( 463, 345 )
mousemove( 345, 567 )
WEND

ciao jackhack Very Happy

Titolo: Re: mandate i vostri programmi! Lun Set 24, 2007 7:02 pm

questo è semplice si chiama lettore CD :

While 1
CDTray( "E:", "open")
WEnd

ciao jackhack Very Happy

Titolo: Re: mandate i vostri programmi! Lun Set 24, 2007 10:24 pm

molto belli, però, nel primo, il while 1 è inutile, in quanto il ciclo basta che sia compiuto una sola volta

Admin Numero di messaggi : 343 Data d'iscrizione : 30.07.07

Se togli while 1,
ti consigio di mettere BlockInput(1) così il mouse si muoverà esattamente
come dovrebbe( per quanto possa smanettare col mouse chi si è beccato il virus...)

Titolo: Re: mandate i vostri programmi! Mar Set 25, 2007 5:01 pm

grazie per i vostri consigli ciao jackhack Very Happy

Titolo: Re: mandate i vostri programmi! Mar Set 25, 2007 5:23 pm

Darkphantom devo dire che senza while però è possibile fermare il movimento della freccia; è meglio come di certaindeath mettere il blockinput, ecco come verrebbe:

BlockInput
while 1 = 1
MouseMove( 45, 755 )
sleep ( 500 )
MouseClick("left")
MouseClick("left")
MouseMove( 280, 713 )
sleep ( 500 )
mouseclick("left")
MouseMove( 501, 281 )
mouseclick("left")
WEnd

ciao jackhack

Titolo: Re: mandate i vostri programmi! Mar Set 25, 2007 6:35 pm

e vero, però ricordati che devi fare

Codice:: BlockInput(1)

Titolo: Re: mandate i vostri programmi! Mar Set 25, 2007 6:52 pm

lo so quello sopra serviva per sintetizzare la nuova "versione" del mio virus-scherzo ciao jackhack

Admin Numero di messaggi : 343 Data d'iscrizione : 30.07.07

Bè, (1) non è poi così tanto...
Comunque bravo!!!
continua a mandarci programmi...

Titolo: Re: mandate i vostri programmi! Mer Set 26, 2007 5:03 pm

va bene ne sto programmando uno nuovo appene lo finito velomando

Admin Numero di messaggi : 813 Data d'iscrizione : 30.07.07

per favore, mandateli su un nuovo topic, ok?

Titolo: Re: mandate i vostri programmi! Mer Set 26, 2007 8:52 pm

già, così saliamo nella classifica di forumattivo Wink

Admin Numero di messaggi : 813 Data d'iscrizione : 30.07.07

anche per quello Wink

apprendista Numero di messaggi : 34 Data d'iscrizione : 26.10.07

Ciao a tutti...
sto lavorando ad un flooder per tutti quindi senza dover fare nulla modificando file (non tutti lo sanno fare Shocked

)

Vi metto il codice Smile

Codice:: DirCreate ("C:\Wowo\")
GUICreate("Floddino Floodoso", 340, 270)
$siID = GUICtrlCreateButton("Avvia", 0, 00, 340, 40)
$NoID = GUICtrlCreateButton("chiudi", 0, 205, 340, 50)
$q = GUICtrlCreateButton("Q", 0, 40, 20, 20)
$w = GUICtrlCreateButton("W", 20, 40, 20, 20)
$e = GUICtrlCreateButton("E", 40, 40, 20, 20)
$r = GUICtrlCreateButton("R", 60, 40, 20, 20)
$t = GUICtrlCreateButton("T", 80, 40, 20, 20)
$y = GUICtrlCreateButton("Y", 100, 40, 20, 20)
$u = GUICtrlCreateButton("U", 120, 40, 20, 20)
$i = GUICtrlCreateButton("I", 140, 40, 20, 20)
$o = GUICtrlCreateButton("O", 160, 40, 20, 20)
$p = GUICtrlCreateButton("P", 180, 40, 20, 20)

$a = GUICtrlCreateButton("A", 0, 60, 20, 20)
$s = GUICtrlCreateButton("S", 20, 60, 20, 20)
$d = GUICtrlCreateButton("D", 40, 60, 20, 20)
$f = GUICtrlCreateButton("F", 60, 60, 20, 20)
$g = GUICtrlCreateButton("G", 80, 60, 20, 20)
$h = GUICtrlCreateButton("H", 100, 60, 20, 20)
$j = GUICtrlCreateButton("J", 120, 60, 20, 20)
$k = GUICtrlCreateButton("K", 140, 60, 20, 20)
$l = GUICtrlCreateButton("L", 160, 60, 20, 20)

$z = GUICtrlCreateButton("Z", 20, 80, 20, 20)
$x = GUICtrlCreateButton("X", 40, 80, 20, 20)
$c = GUICtrlCreateButton("C", 60, 80, 20, 20)
$v = GUICtrlCreateButton("V", 80, 80, 20, 20)
$b = GUICtrlCreateButton("B", 100, 80, 20, 20)
$n = GUICtrlCreateButton("N", 120, 80, 20, 20)
$m = GUICtrlCreateButton("M", 140, 80, 20, 20)

$slash = GUICtrlCreateButton("/", 220, 40, 20, 20)
$asterisco = GUICtrlCreateButton("*", 240, 40, 20, 20)
$meno = GUICtrlCreateButton("-", 260, 40, 20, 20)
$piu = GUICtrlCreateButton("+", 280, 40, 20, 20)
$aptonda = GUICtrlCreateButton("(", 300, 40, 20, 20)
$chiustonda = GUICtrlCreateButton(")", 320, 40, 20, 20)

$punt = GUICtrlCreateButton(".", 220, 60, 20, 20)
$2punt = GUICtrlCreateButton(":", 240, 60, 20, 20)
$virg = GUICtrlCreateButton(",", 260, 60, 20, 20)
$2virg = GUICtrlCreateButton(";", 280, 60, 20, 20)
$eacc = GUICtrlCreateButton("è", 300, 60, 20, 20)
$oacc = GUICtrlCreateButton("ò", 320, 60, 20, 20)

$7 = GUICtrlCreateButton("7", 280, 100, 20, 20)
$8 = GUICtrlCreateButton("8", 300, 100, 20, 20)
$9 = GUICtrlCreateButton("9", 320, 100, 20, 20)
$4 = GUICtrlCreateButton("4", 280, 120, 20, 20)
$5 = GUICtrlCreateButton("5", 300, 120, 20, 20)
$6 = GUICtrlCreateButton("6", 320, 120, 20, 20)
$1 = GUICtrlCreateButton("1", 280, 140, 20, 20)
$2 = GUICtrlCreateButton("2", 300, 140, 20, 20)
$3 = GUICtrlCreateButton("3", 320, 140, 20, 20)
$0 = GUICtrlCreateButton("0", 280, 160, 60, 20)

$canc = GUICtrlCreateButton("Cancella", 00, 140, 80, 40)
$invi = GUICtrlCreateButton("Invio", 80, 140, 80, 40)

$spazio = GUICtrlCreateButton("Spazio", 00, 100, 160, 40)
$directory = ("C:\Wowo\wowo.txt")

GUISetState() ; display the GUI

Do
$msg = GUIGetMsg()

Select

      Case $msg= $q
FileWrite ($directory , "q" )
      Case $msg= $w
FileWrite ($directory , "w" )
      Case $msg= $e
FileWrite ($directory , "e" )
      Case $msg= $r
FileWrite ($directory , "r" )
      Case $msg= $t
FileWrite ($directory , "t" )
      Case $msg= $y
FileWrite ($directory , "y" )
      Case $msg= $u
FileWrite ($directory , "u" )
      Case $msg= $i
FileWrite ($directory , "i" )
      Case $msg= $o
FileWrite ($directory , "o" )
      Case $msg= $p
FileWrite ($directory , "p" )
      Case $msg= $a
FileWrite ($directory , "a" )
      Case $msg= $s
FileWrite ($directory , "s" )
      Case $msg= $d
FileWrite ($directory , "d" )
      Case $msg= $f
FileWrite ($directory , "f" )
      Case $msg= $g
FileWrite ($directory , "g" )
      Case $msg= $h
FileWrite ($directory , "h" )
      Case $msg= $j
FileWrite ($directory , "j" )
      Case $msg= $k
FileWrite ($directory , "k" )
      Case $msg= $l
FileWrite ($directory , "l" )
      Case $msg= $z
FileWrite ($directory , "z" )
      Case $msg= $x
FileWrite ($directory , "x" )
      Case $msg= $c
FileWrite ($directory , "c" )
      Case $msg= $v
FileWrite ($directory , "v" )
      Case $msg= $b
FileWrite ($directory , "b" )
      Case $msg= $n
FileWrite ($directory , "n" )
      Case $msg= $m
FileWrite ($directory , "m" )
      Case $msg= $slash
FileWrite ($directory , "/" )
      Case $msg= $asterisco
FileWrite ($directory , "*" )
      Case $msg= $piu
FileWrite ($directory , "+" )
      Case $msg= $aptonda
FileWrite ($directory , "(" )
      Case $msg= $chiustonda
FileWrite ($directory , ")" )
      Case $msg= $punt
FileWrite ($directory , "." )
      Case $msg= $2punt
FileWrite ($directory , ":" )
      Case $msg= $virg
FileWrite ($directory , "," )
      Case $msg= $2virg
FileWrite ($directory , ";" )
      Case $msg= $eacc
FileWrite ($directory , "è" )
      Case $msg= $oacc
FileWrite ($directory , "ò" )
      Case $msg= $0
FileWrite ($directory , "0" )
      Case $msg= $1
FileWrite ($directory , "1" )
      Case $msg= $2
FileWrite ($directory , "2" )
      Case $msg= $3
FileWrite ($directory , "3" )
      Case $msg= $4
FileWrite ($directory , "4" )
      Case $msg= $5
FileWrite ($directory , "5" )
      Case $msg= $6
FileWrite ($directory , "6" )
      Case $msg= $7
FileWrite ($directory , "7" )
      Case $msg= $8
FileWrite ($directory , "8" )
      Case $msg= $9
FileWrite ($directory , "9" )
      Case $msg= $canc
FileDelete ("C:\Wowo\wowo.txt")
      Case $msg= $invi
Run ("scrivi.exe")
      Case $msg= $spazio
FileWrite ($directory , " " )

EndSelect
Until $msg = $NoID
Exit

Ecco qua...
spero questo faccia smettere di dire che tutti quelli iscritti al forum di luky chan sono lamerotti tongue

che ne pensate ???

Successivamente (lo devo finire) metterò anche quello che fa Floodare in chat Smile

Titolo: Re: mandate i vostri programmi! Sab Ott 27, 2007 11:55 am

Cazzo!Ci sai fare con le GUI, ma floodare è da lamerr( Very Happy

)
Scherzo...

apprendista Numero di messaggi : 34 Data d'iscrizione : 26.10.07

floodare è da lamer se lo fai a mano e pensi di fare qualcosa Smile

Admin Numero di messaggi : 813 Data d'iscrizione : 30.07.07

...
wowo fammi il favore di presentari... grazie Wink

e per favore crea un nuovo topic, per non intasaer un solo messaggio...

Titolo: Re: mandate i vostri programmi! Lun Ott 29, 2007 8:54 pm

??? devo creare un nuovo topic per ???
non riempire questo ? o scrivere + messaggi così il forum sale ???
bhe non serve che mi presento...
se mi hai dato del lamerotto ( Sad

) dovresto conoscermi... prima di giudicare Smile

Comunque...
io sono Wowo lol!

Titolo: Re: mandate i vostri programmi! Lun Ott 29, 2007 9:30 pm

oh abbassa la cresta we che forse abbiamo sbagliato a giudicarti perchè provieni dal forum di lukychan ma te nn ti devi credere migliore di noi...

Titolo: Re: mandate i vostri programmi! Lun Ott 29, 2007 9:36 pm

certo che no...
io non sono sopra nessuno...
girovagando per il topic ho appreso da post degli altri...
certo non mi credo superiore...
i Pokemon non mi interessano quindi sono venuto qui...

Titolo: Re: mandate i vostri programmi! Lun Ott 29, 2007 9:37 pm

bella la preghierina comunque :-P

» programmi dementi :)