#===============================================================================
#                              RM Web Browser                            4/8/09
#-------------------------------------------------------------------------------
#  par Berka                        v 1.1                                rgss 2       
#-------------------------------------------------------------------------------
# Permet d'ouvrir un navigateur embarqué dans la fenetre de jeu.
#  - Nécessite la dll cwebpage.dll à placer à la racine du projet.
#  - Esc pour quitter le navigateur, F5: refresh, Return : retour...
#  - La fenetre peut etre aggrandie par le bouton systeme
#  utilisation: Net.browser("http://rpgmakervx.1fr1.net")
#===============================================================================

wdll="cwebpage.dll"
GPPS = Win32API.new('kernel32', 'GetPrivateProfileString', 'pppplp', 'l')
FW  = Win32API.new('user32',  'FindWindow',              'pp',    'i')
SWL  = Win32API.new('user32',  'SetWindowLong',          'lll',    'l')
GCR  = Win32API.new('user32',  'GetClientRect',          'lp',    'i')
GAKS = Win32API.new('user32',  'GetAsyncKeyState',        'i',      'i')
EBO  = Win32API.new(wdll,      'EmbedBrowserObject',      'l',      'i')
DHP  = Win32API.new(wdll,      'DisplayHTMLPage',        'lp',    'i')
RB  = Win32API.new(wdll,      'ResizeBrowser',          'lll',    'i')
UEBO = Win32API.new(wdll,      'UnEmbedBrowserObject',    'l',      'l')
DPA  = Win32API.new(wdll,      'DoPageAction',            'll',    'l')
def handle
  GPPS.call("Game","Title","",title="\0"*256,256,".//Game.ini")
  FW.call("RGSS Player",title.delete!("\0"))
end

SWL.call(handle,-16,0x10C70000|0x00080000)

def dimensions
  GCR.call(handle,rect=[0,0,0,0].pack('l4'))
  rect.unpack('l4')[2..3]
end
module Net
  def self.browser(url)
    EBO.call(handle)
    DHP.call(handle,url)
    RB.call(handle,*dimensions)
    loop do
      break if GAKS.call(0x1b)&0x01==1
      DPA.call(handle,0)if GAKS.call(0x08)&0x01==1
      DPA.call(handle,4)if GAKS.call(0x74)&0x01==1
      RB.call(handle,*dimensions)
    end
    UEBO.call(handle)
  end
end
Net.browser("http://rpgmakervx.1fr1.net")