作者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