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:
vb Script Help plz

 
 


hexscript
Member


Nov 21, 2005, 11:22 AM

Post #1 of 5 (407 views)
Shortcut
vb Script Help plz Can't Post
ok i have the hole script down and it does everything (its a client) and the world select Cennect button has an error in it ....

this is the part that it sais has the error
============================
Sub playrs(world As Integer)
world_found = False

For i = 0 To 48
If world = f2p(i) Then
WebBrowser1.Top = -1800
world_found = True
Else
End If
Next
For i = 0 To 29
If world = p2p(i) Then
WebBrowser1.Top = -430
worlf_found = True
Else
End If
Next
If world_found = False Then
ok = MsgBox("Invalid world number '" & world & "', go to hell!", vbOKOnly, "world?")
Exit Sub
End If

Source = Inet1.OpenURL("http://www.runescape.com/aff/runescape/serverlist.cgi?plugin=0&lores.x=79&lores.y=42")

Key = Between(Source, "client.cgi?world=24&plugin=0&lores=79&", " oncontextmenu=")

========================================
-'`'-.,.-'` NoT ThE SmArTeSt EGGO In ThE FREEzR`'-.,.-'`'-



Arkanor
Veteran


Nov 21, 2005, 11:27 AM

Post #2 of 5 (403 views)
Shortcut
Re: [hexscript] vb Script Help plz [In reply to] Can't Post
In Reply To
ok i have the hole script down and it does everything (its a client) and the world select Cennect button has an error in it ....

this is the part that it sais has the error
============================
Sub playrs(world As Integer)
world_found = False

For i = 0 To 48
If world = f2p(i) Then
WebBrowser1.Top = -1800
world_found = True
Else
End If
Next
For i = 0 To 29
If world = p2p(i) Then
WebBrowser1.Top = -430
worlf_found = True
Else
End If
Next
If world_found = False Then
ok = MsgBox("Invalid world number '" & world & "', go to hell!", vbOKOnly, "world?")
Exit Sub
End If

Source = Inet1.OpenURL("http://www.runescape.com/aff/runescape/serverlist.cgi?plugin=0&lores.x=79&lores.y=42")

Key = Between(Source, "client.cgi?world=24&plugin=0&lores=79&", " oncontextmenu=")

Spelling might be the problem.


(This post was edited by Arkanor on Nov 21, 2005, 11:27 AM)


hexscript
Member


Nov 21, 2005, 11:28 AM

Post #3 of 5 (400 views)
Shortcut
Re: [Arkanor] vb Script Help plz [In reply to] Can't Post
thanks lol worlf lol Tongue

========================================
-'`'-.,.-'` NoT ThE SmArTeSt EGGO In ThE FREEzR`'-.,.-'`'-


masterofall
Enthusiast

Nov 21, 2005, 11:28 AM

Post #4 of 5 (399 views)
Shortcut
Re: [hexscript] vb Script Help plz [In reply to] Can't Post
In Reply To
ok i have the hole script down and it does everything (its a client) and the world select Cennect button has an error in it ....

this is the part that it sais has the error
============================
Sub playrs(world As Integer)
world_found = False

For i = 0 To 48
If world = f2p(i) Then
WebBrowser1.Top = -1800
world_found = True
Else
End If
Next
For i = 0 To 29
If world = p2p(i) Then
WebBrowser1.Top = -430
worlf_found = True
Else
End If
Next
If world_found = False Then
ok = MsgBox("Invalid world number '" & world & "', go to hell!", vbOKOnly, "world?")
Exit Sub
End If

Source = Inet1.OpenURL("http://www.runescape.com/aff/runescape/serverlist.cgi?plugin=0&lores.x=79&lores.y=42")

Key = Between(Source, "client.cgi?world=24&plugin=0&lores=79&", " oncontextmenu=")

wrong forum


hexscript
Member


Nov 21, 2005, 11:39 AM

Post #5 of 5 (398 views)
Shortcut
Re: [hexscript] vb Script Help plz [In reply to] Can't Post
oh shi7 nockers it still doest work lol im gunna paist the hole script.....TongueTongueTongueTongue
=====================================
Dim tmp_path As String
Dim Key, Frame
Dim Source As String
Dim f2p(48)
Dim p2p(29)
Dim world_found As Boolean

