不能中文路径的程序启动器

窄口牛 · 发表于 2025-9-6 07:35:20

On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
scriptPath = objFSO.GetParentFolderName(WScript.ScriptFullName)
availableDrive = ""
For i = 68 To 90  ' 从D到Z的ASCII码
driveLetter = Chr(i) & ":"
If Not objFSO.DriveExists(driveLetter) Then
      availableDrive = driveLetter
      Exit For
End If
Next
If availableDrive = "" Then
MsgBox "没有找到可用的盘符!", vbExclamation
WScript.Quit
End If
objShell.Run "subst " & availableDrive & " """ & scriptPath & """", 0, True
WScript.Sleep 3000
objShell.Run """" & availableDrive & "\cheatengine-x86_64-SSE4-AVX2.exe""", 1, True
objShell.Run "subst " & availableDrive & " /d", 0, True
Set objShell = Nothing
Set objFSO = Nothing

启动前建立虚拟磁盘，关闭后自动卸载虚拟磁盘，本帖是cheatengine为例

play.rar (516 Bytes, 下载次数: 7)

tong2025tong · 发表于 2025-9-6 08:17:44

很实用

小灰兔 · 发表于 2025-9-6 08:55:56

感谢分享

肉仔 · 发表于 2025-9-6 09:09:13

感谢分享，支持了

夏日风 · 发表于 2025-9-6 09:48:11

感谢分享

wn168cn@163.com · 发表于 2025-9-6 11:40:07

支持原创感谢分享

tingtao666 · 发表于 2025-9-6 11:46:55

感谢楼主分享！

guong · 发表于 2025-9-6 15:20:13

谢谢分享！

handsome_xiang · 发表于 2025-9-6 17:31:19

感谢分享！

燕飞龙 · 发表于 2025-9-7 13:09:04

感谢分享

		自动登录	找回密码
密码			注册

不能中文路径的程序启动器

浏览过的版块