- Code: Select all Expand view
function dial_skype(t_phone)
local objskype
if empty(t_phone)
return .t.
endif
objSkype = CreateObject("SKYPEAPI.Access", "objSkype_")
objSkype:Connect()
do while objSkype:APIAttachmentStatus <> 0
enddo
inkey(.5)
oCall = objskype:PlaceCall(t_phone)
objskype = Nil
return .t.
El problema es que no encuentro por ningun lado el DLL llamado SkypeAPI.dll; Si alguno de ustedes sabe donde encontrar este DLL favor de comunicarnoslo.
Saludos,
George