Free Games Forum
Free Games Games Forums Music Forums TV Forums

  Free Games Forum Home FORUM
HOME 		Search Posts SEARCH
POSTS 		Who's Online WHO'S
ONLINE 		Log in LOG
IN 		Rules & FAQ RULES / FAQ
REPORT SPAM

Free Games Forum: Game Technology: Visual Basic / VB:
How to make a runescape world switcher*UPDATED*

 
 


DeadMeat™
Enthusiast


Oct 24, 2005, 1:26 AM

Post #1 of 25 (10097 views)
Shortcut
How to make a runescape world switcher*UPDATED* Can't Post
This post has been updated to fit the lastest version of RuneScape.Last updated on: March 14th,2006.

This is copyrighted.I put in tags that say my name in it.

Difficulty:Meduim
Time approx.:20-25 minutes or less.


If you need any help or cannot view the pictures,post here.*TOPIC REOPENED*



1-Open Visual basic 6.Now click standard exe.(picture below)---1213Meatdead---421

2-Now you should have everything open.Now resize the form to make it bigger.(picture below)---001deadmeat9981--


3-Now press Ctrl+T so that means press CTRL and hold on to it then press the letter "T" on your keyboard and release.Now scroll down untill you see the option Microsoft internet controls 6.0 click on that and then click Apply/Submit.(Picture below)
----~~~1213meatdeaddeadmeat1213-------

Now,you should have a globe icon on the toolbar.Heres how it look.(picture below)---deadmeat----


5-Now for the coding partMake sure you read EVERYTHING or you will mess up.
Click on the globe icon and stretch it across the form.Make it fairly big to fit the runescape client.

6-Now,double click on the white stuff and add this code:
Code
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)  
On Error Resume Next  
If URL = "http://www.runescape.com/" Then Cancel = True  
End Sub
7-Now for the world switcher time.This will take aprox.10-15 minutes.
8-Click on the right click on the place that doesn't have white and click menu editor.
9-
Code
Private Sub server29_Click()  
WebBrowser1.Navigate "http://ul6.runescape.com:80/rs2.cgi?plugin=0&lowmem=0&affiliate=runescape&randval=973958323"  
End Sub
Now for the bolded part add the worlds to it.
These are the updated worlds with the canadian and austrillian worlds.
Just replace the bold with the worlds below for each world.
For the menu editor,add the name server# and for the number add the server number.
See the menu in your form?double click on it.Since im a nice person I did all the coding for you so just copy and paste this in.
Code
Private Sub server1_Click()  
'WebBrowser.Navigate "http://ul2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (1)  
End Sub  
 
Private Sub server2_Click()  
'WebBrowser.Navigate "http://ul4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (2)  
End Sub  
 
Private Sub server3_Click()  
'WebBrowser.Navigate "http://po3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (3)  
End Sub  
 
Private Sub server4_Click()  
'WebBrowser.Navigate "http://po4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (4)  
End Sub  
 
Private Sub server5_Click()  
'WebBrowser.Navigate "http://po5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (5)  
End Sub  
 
Private Sub server6_Click()  
'WebBrowser.Navigate "http://po6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (6)  
End Sub  
 
Private Sub server7_Click()  
'WebBrowser.Navigate "http://above2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (7)  
End Sub  
 
Private Sub server8_Click()  
'WebBrowser.Navigate "http://above3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (8)  
End Sub  
 
Private Sub server9_Click()  
'WebBrowser.Navigate "http://above4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (9)  
End Sub  
 
Private Sub server10_Click()  
'WebBrowser.Navigate "http://jolt7.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (10)  
End Sub  
 
Private Sub server11_Click()  
'WebBrowser.Navigate "http://jolt8.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (11)  
End Sub  
 
Private Sub server12_Click()  
'WebBrowser.Navigate "http://jolt9.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (12)  
End Sub  
 
Private Sub server13_Click()  
'WebBrowser.Navigate "http://nl3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (13)  
End Sub  
 
Private Sub server14_Click()  
'WebBrowser.Navigate "http://nl4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (14)  
End Sub  
 
Private Sub server15_Click()  
'WebBrowser.Navigate "http://uk2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (15)  
End Sub  
 
