[文件操作] 批处理或VBS如何最小化傲游？

Heykuz

如果没傲游可以用IE测试。因为IE也是不行的。实在自己试了好多。完全没切了，才来提问。
bat或vbs都行。

start /min "" "***"           测试过记事本行，media player行，services.msc不行。IE和傲游不行。
ws.run """***""",2          测试过记事本行，media player行，services.msc不行。IE和傲游不行。

不知道bat和vbs是一模一样的……都不行。换为最大化，也是不行。期待有心高人来解决。

#############################################################

那个。2 3 4楼的版主们都正确。可能是我表达不好吧。我想是最小化到任务栏。就是缩小到任务栏。呜呜。而傲游，我是想让它缩小后，它会自动缩小到托盘的。
麻烦版主及大大们再来光顾一下。

Heykuz

没需要了，谢谢楼上的各位。IE都搞不定，傲游更麻烦，我用小精灵让它最小化了。

Batcher

回复 8# Heykuz


改成这样你看行不：

这位大爷，小的这厢有礼了，劳驾您老把需求更新到顶楼。

Heykuz

终于明白了。我自己又傻傻的到处测试。原来是，不加载网址，因为我的主页不是about:blank，所以about:blank也被视为加载。单纯打开IE的时候可以最小化。一旦加载网页它就自动弹出来。

Heykuz

回复  Heykuz


你看清楚我四楼的代码是实现的什么效果
batman 发表于 2012-11-22 08:27

真的不行，就只是按了按钮加号缩小一点的效果。
那个，还有。我这是IE8。不知道版本一样不。

Heykuz

回复 6# Batcher


    好好好，你好凶。

batman

回复 5# Heykuz


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

Batcher

回复 5# Heykuz


    请把所有的需求更新到顶楼，以便后来人查看。

Heykuz

那个。2 3 4楼的版主们都正确。可能是我表达不好吧。我想是最小化到任务栏。就是缩小到任务栏。呜呜。而傲游，我是想让它缩小后，它会自动缩小到托盘的。
麻烦版主及大大们再来光顾一下。

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
复制代码

tmplinshi

我测试 IE8 是可以的。

start /min "" "C:\Program Files\internet explorer\iexplore.exe"
复制代码

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
复制代码