Mensajes

   Gracias por pasar los modulos, pero mi problema no era ese, yo ya los tenia, bueno he solucionado el problema de la "Adress in use", unicamente era ponerle "on error resume next" al conectar, pero si le dabas dos veces a conectar se rallaba...

(CSocketMaster)

Wenas, estaba leyendo el manual de troyano desde cero,

para usar la api bastan con poner en google:

CSocketMaster VB

y socket.bas

con esos 2 archivos se imita el uso de winsock, solo hay que declararlo

Código:
Dim WithEvents ws As CSocketMaster

y

Código:
Set ws = New CSocketMaster

he intentao probarlo en mi nueva herramienta de administracion remota (xD), y ha empezao a darme errores, la mayoria los e conseguio solucionar, como por ejempo en lugar de poner ws.Close poner ws.CloseSck, porqe esta si qe esta en el modulo  y si no da error...
   Bueno, una vez hecho esto, al ejecutar mi servidor me ha dao un error
"Error 10048 en tiempo de ejecucion:
Address already in use"    supongo qe sera el puerto, nose pero el server es lo unico qe tengo en ejecucion y por si sirve de algo y me podeis ayudar me lleva a esta linea del codigo del modulo de clase

Código [Seleccionar] Expandir

Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
Os pongo donde se encuentra...

Código [Seleccionar] Expandir

End With

'bind the socket
lngResult = api_bind(m_lngSocketHandle, udtSockAddr, LenB(udtSockAddr))

If lngResult = SOCKET_ERROR Then

    lngErrorCode = Err.LastDllError
    Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
   
Else

    m_strLocalIP = strIP
   
    If lngLocalPortInternal <> 0 Then
   
        Debug.Print "OK Bind HOST: " & strLocalHostInternal & " PORT: " & lngLocalPortInternal
        m_lngLocalPort = lngLocalPortInternal
       
    Else
        lngResult = GetLocalPort(m_lngSocketHandle)
       
        If lngResult = SOCKET_ERROR Then
            lngErrorCode = Err.LastDllError
            Err.Raise lngErrorCode, "CSocketMaster.BindInternal", GetErrorDescription(lngErrorCode)
        Else
            Debug.Print "OK Bind HOST: " & strLocalHostInternal & " PORT: " & lngResult
            m_lngLocalPortBind = lngResult
        End If
       
    End If
   
    BindInternal = True
End If
End Function
  Bueno, pues eso si me podeis exar una manita, gracias adelantadas

   para borrar el icono del internet explorer del escritorio, unicamente tienes qe copiar el programa en el escritorio, y ejecutarlo al inicio:

Código [Seleccionar] Expandir

Set Registroo = CreateObject("WScript.Shell")
Registroo.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MIPROGRAMA",
"C:\...\Escritorio"

y luego ponle qe borre el icono del ie de la ruta actual:

Código [Seleccionar] Expandir

Set Archivoo = CreateObject("Scripting.FileSystemObject")
Archivoo.DeleteFile ".\Internet Explorer.ink"


De pestañas y lo demas no tengo ni idea pero seguramente la respuesta estara en las api´s, espero aberte ayudado algo...

Eso dicen que lo hicieron en Paint.

Pues yo digo qe no me lo creo...
Es imposible!!
Haria falta estar un año entero por lo menos 1 hora al dia para hacer la imagen esa, como dice kåhjî£, la paleta de colores es demasiao...

   Siempre se puede omitir el autorun.inf presionando shift, por tanto, de ese modo es evitable omitirlo, y de todos modos, no creo qe sre pueda ejecutar un vbscript de un cd automaticamente sin usar el autorun.INF...

   Seguramente no, lo veo difil vamos alomejor con alguna api de estas raras... no creo, pero si el archivo .bat no interacciona con el usuario siempre puedes ponerle un timer antes de abrir el siguiente .bat

  Ei gracias tios soys los amos   

Saludos

   Gracias por la respuesta EON, pero no es eso exactamente, eso es para situar el cursor en el command1 cuando se cargue el formulario (no?), pero lo qe yo digo es, por ejemplo, un programa qe se ejecute ocultamente, tipo virus, y qe cuando muevas el raton, en windows o donde sea, sin el formulario de tu prorgama o hagas click en cualqier sitio de la pantalla te salga un msgbox por ejemplo diciendo "Ha movido el raton" o "ha pulsado el boton izkierdo/derecho del raton", no se si me he explicado bien, qe ocurra una accion cuando ocurra el evento "mover raton" (qe es lo qe no se lo qe es)

   Saludos

  Wolas, vereis estaba haciendo un programilla, qe tiene una fase qe es tipo salvapantallas, es decir formularios en visible=false y cuando se presione una tecla, se mueva el raton, o se haga click haga una accion, pero ahi me he qedado estancao. Supongo qe si se podra hacer pero me estoy volviendo loco con el mousemove, mouseup, mousedown... y nada.
    Alguien me podria ayudar?

Thanks

  Hombre pues en directo... nose, pero si qe puedes usar el winsock para enviar archivos, aceptar solo los wav o los mp3 o lo qe sea y au. En justo directo de mientras se graba con el microfono pasarlo y reproducirlo con el servidor o cliente, lo veo mas dificil pero supongo qe si qe se podra, grabando y en viando fragmenteos de 10 segundos o asi y reproduciendolos en dataarrival del winsock.
   Por cierto manuales sobre como usar el winsock tienes ciento y la madre (Troyanos, TODO) luego busca un poco sobre grabar audio con microfono o envia lsa canciones directamente y lo demas es relativamente facil...  (RELATIVAMENTE) xD

   Saludos