Private Sub server16_Click()  
'WebBrowser.Navigate "http://uk3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (16)  
End Sub  
 
Private Sub server17_Click()  
'WebBrowser.Navigate "http://tor1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (17)  
End Sub  
 
Private Sub server18_Click()  
'WebBrowser.Navigate "http://tor2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (18)  
End Sub  
 
Private Sub server19_Click()  
'WebBrowser.Navigate "http://cet1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (19)  
End Sub  
 
Private Sub server20_Click()  
'WebBrowser.Navigate "http://cet2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (20)  
End Sub  
 
Private Sub server21_Click()  
'WebBrowser.Navigate "http://cet3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (21)  
End Sub  
 
Private Sub server22_Click()  
'WebBrowser.Navigate "http://nl1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (22)  
End Sub  
 
Private Sub server23_Click()  
'WebBrowser.Navigate "http://uk4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (23)  
End Sub  
 
Private Sub server24_Click()  
'WebBrowser.Navigate "http://uk5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (24)  
End Sub  
 
Private Sub server25_Click()  
'WebBrowser.Navigate "http://cet6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (25)  
End Sub  
 
Private Sub server26_Click()  
'WebBrowser.Navigate "http://ul5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (26)  
End Sub  
 
Private Sub server27_Click()  
'WebBrowser.Navigate "http://nl5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (27)  
End Sub  
 
Private Sub server28_Click()  
'WebBrowser.Navigate "http://nl6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (28)  
End Sub  
 
Private Sub server29_Click()  
'WebBrowser.Navigate "http://ul6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (29)  
End Sub  
 
Private Sub server30_Click()  
'WebBrowser.Navigate "http://po7.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (30)  
End Sub  
 
Private Sub server31_Click()  
'WebBrowser.Navigate "http://po8.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (31)  
End Sub  
 
Private Sub server32_Click()  
loadworld (32)  
'WebBrowser.Navigate "http://ul1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
End Sub  
 
Private Sub server33_Click()  
'WebBrowser.Navigate "http://at1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (33)  
End Sub  
 
Private Sub server34_Click()  
'WebBrowser.Navigate "http://at2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (34)  
End Sub  
 
Private Sub server35_Click()  
'WebBrowser.Navigate "http://at3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (35)  
End Sub  
 
Private Sub server36_Click()  
'WebBrowser.Navigate "http://at4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (36)  
End Sub  
 
Private Sub server37_Click()  
'WebBrowser.Navigate "http://tor3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (37)  
End Sub  
 
Private Sub server38_Click()  
'WebBrowser.Navigate "http://planet1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (38)  
End Sub  
 
Private Sub server39_Click()  
'WebBrowser.Navigate "http://planet2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (39)  
End Sub  
 
Private Sub server40_Click()  
'WebBrowser.Navigate "http://planet3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (40)  
End Sub  
 
Private Sub server41_Click()  
'WebBrowser.Navigate "http://planet4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (41)  
End Sub  
 
Private Sub server42_Click()  
'WebBrowser.Navigate "http://po2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (42)  
End Sub  
 
Private Sub server43_Click()  
'WebBrowser.Navigate "http://sl11.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (43)  
End Sub  
 
Private Sub server44_Click()  
'WebBrowser.Navigate "http://at6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (44)  
End Sub  
 
Private Sub server45_Click()  
'WebBrowser.Navigate "http://planet5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (45)  
End Sub  
 
Private Sub server46_Click()  
'WebBrowser.Navigate "http://planet6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (46)  
End Sub  
 
Private Sub server47_Click()  
'WebBrowser.Navigate "http://above5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (47)  
End Sub  
 
Private Sub server48_Click()  
'WebBrowser.Navigate "http://above6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (48)  
End Sub  
 
Private Sub server49_Click()  
'WebBrowser.Navigate "http://ams1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (49)  
End Sub  
 
Private Sub server50_Click()  
'WebBrowser.Navigate "http://ams2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (50)  
End Sub  
 
Private Sub server51_Click()  
'WebBrowser.Navigate "http://ams3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (51)  
End Sub  
 
Private Sub server52_Click()  
'WebBrowser.Navigate "http://ams4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (52)  
End Sub  
 
