by wakaba » 2009年1月04日(日) 18:49
早速回答ありがとう
ご指摘のキーを離す件ですが 先に気がついて実験した結果です
当サイトを 再度読みなおし”フォーカスが無いのでは?”と思い 以下のようにコードを追加しましたが やっぱり不可です
現在テスト中のものは パスワード付き圧縮ファイルの解凍です
-------------------------------------------------------------------------------------
For I=0 To 99
ShellExecute(0,NULL,exeName(I),NULL,NULL,SW_SHOWDEFAULT)
Sleep(1000) '起動時間
hFocus = FindWindow(NULL, NULL)
SetFocus(hFocus) '追加
cnt=len(passBox) '追加
if cnt <> 0 then
For t=0 to cnt-1
keybd_event(s_pass[t],0,0,0)
Sleep(200)
Next
keybd_event(13,0,0,0)'password input 自動リターン
End If
Sleep(1000) '動作時間
Next
-------------------------------------------------------------------------------------
違う方に 向かっているのでしょうか?_
なお ShellExecute(0,NULL,exeName(I),NULL,NULL,SW_SHOWDEFAULT)
のパラメータを SW_HIDE にもしてみましたが パスワードが入力されません
よろしくお願いします
早速回答ありがとう
ご指摘のキーを離す件ですが 先に気がついて実験した結果です
当サイトを 再度読みなおし”フォーカスが無いのでは?”と思い 以下のようにコードを追加しましたが やっぱり不可です
現在テスト中のものは パスワード付き圧縮ファイルの解凍です
-------------------------------------------------------------------------------------
For I=0 To 99
ShellExecute(0,NULL,exeName(I),NULL,NULL,SW_SHOWDEFAULT)
Sleep(1000) '起動時間
hFocus = FindWindow(NULL, NULL)
SetFocus(hFocus) '追加
cnt=len(passBox) '追加
if cnt <> 0 then
For t=0 to cnt-1
keybd_event(s_pass[t],0,0,0)
Sleep(200)
Next
keybd_event(13,0,0,0)'password input 自動リターン
End If
Sleep(1000) '動作時間
Next
-------------------------------------------------------------------------------------
違う方に 向かっているのでしょうか?_
なお ShellExecute(0,NULL,exeName(I),NULL,NULL,SW_SHOWDEFAULT)
のパラメータを SW_HIDE にもしてみましたが パスワードが入力されません
よろしくお願いします