[AHK-] 分享以Send指令送中文字串小程式

[Lumania (小糠榔)]

BG5ToAsc(xx)
{
   return (NumGet(xx, 0, "UChar") <<8) | NumGet(xx, 1, "UChar")
}

SendBig5(xx)
{
    i:=StrLen(xx)
    if i=0
       return
    i//=2
    loop, %i%
    {
        tmp1 := BG5ToAsc(xx)
        send, {ASC %tmp1%}
        stringtrimleft, xx, xx, 2
    }
}

^Numpad0::
keywait, ctrl
winwaitactive, A
SendBig5("檢驗的一天")
return

大家參考看看

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.69.13.1
推 VElysian:好厲害喔~~專業 推推
→ Lumania:字串中不能摻英文、數字、英文符號 免得錯亂