Bueno, hoy descubri que se podian hacer cosas hermosas con un lenguaje tan limitado como VB6...Tambien se puede hacer con Java, C++, o Perl, pero bueh, tenia instalado el Visual Studio y es lo que mejor manejo...
aca les dejo algunas paginas con tutoriales y todo eso
y aca les dejo el codigo totalmente desordenado, que tiene un par de comandos basicos como para empezar a ver cuales son los objetos, y que colecciones hay...hace 5 min que toy con esto pero ya me emocione...si me acuerdo y veo que hay interes, ampliare...
Buehm, el form tiene 3 botones command# y un listbox list1
esto es re basico, dps pongo como armar las dlls
aca les dejo algunas paginas con tutoriales y todo eso
y aca les dejo el codigo totalmente desordenado, que tiene un par de comandos basicos como para empezar a ver cuales son los objetos, y que colecciones hay...hace 5 min que toy con esto pero ya me emocione...si me acuerdo y veo que hay interes, ampliare...
Buehm, el form tiene 3 botones command# y un listbox list1
Código:
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
'Lista los contactos k tenes en el listbox
Private Sub command1_click()
Dim msncontact As IMessengerContact
Dim msncontacts As IMessengerContacts
Set msncontacts = msn.MyContacts
For Each msncontact In msncontacts
List1.AddItem (msncontact.SigninName)
Next
End Sub
're truchex, muestra tu mail
Private Sub command2_click()
MsgBox msn.MySigninName
End Sub
Private Sub command3_click()
a = InputBox("Inserte el nick que desea tener", "MasterLogicNickChanger")
msn.OptionsPages 0, MOPTIONPAGE
SendKeys a
sendkeys vbEnter
End Sub


Comentario