IEウィンドウを擬似最大化に設定する。
IEのウィンドウを最大化と同じ位置とサイズに設定します。
ie_set_max.vbs
Set doc=CreateObject("htmlfile")
arr=Array(44,0,0,0,0,0,0,0,1,0,0,0,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,5,0,4,0,3,0)
Call i2b(doc.parentWindow.screen.availWidth,arr,36)
Call i2b(doc.parentWindow.screen.availHeight,arr,40)
Const HKEY_CURRENT_USER=&H80000001
Call GetObject("Winmgmts:root\default:StdRegProv").SetBinaryValue(HKEY_CURRENT_USER,"Software\Microsoft\Internet Explorer\Main","Window_Placement",arr)
Sub i2b(ByVal n,byref arr,ind)
For k=ind To ind+3
arr(k)=n Mod 256
n=n\256
Next
End Sub
« IEのウィンドウの位置とサイズを設定する。 | トップページ | ファイルやフォルダを「送る」ことでリネームする。 »