IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[求助] au3搜索任意盘符指定文件夹指定程序并运行

[复制链接]
sky857160 发表于 2019-7-15 15:18:48 来自手机 | 显示全部楼层 |阅读模式

本帖最后由 sky857160 于 2019-7-16 08:06 编辑

请教
求助

比如  任意盘符:\文件夹\GoRuntime_DirectX_9.0c.exe
        任意盘符:\文件夹\GoRuntime_vc.exe
  1. #include <array.au3>
  2. #include <file.au3>
  3. ; #NoTrayIcon
  4. $g_szVersion = "test"
  5. If WinExists($g_szVersion) Then Exit
  6. AutoItWinSetTitle($g_szVersion)
  7. Dim $i, $Drive
  8. For $i = 67 To 90
  9.         $Drive = Chr($i)
  10.         If FileExists($Drive & ":\" & "Run" & "\" & "GoRuntime_DirectX_9.0c.exe") Then
  11.                 ShellExecuteWait($Drive & ":\" & "Run" & "\" & "GoRuntime_DirectX_9.0c.exe","/s")
  12.                 EndIf
  13.                 Next
复制代码

ShellExecuteWait 用这个可以加参数
原代码地址  http://www.seaomc.com/archives/2813.html上面是网上搜的,添加多个程序 怎么改?




最近访问 头像模式 列表模式
 楼主| sky857160 发表于 2019-7-15 15:31:55 | 显示全部楼层

活跃 17721| 技术 18| 互助 36| 钻石 20

为什么写上代码出现这个 捕获.PNG


ex_heyh 发表于 2019-7-15 21:51:00 | 显示全部楼层

活跃 9431| 技术 4| 互助 11| 钻石 80

贴出你写的代码  大神们才知道的你的代码错在那里。
 楼主| sky857160 发表于 2019-7-17 11:20:59 | 显示全部楼层

活跃 17721| 技术 18| 互助 36| 钻石 20

@gp2386  运行任意盘符指定文件夹指定程序
 楼主| sky857160 发表于 2019-7-17 13:52:14 | 显示全部楼层

活跃 17721| 技术 18| 互助 36| 钻石 20

  1. #include <array.au3>
  2. #include <file.au3>
  3. ; #NoTrayIcon
  4. $g_szVersion = "test"
  5. If WinExists($g_szVersion) Then Exit
  6. AutoItWinSetTitle($g_szVersion)
  7. Dim $i, $Drive
  8. For $i = 67 To 90
  9.         $Drive = Chr($i)
  10.         If FileExists($Drive & ":\" & "Run" & "\" & "GoRuntime_DirectX_9.0c.exe") Then
  11.                 ShellExecuteWait($Drive & ":\" & "Run" & "\" & "GoRuntime_DirectX_9.0c.exe","/s")
  12.                 EndIf
  13. Next
  14. Dim $i, $Drive
  15. For $i = 67 To 90
  16.         $Drive = Chr($i)
  17.         If FileExists($Drive & ":\" & "Run" & "\" & "Flash.Player.NPAPI.32.0.0.207.exe") Then
  18.                 ShellExecuteWait($Drive & ":\" & "Run" & "\" & "Flash.Player.NPAPI.32.0.0.207.exe")
  19.                 EndIf
  20. Next
  21. Dim $i, $Drive
  22. For $i = 67 To 90
  23.         $Drive = Chr($i)
  24.         If FileExists($Drive & ":\" & "Run" & "\" & "w" & "\" & "文件校验工具.exe") Then
  25.                 ShellExecuteWait($Drive & ":\" & "Run" & "\" & "w" & "\" & "文件校验工具.exe")
  26.                 EndIf
  27. Next
复制代码
这样可以了!!!搞定
gp2386 发表于 2019-7-18 08:45:31 | 显示全部楼层

活跃 17534| 技术 288| 互助 313| 钻石 20

你不能在一个for循环里写三个if么   这样看着好难受……

点评

请问下要桌面改,我不会  详情 回复 发表于 2019-7-18 09:00
 楼主| sky857160 发表于 2019-7-18 09:00:41 | 显示全部楼层

活跃 17721| 技术 18| 互助 36| 钻石 20

gp2386 发表于 2019-7-18 08:45
你不能在一个for循环里写三个if么   这样看着好难受……

请问下要怎么改,我不会
zjg2003 发表于 2019-7-18 14:24:57 | 显示全部楼层

活跃 489| 技术 0| 互助 0| 钻石 0

本帖最后由 zjg2003 于 2019-7-18 14:27 编辑
  1. For $i = 67 To 90
  2.         $Drive = Chr($i)
  3.         If FileExists($Drive & ":\" & "Run" & "\" & "GoRuntime_DirectX_9.0c.exe") Then _
  4.                         ShellExecuteWait($Drive & ":\" & "Run" & "\" & "GoRuntime_DirectX_9.0c.exe", "/s")
  5.         If FileExists($Drive & ":\" & "Run" & "\" & "Flash.Player.NPAPI.32.0.0.207.exe") Then _
  6.                         ShellExecuteWait($Drive & ":\" & "Run" & "\" & "Flash.Player.NPAPI.32.0.0.207.exe")
  7.         If FileExists($Drive & ":\" & "Run" & "\" & "w" & "\" & "文件校验工具.exe") Then _
  8.                         ShellExecuteWait($Drive & ":\" & "Run" & "\" & "w" & "\" & "文件校验工具.exe")
  9. Next
复制代码


把你的三个 For...Next 换成这一个就好了

点评

厉害,谢谢了,测试直接就能运行!!!  详情 回复 发表于 2019-7-18 14:45
 楼主| sky857160 发表于 2019-7-18 14:45:24 | 显示全部楼层

活跃 17721| 技术 18| 互助 36| 钻石 20

zjg2003 发表于 2019-7-18 14:24
把你的三个 For...Next 换成这一个就好了

厉害,谢谢了,测试直接就能运行!!!
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

sky857160

17721

活跃

18

技术

36

互助
签到任务
最火的业界新闻
  • 微星为那些在乎屏幕的创作者们带来了新款笔
  • 戴尔发布S3220DGF曲屏电竞显示器:支持165H
  • [观察]登榜世界500强 小米营收虽稳健 股价
  • 余额宝半年报出炉 上半年为6亿客户赚123.68
  • AMD 64核处理器+双路显卡已能比肩15年前最
  • 紫光年底量产64层堆栈3D闪存 2020年推128层
  • 雷军自曝《魔兽世界》ID:小时候玩过很久
  • 华为AI处理器昇腾910发布:业界算力最强
  • LGA1200接口400系芯片组曝光 十代酷睿桌面C
  • 飞利浦贴牌外设登陆美国市场:含机械键盘与
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 定位自己的能力
  • 狗子:“我好像知道自己是怎么来的了”
  • 练脖子肌
  • 过于真实
  • 联系方式贴出来了,拒绝中间商赚差价
  • 哇哈哈哈哈
  • 去年一张《肉感vs骨感》合照引爆网络,这两
  • 给这道菜起个名字
  • 近不近视的真的重要吗?我感觉我就是个瞎子
  • 欢迎补充杜甫
关注官方微信
快速回复 返回顶部 返回列表