ygocore

lib/iduel/window_login.rb

@@ -18,7 +18,7 @@ class Window_Login
       @last_clicked = Time.now
     when :replay
       require 'tk'
-      file = Tk.getOpenFile
+      file = Tk.getOpenFile.encode("UTF-8")
       if !file.empty?
         $game = Iduel.new
         $game.user = User.new(0)

lib/ygocore/game.rb

@@ -8,12 +8,16 @@ class Ygocore < Game
   
   WM_LBUTTONDOWN = 0x201
   WM_LBUTTONUP = 0x202
+  #WM_KEYDOWN = 0x0100
+  #WM_KEYUP = 0x0100
   VK_CONTROL = 0x11
   VK_A = 0x41
   VK_V = 0x56
   VK_TAB = 0x09
   VK_RETURN = 0x0D
   KEYEVENTF_KEYUP = 0x02
+  CF_TEXT = 1;
+  GMEM_DDESHARE = 0x2000;
   def initialize
     super
     load File.expand_path('event.rb', File.dirname(__FILE__))
@@ -29,7 +33,8 @@ class Ygocore < Game
     Game_Event.push Game_Event::Login.new(User.new(username.to_sym, username))
   end
   def watch(room)
-    Widget_Msgbox.new("观战", "ygocore不支持加入已经开始游戏的房间", :ok => "确定")
+    #Widget_Msgbox.new("观战", "ygocore不支持加入已经开始游戏的房间", :ok => "确定")
+    join(room)
   end
   def join(room)
     return if @last_clicked and Time.now - @last_clicked < 3 #防止重复点击
@@ -37,15 +42,15 @@ class Ygocore < Game
       Widget_Msgbox.new("加入房间", "请指定ygocore主程序位置")
       $scene.draw
       require 'tk'
-      $config['ygocore']['path'] = Tk.getOpenFile
+      $config['ygocore']['path'] = Tk.getOpenFile.encode("UTF-8")
       save_config
       @last_clicked = Time.now
     end
     if $config['ygocore']['path'] and File.file? $config['ygocore']['path']
       $scene.draw
-      
-      #写入ygocore配置文件
+      #写入配置文件并运行ygocore
       Dir.chdir(File.dirname($config['ygocore']['path'])) do 
+        $log.debug('当前目录'){Dir.pwd.encode("UTF-8")}
         system_conf = {}
         IO.readlines('system.conf').each do |line|
           line.force_encoding "UTF-8"
@@ -57,17 +62,24 @@ class Ygocore < Game
         system_conf['lastip'] = Server
         system_conf['lastport'] = Port.to_s  
         open('system.conf', 'w') {|file|file.write system_conf.collect{|key,value|"#{key} = #{value}"}.join("\n")}
-        
-        #运行ygocore
-        require 'launchy'
-        Launchy.open $config['ygocore']['path']
-        
+        $log.debug('ygocore路径') {$config['ygocore']['path']}
+        IO.popen("\"#{$config['ygocore']['path']}\"".encode("GBK")) #执行外部程序....有中文的情况下貌似只能这样了orz
+      end
       #初始化windows API
       require 'win32api'
       @@FindWindow = Win32API.new("user32","FindWindow","pp","l")
       @@SendMessage = Win32API.new('user32', 'SendMessage', ["L", "L", "L", "L"], "L")
       @@SetForegroundWindow = Win32API.new('user32', 'SetForegroundWindow', 'l', 'v')
       @@keybd_event = Win32API.new('user32', 'keybd_event', 'llll', 'v')
+      @@lstrcpy = Win32API.new('kernel32', 'lstrcpyA', ['I', 'P'], 'P');
+      @@lstrlen = Win32API.new('kernel32', 'lstrlen', ['P'], 'I');
+      @@OpenClipboard = Win32API.new('user32', 'OpenClipboard', ['I'], 'I');
+      @@CloseClipboard = Win32API.new('user32', 'CloseClipboard', [], 'I');
+      @@EmptyClipboard = Win32API.new('user32', 'EmptyClipboard', [], 'I');
+      @@SetClipboardData = Win32API.new('user32', 'SetClipboardData', ['I', 'I'], 'I');
+      @@GlobalAlloc = Win32API.new('kernel32', 'GlobalAlloc', ['I','I'], 'I');
+      @@GlobalLock = Win32API.new('kernel32', 'GlobalLock', ['I'], 'I');
+      @@GlobalUnlock = Win32API.new('kernel32', 'GlobalUnlock', ['I'], 'I');
       #获取句柄
       hwnd = nil
       100.times do
@@ -82,8 +94,19 @@ class Ygocore < Game
         @@SendMessage.call(hwnd, WM_LBUTTONDOWN, 0, MAKELPARAM(507,242))
         @@SendMessage.call(hwnd, WM_LBUTTONUP, 0, MAKELPARAM(507,242))
         sleep 0.3
-          require 'win32/clipboard'
-          Win32::Clipboard.set_data(room.name.encode("GBK").force_encoding("UTF-8"))
+        if @@OpenClipboard.Call(0) != 0
+          @@EmptyClipboard.Call();
+          len = @@lstrlen.Call(room.name.encode("GBK"));
+          hmem = @@GlobalAlloc.Call(GMEM_DDESHARE, len+1);
+          pmem = @@GlobalLock.Call(hmem);
+          @@lstrcpy.Call(pmem, room.name.encode("GBK"));
+          @@SetClipboardData.Call(CF_TEXT, hmem);
+          @@GlobalUnlock.Call(hmem);
+          @@CloseClipboard.Call;
+        else
+          return Widget_Msgbox.new("加入房间", '填写房间名失败 请把房间名手动填写到房间密码处', :ok => "确定")
+        end
+        $log.debug('加入房间'){room.name}
         @@SetForegroundWindow.call(hwnd)
         @@SendMessage.call(hwnd, WM_LBUTTONDOWN, 0, MAKELPARAM(380,500))
         @@SendMessage.call(hwnd, WM_LBUTTONUP, 0, MAKELPARAM(380,500))
@@ -98,8 +121,7 @@ class Ygocore < Game
         @@keybd_event.call(VK_RETURN,0,0,0)
         @@keybd_event.call(VK_RETURN,0,KEYEVENTF_KEYUP,0)
       else
-          Widget_Msgbox.new("加入房间", 'ygocore运行失败', :ok => "确定")
-        end
+        return Widget_Msgbox.new("加入房间", 'ygocore运行失败', :ok => "确定")
       end
     end
     Widget_Msgbox.new("加入房间","已经加入房间").destroy  #仅仅为了消掉正在加入房间的消息框