發送中文以及其它字符-SendC (AUTOIT)

發送中文以及其它字符-SendC (AUTOIT)

Run("notepad.exe")
WinWaitActive("未命名 - 記事本")
$Text = "中文 :請多關照" & @CR
$Text &= "繁體 :請多關照 " & @LF
$Text &= "日文 :よろしくお願いします " & @CR
$Text &= "特殊符號: ♂☆⊙①ⅠΘ︰" & @LF
$Text &= "@CRLF 會換行2次" & @CRLF
$Text &= "End"

SendC($Text)

Func SendC($Str)
    For $i = 1 To StringLen($Str)
        Send('{ASC ' & StringToBinary(StringMid($Str, $i, 1) & ' ') & '}')
    Next
EndFunc


如有錯誤 歡迎指正