batman

ie最大化：

Dim OIE
Set OIE = WScript.CreateObject("internetexplorer.application")
OIE.Navigate "about:blank"
Do Until OIE.ReadyState = 4 : WScript.Sleep 200 : Loop
OIE.Width = OIE.Document.ParentWindow.Screen.Availwidth
OIE.Height = OIE.Document.ParentWindow.Screen.Availheight
'OIE.FullScreen = True 全屏用它
OIE.Visible = True
WScript.Sleep 4000
OIE.Quit
Set OIE = Nothing
复制代码

batman

IE最小化：

Dim OIE, SHELL, Title
Title = "about:blank"
Set OIE = WScript.CreateObject("internetexplorer.application")
OIE.Navigate "about:blank"
Do Until OIE.ReadyState = 4 : WScript.Sleep 200 : Loop
OIE.Visible = True
Set SHELL = CreateObject("Wscript.Shell")
While True    
  If SHELL.AppActivate(Title) Then        
    Wscript.Sleep 200        
    SHELL.SendKeys "% n"
    WScript.Sleep 4000
    OIE.Quit
    Set OIE = Nothing
    Set SHELL = Nothing
    WScript.Quit
  End If
Wend
复制代码

batman

回复 5# Heykuz


你看清楚我四楼的代码是实现的什么效果