Sign in to follow this  
Followers 0
w0uter

COM + MSN messenger

13 posts in this topic

$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 :D


My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Share this post


Link to post
Share on other sites



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.

Share this post


Link to post
Share on other sites

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


*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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 by zeroZshadow

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...

Share this post


Link to post
Share on other sites

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 :)


*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

i'll get the link, just a sec.

EDIT:

i think its this

Edited by zeroZshadow

*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...

Share this post


Link to post
Share on other sites

UPDATE!!! SEE ABOVE LIST


*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...

Share this post


Link to post
Share on other sites

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 :)


*If u thought life couldn't get worse, u meet me *<guy> What would you give my little sister to unzip ?<friend> 10 bucks<guy> No, i mean like Winzip...

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

i like this !

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

edit: sorry for the bump :)

Edited by {NL}--Xantios---

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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 ...


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0