Remove Skype Emoji.au3

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.2
 Author:         Merlin Reichwald

 Script Function:
    Make Emoji Great Again (and fix the cat face, seriously M$?)

#ce ----------------------------------------------------------------------------

#include <Misc.au3>

_Singleton( "Remove Skype Emoji", 0 )

Func AdditionalCharOnSkype()
  Local $title = WinGetTitle( "" )

  HotKeySet( @HotKeyPressed )
  Send( @HotKeyPressed )

  If StringInStr( $title, "skype" ) Then
    Send( "​" ); Zero Width Space, not empty string
  EndIf

  HotKeySet( @HotKeyPressed, "AdditionalCharOnSkype" )

EndFunc

Func RegisterAutoStart( $path, $title, $global = 0 )

  Local $root = "HKCU"

  If $global Then
    ;#RequireAdmin
    $root = "HKLM"
  EndIf

  RegWrite( $root & "\Software\Microsoft\Windows\CurrentVersion\Run", $title, "REG_SZ", $path )


EndFunc

If @Compiled Then
  RegisterAutoStart( @AutoItExe, "Remove Skype Emoji" )
EndIf

HotKeySet( ":", "AdditionalCharOnSkype" )
HotKeySet( ";", "AdditionalCharOnSkype" )
; Uncomment this to remove skype emoji like (cool)
; HotKeySet( "(", "AdditionalCharOnSkype" )

While 1
  Sleep( 30 )
WEnd