ON NO MSN
aew galera blz??
eu queria seber como q eu faço um programa q me mostre quando uma pessoa tah conectada no msn sem ter q entra no meu msn??
vlw pela ajuda
eu queria seber como q eu faço um programa q me mostre quando uma pessoa tah conectada no msn sem ter q entra no meu msn??
vlw pela ajuda
Não sei se você já deu uma olhada em alguns exemplos aqui do VBMania, entre eles:
STATUS DO MSN
MSN NO VB
Se estes não ajudarem, digite MSN no campo Localizar do VBMania e você vai encontrar mais exemplos.
STATUS DO MSN
MSN NO VB
Se estes não ajudarem, digite MSN no campo Localizar do VBMania e você vai encontrar mais exemplos.
tente isto:
Public WithEvents MSN As Messenger
Dim groups As IMessengerGroups
Dim group As IMessengerGroup
Dim contacts As IMessengerContacts
Dim contact As IMessengerContact
Dim window As IMessengerConversationWnd
Private Declare Function SetParent Lib "user32" (ByVal hWndChild&, ByVal hWndNewParent&) As Long
Private Sub Command1_Click()
Messenger.MyStatus = MISTATUS_AWAY
End Sub
Private Sub Command2_Click()
Messenger.Signout
Unload Me
End Sub
Private Sub Command3_Click()
Messenger.MyStatus = MISTATUS_ONLINE
End Sub
Private Sub Command4_Click()
Messenger.MyStatus = MISTATUS_BUSY
End Sub
Private Sub Command5_Click()
Messenger.MyStatus = MISTATUS_INVISIBLE
End Sub
Private Sub Command6_Click()
Form2.Show
End Sub
Private Sub Command7_Click()
Messenger.OpenInbox
End Sub
Private Sub Command8_Click()
Messenger.FriendlyName = Text2.Text
End Sub
Private Sub Form_Load()
Text1.Text = Messenger.MyFriendlyName
End Sub
Public WithEvents MSN As Messenger
Dim groups As IMessengerGroups
Dim group As IMessengerGroup
Dim contacts As IMessengerContacts
Dim contact As IMessengerContact
Dim window As IMessengerConversationWnd
Private Declare Function SetParent Lib "user32" (ByVal hWndChild&, ByVal hWndNewParent&) As Long
Private Sub Command1_Click()
Messenger.MyStatus = MISTATUS_AWAY
End Sub
Private Sub Command2_Click()
Messenger.Signout
Unload Me
End Sub
Private Sub Command3_Click()
Messenger.MyStatus = MISTATUS_ONLINE
End Sub
Private Sub Command4_Click()
Messenger.MyStatus = MISTATUS_BUSY
End Sub
Private Sub Command5_Click()
Messenger.MyStatus = MISTATUS_INVISIBLE
End Sub
Private Sub Command6_Click()
Form2.Show
End Sub
Private Sub Command7_Click()
Messenger.OpenInbox
End Sub
Private Sub Command8_Click()
Messenger.FriendlyName = Text2.Text
End Sub
Private Sub Form_Load()
Text1.Text = Messenger.MyFriendlyName
End Sub
Tópico encerrado , respostas não são mais permitidas