Skype4COM: Client.vbs

Skype4COM

Client.vbs

This script opens different windows in the Skype client.

Copyright � 2004-2006 Skype Limited. Licensed under BSD license.

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

'// Start the Skype client:
If Not oSkype.Client.IsRunning Then oSkype.Client.Start() End If

'// Bring the client into focus:
oSkype.Client.Focus
WScript.Sleep(1000)

'// Minimize the client to the system tooltray:
oSkype.Client.Minimize
WScript.Sleep(1000)

'// Open the Add Contacts window and enter "echo123" in the contact field:
oSkype.Client.OpenAddContactDialog "echo123"
WScript.Sleep(1000)

'// Open a Chat window with "echo123" and type "Hi" in the message pane:
oSkype.Client.OpenMessageDialog "echo123", "Hi"
WScript.Sleep(1000)

'// Transfer a file to "echo123"
'oSkype.Client.OpenFileTransferDialog "echo123", "c:\temp"
'WScript.Sleep(1000)

'// Open other windows as required, with the following commands:
oSkype.Client.OpenProfileDialog
WScript.Sleep(1000)
oSkype.Client.OpenUserInfoDialog "echo123"
WScript.Sleep(1000)
oSkype.Client.OpenConferenceDialog
WScript.Sleep(1000)
oSkype.Client.OpenSearchDialog
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("GENERAL")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("PRIVACY")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("NOTIFICATIONS")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("SOUNDALERTS")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("SOUNDDEVICES")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("HOTKEYS")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("CONNECTION")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("VOICEMAIL")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("CALLFORWARD")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("VIDEO")
WScript.Sleep(1000)
oSkype.Client.OpenOptionsDialog("ADVANCED")
WScript.Sleep(1000)
oSkype.Client.OpenCallHistoryTab
WScript.Sleep(1000)
oSkype.Client.OpenContactsTab
WScript.Sleep(1000)
oSkype.Client.OpenDialpadTab
WScript.Sleep(1000)
oSkype.Client.OpenLiveTab
WScript.Sleep(1000)
oSkype.Client.OpenSendContactsDialog "echo123"
WScript.Sleep(1000)
oSkype.Client.OpenBlockedUsersDialog
WScript.Sleep(1000)
oSkype.Client.OpenImportContactsWizard
WScript.Sleep(1000)
oSkype.Client.OpenGettingStartedWizard
WScript.Sleep(1000)
oSkype.Client.OpenAuthorizationDialog "echo123"
WScript.Sleep(1000)
oSkype.Client.OpenVideoTestDialog
WScript.Sleep(1000)

'// The AttachmentStatus event handler monitors attachment status and automatically attempts to reattach to the API following loss of connection:
Public Sub Skype_AttachmentStatus(ByVal aStatus)
  WScript.Echo ">Attachment status " & oSkype.Convert.AttachmentStatusToText(aStatus)
  If aStatus = oSkype.Convert.TextToAttachmentStatus("AVAILABLE") Then oSkype.Attach() End If
End Sub

Copyright � 2006 Skype Limited. All rights reserved.