Guida Msn in Visual Basic 6

[HackInside]

Ciao,
Sono HackInside.
Vista il vostro grande ringraziamento per la mia precedente guida su come creare un Keygen in vb6,ho deciso di spulciare un poco sul web e di trovarvi un tutorial coi fiocchi,per chi volesse iniziare a fare cose un pochettino piu complicate.Detto questo vi lascio al tutorial.Buon divertimento!^^

Ecco una piccola guida su come utilizzare MSN con Visual Basic 6.


1) Cliccare su Progetto > Riferimenti e mettere il segno di spunta su Messenger API Type library

2) Aggiungere in cima al form il seguente codice



Codice sorgente




--------------------------------------------------------------------------------




Public WithEvents msn As Messengerapi.Messenger



--------------------------------------------------------------------------------



3) In Form_load() aggiungere:



Codice sorgente




--------------------------------------------------------------------------------




Set msn = New Messengerapi.Messenger



--------------------------------------------------------------------------------





Ecco ora qualche codice che potrebbe esservi utile

Aggiungere un contatto in una listbox:


Codice sorgente




--------------------------------------------------------------------------------




dim msncontact as imessengercontact
dim msncontacts as imessengercontacts
set msncontacts = msn.mycontacts
for each msncontact in msncontacts
list1.additem (msncontact.signinname)



--------------------------------------------------------------------------------



Cambiare stato:
E' necessario:
a) una combobox (cboStato)


Codice sorgente




--------------------------------------------------------------------------------




Private Sub cboStato_Click()

'Per ogni valore di Index assegno uno stato

If cboStato.ListIndex = 0 Then

msn.MyStatus = MISTATUS_ONLINE

ElseIf cboStato.ListIndex = 1 Then

msn.MyStatus = MISTATUS_BUSY

ElseIf cboStato.ListIndex = 2 Then

msn.MyStatus = MISTATUS_AWAY

ElseIf cboStato.ListIndex = 3 Then

msn.MyStatus = MISTATUS_BE_RIGHT_BACK

ElseIf cboStato.ListIndex = 4 Then

msn.MyStatus = MISTATUS_ON_THE_PHONE

ElseIf cboStato.ListIndex = 5 Then

msn.MyStatus = MISTATUS_OUT_TO_LUNCH

ElseIf cboStato.ListIndex = 6 Then

msn.MyStatus = MISTATUS_INVISIBLE

End If

End Sub

Private Sub Form_Load()

Set msn = New MessengerAPI.Messenger

'Inserisco nella combobox gli stati

cboStato.AddItem "In linea", 0

cboStato.AddItem "Occupato", 1

cboStato.AddItem "Non al computer", 2

cboStato.AddItem "Torno subito", 3

cboStato.AddItem "Al telefono", 4

cboStato.AddItem "A pranzo/cena", 5

cboStato.AddItem "Invisibile", 6

End Sub





--------------------------------------------------------------------------------



Disconnettersi:


Codice sorgente




--------------------------------------------------------------------------------




msn.Signout



--------------------------------------------------------------------------------



Cancellare un contatto:
E' necessario:
a) una listbox (lstContatti)
b) una textbox (txtContattoSelezionato)
c) un commandbutton (cmdCancella)


Codice sorgente




--------------------------------------------------------------------------------




Private Sub cmdCancella_Click()

'Cancella il contatto selezionato

Dim msncontact As IMessengerContact

Dim msncontacts As IMessengerContacts

On Error GoTo errore

Set msncontacts = msn.MyContacts

Set MsgrContact = msn.GetContact(txtContattoSelezionato.Text, msn.MyServiceId)

Call MsgrContacts.Remove(MsgrContact)

MsgBox "Contatto rimosso", vbInformation, "OPERAZIONE AVVENUTA CON SUCCESSO"

Exit Sub

'Gestione errori

errore:

MsgBox "Si è verificato un errore, l'applicazione verrà chiusa", vbCritical, "ERRORE"

'Termino il programma

End

End Sub



Private Sub cmdIndietro_Click()

frmCancellaContatti.Hide

End Sub



Private Sub Form_Load()

'Carico la lista degli utenti

Dim msncontact As IMessengerContact

Dim msncontacts As IMessengerContacts

Set msncontacts = msn.MyContacts

For Each msncontact In msncontacts

lstContatti.AddItem (msncontact.SigninName)

Next

End Sub



Private Sub lstContatti_Click()

txtContattoSelezionato.Text = lstContatti.Text

End Sub

Fonte : Pierotofy.it

Spero vi siate divertiti ^^

 

[NeXonE]

molto interessante,forse anche da rilievo!

 

[:Dj-Fede:]

io dico rilievo bravo

 

[HackInside]

Davverograzie a tutti ^^

 

[Reatino]

bravo bella guida
ma la fonte va messa secondo regolamento!

 

[FireFox]

Carina, la prima guida per MSN che vedo.. Per il resto sono solo codici pronti per fare copy-paste.

 

[HackInside]

grazie a tutti ancora ok ora metto un link diretto ma penso che tutti conoscano pierotofy.it
@fire appunta perche e la prima guida che ce su msn l ho messa ^^ beh certo non posso mica dire agli utenti di farseli da soli i codici cosi quantomeno hanno un idea su cosa fare anchio quando ero alle prime armi cercavo qualche guida ma non le trovavo mai ora si possono sbizzarrire nel fare questo ad esempio :P

 

[FireFox]

Con per il resto intendevo che per il Web trovi solo codici belli che pronti.. invece quì almeno c'e' un'esplicazione del contenuto ^^

 

[HackInside]

sisi lo so grazie ^^

 

[FireFox]

bravo bella guida
ma la fonte va messa secondo regolamento!

La fonte c'era già :P

#Hack Prego.

 

[xXx.saiev.xXx]

ma dopo che ti crei tutte ste cose come ti logghi??

 

[HackInside]

come come ti logghi -.- leggi un po anche un niubbo ci riesce basta seguire le istruzioni.

 

[FireFox]

E' vero.. Leggete prima di commentare!

 

[-alessio-]

E poi se volete, potete scaricarvi i source già creati, e sbatterci solo queste nuove funzioni.. Hack, ottima guida ;)

 

[FireFox]

[OT]Alessio queste funzioni nel tuo iMSN le hai già implementate? :P[/OT]

 

[-alessio-]

Comunque, noto che in alcuni codici ci sono degli errori..

[ot]FF, vieni su Skype che ho bisogno di un supporto morale #_#[/ot]

 

[Vorhzo]

a me mi esce sempre errore della stringa u.U su tutte xD

 

[Daddy]

Ottima Brava ti consiglio di mettere degli screen se e possibile.

 

[DjFixer]

Bravissimo Grazie Mi è Utile

 

[Giacomo]

molto bravo peccato per alcuni errori nei codici..