>** Create a Skype4COM object: >oSkype = CreateObject("Skype4COM.Skype", "Skype_") > >** Start the Skype client: >If !oSkype.Client.IsRunning > oSkype.Client.Start() >ENDIF > >** Declare the following Skype constants: >cUserStatus_Offline = oSkype.Convert.TextToUserStatus("OFFLINE") >cUserStatus_Online = oSkype.Convert.TextToUserStatus("ONLINE") >cCallStatus_Ringing = oSkype.Convert.TextToCallStatus("RINGING") >cCallStatus_Inprogress = oSkype.Convert.TextToCallStatus("INPROGRESS") >cCallStatus_Failed = oSkype.Convert.TextToCallStatus("FAILED") >cCallStatus_Refused = oSkype.Convert.TextToCallStatus("REFUSED") >cCallStatus_Cancelled = oSkype.Convert.TextToCallStatus("CANCELLED") >cCallStatus_Finished = oSkype.Convert.TextToCallStatus("FINISHED") >cCallStatus_Busy = oSkype.Convert.TextToCallStatus("BUSY") >cAttachmentStatus_Available = oSkype.Convert.TextToAttachmentStatus("AVAILABLE") > >** The PlaceCall command will fail if the user is offline. To avoid failure, check user status and change to online if necessary: >*!* If cUserStatus_Offline = oSkype.CurrentUserStatus >*!* oSkype.ChangeUserStatus(cUserStatus_Online) >*!* ENDIF > >** Create a user object: >oUser = oSkype.User("Chasse Denis") > > >*!* MESSAGEBOX( "User " + oUser.Handle + " online status is " + oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus)) >*!* WScript.Echo "User " & oUser.Handle & " online status is " & oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus) > >SET STEP ON > >** Place a call: >>
>oCall = oSkype.PlaceCall(oUser) >oCall = oSkype.PlaceCall(oUser.Handle) >oSkype.PlaceCall(oUser.Handle) >>
oskype.PlaceCall(ouser.Handle)This one bring up the interface and starts dialing. Two things:
oSkype.Attach()2. Skype has to already be running, minimized in the tray for this to work.