VBScriptメモ

2020年3月12日 CEO 0 Comments

VBScriptってなんでしょ?

https://wa3.i-3-i.info/word14249.html

よく知らずに使ってました。

とりあえず、Windows上でIEを操作してみました。
(Egdeには対応してないので、
今後用途があるのかどうかはIE次第ですね。。)

Option Explicit
On Error Resume Next

Dim strUrl1 ‘ 表示するページ
Dim objIE1 ‘ IE オブジェクト

strUrl1 = ” https://www.yahoo.co.jp/ “
Set objIE1 = WScript.CreateObject(“InternetExplorer.Application”)

If Err.Number = 0 Then

objIE1.Navigate strUrl1
objIE1.Visible = True
objIE1.Width = 350 ‘幅
objIE1.Height = 768  ‘高さ
objIE1.Top = 0  ‘上からの表示位置
objIE1.Left = 1024  ‘左からの表示位置
objIE1.Menubar = False  ‘メニューバー有無
objIE1.Statusbar = False  ‘ステータスバー有無
objIE1.AddressBar = False   ‘アドレスバー有無

Else
WScript.Echo “エラー:” & Err.Description
End If
Set objIE1 = Nothing
Set strUrl1 = Nothing