Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- winHeight := (A_ScreenHeight+50)
- Gui +AlwaysOnTop -Caption +ToolWindow
- Gui, Color, 0
- Gui, Show, w%A_ScreenWidth% h%winHeight%
- WinGet, ourHWND, ID, A
- OnExit, Cleanup
- Gui, 2:+AlwaysOnTop -Caption +ToolWindow
- Gui, 2: Color, 0
- Gui, 2: Show,x2 y2 w%A_ScreenWidth% h%winHeight%
- WinGet, LoaderHandle, ID, A
- Gui, 2: +LastFound
- DllCall("SetParent", "uint", WinExist(), "uint", ourHWND)
- hModule := DllCall("LoadLibrary", "str", "cwebpage.dll")
- res := DLLCall("cwebpage\EmbedBrowserObject", UInt, LoaderHandle)
- If (res != 0 Or ErrorLevel != 0)
- exitapp
- Path=%A_ScriptDir%\Loading_1920x1200.swf
- res := DLLCall("cwebpage\DisplayHTMLPage", UInt, LoaderHandle, Str, path)
- If (res != 0 Or ErrorLevel != 0)
- exitapp
- ;WinSet, Style, -0x40000, AHK_class AutoHotkeyGUI ; Removes the border of the game window
- Sleep, 4000
- goto Cleanup
- return
- Cleanup:
- DLLCall("cwebpage\UnEmbedBrowserObject", UInt, LoaderHandle)
- DllCall("FreeLibrary", "UInt", hModule)
- ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement