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

窄口牛

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, 下载次数: 3)

8 小时前 上传

点击文件名下载附件
下载积分: 无忧币 -2

tong2025tong

很实用

小灰兔

感谢分享

肉仔

感谢分享，支持了

夏日风

感谢分享

wn168cn@163.com

支持原创 感谢分享

tingtao666

感谢楼主分享！

guong

谢谢分享！