Sub load_worlds()
f2p(0) = 1
f2p(1) = 29
f2p(2) = 3
f2p(3) = 5
f2p(4) = 30
f2p(5) = 31
f2p(6) = 55
f2p(7) = 56
f2p(8) = 57
f2p(9) = 7
f2p(10) = 8
f2p(11) = 47
f2p(12) = 61
f2p(13) = 62
f2p(14) = 63
f2p(15) = 64
f2p(16) = 49
f2p(17) = 50
f2p(18) = 51
f2p(19) = 52
f2p(20) = 15
f2p(21) = 23
f2p(22) = 32
f2p(23) = 17
f2p(24) = 37
f2p(25) = 13
f2p(26) = 14
f2p(27) = 19
f2p(28) = 20
f2p(29) = 25
f2p(30) = 28
f2p(31) = 33
f2p(32) = 34
f2p(33) = 35
f2p(34) = 43
f2p(35) = 38
f2p(36) = 39
f2p(37) = 40
f2p(38) = 45
f2p(39) = 10
f2p(40) = 11
f2p(41) = 67
f2p(42) = 68
f2p(43) = 72
f2p(44) = 73
f2p(45) = 74
f2p(46) = 75
f2p(47) = 76
f2p(48) = 4


p2p(0) = 2
p2p(1) = 26
p2p(2) = 6
p2p(3) = 42
p2p(4) = 58
p2p(5) = 59
p2p(6) = 60
p2p(7) = 9
p2p(8) = 48
p2p(9) = 65
p2p(10) = 66
p2p(11) = 53
p2p(12) = 54
p2p(13) = 16
p2p(14) = 24
p2p(15) = 71
p2p(16) = 18
p2p(17) = 21
p2p(18) = 22
p2p(19) = 27
p2p(20) = 36
p2p(21) = 44
p2p(22) = 41
p2p(23) = 46
p2p(24) = 12
p2p(25) = 69
p2p(26) = 70
p2p(27) = 77
p2p(28) = 78
p2p(29) = 79
End Sub

Private Sub Command1_Click()
Timer2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_load()
load_worlds
WebBrowser1.Navigate ("http://www.runescape.com")
tmp_path = App.Path & "\tmp.tmp"
End Sub

Private Function Betweem(Text As String, StartText As String, EntText As String) As String
Dim istart As Integer
Dim ient As Integer
Dim sLength As String

istart = InStr(1, Text, StartText)
iend = InStr(instart, Text, EndText)
sLength = Len(StartText)

Between = Mid(Text, istart + sLength, iend - istart - sLength)
End Function

Sub playrs(world As Integer)

world_found = False

For i = 0 To 48
If world = f2p(i) Then
WebBrowser1.Top = -1800
world_found = True
Else
End If
Next
For i = 0 To 29
If world = p2p(i) Then
WebBrowser1.Top = -430
world_found = True
Else
End If
Next
If world_found = False Then
ok = MsgBox("Invalid world number '" & world & "', go to hell!", vbOKOnly, "world?")
Exit Sub
End If

Source = Inet1.OpenURL("http://www.runescape.com/aff/runescape/serverlist.cgi?plugin=0&lores.x=79&lores.y=42")

Key = Between(Source, "client.cgi?world=24&plugin=0&lores=79&", " oncontextmenu=")

Key = Replace(Key, Right(Key, 1), "")

Frame = "<html><frameset cols=0,* rows=0,100% frameborder=1 border=0>" & vbNewLine _
& "<frame src='http://www.runescape.com/aff/runescape/logo.html'>" & vbNewLine _
& "<frame src='http://uk3.runescape.com:80/aff/runescape/mod/advert/banner.cgi?size=0&rs=1'>" & vbNewLine _
& "<frame src='http://uk3.runescape.com:80/aff/runescape/mod/advert/banner.cgi?size=0&rs=1'>" & vbNewLine _
& "<frame src='" & "http://www.runescape.com/aff/runescape/client.cgi?world=" & world & "&plugin=0&lores=79&" & Key & "'>" & vbNewLine _
& "</frameset></html>"

Open tmp_path For Output As #1
Print #1, Frame
Close #1
WebBrowser1.Navigate (tmp_path)
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 5000
SendKeys Text2.Text
SendKeys "{enter}"
End Sub

Private Sub Timer2_Timer()
playrs (Text1.Text)
Timer2.Enabled = False
End Sub

========================================
-'`'-.,.-'` NoT ThE SmArTeSt EGGO In ThE FREEzR`'-.,.-'`'-

(This post was edited by hexscript on Nov 21, 2005, 11:43 AM)

 
 
 


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