Re: [AHK-] 背景送字串(中/英文)到別的視窗(PCMan)

看板EzHotKey作者ledup (我是男子漢)時間15年前 (2009/06/27 10:11)推噓0(0推 0噓 2→)

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

請問各路高手有沒有autoit 版本的原始碼 autoit 好像沒有像postmessage這樣子的語法 ※ 引述《IOann ( )》之銘言： : 感謝各位版友及其他各路高手，參考資料夠多，程式就出來了。 : 使用方法： : 將要輸入於 PCMan 的文章複製至程式空白處， : 開啟 PCMan，進入發表文章狀態，按下 ^F11， : 接下來只要沒有關閉或停止程式，便可在背景送文章。 : 詳請參見以下範例： : /* : Language: AutoHotkey : */ : ; Var: : ; Str_Article : ; Var_Control : ; Var_WinTitle : Str_Version := "1.0" : ; Procedure: : ; GuiClose : ; ^F11 : ; ^F12 : ; Function: : ; F_SendByWmImeChar : ; OnCreate : #SingleInstance force : #NoTrayIcon ; Set TrayIcon to non : SetTitleMatchMode, 2 : ; GUI: : Gui, Font, s10, 細明體 : Gui, Add, Edit, vStr_Article r23 w580 : Gui, Font, s9, 新細明體 : Gui, Add, Statusbar, , 閒置 : Gui, Add, Text,, Ctrl + F11 : 開始 : Gui, Add, Text, x+30, Ctrl + F12 : 停止 : Gui, Add, Text, x+115, Saturday, June 20th, 2009 : Gui, Font, cBlue : Gui, Add, Text, x+15 gP_AuthorsLink, Written by IOann @ Pixnet : Gui, Font, Norm : Gui, Show, , PTTEfficientlyPost %Str_Version% : Return : ; Procedure: : GuiClose: : ExitApp : Return : ^F11:: : Pause, Off : Gui, Submit, NoHide : ControlGetFocus, Var_Control, A : WinGet, Var_WinTitle, ID, A : F_SendByWmImeChar(Str_Article) : Return : ^F12:: : SB_SetText("閒置") : Pause ,On : Return : ; Function: : F_SendByWmImeChar(InputStr) : { : Global : InputStrPtr := &InputStr : i := StrLen(InputStr) : j := 0 : Loop : { : SB_SetText(" ... " . (j/i)*100 . " %") : if (j=i) : { : SB_SetText("閒置") : MsgBox, 完成。 : } : if *InputStrPtr = 0 : { : break : } : if *InputStrPtr > 127 : { : OutputStr := ((*InputStrPtr << 8) | *(InputStrPtr+1)) : InputStrPtr := InputStrPtr + 2 : j+=2 : } : else : { : if *InputStrPtr = 10 or *InputStrPtr = 13 ; PCMan 要 #13 才能換行。 : { : OutputStr := 13 : InputStrPtr := InputStrPtr + 1 : j++ : } : else : { : OutputStr := *(InputStrPtr) : InputStrPtr := InputStrPtr + 1 : j++ : } : } : PostMessage, 0x286, OutputStr, 0, %Var_Control%, ahk_ID %Var_WinTitle% : ; 0x286 : WM_IME_CHAR : Random, Int_Delay, 1000, 1100 : Sleep, %Int_Delay% : } : return : } -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 211.72.2.190