Free Games Forum: Game Technology: Visual Basic / VB: Tutorial on making rs client


	FORUM HOME	SEARCH POSTS	WHO'S ONLINE	LOG IN	RULES / FAQ REPORT SPAM

Free Games Forum: Game Technology: Visual Basic / VB:
Tutorial on making rs client

Print Thread

Fire_Of_Hell
Newbie

Mar 24, 2006, 6:14 PM

Post #1 of 1 (438 views)
Shortcut

Tutorial on making rs client	Can't Post

FIRST I WANNA MAKE THIS PERFECTLY CLEAR, FOR THOSE WHO CANT READ PROPERLY DOWN BELOW, I GOT MOST OF THIS CODE FROM SYTHE.ORG ALRIGHT?

ok, i got most of this script off sythe.org, but it's simple and easy to use, it gives use to some variables that cant be used otherwise, like:

me.caption = world

and so on...(this includes the loadworld function which can be used to make load worlds on startup, this is explained in my INI file tutorial)

alright, i dont mind what you use to make your client go to worlds, just make sure they are called server1, server2, server3... and make sure your web browser is called wweb if you just want to copy and paste this.

go to your form code, add these lines, you may not need to edit them any more.

CODE:

Dim prefix As String

Private Sub wweb_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

Private Sub server1_Click()
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

Private Sub Server113_Click()
loadworld (113)
End Sub

Private Sub Server114_Click()
loadworld (114)
End Sub

Private Sub Server115_Click()
loadworld (115)
End Sub

Public Function server_prefix(ByVal server As Integer) As String
Select Case server

Case 1: prefix = "ul2"
Case 2: prefix = "ul4"
Case 3: prefix = "po3"
Case 4: prefix = "po4"
Case 5: prefix = "po5"
Case 6: prefix = "po6"
Case 7: prefix = "above2"
Case 8: prefix = "above3"
Case 9: prefix = "above4"
Case 10: prefix = "jolt7"
Case 11: prefix = "jolt8"
Case 12: prefix = "jolt9"
Case 13: prefix = "nl3"
Case 14: prefix = "nl4"
Case 15: prefix = "uk2"
Case 16: prefix = "uk3"
Case 17: prefix = "tor1"
Case 18: prefix = "tor2"
Case 19: prefix = "nl7"
Case 20: prefix = "nl8"
Case 21: prefix = "nl11"
Case 22: prefix = "nl1"
Case 23: prefix = "uk4"
Case 24: prefix = "uk5"
Case 25: prefix = "nl12"
Case 26: prefix = "ul5"
Case 27: prefix = "nl5"
Case 28: prefix = "nl6"
Case 29: prefix = "ul6"
Case 30: prefix = "po7"
Case 31: prefix = "po8"
Case 32: prefix = "ul1"
Case 33: prefix = "at1"
Case 34: prefix = "at2"
Case 35: prefix = "at3"
Case 36: prefix = "at4"
Case 37: prefix = "tor3"
Case 38: prefix = "planet1"
Case 39: prefix = "planet2"
Case 40: prefix = "planet3"
Case 41: prefix = "planet4"
Case 42: prefix = "po2"
Case 43: prefix = "sl11"
Case 44: prefix = "at6"
Case 45: prefix = "planet5"
Case 46: prefix = "planet6"
Case 47: prefix = "above5"
Case 48: prefix = "above6"
Case 49: prefix = "ams1"
Case 50: prefix = "ams2"
Case 51: prefix = "ams3"
Case 52: prefix = "ams4"
Case 53: prefix = "ams5"
Case 54: prefix = "ams6"
Case 55: prefix = "ch1"
Case 56: prefix = "nl10"
Case 57: prefix = "ch3"
Case 58: prefix = "ch4"
Case 59: prefix = "ch5"
Case 60: prefix = "ch6"
Case 61: prefix = "se1"
Case 62: prefix = "se2"
Case 63: prefix = "se3"
Case 64: prefix = "se4"
Case 65: prefix = "se5"
Case 66: prefix = "se6"
Case 67: prefix = "jolt10"
Case 68: prefix = "jolt11"
Case 69: prefix = "jolt12"
Case 70: prefix = "sl10"
Case 71: prefix = "uk7"
Case 72: prefix = "sl1"
Case 73: prefix = "sl3"
Case 74: prefix = "sl4"
Case 75: prefix = "sl5"
Case 76: prefix = "sl6"
Case 77: prefix = "sl6"
Case 78: prefix = "sl7"
Case 79: prefix = "sl8"
Case 80: prefix = "jolt1"
Case 81: prefix = "jolt2"
Case 82: prefix = "jolt3"
Case 83: prefix = "jolt4"
Case 84: prefix = "jolt5"
Case 85: prefix = "ny1"
Case 86: prefix = "ny2"
Case 87: prefix = "ny4"
Case 88: prefix = "ny5"
Case 89: prefix = "ny6"
Case 90: prefix = "ny7"
Case 91: prefix = "ny8"
Case 92: prefix = "nl9"
Case 93: prefix = "mi1"
Case 94: prefix = "mi2"
Case 95: prefix = "mi3"
Case 96: prefix = "mi4"
Case 97: prefix = "mi5"
Case 98: prefix = "mi6"
Case 99: prefix = "mi7"
Case 100: prefix = "mi8"
Case 101: prefix = "at7"
Case 102: prefix = "at8"
Case 103: prefix = "at9"
Case 104: prefix = "at10"
Case 106: prefix = "uk9"
Case 107: prefix = "au1"
Case 108: prefix = "au2"
Case 109: prefix = "au3"
Case 110: prefix = "au4"
Case 111: prefix = "au5"
Case 112: prefix = "au6"
Case 113: prefix = "tor4"
Case 114: prefix = "tor5"
Case 115: prefix = "tor6"
End Select
server_prefix = prefix
End Function

Private Sub loadworld(ByVal world As String)
server_prefix (world)
wWeb.Navigate ("http://" & prefix & ".runescape.com/rs2.cgi?lowmem=0&plugin=0&affiliate=rs")
End Sub

debug and run your program, if it doesnt work, then don't complain to me, if it does work, good for you Wink

.

plx rate my tutorial Smile

(This post was edited by Fire_Of_Hell on Mar 25, 2006, 12:52 PM)

Print Thread

Search for (options)

Web Design by Web Ideas - Page loaded in: 0.14 s on (CGI/1.1)