haces algo que le descargue e instale las fuentes con la api urldowloadto ?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Declare Function apiGetFocus Lib "user32" _
Alias "GetFocus" _
() As Long
Function fhWnd(ctl As Control) As Long
On Error Resume Next
ctl.SetFocus
If Err Then
fhWnd = 0
Else
fhWnd = apiGetFocus
End If
On Error GoTo 0
End Function
Cita de: E0N en 24 Mayo 2007, 17:21 PMsi pero depende de si se tiene "ver contactos por direccion de email" o "ver contactos por nombre para mostrar" si la tienen por la primera el titulo seria "<direccion> - Conv.." y si no seria "<nombre para mostrar> - Conv.."
Una idea.
Con la api del msn puedes obtener los nicks de los contactos no? pues la traes al frente, y el titulo de la ventana tendra q contener por fuerza el nick.
Haces un listado de todas las ventanas, buscas la q contenga el nick, obtienes el handle y la ocultas...
Cita de: -Freeze- en 24 Mayo 2007, 17:23 PM
Si el titulo de la ventana varia encuentra algo ue siempre este...
Por ejemplo:
En las conversaciones de MSN siempre varia el contacto pero al final... siempre dice "Conversación"
Cita de: -Freeze- en 24 Mayo 2007, 17:02 PM
Ya entendi tu lo que no quieres que se vea es la ventana que dice que algo se esta cargando en "ella" cierto???
Bueno solamente utiliza esto:
app.activate aqui el nombre de la ventana , aqui si quieres esperar (no se como se usa)
Ejemplo:
app.activate "Conversación"
Eso activa la ventana de la conversación por MSN q este activa....
Creo q te solucione el problema o no????
Cita de: vivachapas en 24 Mayo 2007, 03:06 AM
bien... creo q te entendi...
para enviarle texto a cualquier ventana podrias estar enviando texto constantemente con un timer...
de q sirve una ventana oculta?? xq no la cierras una vez q enviaste el sendkeys?
Cita de: -Freeze- en 23 Mayo 2007, 19:17 PM
Explica que tipo de programa quieres hacer... Creo q entenderiamos mejor...
Cita de: vivachapas en 24 Mayo 2007, 02:22 AM
me.visible = False
creo q es eso... al menos yo lo hago asi... es lo mismo q hidden...
Cita de: -Freeze- en 23 Mayo 2007, 14:46 PM
No te entiendo muy bien pero si quieres ocultarla usa
form1.hide
y para volverla a sacar debes usar una API que ahora no recuerdo...
o simplemente hacer un form muy pequeño y cuando quieras ocultarla usas esto...
me.hide ' esto seria el formprincipal
form2.show 'este seria el form pequeñito...
Cita de: E0N en 23 Mayo 2007, 14:57 PM
Mira, se me acaba de ocurrir una idea.
La traes al frente, le mandas el texto y de nuevo con send keys le envias Alt + F4, asi se cierra y la victima ya no sospecha (demasiado)
Dim lnghWnd As Long, Texto As String
lnghWnd = GetForegroundWindow
Texto = String(255, Chr(O))
GetWindowText GetForegroundWindow, Texto, 255
Me.Caption = Texto
var = Left$(Form1.Caption, 4)
Label1.Caption = var
If Label1.Caption = "pppp" Then
window = FindWindow(vbNullString, Texto)
ShowWindow window, SW_HIDE