COM + MSN messenger

[w0uter]

$msn = ObjCreate('messenger.msgrobject')
$SinkObject = ObjEvent($msn,"MY_")
While 1
Sleep(10)
WEnd

Func MY_OnTextReceived($IMsgrIMSession, $IMsgrUser, $bstrMsgHeader, $bstrMsgText, $VARIANT_BOOL)
    MsgBox(0, '', $bstrMsgText)
EndFunc

this should work according to me. but it doesnt.

i think i created the wrong object or i forgot to create a sub-object.

anyone know what i did wrong?

and msdn is a bitch site where i cant find anything so dont tell me to look there

[Valik]

You're right, you probably shouldn't look at MSDN. You should be looking wherever the object model for MSN is documented. I'm sure there are a lot of resources on the internet explaining how to integrate MSN into VB projects. That should demonstrate clearly enough how to use the object model since the syntax for VB/COM and AutoIt/COM are similar enough. I would even bet that you can find the full documentation for the object model with a little time spent on Google.

[zeroZshadow]

i'm trying this to and found the following.

;MSN Messenger: oMessenger = CREATEOBJECT("MSNMessenger.MessengerApp")

$oMessenger = ObjCreate("MSNMessenger.MessengerApp")

if not IsObj($oMessenger) then

Msgbox(0,"Error","$oShell is not an Object.")

else

Msgbox(0,"Error","Successfully created Object $oMessenger.")

endif

hope its use full

pm me PLEAS if you find the object list, because i searched 20 pages deep already, with ONLY this

[zeroZshadow]

w0uter and i are making a manual for the MSN objects.

i'll edit THIS post every week, to keep u informed.

; Returns your status

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMessenger.MyStatus()

Online: 2

Busy: 10

Be Right Back: 14

Away: 34

Phone: 50

Lunch: 66

Offline: 6

; Opens Add contact wizard, $email is the person you want to add

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMessenger.AddContact (0,$email)

; Open an message window to $email

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMessenger.InstantMessage($email)

; Open an email window to $email

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMessenger.SendMail($email)

; Open the Inbox off the current account

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMessenger.OpenInbox()

; Sign out of messenger

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMessenger.Signout()

; Goto the Signin screen

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMessenger.Signin(0, $email, '')

; Goto the SendFile screen

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMessenger.SendFile($email, 'C:\windows\calc.exe');

; Get offsets

$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$oMesWindow = $oMessenger.Window()

$oMesHight = $oMeswindow.Height()

$oMesWidth = $oMeswindow.Width

$oMesTop = $oMeswindow.Top()

$oMesLeft = $oMeswindow.left()

; Get your current service name

          $oMessenger = ObjCreate("Messenger.UIAutomation.1")

          $oServices = $oMessenger.Services()

          $oPrimserv = $oServices.PrimaryService()

          $oName = $oPrimserv.serviceName()

; Get your current Email

          $oMessenger = ObjCreate("Messenger.UIAutomation.1")

          $oServices = $oMessenger.Services()

          $oPrimserv = $oServices.PrimaryService()

          $oName = $oPrimserv.MySigninName()

; Get your current name

          $oMessenger = ObjCreate("Messenger.UIAutomation.1")

          $oServices = $oMessenger.Services()

          $oPrimserv = $oServices.PrimaryService()

          $oName = $oPrimserv.MyFriendlyName()

; Check when your name changes (parameters return 0 for some weird reason)

          $oMessenger = ObjCreate("Messenger.UIAutomation.1")

          $link = ObjEvent($oMessenger, 'MY1_')

         

          While 1

          WEnd

         

          Func MY1_OnMyFriendlyNameChange($hr, $bstrPrevFriendlyName)

            MsgBox(0, 'MY1_', '$hr = ' & $hr & @CRLF &

          '$bstrPrevFriendlyName = ' & $bstrPrevFriendlyName)

          EndFunc

Edited April 12, 2005 by zeroZshadow

[zeroZshadow]

oke, i'm trying to make those nice popups.

BUT, there is a little problem. I don't know what a mutex is, how to make is, and control it.

i'll put the link with info about the popup here.

i hope i get some help

http://msdn.microsoft.com/library/default....rview/toast.asp

hope i get some help here

[Nova]

Where can I download a version of autoit that suports the objcreate function?

[zeroZshadow]

i'll get the link, just a sec.

EDIT:

i think its this

Edited April 12, 2005 by zeroZshadow

[w0uter]

i'll get the link, just a sec.

EDIT:

i think its this

<{POST_SNAPBACK}>

correct

[zeroZshadow]

UPDATE!!! SEE ABOVE LIST

[zeroZshadow]

is there ANYONE, who LOVES to make help files,(chm)

pleas make contact to me if you want to make one for the msn objects

THANKS

[{NL}--Xantios---]

i like this !

finaly some nice working things for Msn :-) good work !

edit: sorry for the bump

Edited September 23, 2006 by {NL}--Xantios---

[lmao100]

yey msn fans, does anyone have a code to make a msn flooder/booter that keeps sending emotions to a victim to make them have to log out.

pm me or post if so thanks.

[Jos]

yey msn fans, does anyone have a code to make a msn flooder/booter that keeps sending emotions to a victim to make them have to log out.

pm me or post if so thanks.

*click*

ps. better quit asking about this bs ...