Private Sub server53_Click()  
'WebBrowser.Navigate "http://ams5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (53)  
End Sub  
 
Private Sub server54_Click()  
'WebBrowser.Navigate "http://ams6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (54)  
End Sub  
 
Private Sub server55_Click()  
'WebBrowser.Navigate "http://ch1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (55)  
End Sub  
 
Private Sub server56_Click()  
'WebBrowser.Navigate "http://cet4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (56)  
End Sub  
 
Private Sub server57_Click()  
'WebBrowser.Navigate "http://ch3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (57)  
End Sub  
 
Private Sub server58_Click()  
'WebBrowser.Navigate "http://ch4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (58)  
End Sub  
 
Private Sub server59_Click()  
'WebBrowser.Navigate "http://ch5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (59)  
End Sub  
 
Private Sub server60_Click()  
'WebBrowser.Navigate "http://ch6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (60)  
End Sub  
 
Private Sub server61_Click()  
'WebBrowser.Navigate "http://se1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (61)  
End Sub  
 
Private Sub server62_Click()  
'WebBrowser.Navigate "http://se2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (62)  
End Sub  
 
Private Sub server63_Click()  
'WebBrowser.Navigate "http://se3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (63)  
End Sub  
 
Private Sub server64_Click()  
'WebBrowser.Navigate "http://se4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (64)  
End Sub  
 
Private Sub server65_Click()  
'WebBrowser.Navigate "http://se5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (65)  
End Sub  
 
Private Sub server66_Click()  
'WebBrowser.Navigate "http://se6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (66)  
End Sub  
 
Private Sub server67_Click()  
'WebBrowser.Navigate "http://jolt10.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (67)  
End Sub  
 
Private Sub server68_Click()  
'WebBrowser.Navigate "http://jolt11.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (68)  
End Sub  
 
Private Sub server69_Click()  
'WebBrowser.Navigate "http://jolt12.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (69)  
End Sub  
 
Private Sub server70_Click()  
'WebBrowser.Navigate "http://sl10.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (70)  
End Sub  
 
Private Sub server71_Click()  
'WebBrowser.Navigate "http://uk7.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (71)  
End Sub  
 
Private Sub server72_Click()  
'WebBrowser.Navigate "http://sl1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (72)  
End Sub  
 
Private Sub server73_Click()  
'WebBrowser.Navigate "http://sl2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (73)  
End Sub  
 
Private Sub server74_Click()  
'WebBrowser.Navigate "http://sl3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (74)  
End Sub  
 
Private Sub serve75_Click()  
'WebBrowser.Navigate "http://sl4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (75)  
End Sub  
 
Private Sub server76_Click()  
'WebBrowser.Navigate "http://sl5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (76)  
End Sub  
 
Private Sub server77_Click()  
'WebBrowser.Navigate "http://sl6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (77)  
End Sub  
 
Private Sub server78_Click()  
'WebBrowser.Navigate "http://sl7.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (78)  
End Sub  
 
Private Sub server79_Click()  
'WebBrowser.Navigate "http://sl8.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (79)  
End Sub  
 
Private Sub server80_Click()  
'WebBrowser.Navigate "http://jolt1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (80)  
End Sub  
 
Private Sub server81_Click()  
'WebBrowser.Navigate "http://jolt2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (81)  
End Sub  
 
Private Sub server82_Click()  
'WebBrowser.Navigate "http://jolt3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (82)  
End Sub  
 
Private Sub server83_Click()  
'WebBrowser.Navigate "http://jolt4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (83)  
End Sub  
 
Private Sub server84_Click()  
'WebBrowser.Navigate "http://jolt5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (84)  
End Sub  
 
Private Sub server85_Click()  
'WebBrowser.Navigate "http://ny1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (85)  
End Sub  
 
Private Sub server86_Click()  
'WebBrowser.Navigate "http://ny2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (86)  
End Sub  
 
Private Sub server87_Click()  
'WebBrowser.Navigate "http://ny4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (87)  
End Sub  
 
Private Sub server88_Click()  
'WebBrowser.Navigate "http://ny5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (88)  
End Sub  
 
Private Sub server89_Click()  
'WebBrowser.Navigate "http://ny6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (89)  
End Sub  
 
