有提供按鍵模擬函式,網址如下,不可用在商業行為上: http://www.froggy.com.au/andromeda/software/pushkeys/ (keypush.dll/pushkeys.hlp) 我下載測試還可以用,使用方法可查HELP 假設FORM 上有3個EDIT h=load("KEYPUSH.DLL") edit0.Focused() call(h,"PushKeys","5L**","ANDYABCD") &&在EDIT0 輸入ANDYABC call(h,"PushKeys","5L**","{DOWN}") &&游標移至EDIT1 call(h,"PushKeys","5L**",{CAPSLOCK}) &大/小寫切換 call(h,"PushKeys","5L**","ANDYTTY") &&在EDIT1 輸入ANDYTTY call(h,"PushKeys","5L**","{DOWN}") && &&游標移至EDIT2 call(h,"PushKeys","5L**","My report")&&在EDIT2 輸入My report release(H) ========================== 呼叫notepad.exe 輸入資料 h=load("KEYPUSH.DLL") WRUN("notepad.exe",.t.) call(h,"PushKeys","5L**","ABC~PPO~KJHSKDFSJKDHW") call(h,"PushKeys","5L**","^(' ')") && CTRL SPACE 中文切換 call(h,"PushKeys","5L**","FU,41") release(H) 中文輸入有一點問題 =============== 呼叫calc.exe 輸入計算資料傳回值 h=load("KEYPUSH.DLL") WRUN("calc.exe",.t.) call(h,"PushKeys","5L**","15*8{ENTER}") &&輸入15*8 return 15*8:可寫成變數 call(h,"PushKeys","5L**","^(C)") &&ctrl c 拷貝 call(h,"PushKeys","5L**","{SLEEP 2}%{F4}") && 暫停 2 sec /alt f4 結束計算機 edit3.Focused() call(h,"PushKeys","5L**","{SLEEP 2}^(V)") && ctrl V 貼上 這裹有計算,有copy,但貼上有點問題 其他功能看 help 希望對你有一點幫助