Fire_Of_Hell
Newbie
Mar 23, 2006, 9:37 PM
Post #1 of 3
(630 views)
Shortcut
|
|
StealRS2 Tutorial
|
Can't Post
|
|
StealRS2 can be gotten from sythe.org in Dark Knights scripts and tutorials, but dont flame me for copying and pasting, because stealRS2 sure as hell isnt new.
Right, first of all, for those who don't know what StealRS2 is, it moves the RuneScape playing screen to block out the adds and fagsex bar.
Step1: Setting up the form.
alright, nothing in particular is needed for stealRS2 whether you are using it for a client, or you just want it to function on your average web browser, i'm using the client, so you might like to follow on with me. Set up your client, then come back and read this.
Step 2: StealRS2 Module.
alright, first of all, we need a module to put the stealRS2 code in. Don't be scared if you don't know what a module is, and how to use one, we are only using a module once in this exercise, click project/Add Module, and follow on with the prompts.
Step 3: The coding.
now that you have set the form up and placed the module, we need to code stealRS2, double click on the module first of all, in the project explorer window, and it will come up with a screen which you would normally code your form in, add these lines:
'CODE
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOP = 0
Public Const SWP_NOOWNERZORDER = &H200
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Function StealRS2(Frm As Form)
On Error Resume Next
Dim RSHwnd As Long
Dim RSSunJava As Long
DoEvents
RSHwnd = FindWindowEx(Frm.hwnd, 0, "shell embedding", vbNullString)
RSHwnd = FindWindowEx(RSHwnd, 0, "shell docobject view", vbNullString)
RSHwnd = FindWindowEx(RSHwnd, 0, "internet explorer_server", vbNullString)
RSSunJava = FindWindowEx(RSHwnd, 0, "Java Plug-in Control Window", vbNullString)
RSSunJava = FindWindowEx(RSSunJava, 0, "sun.plugin.viewer.frame.IExplorerEmbeddedFrame", vbNullString)
'RSSunJava = FindWindowEx(RSSunJava, 0, "SunAwtCanvas", vbNullString)
'RSSunJava = FindWindowEx(RSSunJava, 0, "SunAwtCanvas", vbNullString)
RSHwnd = FindWindowEx(RSHwnd, 0, "microsoft vm for java(tm) host window class", vbNullString)
RSHwnd = FindWindowEx(RSHwnd, 0, "msawt_comp_class", vbNullString)
If RSHwnd = 0 Then RSHwnd = RSSunJava
If RSHwnd = 0 Then Exit Function
SetParent RSHwnd, Frm.hwnd
End Function
You won't need to edit those any more, unless you know exactly what you're doing.
now add this in the webbrowser_progresschange sub, if you dont know how to get to this, click on the top-left combobox and select your webbrowser and the click on the right combobox and select progresschanged.
'CODE
'in form code
Dim Parse1 As Integer
Dim strHTML As String
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
StealRS2 Me
End Sub
Step 4: Finishing Touches.
You have now successfully made a steal rs2 function on your client! congratulations! Now, for finishing touches it might be wise to resize your webbrowser to a small state.
This is what i use:
Height | 7455
Left | 0
Top | 0
Width | 11415
You should now have a relativly small web browser, this means that it doesnt have the white spaces where the runescape window use to be and also, it doesnt have the tip of the fagsex bar right next to the web browser.
Thanks, please rate my tutorial.
(This post was edited by Fire_Of_Hell on Mar 25, 2006, 12:55 PM)
|
FORUM
SEARCH
WHO'S 
LOG 
RULES / FAQ
