アクティブなアプリケーションで8時間、基本的に4分ごとに「F2」を押す小さなスクリプトがあります。
私のVBのスキルは非常に限られているため、機能し、本当に基本的です。
私は今、プロジェクトへの新しい追加を考えましたが、それが可能かどうか、またはそれに取り組む方法がわかりません.
基本的に、タイマーが表示される小さなウィンドウと、一時停止、再開、停止ボタンが必要です。F2 ボタンを押したくないので、別のアプリケーションにいるかのようにこれらのボタンを使用できれば、非常に有利です。
ここに私が持っているものがあります:
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
dim ti
ti=timer
Do
WshShell.SendKeys "{F2}"
For AA = 1 To 9
IF AA = 8 Then BB = "in 30 seconds"
IF AA = 9 Then BB = "now !"
WScript.Sleep 30000
Dim oShell
Set oShell= CreateObject("Wscript.Shell")
IF AA = 8 OR AA = 9 Then oShell.Popup " Refresh ... " & BB & " ",2,"Remind"
Next
Loop while (timer-ti)<8*60*60
MsgBox "VB End: " & Time()
ありがとうございました