Mensajes

mmm todavía no lo lei atentamente tu mensaje ShadowDark pero en base a los mensajes q me dieron antes q este ultimo fui a olly y trate de solucionarlo de con FindWindowA, pero por lo q yo entendi el programa solo usa esa funcion para darle el foco a el msn cuando ya detecta q esta abierto.

Ademas hice una prueba simple, le cambie el nombre de la clase de ventana q buscaba asi q nunca la iva a encontrar e igualmente no se solucionaba, asi q en base a eso supongo q es antes donde verifica si ya existe el proceso.

Tambien observe el camino q toma en los 2 casos, cuando esta solo o cuando ya esta abierto, y se bifurca mucho antes del findwindow pero como no tenia mucho tiempo no llegue a nada.

Pero si vos decis q es asi lo voy a revisar....

si eso me llamo la atencion q es .avi y me lo reconoce como codec de wm9.

la cuestion es asi, yo uso "aviscreen classic" para grabar la pantalla, y selecciono el codec de wm9, pongo grabar, y lo guarda todo bien, pero cuando le doy a abir a ese archivo no funciona y me baja los codecs WM9.

lo de q aparece como ".avi" creo q es por q el programa guarda todo con esa extension,  sin importar el codec q se utilize.

Hola, cuando intengo abrir un archivo .avi me dice q necesita codecs, me baja los codecs de wm9 y los instalo pero me dice q no se puede ver el video.

no instale ningun pack ni nada. solo codecs separados

en la info del sistema me dice q esta instalado:

Microsoft Windows Media Video 9 VCM   
C:\WINDOWS\system32\WMV9VCM.DLL   9.0.1.0369   
1,35 MB (1.415.680 Bytes)   

el error es "Se descargó un descompresor para este archivo, pero no funciona. Es posible que necesite reiniciar su explorador. (Error=80040200)

Un error de certificación originó errores en la operación. (Error=80040295)"

Se supone q si lo baja de microsoft no tiene conflictos nose por q no me funciona.

Q puedo haceR?

[a mano]

Holas, esto lo publico aca ya q en el foro de chats ircs no creo q tenga ni idea.

buen el tema es q debido a ciertas circunstancias tengo q modificar el msn para q sea multisesion, pero necesito hacerlo a mano, alguien sabe donde hay q mododificar los datos??


Saludos!!

Me lo baje aver como era....la verdad q si alguien puede aprender con eso jaja es un milagro, ami no me dan ni ganas de leer algo asi tan incomodo.

Estan de a 2 hojas y la calidad es media baja, A mi no me gusta, pero puede sevir como referencia hacia algunas cosas.

Tambien hay q tener en cuenta q son 1300 hojas, es dificil encontrarlo bien Editado.

Mete un destornillador grueso en el chupete, hasta sentir un chispazo, luego esta descargado. 

No entiendoo q hay q hacer en hack google, intente todo, revise la pagina, use el traductor google de proxy, hasta me meti como si fuera el google bot jaja y nadaaa no lo entiendo.

no veo ningun panel ni nada mas.

estamos buscando gente con conocimientos en ingenieria inversa que pueda ayudar o colaborar en nuevo proyecto en marcha.Si tienes conocimientos en este sector y te apetece colavorar con nosotros ponte en contacto atraves del foro.
gracias

bueno si no te importa preferiria que me acregases o pasame el msn y te agregare yo y te comento.

Si estas pidiendo gente para un proyecto y no kieres contar de q se trata como esperas q la gente se interese en ayudarte?

Para q alguien kiera ayudarte tiene q saber de q se trata tu proyecto, y luego ve si le gusta, si esta a su alcanze, es lo mas logico. 

podes hacer esto:

Código [Seleccionar] Expandir

If result Then
        Timer1.interval = 100 ' o un numero mayor a lo normal
        Conectar
    Else
     Timer1.Enabled = True
     GoTo Verifica
    End If

Es decir, una vez q esta conectado en vez de desactivar el timer, solo le elevas el tiempo de intervalo, y si llegase a desconectar internet q vuelva a empezar a verificar con otro tiempo mas corto. Lo del "GoTo Verifica" Creo q esta de mas, es decir el timer solito se vuelve a ejecutar, En realidad todo lo del "else" no va.

Espero q te sirva eso.


Saludos!!

