mandate i vostri programmi!

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

sisi speriamo che sia vero sui pokemon...

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

non mi interessano è diverso da non mi piacciono...
mi piacevano quelli vecchi di secoli fa...

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

beh, non ti ho dato del lamero... anzi l'ho dato a tutti quelli di geky...
solo che almeno tu sai programmare... fammi sto favore di presentarti a chi non ti conosce (tanto un messaggio in + o in - non cambia) e poi se leggi il regolamento capisci che è una "regola" presentarsi...
qui sei il benvenuto finche ti stai calmo, e il primo che ti darà del lamero senza motivo... provvederò io...

Titolo: Re: mandate i vostri programmi! Mar Ott 30, 2007 7:16 pm

ormai lamero è il nuovo insulto lol!

ora cerco il topic dove presentarmi Smile

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

ne dovresti fare uno nuovo su New-Entry... Wink

Titolo: Re: mandate i vostri programmi! Mar Ott 30, 2007 7:44 pm

grazie...
avete creato anche la categoria "spammer" WoW
spero di non esserci catapultato dentro...

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

aspetta, se vuoi ti farò entrare Laughing

Titolo: Re: mandate i vostri programmi! Mar Ott 30, 2007 8:07 pm

Ho terminato il mio programmino...
specifico che non è un flooder per recare danni ma solo fastidio lol!

Il primo programma è questo e permette di scrivere la frase desiderata in una tastiera virtuale

Codice:: DirCreate ("C:\Wowo\")
GUICreate("Floderino v.1.01", 340, 270)
$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 ("num.exe")
      Case $msg= $spazio
FileWrite ($directory , " " )

EndSelect
Until $msg = $NoID
Exit

Il secondo invece permette di scriverlo...

Codice:: $var = InputBox("Quanto vuoi floodare?","Puoi inserire un numero da 1 a 9", " ",""," ","-1","300","-1","-1")
$leggi = FileRead ("C:\Wowo\wowo.txt")
if $qua = 1 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")

ElseIf $qua = 2 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")

ElseIf $qua = 3 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")

ElseIf $qua = 4 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")

ElseIf $qua = 5 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")

ElseIf $qua = 6 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")

ElseIf $qua = 7 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")

ElseIf $qua = 8 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")

ElseIf $qua = 9 then

WinWait("Nome della finestra","zona")
If Not WinActive("Nome della finestra","zona") Then WinActivate("Nome della finestra","zona")
WinWaitActive("Nome della finestra","zona")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")
Send ($leggi)
Send ("{ENTER}")

elseif $qua = 0 then
MsgBox(16, "Errore...","lo 0 non mi sembra il numero adatto -.-'")

elseif $qua = $var then
MsgBox(16, "Errore...", $var & " è un numero troppo grande o una parola...")

elseif $qua = "" then
MsgBox(16, "Errore...","Scrivi qualcosa... e non prendermi in giro -.-'")

endif

non hanno grande utilità... però sono simpatici tongue

Titolo: Re: mandate i vostri programmi! Mer Ott 31, 2007 8:03 pm

be', non proprio tutti... però non mi venga a dire che è "il miglior hacker al mondo!"

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

chi? il programma ?? come fa ad essere un hacker il programma ??
che oltretutto non fa nemmeno nulla Smile

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

no, penso che darkphantom intendesse lukychan(sai, guardando la sua bellissima firma....)

Titolo: Re: mandate i vostri programmi! Gio Nov 01, 2007 7:45 pm

LoL capito...

lamer Numero di messaggi : 7 Data d'iscrizione : 01.11.07

complimenti wowo...bel flood... lol!

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

se ti fa i complimenti lui, vuol dire che è davvero bello!(sai lui ne ha visti davvero tanti tra tutti i suoi ctrl c-ctrl v Very Happy

)

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

beh... non penso nemmeno che l'abbia provato... gli basta vedere una tale mole di codice (sul suo forum, e lo dico con sincerità, non hio visto nemmeno una riga di script)...

Titolo: Re: mandate i vostri programmi! Ven Nov 02, 2007 8:04 pm

scusate, avevo mandato quel post qualche tempo fa, ma il computer l'ha mandato nel momento sbagliato... insomma, non l'ho infilato apposta...

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

mah... che bel computer che ti ritrovi.. decide lui quando postare...

Titolo: Re: mandate i vostri programmi! Lun Nov 05, 2007 2:03 pm

no, forse è colpa dell'ancora migliore connessione a internet tramite libero... il giorno che cambio computer apro un topic in annunci e lo chiamo "MOLTO IMPORTANTE"

Titolo: Re: mandate i vostri programmi! Mar Nov 06, 2007 6:42 pm

grazie

sto lavorando ad un altro programmino

come si eseguono i "send" e "mouse" in background ??
se è possibile Smile

Titolo: Re: mandate i vostri programmi! Mer Nov 07, 2007 5:45 pm

semplice: non devi usare nè send nè mouse... per scrivere in un file senza che si veda devi usare filewriteline... nell'help file ci sono le istruzioni per usarlo...

Titolo: Re: mandate i vostri programmi! Mer Nov 07, 2007 5:50 pm

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

non possono agire in background, perche simulano precisamente un tuo movimento o una tua premuta... normalmente non puoi premere un tasto quando hai aperto internet e poi aspettarti che venga premuto su blocco note Wink

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

io ci speravo Razz

non si sa mai...

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

...
troppo ottimista.. anche io all'inizio ci speravo anche io...
poi mi sono arreso alla realta...

Titolo: Re: mandate i vostri programmi! Gio Nov 08, 2007 6:53 pm

la realtà è cattiva Sad

» programmi dementi :)