Pasted

#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