Re: [AHK-] [獻醜] 批幣能吃嗎程式碼分享

看板EzHotKey作者UndeadSion (UndeadSion)時間16年前 (2008/11/16 13:09)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

※ 引述《chweng ()》之銘言： : 附上程式碼如下，但是因為限於我對 AutoHotKey 的指令瞭解不算深，加以 : 思考邏輯上可能有一些盲點，所以程式也許不是那麼漂亮、想法不夠周延， : 或是還有可以更加改進之處。這些都歡迎大家多多指教，或是提供更棒的想 : 法一起討論。 : 感謝大家耐心收看。如果一定要從剪貼簿取得資料來源，我會比較建議用 AutoIt 寫，可以直接處理 Unicode 不必考慮雙位元字的問題，範例如下 ---------------->8---------------->8---------------- 請沿此線剪下 ---- $ClipText = StringSplit(StringReplace(ClipGet(), @CR, ""), @LF) WinActivate("[CLASS:PCMan]") WinWaitActive("[CLASS:PCMan]") For $i = 1 To $ClipText[0] $ClipTextLine = StringSplit($ClipText[$i], "") For $j = 1 To $ClipTextLine[0] If $ClipTextLine[$j] = Chr(0x1B) Then Send("^u") ; 送出 Esc 控制碼 Else ClipPut($ClipTextLine[$j]) Send("!p") ; 貼上 EndIf Sleep(Random(500, 1500, 1)) Next Send("{ENTER}") Sleep(100) Next MsgBox(0, "", "貼文完成") ---------------->8---------------->8---------------- 請沿此線剪下 ---- 防呆就略過不寫了，以上的 Script 可以支援多國語言以及 ANSI 控制碼，唯獨雙色字的部份因為 Unicode 格式無法儲存分開的雙位元字，所以程式沒有辦法直接支援，必須另外標記處理這些部份，不過與其如此，還不如直接處理 ANSI 檔案比較快 (雖說 ANSI + BIG5 擴充字集是違反時代潮流囧) 因此我用 AutoHotkey 另外寫了個支援雙色字的貼文程式，稍後會在 EZsoft 板釋出，有需要的人不妨試試，若有任何問題也歡迎回報 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 60.248.159.124

Re: [AHK-] [獻醜] 批幣能吃嗎 程式碼分享

Re: [AHK-] [獻醜] 批幣能吃嗎程式碼分享