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 | 显示全部楼层

活跃 19178| 技术 31| 互助 37| 钻石 30

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


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

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

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

活跃 19178| 技术 31| 互助 37| 钻石 30

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

活跃 19178| 技术 31| 互助 37| 钻石 30

  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 | 显示全部楼层

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

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

点评

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

活跃 19178| 技术 31| 互助 37| 钻石 30

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

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

活跃 497| 技术 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 | 显示全部楼层

活跃 19178| 技术 31| 互助 37| 钻石 30

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

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

本版积分规则

sky857160

19178

活跃

31

技术

37

互助
签到任务
最火的业界新闻
  • 微软介绍两款4G LTE教育PC:采用骁龙7c平台
  • [图]华为P40 Pro高清渲染图再曝光:将效仿G
  • 报告:抖音海外版TikTok去年营收1.77亿美元
  • [图]Windows 10 Build 19546发布:计算器引
  • 解决 Chromium Microsoft Edge 以错误语言
  • [图]学习代数新方式:Windows计算器即将上
  • 中国互联网竞相发红包抢用户 有多少能留下
  • 微软计划通过Windows Update推广Chromium E
  • 这些第三方软件居然可以删除我的微信好友?
  • 今日头条2019手机行业白皮书:华为手机成最
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 搞学问的,就必须要严谨
  • 怎么赔
  • 我想玩我的世界
  • 是真的狠
  • 强迫锻炼
  • 保护费
  • 卖家秀与买家秀
  • 非常形象了
  • 老婆因为这个背景墙跟我大吵了一架
  • 我对继母的印象
关注官方微信
快速回复 返回顶部 返回列表