如何編程實現在另壹程序窗口的文本框自動輸入文本並自動跳到另壹個文本框或者按鈕

'使用VBS例，下載dynwrap.dll,然後拷貝至c:\windows\system32，運行regsvr32 dynwrap.dll進行註冊

Set ws=CreateObject("WSCript.shell")

Set Wrap1 = CreateObject("DynamicWrapper")

Wrap1.Register "USER32.DLL", "FindWindow","I=ss","f=s", "R=l"

Wrap1.Register "USER32.DLL", "SetForegroundWindow", "I=h", "f=s", "R=l"

hWin = Wrap1.FindWindow(vbNullString, CStr("窗口名稱"))

if hWin > 0 then

Clipboard = "MsHta vbscript:ClipBoardData.setData(""Text"","""& "您要輸入的文本" &""")(Close)"

ws.Run(Clipboard) '復制文本

ws.sendkeys "{tab}" '發送tab鍵移動焦點

ws.sendkeys "^v" '發送粘貼,確保剪切板有內容

end if

上一篇:西門子s7-300plc連接asi需要什麽模塊

下一篇:flash制作汽車行駛且車輪不斷轉動的效果圖詳細步驟