I made this for cruels.net but thought I would share here aswell.
It dynamically edits the pages sourcecode so that it just leaves the applet on the webpage and nothing else
It dynamically edits the pages sourcecode so that it just leaves the applet on the webpage and nothing else
Code:
Private Sub Command1_Click()
WebBrowser1.Navigate "http://sl1.runescape.com/l1,p0,j1"
End Sub
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If (URL = "http://www.runescape.com/") Then Cancel = True
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.innerHTML = WebBrowser1.Document.All.Item("app").outerHTML
WebBrowser1.Width = Val(WebBrowser1.Document.All.Item("app").getAttribute("width")) + 4
WebBrowser1.Height = Val(WebBrowser1.Document.All.Item("app").getAttribute("height")) + 4
End Sub








