0

アクティブなアプリケーションで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()

ありがとうございました

4

1 に答える 1