|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: AUTOMATIZANDO O MESSENGER PELO VB
|
 |
|
|
|
Postada em 5/4/2006 por JOHNNY*
VÁ ATÉ O MENU PROJECTREFERENCES E MARQUE A OPÇÃO Messenger API Type Library.
ENVIAR UMA MENSAGEM PARA TODOS OS USÚARIOS:
Private Sub Form_Load()
Dim oMSN As MessengerAPI.Messenger, ct As IMessengerContact, cts As IMessengerContacts
Set oMSN = New MessengerAPI.Messenger: Set cts = oMSN.MyContacts
For Each ct In cts
'If ct.Status = MISTATUS_ONLINE Then
'USE ESTE BLOCO IF PARA MANDAR SOMENTE PARA CONTATOS ONLINE.
oMSN.InstantMessage ct
SendKeys "olá": SendKeys "{enter}"
'End If
Next
End Sub
ENVIAR UM ARQUIVO PARA TODOS OS CONTATOS:
Private Sub Form_Load()
Dim oMSN As MessengerAPI.Messenger, ct As IMessengerContact, cts As IMessengerContacts
Set oMSN = New MessengerAPI.Messenger: Set cts = oMSN.MyContacts
For Each ct In cts
If ct.Status = MISTATUS_ONLINE Then
oMSN.SendFile ct.SigninName, "c: est.txt"
End If
Next
End Sub
ESTÁ FUNÇÃO DE ENVIAR ARQUIVO SÓ FUNCIONA NA VERSÃO ABAIXO DE 7.0 DO MSN,DEVIDO A GRANDE QUANTIDADE DE WORMS A MICROSOFT DESABILITOU.MAS SE VOCÊ QUISER ENVIAR ARQUIVO NA VERSÃO ACIMA DE 7.0 FAÇA O SEGUINTE:
Private Sub Form_Load()
Dim oMSN As MessengerAPI.Messenger, ct As IMessengerContact, cts As IMessengerContacts
Dim nWnd As Long
Set oMSN = New MessengerAPI.Messenger: Set cts = oMSN.MyContacts
For Each ct In cts
If ct.Status = MISTATUS_ONLINE Then
oMSN.InstantMessage ct.SigninName
nWnd = FindWindowA("IMWindow Class", vbNullString)
SendMessageA nWnd, &H111, &H9D53, 0&
End If
Next
'ISTO NÃO TEM MUITO EXITO
End Sub
DELETAR UM CONTATO:
Set ct = oMSN.GetContact("user@hotmail.com", oMSN.MyServiceId)
Call cts.Remove(ct)
ADICIONAR CONTATO:
oMSN.AddContact 0, "user@hotmail.com"
DÁ PARA FAZER TUDO NO MSN PELO VB É SÓ DAR UMA OLHADINHA NAS PRPRIEDADES DO OBJETO oMSN.
|
|
|
|
|
