|
IEを指定のサイズで開くスクリプトを前回やった後に、次回IEをIE = CREATEOLEOBJ("InternetExplorer.Application")で開いた際に前回の指定サイズでIEが起動してしまいます。
下記のスクリプトでサイズを指定して開いてもウィンドウのサイズは、指定サイズで開けますが既定サイズの変更にはなりません。
なにか良い方法ないでしょうか?
---------------------
w=1600
h=862
TRY
IE = CREATEOLEOBJ("InternetExplorer.Application")
EXCEPT
EXEC("C:\Program Files\Internet Explorer\iexplore.exe")
IE = GETACTIVEOLEOBJ("InternetExplorer.Application")
ENDTRY
IE.visible = true
IE.navigate(url)
REPEAT
SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4
id =hndtoid(IE.hwnd)
ACW(id,0,0,G_SCREEN_W,h)
ctrlwin(id,close)
|
No.173 2019/01/27(Sun) 17:40:45
|
☆ Re: IEのウィンドウの既定サイズ変更する方法 / satocha |
|
|
|
powershellならバイナリ書き込みは簡単でした。
----------------------setIeDefaultRectangle.uws-----------------------
if get_uwsc_name="setIeDefaultRectangle.uws"
fukidasi( "現在のIEのサイズと位置に注目" )
exec( "<#dbl>C:\Program Files\Internet Explorer\iexplore.exe<#dbl>" )
sleep( 3 )
fukidasi( "IEのサイズと位置を変更" )
powershell( "ps iexplore|kill" )
sleep( 3 )
setIeDefaultRectangle( 300, 60, 400, 700 )
exec( "<#dbl>C:\Program Files\Internet Explorer\iexplore.exe<#dbl>" )
endif
procedure setIeDefaultRectangle( x1, y1, x2, y2 ) //x1,y1は左上座標 x2,y2は右下座標
src =replace( setIeDefaultRectangle.src, "<X1>", x1 )
src =replace( src, "<Y1>", y1 )
src =replace( src, "<X2>", x2 )
src =replace( src, "<Y2>", y2 )
powershell( src )
module setIeDefaultRectangle
textblock src
function setIeDefaultSize( $X1, $Y1, $X2, $Y2 ){
$ORG =(get-ItemProperty hkcu:software\microsoft\Internet` Explorer\main Window_Placement).Window_Placement
$Head28 =$ORG[0..27]
$Head28 =$Head28|%{$_.toString("x").padleft(2,"0")}
$X1 =($X1.toString("x").padleft(8,"0") -replace "(..)",'$1 ' -replace " $","" -split" ")[3..0]
$X2 =($X2.toString("x").padleft(8,"0") -replace "(..)",'$1 ' -replace " $","" -split" ")[3..0]
$Y1 =($Y1.toString("x").padleft(8,"0") -replace "(..)",'$1 ' -replace " $","" -split" ")[3..0]
$Y2 =($Y2.toString("x").padleft(8,"0") -replace "(..)",'$1 ' -replace " $","" -split" ")[3..0]
$data =$Head28
$data +=$X1
$data +=$Y1
$data +=$X2
$data +=$Y2
$data =$data|%{"0x$_"}
set-ItemProperty hkcu:software\microsoft\Internet` Explorer\main Window_Placement -value $data -type binary
}
setIeDefaultSize <X1> <Y1> <X2> <Y2>
endtextblock
endmodule
fend
|
No.178 2019/01/30(Wed) 13:51:44
|
|
☆ Re: IEのウィンドウの既定サイズ変更する方法 / Rayna |
|
|
|
>>173 あらわし さん
COM状態で起動されたIEはウインドウサイズの復元保持はされません
① objIe = CreateOleObj("InternetExplorer.Application")
COMモードで起動するのでウインドウサイズの復元保持されない
② Exec("<#DBL>C:\Program Files\Internet Explorer\iexplore.exe<#DBL> -embedding")
objIe = GetActiveOleObj("InternetExplorer.Application")
COMモードで起動するのでウインドウサイズの復元保持されない
③ Exec("<#DBL>C:\Program Files\Internet Explorer\iexplore.exe<#DBL>")
objIe = GetActiveOleObj("InternetExplorer.Application")
通常モードで起動するのでウインドウサイズの復元保持される
ウインドウサイズのサイズを保持したいだけなら
ReadIni, WriteIni を使って起動時に読み込み、終了時に保存するのが簡単だと思います
以下実装例(ModuleでまとめてCallで呼び出したほうが便利だと思います)
//| No173.uws |//////////////////////////////////
//|
Const PATH_WPOS_INI_DIR = GET_APPDATA_DIR+"\UWSC\Demo\"
Const PATH_WPOS_INI = PATH_WPOS_INI_DIR+"\WindowPosition.ini"
Dim i, objIe, widExplorer
For i = 1 To 2
objIe = IeCreate(EMPTY, TRUE)
Repeat; Balloon(i+"回目の実行：IEの終了を待機中 位置とサイズ変更を保持します", G_MOUSE_X+10, G_MOUSE_Y+10); Sleep(0.001); Until ! objIe.Visible
Next
widExplorer = Exec("explorer.exe <#DBL>"+PATH_WPOS_INI_DIR+"<#DBL>")
Balloon("Demo用なので使わないならフォルダごと削除してください("+PATH_WPOS_INI_DIR+")<#CR>[Pause/Break] か このウインドウを閉じる とスクリプト終了", Status(widExplorer, ST_X), Status(widExplorer, ST_Y), 0, 9)
Repeat; Sleep(0.1); Until GetKeyState(VK_PAUSE) Or (! Status(widExplorer, ST_VISIBLE))
Function IeCreate(urlNav=, boolVisible=FALSE, x=, y=, w=, h=)
Dim pathIeExe = "C:\Program Files\Internet Explorer\iexplore.exe"
Try
RESULT = CreateOleObj("InternetExplorer.Application")
Except
Exec("<#DBL>"+pathIeExe+"<#DBL> -embedding")
Repeat; Com_Err_Ign; RESULT=GetActiveOleObj("InternetExplorer.Application"); Com_Err_Ret; Until ! COM_ERR_FLG
EndTry
IeLoadPosition(RESULT, PATH_WPOS_INI)
With RESULT
If Length(x) Then .Left =Val(x, 0)
If Length(y) Then .Top =Val(y, 0)
If Length(w) Then .Width =Val(w, 800)
If Length(h) Then .Height=Val(h, 600)
.Visible = boolVisible
EndWith
If Length(urlNav) Then IeNavigate(RESULT, urlNav)
OleEvent(RESULT, "DWebBrowserEvents2", "OnQuit", "IeEventOnQuit")
FEnd
Procedure IeSavePosition(objIe, path=)
//| パスが指定されなければ 現在のディレクトリ\自ファイル名.ini を指定
If ! Length(path) Then path=GET_CUR_DIR+"\"+Copy(GET_UWSC_NAME, 1, Pos(".", GET_UWSC_NAME, -1))+"ini"
//| 指定されたパスのディレクトリがなければ作成
Dim pathDir=Split(path, "\", TRUE); pathDir=Join(pathDir, "\", FALSE, 0, Resize(pathDir)-1)
If ! FOpen(pathDir+"\", F_EXISTS) Then DosCmd("MkDir <#DBL>"+pathDir+"\<#DBL>")
With objIe
WriteIni("IE", "X", .Left, path); WriteIni("IE", "Y", .Top, path); WriteIni("IE", "W", .Width, path); WriteIni("IE", "H", .Height, path)
EndWith
FEnd
Procedure IeLoadPosition(Var objIe, path=)
//| パスが指定されなければ 現在のディレクトリ\自ファイル名.ini を指定
If ! Length(path) Then path=GET_CUR_DIR+"\"+Copy(GET_UWSC_NAME, 1, Pos(".", GET_UWSC_NAME, -1))+"ini"
If ! FOpen(path, F_EXISTS) Then IeSavePosition(objIe, path)
With objIe
.Left=ReadIni("IE", "X", path); .Top=ReadIni("IE", "Y", path); .Width=ReadIni("IE", "W", path); .Height=ReadIni("IE", "H", path)
EndWith
FEnd
Procedure IeEventOnQuit()
Dim objIe=GetActiveOleObj("InternetExplorer.Application")
IeSavePosition(objIe, PATH_WPOS_INI)
objIe=NOTHING
FEnd
Procedure IeNavigate(Var objIe, urlNav); objIe.Navigate(urlNav); IeBusyWait(objIe); FEnd
Procedure IeBusyWait(Var objIe); Repeat; Sleep(0.1); Until (! objIe.Busy) And (objIe.ReadyState=4); FEnd
Procedure IeQuit(Var objIe); objIe.Quit(); objIe=NOTHING; FEnd
//|
//////////////////////////////////////////////////////
|
No.183 2019/01/31(Thu) 13:14:08
|
|
