帮忙写个VBS吧：当前屏幕分辨率执行相应程序 - 中国DOS联盟论坛

set oIE = CreateObject("htmlfile")
with oIE.parentWindow.screen
msgbox .width & "×" & .height
set oshell = CreateObject("WScript.Shell")
oshell.run (".exe")
end with

上面这段VBS可以判断当前屏幕分辨率

width

height

这两个应该是变量（应该这样叫吧呵呵）

我想让这个VBS 运行 width 这个变量

比如当前分辨率是1024*768

那么就运行1024.exe

不知道这么说大家能明白不。会VBS的帮帮忙被。谢谢啦

或者不管用什么语言 BAT啊 AU3 只要能实现

当分辨率为1024*768 执行1024.exe
当分辨率为1280*1024 执行1280.exe
当分辨率为1440*900 执行1440.exe
当分辨率为1680*1050 执行1680.exe、

─────────────────　版务记录　─────────────────
执行：HAT
操作：在帖子标题中增加搜索关键字；代码加code标签
说明：原标题"高手帮忙写个VBS吧"不利于论坛搜索
处罚：论坛新人免于积分处罚
提示：建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{27314}反面教材：本论坛“精彩”标题小集
{32667}愤怒：那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖
─────────────────　版务记录　─────────────────

[ Last edited by HAT on 2009-2-8 at 00:24 ]

第1楼　netguy	发表于 2009-02-07 13:46
新手上路　发帖 3　积分 6
[求助]帮忙写个VBS吧：当前屏幕分辨率执行相应程序 set oIE = CreateObject("htmlfile") with oIE.parentWindow.screen msgbox .width & "×" & .height set oshell = CreateObject("WScript.Shell") oshell.run (".exe") end with 上面这段VBS可以判断当前屏幕分辨率 width height 这两个应该是变量（应该这样叫吧呵呵）我想让这个VBS 运行 width 这个变量比如当前分辨率是1024768 那么就运行1024.exe 不知道这么说大家能明白不。会VBS的帮帮忙被。谢谢啦或者不管用什么语言 BAT啊 AU3 只要能实现当分辨率为1024768 执行1024.exe 当分辨率为12801024 执行1280.exe 当分辨率为1440900 执行1440.exe 当分辨率为16801050 执行1680.exe、 ─────────────────　版务记录　───────────────── 执行：HAT 操作：在帖子标题中增加搜索关键字；代码加code标签说明：原标题"高手帮忙写个VBS吧"不利于论坛搜索处罚：论坛新人免于积分处罚提示：建议阅读以下帖子 {1415}提问的智慧 {7326}论坛新手必读，所有人的基本行为准则 {22703}请不要做浮躁的人 {27314}反面教材：本论坛“精彩”标题小集 {32667}愤怒：那些连标题都写不清楚的人们啊，你们醒醒吧 {32825}本版严厉整顿烂帖 ─────────────────　版务记录　───────────────── [ Last edited by HAT on 2009-2-8 at 00:24* ]

第2楼　slore	发表于 2009-02-07 14:29
铂金会员　发帖 2,478　积分 5,212
wd = CreateObject("htmlfile").parentWindow.screen.width Set oshell = CreateObject("WScript.Shell") oshell.run (wd & ".exe")

第3楼　yishanju	发表于 2009-02-07 14:37
银牌会员　发帖 1,357　积分 1,488
for /f %%i in ('wmic desktopmonitor get screenwidth^\|findstr /c:"1024" /c:"1280" /c:"1440" /c:"1680"') do ( start "" %%i.exe ) pause