Holass, les dejo un ejemplo de un programa q hice en estos dias, No uso mucho visual basic pero estaba muy aburrido y empeze a hacer un chat entre un servidor y un cliente para probar y como me gusto como kedo me puse a hacer uno al estilo mensajero, y ahora dicidi ponerlo aca por si a alguien le interesa como ejemplo.

Empeze solo con cosas de winsock y de apokito le agrege mas cositas, Basicamente es un mensajero q se comunica con otro mensajero en otra pc en una lan,  no hay cliente ni servidor, sino q el mismo programa tiene la opcion de "llamar" o "esperar q lo llamen", para eso uso 2 sock diferente asi kedaba mas prolijo. Tiene echo un miniprotocolo para comunicarce:

@#IDPC:datos#Crtl:datos#Nick:datos#Msge:datos#Esti:datos#

Solo lo menciono nada mas por q en el ejemplo solo uso el nick y el mensaje. Despues si lo termino con las fotos y lo demas lo subo, pero por ahora keda asi, sin terminar.

Ademas Guardo la configuracion Actual en un archivo para la proxima vez q se ejecuta. Tambien sirve de ejemplo.

Podria estar 2 horas escribiendo pero ni da, jaja aca esta el codigo.

- Formulario: "Mensajero"
- 5 Botones: Conectar, Desconectar, Esperar conexion, Configuracion, Enviar
- 2 Text Box: Mensaje, Conversacion.
- 2 Winsock: WinSockA, WinsockP
- 1 ComonDialog (no es necesario, es solo para la foto)

Código (vb) [Seleccionar] Expandir


'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'>                                                  <
'>           Ejemplo Creado Por Ferchu              <
'>           f.e.r.c.h.u.s [x] hotmail.com          <
'>               Para elhacker.net                  <
'>                 <~>Ferchu<~>                     <
'>                                                  <
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Private Sub Command1_Click()
Load Configuracion
Configuracion.Show
End Sub

Private Sub Conectar_Click()
WinsockP.Close
WinsockA.Close
Escuchar.Enabled = False
WinsockA.Connect IPDestino, PuertoRemoto

End Sub

Private Sub Desconectar_Click()
WinsockP.Close
WinsockA.Close
Conectar.Enabled = True
Escuchar.Enabled = True

End Sub

Private Sub Enviar_Click()
Dim texto As String, Data As String


If ((WinsockP.State = 7) Or (WinsockA.State = 7)) Then
    texto = Mensaje
    texto = Replace(texto, "#", "&num")
    Data = "@#IDPC:123" + "#Crtl:123" + "#Nick:" + MiNick + "#Msge:" + texto + "#"
    If (WinsockP.State = 7) Then
    WinsockP.SendData Data
    Else
    WinsockA.SendData Data
    End If
    Conversacion = Conversacion + MiNick + " Dice :" + vbCrLf + Mensaje + vbCrLf
    Mensaje = ""
Else
MsgBox "Estas desconectado", vbExclamation + vbOKOnly, "Atencion"

End If
End Sub

Private Sub Escuchar_Click()
WinsockP.Close
WinsockA.Close
Conectar.Enabled = False
WinsockP.Bind PuertoLocal
WinsockP.Listen

End Sub

Private Sub Form_Load()
path = App.path
With Configuracion
IPDestino = .IP
PuertoRemoto = .PuertoR
PuertoLocal = .PuertoL
MiNick = .Nick
End With
flagfoto = False
End Sub

Private Sub Mensaje_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then Enviar_Click
End Sub

Private Sub WinsockA_Connect()
Conversacion = Conversacion + "Iniciando sesion..." + vbCrLf
End Sub

Private Sub WinsockA_Close()
Dim Desconexion As String

If (nickuser = "") Then
Desconexion = "Se perdio la conexion..." + vbCrLf
Else
Desconexion = "El usuario " + nickuser + " se desconecto..." + vbCrLf
End If
Conversacion = Conversacion + Desconexion

End Sub

Private Sub WinsockP_Close()
Dim Desconexion As String

If (nickuser = "") Then
Desconexion = "Se perdio la conexion..."
Else
Desconexion = "El usuario '" + nickuser + "' se desconecto..." + vbCrLf
End If
Conversacion = Conversacion + Desconexion
Desconectar_Click
End Sub

Private Sub WinsockP_ConnectionRequest(ByVal requestID As Long)
If WinsockP.State <> sckClosed Then WinsockP.Close
WinsockP.Accept requestID
Conversacion = Conversacion + "Iniciando sesion..." + vbCrLf

