Код: Выделить всё
00001 '// Create a Skype4COM object:
00002 Set oSkype = WScript.CreateObject("Skype4COM.Skype", "Skype_")
00003
00004 '// Start the Skype client:
00005 If Not oSkype.Client.IsRunning Then oSkype.Client.Start() End If
00006
00007 '// Send SMS:
00008 Set oSMS = oSkype.SendSms("+1234567890", "Hello!")
00009
00010 WScript.Sleep(60000)
00011
00012 '// Message event handler:
00013 Public Sub Skype_SmsMessageStatusChanged(ByRef aSms, ByVal aStatus)
00014 WScript.Echo ">Sms " & aSms.Id & " status " & aStatus & " " & oSkype.Convert.SmsMessageStatusToText(aStatus)
00015 End Sub
00016
00017 '// Target event handler:
00018 Public Sub Skype_SmsTargetStatusChanged(ByRef aTarget, ByVal aStatus)
00019 WScript.Echo ">Sms " & aTarget.Message.Id & " target " & aTarget.Number & " status " & aStatus & " " & oSkype.Convert.SmsTargetStatusToText(aStatus)
00020 End Sub
