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

软件版本: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

快捷导航

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

发新话题 回复该主题

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

1#
方法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

发新话题 回复该主题