Advertisement
djvj

Untitled

Oct 20th, 2011
201
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.96 KB | None | 0 0
  1. winHeight := (A_ScreenHeight+50)
  2.  
  3. Gui +AlwaysOnTop -Caption +ToolWindow
  4. Gui, Color, 0
  5. Gui, Show, w%A_ScreenWidth% h%winHeight%
  6. WinGet, ourHWND, ID, A
  7. OnExit, Cleanup
  8.  
  9. Gui, 2:+AlwaysOnTop -Caption +ToolWindow
  10. Gui, 2: Color, 0
  11. Gui, 2: Show,x2 y2 w%A_ScreenWidth% h%winHeight%
  12. WinGet, LoaderHandle, ID, A
  13. Gui, 2: +LastFound
  14. DllCall("SetParent", "uint", WinExist(), "uint", ourHWND)
  15.  
  16. hModule := DllCall("LoadLibrary", "str", "cwebpage.dll")
  17.  
  18. res := DLLCall("cwebpage\EmbedBrowserObject", UInt, LoaderHandle)
  19. If (res != 0 Or ErrorLevel != 0)
  20. exitapp
  21.  
  22. Path=%A_ScriptDir%\Loading_1920x1200.swf
  23. res := DLLCall("cwebpage\DisplayHTMLPage", UInt, LoaderHandle, Str, path)
  24. If (res != 0 Or ErrorLevel != 0)
  25. exitapp
  26. ;WinSet, Style, -0x40000, AHK_class AutoHotkeyGUI ; Removes the border of the game window
  27. Sleep, 4000
  28. goto Cleanup
  29. return
  30.  
  31. Cleanup:
  32. DLLCall("cwebpage\UnEmbedBrowserObject", UInt, LoaderHandle)
  33. DllCall("FreeLibrary", "UInt", hModule)
  34. ExitApp
  35.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement