>>>>** 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)>>>
oSkype.Attach()>>>2. Skype has to already be running, minimized in the tray for this to work.
>>DECLARE Sleep IN kernel32 INTEGER dwMilliseconds >> >>oskype = CREATEOBJECT("Skype4COM.Skype", "Skype") >>oskype.timeout = 5000 >>sleep(1000) >>setskypesilent() >> >>&& I tried many variations here but non came through >>&& I tried "+15146441809" >>&& I tried "+5146441809" >> >>oSkype.PlaceCall("5146441809") >> >>PROCEDURE setSkypeSilent >>LOCAL lcerror >>TRY >> IF EMPTY(oskype.silentmode) >> oskype.silentmode = .T. >> DOEVENTS >> ENDIF >>CATCH TO lcerror >>FINALLY >>ENDTRY >>ENDPROC >>>>