Mensajes

[Winsock1.Close]

Intentá cerrar los Winsock antes de cada accion. Por ejemplo, no se puede poner un puerto en escucha cuando éste esta tratando de conectar o ya está conectado. Para solucionarlo cerras el socket con la linea Winsock1.Close (suponiendo que tu socket se llama Winsock1). Luego ponés Winsock1.Listen o lo que quieras.
Otra cosa, es recomendable usar puertos ALTOS, de 1000 para arriva. Esto es para evitar tratar de abrir puertos que ya estan en uso (lo que nos daria un error).

Y si tenes algun manual por ahi, no estaria de más leerlo

Saludos.-

Ya prove y es lo mismo. Aclaro que cuando obtengo la variable Yo con el contenido del exe orignal, esta sale SIN los caracteres de más. Por eso deduzco que los primero 4 caracteres se agregan cuando vuelco esa informacion al nuevo archivo.

La verdad que me tiene confundido este asunto...

Un slaudo y gracias por contestar.-

A ver si esto te sirve...
Lo copio tal cual como esta:

Código [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Const GW_HWNDNEXT = 2
Dim mWnd As Long
Function InstanceToWnd(ByVal target_pid As Long) As Long
    Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
    'Find the first window
    test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
    Do While test_hwnd <> 0
        'Check if the window isn't a child
        If GetParent(test_hwnd) = 0 Then
            'Get the window's thread
            test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
            If test_pid = target_pid Then
                InstanceToWnd = test_hwnd
                Exit Do
            End If
        End If
        'retrieve the next window
        test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
    Loop
End Function
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Pid As Long
    'Lock the window update
    LockWindowUpdate GetDesktopWindow
    'Execute notepad.Exe
    Pid = Shell("c:\windows\notepad.exe", vbNormalFocus)
    If Pid = 0 Then MsgBox "Error starting the app"
    'retrieve the handle of the window
    mWnd = InstanceToWnd(Pid)
    'Set the notepad's parent
    SetParent mWnd, Me.hwnd
    'Put the focus on notepad
    Putfocus mWnd
    'Unlock windowupdate
    LockWindowUpdate False
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'Unload notepad
    DestroyWindow mWnd
    'End this program
    TerminateProcess GetCurrentProcess, 0
End Sub


Saludos.-

[' P']

Hola a todos, posteo porque necesito ayuda con un tema.
Cuando escribo en forma binaria un nuevo archivo, este se copia con 4 caracteres en la cabecera, que no son del archivo original, por consiguiente mi archivo no se abre.

Aca posteo un codigo, aclaro que no es exactamente lo que deseo hacer, es solo un ejemplo que muestra el problema de forma mas concreta. Espero que alguien me pueda ayudar.

Código [Seleccionar] Expandir


Private Sub Form_Load()

    Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
        Yo = Input(LOF(1), 1)
    Close #1
   
    Open "C:\Resultado.exe" For Binary As #2
        Put #2, , Yo
    Close #2
   
    End

End Sub


Cuando abro con el bloc de notas el archivo orignial en la primera linea aparece esto:

Código [Seleccionar] Expandir

MZ       ÿÿ  ¸       @                                   ¸   º ´ Í!¸
LÍ!This program cannot be run in DOS mode.

Y en Resultado.exe (donde tendria que aparecer exactamente el mismo codigo aparece:

Código [Seleccionar] Expandir


  PMZ       ÿÿ  ¸       @                                   ¸   º ´ Í!¸
LÍ!This program cannot be run in DOS mode.

Si se fijan bien, van a notar que los 4 primeros caracteres del archivo Resultado.exe son '  P' y los del original son 'MZ '. Sospecho que es por esto que no me ejecuta el Resultado.exe.


Repito, no es esto exactamente lo que quiero hacer (no digan que use FileCopy y eso porque mi objetivo no es copiar el mismo archivo, solo pongo este codigo para detallar bien donde me aparece el error).

Desde ya, muchisimas gracias por leer mis post, y si podes ayudarme, mejor .

Saludos.-

[Quien no se da cuenta de que su AV no inicio ??]

Repito, Quien no se da cuenta de que su AV no inicio ??
Uno lo primero que es fijarse que esta pasando en su PC, los archivos que se estan ejecutando, intentar abrirlo de nuevo, etc.

No quiero entrar en discucion, pero la unica forma de realmente SALTARSE un antivirus sin dejar rastros y que la victima no se de cuenta, es 'simplemente'... ser indetectables

Un saludo.-

no cmo no duermoo

Eso no ayuda en nada... Cuando tenga tiempo posteo el codigo.

Saludos.-

[stub.exe]

Es porque el archivo stub.exe no existe.
No se como funciona el codigo, pero capaz que tenes que reemplazar el nombre por alguno que exista o por alguna variable...

Saludos.-

En este foro hay info, click en BUSCAR.

Primero busca como resolver el sudoku y despues haces tu programa en base a eso.
No creo que sea tan dificil...

Suerte !-

[Troyanos y Virus]

No lees las reglas ??
Esto va en Troyanos y Virus.