Project1

标题: 【VX\XP】高仿VA控制台 [打印本页]

---

作者: 张咚咚    时间: 2017-9-11 11:46
标题: 【VX\XP】高仿VA控制台

1. #==============================================================================
   
2. # ■ Console
   
3. #     By QQEat
   
4. #------------------------------------------------------------------------------
   
5. # 　高仿VA控制台。
   
6. #   puts：控制台打印
   
7. #==============================================================================
   
8. 
   
9. if $TEST or $DEBUG
   
10.   Win32API.new("kernel32", "AllocConsole", "v", "i").call #创建
    
11.   #~ Win32API.new("kernel32", "FreeConsole", "v", "i").call #释放
    
12.   Win32API.new("kernel32", "SetConsoleTitle", "p", "i").call("RGSS Console") #setTitle
    
13.   GetStdHandle = Win32API.new("kernel32", "GetStdHandle", "i", "i") #I/O_hWnd
    
14.   WriteConsole = Win32API.new("kernel32", "WriteConsole", "ipiii", "i") #WriteConsole
    
15.   GetStringLength = Win32API.new("kernel32", "lstrlenA", "p", "i") #getStringLength
    
16.   
    
17.   def puts(*args)
    
18.     str = ""
    
19.     args.each{|a| str << (a.is_a?(String) ? "\"" << a.to_s << "\"" : a.inspect) << "\n" }
    
20.    
    
21.     #处理编码
    
22.     m2w = Win32API.new('kernel32', 'MultiByteToWideChar', 'ilpipi', 'i')
    
23.     w2m = Win32API.new('kernel32', 'WideCharToMultiByte', 'ilpipipp', 'i')
    
24.     len = m2w.call(0xFDE9,0,str,-1,nil,0)
    
25.     buf = "\0" * (len*2)
    
26.     m2w.call(0xFDE9,0,str,-1,buf,buf.size/2)
    
27.     len = w2m.call(0,0,buf,-1,nil,0,nil,nil)
    
28.     ret = "\0" * len
    
29.     w2m.call(0,0,buf,-1,ret,ret.size,nil,nil)
    
30.     str = ret.delete!("\0")
    
31.    
    
32.     WriteConsole.call(GetStdHandle.call(-12), str, GetStringLength.call(str), 0, 0)
    
33.   end
    
34. else
    
35.   def puts(*args);end
    
36. end
    
37. HWnd = Win32API.new('user32','FindWindowEx','llpp','i')
    
38. Win32API.new('user32','SetForegroundWindow','i','i').call(HWnd.call(0, 0, 'RGSS Player', 0)) if $TEST or $DEBUG #获取焦点置前台

复制代码

---

作者: guoxiaomi    时间: 2017-9-18 00:08
GetStringLength = Win32API.new("kernel32", "lstrlenA", "p", "i") #getStringLength
这个会不会因为输出中间含有 "\0" 的字符而提前终止？

---

欢迎光临 Project1 (https://rpg.blue/)

Powered by Discuz! X3.1