Rubrik: COM/OLE/Registry/DLL · Automation | VB-Versionen: VB6, VBA | 05.06.09 |
Skype aufrufen zum Chat oder für Call Eine Funktion, mit der sich Skype via WScript-Objekt zum Chatten bzw. Telefonieren aufrufen lässt. | ||
Autor: Heiko Jendreck | Bewertung: | Views: 75.280 |
www.phw-jendreck.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Um ein externes Programm steuern zu können, verwende ich gern das Objekt "WScript.Shell".
Nachfolgend eine Funktion, mit der sich über das WScript-Objekt Skype entweder zum Chatten oder Telefonieren aufrufen lässt.
Die Funktion erwartet als Parameter den Benutzernamen, sowie die Aktion (Chatten oder Telefonieren).
Nachfolgenden Code bitte in ein Modul einfügen:
Option Explicit Public Enum SkypeAction SkypeChat = 0 SkypeTelephon = 1 End Enum
' Skype-Chat bzw. Skype-Telefonie starten Public Function CallSkype(ByVal Username As String, _ ByVal Action As SkypeAction) As Boolean Dim WShell As Object Dim sParam As String On Error GoTo ErrHandler ' Parameter für den Aufruf zusammenstellen sParam = "skype:" & Username & "?" If Action = SkypeChat Then sParam = sParam & "chat" ElseIf Action = SkypeTelephon Then sParam = sParam & "call" End If ' Skype aufrufen Set WShell = CreateObject("WScript.Shell") WShell.Run sParam On Error GoTo 0 CallSkype = True Exit Function ErrHandler: MsgBox "Fehler beim Aufruf von Skype!" & vbCrLf & _ CStr(Err.Number) & " " & Err.Description, vbExclamation End Function
Aufrufbeispiel:
' Chatten CallSkype "Username", SkypeChat