[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 Heykuz 于 2012-11-22 12:08 编辑

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

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

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

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

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

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

TOP

回复 8# Heykuz


改成这样你看行不:
这位大爷,小的这厢有礼了,劳驾您老把需求更新到顶楼。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 Heykuz 于 2012-11-22 14:02 编辑

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

TOP

本帖最后由 Heykuz 于 2012-11-22 12:11 编辑
回复  Heykuz


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


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

TOP

回复 6# Batcher


    好好好,你好凶。

TOP

回复 5# Heykuz


你看清楚我四楼的代码是实现的什么效果
***共同提高***

TOP

回复 5# Heykuz


    请把所有的需求更新到顶楼,以便后来人查看。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

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

TOP

本帖最后由 batman 于 2012-11-22 00:13 编辑

IE最小化:
  1. Dim OIE, SHELL, Title
  2. Title = "about:blank"
  3. Set OIE = WScript.CreateObject("internetexplorer.application")
  4. OIE.Navigate "about:blank"
  5. Do Until OIE.ReadyState = 4 : WScript.Sleep 200 : Loop
  6. OIE.Visible = True
  7. Set SHELL = CreateObject("Wscript.Shell")
  8. While True   
  9.   If SHELL.AppActivate(Title) Then        
  10.     Wscript.Sleep 200        
  11.     SHELL.SendKeys "% n"
  12.     WScript.Sleep 4000
  13.     OIE.Quit
  14.     Set OIE = Nothing
  15.     Set SHELL = Nothing
  16.     WScript.Quit
  17.   End If
  18. Wend
复制代码
***共同提高***

TOP

我测试 IE8 是可以的。
  1. start /min "" "C:\Program Files\internet explorer\iexplore.exe"
复制代码

TOP

本帖最后由 batman 于 2012-11-21 23:38 编辑

ie最大化:
  1. Dim OIE
  2. Set OIE = WScript.CreateObject("internetexplorer.application")
  3. OIE.Navigate "about:blank"
  4. Do Until OIE.ReadyState = 4 : WScript.Sleep 200 : Loop
  5. OIE.Width = OIE.Document.ParentWindow.Screen.Availwidth
  6. OIE.Height = OIE.Document.ParentWindow.Screen.Availheight
  7. 'OIE.FullScreen = True 全屏用它
  8. OIE.Visible = True
  9. WScript.Sleep 4000
  10. OIE.Quit
  11. Set OIE = Nothing
复制代码
***共同提高***

TOP

返回列表