Private Sub server90_Click()  
'WebBrowser.Navigate "http://ny7.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (90)  
End Sub  
 
Private Sub server91_Click()  
'WebBrowser.Navigate "http://ny8.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (91)  
End Sub  
 
Private Sub server92_Click()  
'WebBrowser.Navigate "http://nl9.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (92)  
End Sub  
 
Private Sub server93_Click()  
'WebBrowser.Navigate "http://mi1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (93)  
End Sub  
 
Private Sub server94_Click()  
'WebBrowser.Navigate "http://mi2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (94)  
End Sub  
 
Private Sub server95_Click()  
'WebBrowser.Navigate "http://mi3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (95)  
End Sub  
 
Private Sub server96_Click()  
'WebBrowser.Navigate "http://mi4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (96)  
End Sub  
 
Private Sub server97_Click()  
'WebBrowser.Navigate "http://mi5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (97)  
End Sub  
 
Private Sub server98_Click()  
'WebBrowser.Navigate "http://mi6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (98)  
End Sub  
 
Private Sub server99_Click()  
'WebBrowser.Navigate "http://mi7.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (99)  
End Sub  
 
Private Sub server100_Click()  
'WebBrowser.Navigate "http://mi8.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (100)  
End Sub  
 
Private Sub server101_Click()  
'WebBrowser.Navigate "http://at7.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (101)  
End Sub  
 
Private Sub server102_Click()  
'WebBrowser.Navigate "http://at8.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (102)  
End Sub  
 
Private Sub server103_Click()  
'WebBrowser.Navigate "http://at9.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (103)  
End Sub  
 
Private Sub server104_Click()  
'WebBrowser.Navigate "http://at10.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (104)  
End Sub  
 
Private Sub server106_Click()  
'WebBrowser.Navigate "http://uk9.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (106)  
End Sub  
 
Private Sub server107_Click()  
'WebBrowser.Navigate "http://au1.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (107)  
End Sub  
 
Private Sub server108_Click()  
'WebBrowser.Navigate "http://au2.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (108)  
End Sub  
 
Private Sub server109_Click()  
'WebBrowser.Navigate "http://au3.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (109)  
End Sub  
 
Private Sub server110_Click()  
'WebBrowser.Navigate "http://au4.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (110)  
End Sub  
 
Private Sub server111_Click()  
'WebBrowser.Navigate "http://au5.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (111)  
End Sub  
 
Private Sub server112_Click()  
'WebBrowser.Navigate "http://au6.rs.com:80/rs2.cgi?plugin=0&lowmem=" & quality & "&affiliate=rs&randval=973958323"  
loadworld (112)  
End Sub
Now compile and make as EXE and test it.Now just add the features and your done.


(This post was edited by DeadMeat™ on Mar 15, 2006, 9:12 AM)



Crazy Eye
Enthusiast

Oct 24, 2005, 5:14 AM

Post #2 of 25 (10074 views)
Shortcut
Re: [deadmeat] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
you did that the hard way, and the long way!!! ill get the other way in just a few mins


DeadMeat™
Enthusiast


Oct 24, 2005, 6:46 AM

Post #3 of 25 (10071 views)
Shortcut
Re: [Crazy Eye] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
i thought this was the only way if there is another way pm me it


DeadMeat™
Enthusiast


Nov 27, 2005, 10:03 AM

Post #4 of 25 (9848 views)
Shortcut
Re: [deadmeat] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
Lol everyone im terribly horrribly sorry but no1 rated my guide plx rate it!im terribly horribly sorry please forgive me people.BlushBlushBlushBlushBlushWinkCoolCool


LamasLikeToast
Newbie

Dec 18, 2005, 6:49 AM

Post #5 of 25 (9659 views)
Shortcut
Re: [deadmeat] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
what version of VB is that? i have visual basic 6 and cant make it


Personal demon
Enthusiast


Dec 18, 2005, 7:06 PM

Post #6 of 25 (9643 views)
Shortcut
Re: [deadmeat] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
9/10

Good guide but a fairly experienced vb user could make this but the most usefull thing is the World codes

good job

Btw yes u can make it with visual basic 6

and if you cant then i declare you VB handicapped

__________________________________________

*SKIM OR DIE!*