End Sub

Private Sub WinsockP_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WinsockP.GetData Data
procesar Data

End Sub

Private Sub WinsockA_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WinsockA.GetData Data
procesar Data
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Configuracion
End Sub



-Formulario: "Configuracion"
- 2 Botones: Aceptar, Foto
- 4 Text Box: Nick,IP , PuertoR, PuertoL
- 4 Label

Código (vb) [Seleccionar] Expandir



Private Sub Form_Initialize()
Dim exist As String


On Error GoTo fin

exist = Dir$(path + "\" + "Config.Fer")

If (exist <> "") Then

Open path + "\" + "Config.Fer" For Random As #1 Len = Len(Config)

Get #1, 1, Config
Close #1

MiNick = Trim(Config.MiNick)
IPDestino = Config.IPDestino
PuertoRemoto = Config.PuertoRemoto
PuertoLocal = Config.PuertoLocal
Mensajero.Dialog.FileName = Config.Foto
If (Trim(Config.Foto) <> "") Then Mensajero.Foto.Picture = LoadPicture(Mensajero.Dialog.FileName)

Nick = Trim(Config.MiNick)
IP = Config.IPDestino
PuertoR = Config.PuertoRemoto
PuertoL = Config.PuertoLocal
Else
Nick = "Mensajerito"
IP = "127.0.0.1"
PuertoR = 8000
PuertoL = 8000

End If
fin:
End Sub


Private Sub Foto_Click()

Mensajero.Dialog.InitDir = path
Mensajero.Dialog.ShowOpen

If (Mensajero.Dialog.FileName <> "") Then Mensajero.Foto.Picture = LoadPicture(Mensajero.Dialog.FileName)

End Sub

Private Sub OK_Click()
Dim Config As ConfigFer

MiNick = Nick
IPDestino = IPDestino
PuertoRemoto = PuertoR
PuertoLocal = PuertoL

Config.Foto = Mensajero.Dialog.FileName
Config.MiNick = MiNick
Config.IPDestino = IPDestino
Config.PuertoRemoto = PuertoRemoto
Config.PuertoLocal = PuertoLocal


Open path + "\" + "Config.Fer" For Random As #1 Len = Len(Config)

Put #1, 1, Config
Close #1

Unload Me

End Sub



- 1 Modulo: Modulofer :p jaja

Código (vb) [Seleccionar] Expandir

Public path As String
Public PuertoLocal As Long
Public PuertoRemoto As Long
Public MiNick As String
Public IPDestino As String
Public nickuser As String
Public PCID As String            'No utilizado en el ejemplo
Public Control As String         'No utilizado en el ejemplo
Public flagfoto As Boolean
Public Config As ConfigFer
Public Type ConfigFer
        PuertoLocal As Long
        PuertoRemoto As Long
        MiNick As String * 20
        IPDestino As String * 20
        Foto As String * 100

End Type

Sub mensajes(texto As String)
Dim tipo As String
tipo = Left(texto, 5)
Select Case (tipo)
    Case "IDPC:"
    'No utilizado en este ejemplo
    Case "Crtl:"
    'No utilizado en este ejemplo
    Case "Foto:"
    'No utilizado en este ejemplo

    Case "Nick:"
    nickuser = Right(texto, Len(texto) - 5)
    Case "Msge:"
    texto = Right(texto, Len(texto) - 5)
    texto = Replace(texto, "&num", "#")
    Mensajero.Conversacion = Mensajero.Conversacion + nickuser + " Dice: " + vbCrLf + texto + vbCrLf
    End Select
End Sub

Sub procesar(Data As String)
Dim pos As Long, valido As String, msg As String

valido = Left(Data, 1)
Data = Right(Data, Len(Data) - 2)
If (valido = "@") Then
pos = InStr(1, Data, "#", vbTextCompare)

While (pos <> 0)
    msg = Left(Data, pos - 1)
    mensajes (msg)
    Data = Right(Data, Len(Data) - pos)
    pos = InStr(1, Data, "#", vbTextCompare)
Wend

End If
End Sub



Bueno eso es todo, Espero q a alguien le sirva. Acepto criticas y sugerencias jejeje.

Para los mas vaguitos, aca les dejo el archivo.

Mensajero.rar
http://www.xzshare.it/777504


Saludos!!!