作者ledup (花)
看板EzHotKey
標題Re: [AHK-] 背景送字串(中/英文)到別的視窗(PCMan)
時間Sun Jun 28 13:04:42 2009
請問要在
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
1F：→ UndeadSion:送 ^X 字元與送其它字元的方式相同 :) 06/29 21:29