Skype4Com - Create Chat with VBS

I have spent a lot of the last week hacking about with the Skype api and vbs. I have wscript on my computer and wanted to open a skype chat window and send a message to the user based on the content of an API call response. Here is the code I used with the Skype4Com dll to do the skype call adapted from some JS API call code already available online. As always this is a true hack and so may not be 100% stable or great code it is offered as is for you to play with.

 

' // Create a Skype4COM object:
Set oSkype = WScript.CreateObject("Skype4COM.Skype")

' // Create a UserCollection object and add the multichat users to this collection:
Set oMembers = WScript.CreateObject("Skype4COM.UserCollection")
oMembers.Add(oSkype.User("alexapitest"))

' // Create a multichat:
Set oChat = oSkype.CreateChatMultiple(oMembers)

' // Open a chat window:
oChat.OpenWindow()

' // Send a chat message:
Set oMsg = oChat.SendMessage("Greetings!")

Comments

[reem]

?