• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 3342|回复: 0

[昨夜星辰] 【源码】获取临时目录的几种方法 [复制链接]

昨夜星辰
头像

QQ250039815

  • 按键认证大神
  • 728264
  • 3502
  • 18
  • 1899 朵
  • 27454 个
  • 1718 个
  • 82980
  • 2011-08-04
按键X开拓者勋章过大年勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章羊年勋章按键学院马年勋章鹰眼勋章双蛋勋章黄瓜勋章按键卫士屌丝勋章土豪勋章天使勋章潜水员按键明星黄金之翼按键精灵开发者6级龙年勋章十周年勋章兔年勋章虎年勋章论坛GG学有所成盒子会员
1#
t T
发表于 2022-07-23 16:15 | |只看楼主
方法1：
FileSystemObject对象
源码：
  1. Function 获取临时目录_fso
  2. Dim fso
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4. 获取临时目录_fso = fso.GetSpecialFolder(2)
  5. Set fso = Nothing
  6. End Function
复制代码
方法2：
WScript对象
源码：
  1. Function 获取临时目录_wsh1
  2. Dim wsh,environment
  3. Set wsh = createobject("WScript.shell")
  4. Set environment = wsh.environment("process")
  5. 获取临时目录_wsh1 = environment.item("temp")
  6. Set environment = Nothing
  7. Set wsh = Nothing
  8. End Function
复制代码
方法3：
WScript对象
源码：
  1. Function 获取临时目录_wsh2
  2. Dim wsh
  3. Set wsh = createobject("WScript.shell")
  4. 获取临时目录_wsh2 = wsh.ExpandEnvironmentStrings("%temp%")
  5. Set wsh = Nothing
  6. End Function
复制代码
方法4：
Win32 API GetTempPath
源码：
  1. Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  2. Function 获取临时目录_api
  3. Dim len_str
  4. Buffer = Space(255)
  5. len_str = GetTempPath(256, Buffer)
  6. 获取临时目录_api = Left(Buffer, len_str)
  7. End Function
复制代码
方法5：
按键插件
源码：
  1. Plugin.Sys.GetDir(3)
复制代码
调用例子：
  1. TracePrint 获取临时目录_fso()
  2. TracePrint 获取临时目录_wsh1()
  3. TracePrint 获取临时目录_wsh2()
  4. TracePrint 获取临时目录_api()
  5. TracePrint Plugin.Sys.GetDir(3)
复制代码
调试结果：
脚本 我的脚本1.Q ，第1行：C:\Users\UNNAMED\AppData\Local\Temp
脚本 我的脚本1.Q ，第2行：C:\Users\UNNAMED\AppData\Local\Temp
脚本 我的脚本1.Q ，第3行：C:\Users\UNNAMED\AppData\Local\Temp
脚本 我的脚本1.Q ，第4行：C:\Users\UNNAMED\AppData\Local\Temp\
脚本 我的脚本1.Q ，第5行：C:\Users\UNNAMED\AppData\Local\Temp\

最后编辑昨夜星辰 最后编辑于 2022-07-23 16:17:52
点赞
近期制作：
传奇私服各种反外挂插件版本挂机软件，可教可售
原神加速、连发辅助工具
天下3自动钓大鱼辅助工具
承接脚本定制，点击下方联系
QQ：250039815

交流群：101296478
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器