wsh/JavaUpdateをやめさせる - progtips

ソースコード

Set shell = CreateObject("WScript.Shell")
shell.Run "control javacpl.cpl"    ' このやり方はXP用

' コンパネ開く
Call WaitWindow("Java コントロールパネル")
WScript.Sleep 500 : shell.SendKeys "{Right}"
WScript.Sleep 300 : shell.SendKeys "{Tab}"
WScript.Sleep 300 : shell.SendKeys "{Tab}"
WScript.Sleep 300 : shell.SendKeys " "

' 警告ウィンドウが出る - 「確認しない」にする
Call WaitWindow("Java Update - 警告")
WScript.Sleep 500 : shell.SendKeys "{Tab} "

' コンパネを確定するためにEnter
WScript.Sleep 500 : shell.SendKeys "{Enter}"


' name が開くまで確実に待つ
Function WaitWindow(name)
	Do
		If shell.AppActivate(name) Then
			Exit Do
		End If
		WScript.Sleep 100
	Loop
End Function

解説

JavaUpdateのコンパネダイアログは開くまでわりと時間がかかるため、AppActivateでアクティブになるまで待つことにしている。