录了个视频介绍2.5可用的多开方法

牛场一霸

1. '把handle64.exe放入系统盘的Windows\System32文件夹，如C:\Windows\System32
   
2. getfolder = left(wscript.scriptfullname,instrrev(wscript.scriptfullname,""))
   
3. Set shell = CreateObject("WScript.Shell")
   
4. Set exec = shell.Exec( "handle64.exe -a -p D2R.exe Instances")
   
5. strText = exec.StdOut.ReadAll()
   
6. 'msgbox  strText,1,"handle"
   
7. s = split(strText, chr(10))
   
8. for i = 0 to UBound(s)
   
9. a = split(s(i), ": ")
   
10. 'msgbox  s(i),1,"handle"
    
11. if UBound(a) > 0 then
    
12. D2rPID = left(a(1), instr(a(1), " ") - 1)    '获取程序PID
    
13. 'msgbox  D2rPID,1,"handle"
    
14. handle = right(a(2), len(a(2)) - InStrRev(a(2), " "))  '获取DiabloII Check For Other Instances的handle
    
15. 'msgbox  handle,1,"handle"
    
16. CreateObject("Shell.Application").ShellExecute "cmd.exe","/c " & "handle64.exe -c " & handle & " -p " & D2rPID & " -y","","runas",1
    
17. end if
    
18. next

复制代码

可能是我win10哪里调的有问题，我把handle64.exe放到system32 ，然后修改了下代码，然后好使了

牛场一霸

那么问题来了，这个VBS 能不能挂到mod 里。。。然后启动自动杀掉check for 的handle