Project1

标题: VX怎么实现后台操作？ [打印本页]

---

作者: 白魔导师宝儿    时间: 2014-4-22 18:41
标题: VX怎么实现后台操作？
XP是有的
但是VX没有找到
就是那种缩小到任务栏之后还是能继续进行游戏的功能

---

作者: 铃仙·优昙华院·因幡    时间: 2014-4-22 18:52
搜索 紫苏大 的 <<真 后台运行>> 好像是这个名字.

---

作者: 白魔导师宝儿    时间: 2014-4-22 18:58

1. #==============================================================================
   
2. # [XP/VX] 精确获取窗口句柄 by 紫苏
   
3. #==============================================================================
   
4. # ■ Kernel
   
5. #==============================================================================
   
6. module Kernel
   
7.   #--------------------------------------------------------------------------
   
8.   # ● 需要的 Windows API 函数
   
9.   #--------------------------------------------------------------------------
   
10.   GetWindowThreadProcessId = Win32API.new("user32", "GetWindowThreadProcessId", "LP", "L")
    
11.   GetWindow = Win32API.new("user32", "GetWindow", "LL", "L")
    
12.   GetClassName = Win32API.new("user32", "GetClassName", "LPL", "L")
    
13.   GetCurrentThreadId = Win32API.new("kernel32", "GetCurrentThreadId", "V", "L")
    
14.   GetForegroundWindow = Win32API.new("user32", "GetForegroundWindow", "V", "L")
    
15.   #--------------------------------------------------------------------------
    
16.   # ● 获取窗口句柄
    
17.   #--------------------------------------------------------------------------
    
18.   def get_hwnd
    
19.     # 获取调用线程（RM 的主线程）的进程标识
    
20.     threadID = GetCurrentThreadId.call
    
21.     # 获取 Z 次序中最靠前的窗口
    
22.     hWnd = GetWindow.call(GetForegroundWindow.call, 0)
    
23.     # 枚举所有窗口
    
24.     while hWnd != 0
    
25.       # 如果创建该窗口的线程标识匹配本线程标识
    
26.       if threadID == GetWindowThreadProcessId.call(hWnd, 0)
    
27.         # 分配一个 11 个字节的缓冲区
    
28.         className = " " * 11
    
29.         # 获取该窗口的类名
    
30.         GetClassName.call(hWnd, className, 12)
    
31.         # 如果匹配 RGSS Player 则跳出循环
    
32.         break if className == "RGSS Player"
    
33.       end
    
34.       # 获取下一个窗口
    
35.       hWnd = GetWindow.call(hWnd, 2)
    
36.     end
    
37.     return hWnd
    
38.   end
    
39. end
    
40. 
    
41. module Kernel
    
42.   GetActiveWindow = Win32API.new("user32", "GetActiveWindow", "V", "L")
    
43.   def shit?
    
44.     #return if Graphics.frame_count % 10 != 0
    
45.     # 获取调用线程（RM 的主线程）的进程标识
    
46.     threadID = GetCurrentThreadId.call
    
47.     # 获取 Z 次序中最靠前的窗口
    
48.     hWnd = GetActiveWindow.call#GetForegroundWindow.call
    
49.     return true if threadID == GetWindowThreadProcessId.call(hWnd, 0)
    
50.     return false
    
51.     # 枚举所有窗口
    
52.     #while hWnd != 0
    
53.       # 如果创建该窗口的线程标识匹配本线程标识
    
54.       #if threadID == GetWindowThreadProcessId.call(hWnd, 0)
    
55.         # 分配一个 11 个字节的缓冲区
    
56.         className = " " * 11
    
57.         # 获取该窗口的类名
    
58.         GetClassName.call(hWnd, className, 12)
    
59.         # 如果匹配 RGSS Player 则跳出循环
    
60.         $windowInfo.newText += (className + "")
    
61.         #break if className == "RGSS Player"
    
62.       #end
    
63.       # 获取下一个窗口
    
64.       #hWnd = GetWindow.call(hWnd, 2)
    
65.     #end
    
66.     #return hWnd
    
67.   end
    
68. end
    
69. 
    
70. 
    
71. class << Input
    
72.   alias shitmyoh trigger? unless $@
    
73.   def Input.trigger?(input)
    
74.     return false if !shit?#GetWindow.call(GetForegroundWindow.call, 0) != 0 &&
    
75.     shitmyoh(input)
    
76.   end
    
77.   
    
78. end

复制代码

难道指的是这个{:7_297:}
可是好像没有效果呢{:7_298:}

@铃仙·优昙华院·因幡  

---

作者: 铃仙·优昙华院·因幡    时间: 2014-4-22 19:24
不是这个, 这个是句柄, 用来弄一些高级脚本用的. 还有一个.

---

作者: 奇奇‎    时间: 2014-4-22 19:36


是这个

RUBY 代码复制

unless $_Start
  $_Start = Win32API.new("BackgroundRunning","Start",'V','L')
  $_Stop = Win32API.new("BackgroundRunning","Stop",'V','L')
  $_OnFocus = Win32API.new("BackgroundRunning","OnFocus",'V','L')
 
  $_Start.call
 
  module Input
    InputUpdate = method :update
    InputTrigger = method :trigger?
    InputPress = method :press?
    InputRepeat = method :repeat?
    InputDir4 = method :dir4
    InputDir8 = method :dir8
    def self.update
      InputUpdate.call if $_OnFocus.call != 0
    end
    def self.trigger?(num)
      return $_OnFocus.call != 0 ? InputTrigger.call(num) : false
    end
    def self.press?(num)
      return $_OnFocus.call != 0 ? InputPress.call(num) : false
    end
    def self.repeat?(num)
      return $_OnFocus.call != 0 ? InputRepeat.call(num) : false
    end
    def self.dir4
      return $_OnFocus.call != 0 ? InputDir4.call : 0    
    end
    def self.dir8
      return $_OnFocus.call != 0 ? InputDir8.call : 0    
    end
  end
end

unless $_Start


  $_Start = Win32API.new("BackgroundRunning","Start",'V','L')


  $_Stop = Win32API.new("BackgroundRunning","Stop",'V','L')


  $_OnFocus = Win32API.new("BackgroundRunning","OnFocus",'V','L')


 


  $_Start.call


 


  module Input


    InputUpdate = method :update


    InputTrigger = method :trigger?


    InputPress = method :press?


    InputRepeat = method :repeat?


    InputDir4 = method :dir4


    InputDir8 = method :dir8


    def self.update


      InputUpdate.call if $_OnFocus.call != 0


    end


    def self.trigger?(num)


      return $_OnFocus.call != 0 ? InputTrigger.call(num) : false


    end


    def self.press?(num)


      return $_OnFocus.call != 0 ? InputPress.call(num) : false


    end


    def self.repeat?(num)


      return $_OnFocus.call != 0 ? InputRepeat.call(num) : false


    end


    def self.dir4


      return $_OnFocus.call != 0 ? InputDir4.call : 0    


    end


    def self.dir8


      return $_OnFocus.call != 0 ? InputDir8.call : 0    


    end


  end


end

差点忘了，还必须附上这个dll BackgroundRunning.rar (19.07 KB, 下载次数: 47)

2014-4-22 19:41 上传

点击文件名下载附件

---

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

Powered by Discuz! X3.1