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

看板EzHotKey作者ledup (花)時間15年前 (2009/06/28 13:04)推噓0(0推 0噓 1→)

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

請問要在 MsgBox, 完成。之前先發送ctrl+x 然後按 s 一樣要背景輸入喔不然都要手動輸入有時候會忘記按程式碼要怎麼改呢，謝謝 ※ 引述《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: 61.31.139.28