scare crow
Member


Dec 19, 2005, 7:33 AM

Post #7 of 25 (9640 views)
Shortcut
Re: [Personal demon] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
In Reply To
9/10

Good guide but a fairly experienced vb user could make this but the most usefull thing is the World codes

good job

Btw yes u can make it with visual basic 6

and if you cant then i declare you VB handicapped
how could you say that! even a noob could make this, try making a way better one that requires less time! its really easy... tell me if you want it!


vlademel
Member


Dec 22, 2005, 9:00 PM

Post #8 of 25 (9614 views)
Shortcut
Re: [LamasLikeToast] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
It is VB5

..............................................
Take no prisoners i guess.....

i got nothing to type :(


scare crow
Member


Dec 23, 2005, 3:59 AM

Post #9 of 25 (9604 views)
Shortcut
Re: [vlademel] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
its vb6... but i dont know if it will work for vb5


peterdeskater
Newbie


Dec 27, 2005, 9:25 PM

Post #10 of 25 (9572 views)
Shortcut
Re: [scare crow] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
where u get the begin version of vb and how to get vb 6 coz everything is vb 6! not 2005

WAHHA NOOB SCAMMER FORGOT REMOVE PHAT!


DeadMeat™
Enthusiast


Dec 29, 2005, 6:50 AM

Post #11 of 25 (9559 views)
Shortcut
Re: [peterdeskater] [TUT]how to make a runescape world switcher[TUT] [In reply to] Can't Post
IT IS VB 6!!!


chr1831
Newbie

Jan 26, 2006, 2:26 PM

Post #12 of 25 (9259 views)
Shortcut
Re: [deadmeat] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
<nvm :) fixed it...>
this is going to take for ever and i would add this so when you change the form size it changes the size of the browser
Private Sub Form_Resize()
WebBrowser1.Width = Form2.Width
WebBrowser1.Height = Form2.Height
End Sub

btw Nice i give it 100 outta 10 :)


(This post was edited by chr1831 on Jan 27, 2006, 12:18 PM)


Programmer S
Enthusiast


Feb 2, 2006, 4:51 AM

Post #13 of 25 (9148 views)
Shortcut
Re: [deadmeat] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
In Reply To
This post is old so some pics might not work so right click them and click show picture.

1)First Make a new project and call it (client name) client!

2)Make a webbrowser1

to make a webbrowser follow these instructions
press ctrl t and check these

Click apply and close you should now see this in the tool box
Now click on that and drag it over form 1 and make it fairly big to fit the runescape window
ok now click anywhere in the white window
Copy in this code
Code
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)  
On Error Resume Next  
If URL = "http://www.runescape.com/" Then Cancel = True  
End Sub
Close it
alright now right click somewhere where there isnt anything white and click menu editor


Keep doing that till you got all the worlds
ok now to add the code
Code
Private Sub server29_Click()  
WebBrowser1.Navigate "http://ul6.runescape.com:80/rs2.cgi?plugin=0&lowmem=0&affiliate=runescape&randval=973958323"  
End Sub
i bolded the ul6 thats the code for the world
for each world add these codes
Code
1 ul2  
2 ul4  
3 po3  
4 po4  
5 po5  
6 po6  
7 above2  
 
8 above3  
9 above4  
10 jolt7  
11 jolt8  
12 jolt9  
13 nl3  
14 nl4  
15 uk2  
16 uk3  
17 tor1  
18 tor2  
19 cet1  
20 cet2  
21 cet5  
22 nl1  
23 uk4  
24 uk5  
25 cet6  
26 ul5  
27 nl5  
28 nl6  
29 ul6  
30 po7  
31 po8  
32 ul1  
33 at1  
34 at2  
35 at3  
36 at4  
37 tor3  
38 planet1  
39 planet2  
40 planet3  
41 planet4  
42 po2  
43 sl11  
44 at6  
45 planet5  
46 planet6  
47 above5  
48 above6  
49 ams1  
50 ams2  
51 ams3  
52 ams4  
53 ams5  
54 ams6  
55 ch1  
56 cet4  
57 ch3  
58 ch4  
59 ch5  
61 se1  
62 se2  
63 se3  
64 se4  
66 se6  
67 jolt10  
68 jolt11  
69 jolt12  
70 sl10  
71 uk7  
72 sl1  
73 sl2  
74 sl3  
75 sl4  
76 sl5  
77 sl6  
78 sl7  
79 sl8  
80 jolt1  
81 jolt2  
82 jolt3  
83 jolt4  
84 jolt5
Thats how you make a runescape client save it complie it to an exe try it out!if it works then add some features like mp3s,screenshoters,utilties,calculators etc etc.
The images dont work even if I click "Show Picture".




