＞具体的に教えていただけるとうれしいです。
メモ帳を開いて
↓の文章を貼り付けます。
const HKCU = &H80000001
const TIME_LAG = 100
Set WshShell = CreateObject("WScript.Shell")
Set Shell = WScript.CreateObject("Shell.Application")
Shell.TrayProperties
act "タスク バーと [スタート] メニューのプロパティ"
delayedSendKeys "%u"
delayedSendKeys "%t"
delayedSendKeys "{enter}"
while WshShell.AppActivate("タスク バーと [スタート] メニューのプロパティ")
WScript.Sleep TIME_LAG
wend
WScript.Sleep 1000
Shell.TrayProperties
act "タスク バーと [スタート] メニューのプロパティ"
delayedSendKeys "%u"
delayedSendKeys "%t"
delayedSendKeys "{enter}"
WScript.Quit
Sub delayedSendKeys(str)
WScript.Sleep TIME_LAG
WshShell.SendKeys str
End Sub
sub act(s)
for j=0 to 600
WScript.Sleep(100)
'ダウンロードダイアログの確認
if WshShell.AppActivate(s) then
exit for
elseif j=599 then
'1 分待ってもウィンドウが開かない場合はあきらめる
WScript.Quit
end if
next
end sub
sub checkbusy()
dim objWMIService, objRefresher, objProcessor, intProcessorUse
dim intThresholdViolations
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
set objRefresher = CreateObject("WbemScripting.Swbemrefresher")
Set objProcessor = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_PerfOS_Processor").objectSet
intThresholdViolations = 0
objRefresher.Refresh
Do
For each intProcessorUse in objProcessor
If intProcessorUse.PercentProcessorTime < 50 Then
intThresholdViolations = intThresholdViolations + 1
If intThresholdViolations = 10 Then
intThresholdViolations = 0
Exit Sub
End If
Else
intThresholdViolations = 0
End If
Next
Wscript.Sleep 500
objRefresher.Refresh
Loop
end sub
貼り付けたら
「ファイル」→「名前を付けて保存」で
ittochan.vbs
っていう名前で保存します。
保存したittochan.vbsをダブルクリックして実行してみます。
（環境によってはスクリプトの微調整が必要と思われます）
お礼
回答ありがとう御座います。 お礼遅くなり申し訳有りません。 実行してみたら色々作動しましたが、問題の解決にはいたりませんでした。 でも面白かったですよ。