Mensajes

Declara

Código [Seleccionar] Expandir

Option Explicit
[...]

Si posteas como declaraste los array's o el codigo completo talvez pueda darte una respuesta mas acertada sin tirar al azar.

La sintaxis correcta es:

Código [Seleccionar] Expandir

variable.DeleteFile (Text1.Text & "\models\txd\LOADSCS.txd")
*No note tu error anteriormente

Fijate primero de todo si existe o no el archivo a borrar o la ruta "\models\txd\".

Text1.Text tiene que valer textualmente:
Sin comillas y sin el "\" a lo ultimo, ya que ya esta puesto en "\models\txd\".

C:\Archivos de programa\Rockstar Games\GTA San Andreas

Si no entiendes donde esta el error, pone en variables las direcciones de carpetas, y leelas en tiempo de ejecucion, de esta forma podes advertir si el valor que se le asigna es correcto y advertir tu error.

Un ejemplo seria:

Código [Seleccionar] Expandir

Dim Variable1 as String
Variable1 = Text1.Text & "\models\txd\LOADSCS.txd"

Asi, podrias asignar al mismo tiempo el valor de la Variable1 a una Label por ejemplo, y saber que valor se le asigna a la hora de ejecucion por si tenes problemas.

Y ojo con lo que lees por internet, estas usando FileSystemObject en Visual Basic, no es ASP.

Especifica el error.

Talvez solo esta mal tu codigo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Set variable = CreateObject("Scripting.FileSystemObject")
variable.MoveFolder ".\Speed Island files", Text1.Text & "\Speed Island files"
variable.DeleteFile Text1.Text & "\models\txd\LOADSCS.txd"
variable.MoveFile ".\models\txd\LOADSCS.txd", Text1.Text & "\models\txd\LOADSCS.txd"
variable.DeleteFile Text1.Text & "\models\fronten2.txd"
variable.MoveFile ".\models\fronten2.txd", Text1.Text & "\models\fronten2.txd"
variable.DeleteFolder Text1.Text & "\data"
variable.MoveFolder ".\data", Text1.Text & "\data"
Form4.Show
Form2.Hide
End Sub

Donde Text1.Text tiene que tener la ruta del GTA San Andreas especificada por el usuario:

Código [Seleccionar] Expandir

C:\Archivos de programa\Rockstar Games\GTA San Andreas

Para no especificar la ruta manualmente en un textbox, usa el contro Command Dialog.

[Ejemplos de Captura pantalla VB6]

Ejemplos de Captura pantalla VB6
www.planet-source-code.com/

Capturar Pantalla activa en Xp
http://foro.elhacker.net/index.php/topic,76722.0.html

Convertir de bmp a jpg
http://foro.elhacker.net/index.php/topic,114360.0.html

Introducción al control Winsock en Visual Basic
http://foro.elhacker.net/index.php/topic,17665.msg233177.html#msg233177

API de Winsock para VB (Completa)
http://foro.elhacker.net/index.php/topic,62753.0.html


Como guia tenes:

troyano en vb desde CERO, INDICE de contenidos en la primera pagina, GranManual
http://foro.elhacker.net/index.php/topic,57545.0.html


TROYANO EN VB, EMPECEMOS YA
http://foro.elhacker.net/index.php/topic,39680.0.html

Manual de Programacion de Troyanos en VB 6(By Me)
http://foro.elhacker.net/index.php?topic=113373.msg523468#top

No mostras como declaras los array's.

Estas trabajando dentro de un Modulo, asi que tenes que declararlos con Public o Dim y no podes hacerlo implicitamente, siempre tiene que ser explicito.

AL parecer al unico que no le llego es a mi. por ahora.

[Sr.nobalogic]

Me parece una decision apresurada y mal tomada, pero decidida al parecer.

Realmente es una lastima, pero es tu decision.

Al fin y al cabo siempre podras regresar.

Suerte entonces Sr.nobalogic.

Como ya te respondieron

Para generar un ejecutable *.exe (Archivo binario ejecutable), nececitas haber creado un projecto EXE (hay muchos proyectos, como DLL, ActiveX, etc)

Código [Seleccionar] Expandir

Archivo>Generar archivo.exe

Luego de compliar tu projecto EXE a archivo.exe tenes el ejectable para plataformas win32 (Windows).

[.:Infección de ejecutables en VB.Net:.]

.:Infección de ejecutables en VB.Net:.
http://foro.elhacker.net/index.php/topic,125970.0.html

Taller de Virus en Visual Basic 6 - Temario.
http://foro.elhacker.net/index.php/topic,79326.0.html

Curso/Taller de Virus en Visual Basic 6 - release
http://foro.elhacker.net/index.php/topic,107763.0.html

Código [Seleccionar] Expandir

Objeto.MouseMove

Código [Seleccionar] Expandir

Private Sub Objeto_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
Objeto.propiedad = change
End Sub