.Net 知識家

原作者是ptt的IOann ，這程式是用來 背景輸入 文字的程式

之前的方法都是停在該視窗上，本來我認為這是做不到的

居然有人真的做出來，造福大家，太厲害了

這樣就能邊輸入文字，邊做別的事情了

ctrl+f11 執行 ctrl+f12 停止

以下是AutoHotkey原始碼
 

/* 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 }

---

如有錯誤 歡迎指正