« IEのウィンドウの位置とサイズを設定する。 | トップページ | ファイルやフォルダを「送る」ことでリネームする。 »

2012年1月21日 (土)

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のウィンドウの位置とサイズを設定する。 | トップページ | ファイルやフォルダを「送る」ことでリネームする。 »