Software um Telefonnummer auf einem Yealink Telefon mit dem PC wählen inkl. Wählhilfe

strg + alt + c		=> Nummer anrufen (c für call)
strg + alt + t		=> aktuelles Gespräch an Nummer weiterleiten mit Rücksprache (t für transfer)
strg + alt + b		=> aktuelles Gespräch an Nummer weiterleiten ohne Rücksprache (b für blind transfer)

#include <Constants.au3>

Send("^c") ;sende strg und c um zu kopieren  
$nummer = ClipGet() ;lese Zwischenablage aus
bearbeiten($nummer)

$f = FileOpen("C:\Call-Master\telip.txt") ;Telefon IP auslesen  
$ip = FileRead($f)
FileClose($f)

$i=0

If $CmdLine = 0 Then
   $i=1
   $nummer = InputBox( "Nummer eingeben", "Nummer eingeben die angerufen werden soll")  
   If $nummer = Not "" Then  
	  $befehl = "number"  
	  callsend($ip, $nummer, $befehl)
   EndIf
   Exit(0)
EndIf



If $CmdLine[1] = "-c" Then  
   $i=1
   hotkey($ip, $nummer, "number", "Folgende Nummer anrufen?")  
EndIf

If $CmdLine[1] = "-t" Then  
   $i=1
   hotkey($ip, $nummer, "ATrans", "Verbinden mit Rücksprache?")  
EndIf

If $CmdLine[1] = "-b" Then  
   $i=1
   hotkey($ip, $nummer, "BTrans", "Verbinden ohne Rücksprache?")  
EndIf

If $i = 0 Then
   $nummer = $CmdLine[1]
   bearbeiten($nummer)
   hotkey($ip, $nummer, "number", "Folgende Nummer anrufen?")  
EndIf



Func hotkey($ip, $nummer, $befehl, $frage)
   $chk = MsgBox(3, $frage, $nummer) ;frage ob Nummer gesendet werden soll
   If $chk = 6 Then ;wenn Abfrage positiv
	  callsend($ip, $nummer, $befehl)
   EndIf
   If $chk = 7 Then ;pruefe ob Abfrage positiv
	  $nummer = InputBox( "Nummer eingeben", "Nummer eingeben die angerufen werden soll", $nummer)  
	  If $nummer = Not "" Then  
		 callsend($ip, $nummer, $befehl)
	  EndIf
   EndIf
EndFunc



Func callsend($ip, $nummer, $befehl)
   bearbeiten($nummer)
   $aufruf = "http://user:user@" & $ip & "/servlet?key=" & $befehl & "=" & $nummer ;setze Link  
   ShellExecute( "curl.exe", $aufruf ) ;sende Aufruf an Telefon  
EndFunc

Func bearbeiten(ByRef $nummer)
   $nummer = StringRegExpReplace($nummer, '[+]', '00') ;ersetze ein + durch 00  
   $nummer = StringRegExpReplace($nummer, '[^0-9]', '') ;entferne alles ausser zahlen  
EndFunc

#include <Constants.au3>
#RequireAdmin

;Ip abfragen
$ip = InputBox( "IP Adresse", "IP Adresse des Yealink Telefons eingeben")  
If $ip = Not "" Then  
   $hFileOpen = FileOpen("telip.txt", 2 )  
   FileWrite($hFileOpen, $ip)
   FileClose($hFileOpen)
Else
   MsgBox(0, "Abbruch", "Abbruch durch Benutzer oder fehlerhafte Eingabe")  
   Exit(0)
EndIf

$fehler = "Ein Fehler ist währernd der Installation aufgetreten. Wenden Sie sich bitte an den Support. Fehlercode:"  
;Daten Kopieren
If Not FileCopy ( "pcwHotKeys.exe", "C:\Call-Master\pcwHotKeys.exe" , 1 + 8 )Then  
   $fehler = $fehler&"hk "  
EndIf
If Not FileCopy ( "pcwHotkeys.hkd", "C:\Call-Master\pcwHotkeys.hkd" , 1 + 8 )Then  
   $fehler = $fehler&"hkd "  
EndIf
If Not FileCopy ( "pcwHotKeys.INI", "C:\Call-Master\pcwHotKeys.INI" , 1 + 8 )Then  
   $fehler = $fehler&"hkini "  
EndIf
If Not FileCopy ( "telip.txt", "C:\Call-Master\telip.txt" , 1 + 8 )Then  
   $fehler = $fehler&"iptxt "  
EndIf
If Not FileCopy ( "call-master.exe", "C:\Call-Master\call-master.exe" , 1 + 8 )Then  
   $fehler = $fehler&"cm "  
EndIf
If Not FileCopy ( "Hotkeys_call-master.lnk", "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\Hotkeys_call-master.lnk" , 1 )Then  
   $fehler = $fehler&"hklnk "  
EndIf
If Not FileCopy ( "curl.exe", "C:\Windows\System32\curl.exe" , 1 )Then  
   $fehler = $fehler&"curl "  
EndIf
If Not FileCopy ( "call-master.ico", "C:\Call-Master\call-master.ico" , 1 )Then  
   $fehler = $fehler&"ico "  
EndIf
If Not FileCopy ( "call-master.lnk", "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\call-master.lnk" , 1 )Then  
   $fehler = $fehler&"cmlnk "  
EndIf

;ip Datei leeren
$hFileOpen = FileOpen("telip.txt", 2 )  
FileWrite($hFileOpen, "")  
FileClose($hFileOpen)

If $fehler = Not "Ein Fehler ist währernd der Installation aufgetreten. Wenden Sie sich bitte an den Support. Fehlercode:" Then  
   MsgBox(0, "Error", $fehler)  
   Exit(0)
EndIf



$chk = MsgBox(1, "Neustart", "Es wird ein Neustart benötigt um die volle Funktionalität von Call-Master zu gewährleisten")  
If $chk = 1 Then ;pruefe ob Abfrage positiv
Shutdown ( 2 )
EndIf

#include <Constants.au3>
#RequireAdmin

$chk = MsgBox(4, "Uninstall", "Soll Call-Master wirklich deinstalliert werden?")  
If $chk = 6 Then ;pruefe ob Abfrage positiv

ProcessClose ( "pcwHotKeys.exe" )  

$fehler = 0
If Not DirRemove ( "C:\Call-Master" , 1 ) Then  
   MsgBox(0, "Error", "Fehler beim Verzeichnis löschen. Wenden Sie sich bitte an den Support.")  
   $fehler = 1
EndIf
If Not FileDelete ( "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\Hotkeys_call-master.lnk" ) Then  
   MsgBox(0, "Error", "Fehler beim Verknüpfung löschen. Wenden Sie sich bitte an den Support.")  
   $fehler = 1
EndIf
If Not FileDelete ( "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\call-master.lnk" ) Then  
   MsgBox(0, "Error", "Fehler beim Verknüpfung löschen. Wenden Sie sich bitte an den Support.")  
   $fehler = 1
EndIf

If $fehler = Not 0 Then
   Exit(0)
EndIf

MsgBox(0, "Deinstallation erfolgreich", "Die Deinstallation von Call-Master wurde erfolgreich beendet.")  


EndIf