________________________________________________


DeadMeat™
Enthusiast


Feb 2, 2006, 10:00 AM

Post #14 of 25 (9132 views)
Shortcut
Re: [Programmer S] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
Im realesing a new guide.So this post will be deleted when im Done.


miggster
Newbie

Feb 6, 2006, 1:41 AM

Post #15 of 25 (9041 views)
Shortcut
Re: [deadmeat] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
How wud i make this in VB 2005? coz it doesnt have the BeforeNavigate2 opption?


DeadMeat™
Enthusiast


Feb 6, 2006, 2:01 PM

Post #16 of 25 (9016 views)
Shortcut
Re: [miggster] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
Get VB 6 then!


Jaymzanator
Enthusiast


Feb 9, 2006, 8:39 AM

Post #17 of 25 (8939 views)
Shortcut
Re: [deadmeat] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
vb8 / 05 is navigate2

(17:20) Taz:
and tazg is lol'in at you all the way from canada
(17:21) James:
lol canadians


vlademel
Member


Feb 10, 2006, 10:03 PM

Post #18 of 25 (8899 views)
Shortcut
Re: [deadmeat] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
please can some1 tell me if this will work on vb 5 lol
[fffffffffffffffffffffffff]www.globalinsanties.com[:)][:)][:)][reply]

..............................................
Take no prisoners i guess.....

i got nothing to type :(


DeadMeat™
Enthusiast


Feb 17, 2006, 11:59 AM

Post #19 of 25 (8802 views)
Shortcut
Re: [vlademel] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
Edited:Topic reopened and bumped.


(This post was edited by DeadMeat™ on Mar 15, 2006, 9:12 AM)


DeadMeat™
Enthusiast


Mar 15, 2006, 9:13 AM

Post #20 of 25 (8376 views)
Shortcut
Re: [DeadMeat™] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
Bump.I fixed the guide with new pictures and full detail.


krypto
Newbie

Mar 16, 2006, 12:54 AM

Post #21 of 25 (8356 views)
Shortcut
Re: [DeadMeat™] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
how would you set a world to load soon as the client is opened? and your list of worlds it says invalid line format and highlights loadworld (1) for example.


(This post was edited by krypto on Mar 16, 2006, 8:12 AM)


Fire_Of_Hell
Newbie

Mar 25, 2006, 1:07 PM

Post #22 of 25 (8210 views)
Shortcut
Re: [krypto] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
In Reply To
how would you set a world to load soon as the client is opened? and your list of worlds it says invalid line format and highlights loadworld (1) for example.
see my ini file tutorial


DeadMeat™
Enthusiast


Mar 26, 2006, 8:03 AM

Post #23 of 25 (8200 views)
Shortcut
Re: [krypto] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
In Reply To
how would you set a world to load soon as the client is opened? and your list of worlds it says invalid line format and highlights loadworld (1) for example.
Make sure you copied and pasted everything.


DeadMeat™
Enthusiast


May 4, 2006, 10:06 AM

Post #24 of 25 (7870 views)
Shortcut
Re: [DeadMeat™] How to make a runescape client!WITH PICTURES!! [In reply to] Can't Post
BUMP!


terrankiller
Veteran


May 13, 2006, 12:17 PM

Post #25 of 25 (7688 views)
Shortcut
Re: [DeadMeat™] How to make a runescape world switcher*UPDATED* [In reply to] Can't Post
Looking at that makes me want to make a world switching system that doesn't suck ass. Plus I think mine would be able to auto-update.


(This post was edited by terrankiller on May 13, 2006, 12:18 PM)

 
 
 


Search for (options) Web Design by Web Ideas - Page loaded in: 0.26 s on (CGI/1.1)