Code (Text): <div class="text" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">Public Function GetGame(gameID As String)</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">strURL As String, lngX As Long</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">Call Inet.Execute("http://www.neopets.com/games/play.phtml?game_id=" & gameID, "GET")</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Do Until Inet.StillExecuting = False</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> DoEvents</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Loop</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">strURL = "http://www.neopets.com/games/play_flash.phtml?va=&game_id=" & gameID & "&nc_referer=&age=0&sp=0&questionSet=&r=5309799&width=630&height=610&quality=high&inpage=1"</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">Call Inet.Execute(strURL, "GET")</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Do Until Inet.StillExecuting = False</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> DoEvents</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Loop</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> GetBetweenAll txtHTML, "swf.addParam('", "');", lstAdd</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> GetBetweenAll txtHTML, "swf.addVariable('", "');", lstAdd</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">strURL = GetBetween(txtHTML, "var swf = new SWFObject('", "'") & "?"</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> For lngX = 0 To lstAdd.ListCount - 1 Step 1</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strSplit = Split(lstAdd.List(lngX), "', '")</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strURL = strURL & strSplit(0) & "=" & strSplit(1) & "&"</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Next lngX</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">strURL = Mid$(strURL, 1, Len(strURL) - 1)</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">Flash.Movie = strURL</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">End Function</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">Private Sub Inet_StateChanged(ByVal state As Integer)</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Dim strHTML As String</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Dim vtData As String</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Select Case state</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Case icError</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strPage = "ERROR"</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Case icResponseCompleted</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> vtData = Inet.GetChunk(1024, icString)</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Do While LenB(vtData) > 0</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHTML = strHTML & vtData</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> vtData = Inet.GetChunk(1024, icString)</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Loop</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> txtHTML.Text = strHTML</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> txtHTML.SelStart = 0</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> txtHTML.SelLength = Len(txtHTML.Text)</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> txtHTML.SetFocus</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> End Select</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">End Sub</li></ol></div> Updated RDD's load code so its like mine + his xD but use it and give credit.
It's not really perfect... It will most probably get frozen all of those who use a trainer using this method. First of all, it's probably easier to use the OpenURL method of the iNet control, and the link should not be fixed. You might have noticed that there are some other values in the url, "&nc_referer=&age=0&sp=0&questionSet=&r=5309799&width=630&height=610&quality=high&inpage=1". Those are not the same for every game... and the "&r=" variable is a random one, which is probably generated on the server side and stored in a database to check if you were really loading that game from the game page. I would suggest to grab these variables from the page source, which is the best way to look more human-like. So, just grab the value in this JavaScript function (you can find it by viewing the page source): Code (Javascript): <div class="javascript" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #003366; font-weight: bold;">function</span> getUrl<span style="color: #66cc66;">(</span>size, quality<span style="color: #66cc66;">)</span> <span style="color: #66cc66;">{</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #003366; font-weight: bold;">var</span> width;</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #003366; font-weight: bold;">var</span> height;</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #000066; font-weight: bold;">if</span> <span style="color: #66cc66;">(</span>size_arr<span style="color: #66cc66;">[</span>size<span style="color: #66cc66;">]</span>==undefined<span style="color: #66cc66;">)</span> <span style="color: #66cc66;">{</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #000066; font-weight: bold;">return</span> <span style="color: #003366; font-weight: bold;">false</span>;</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #66cc66;">}</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> width = size_arr<span style="color: #66cc66;">[</span>size<span style="color: #66cc66;">]</span><span style="color: #66cc66;">[</span><span style="color: #3366CC;">"width"</span><span style="color: #66cc66;">]</span>;</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> height = size_arr<span style="color: #66cc66;">[</span>size<span style="color: #66cc66;">]</span><span style="color: #66cc66;">[</span><span style="color: #3366CC;">"height"</span><span style="color: #66cc66;">]</span>;</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #000066; font-weight: bold;">if</span> <span style="color: #66cc66;">(</span>quality!=<span style="color: #3366CC;">"high"</span> && quality!=<span style="color: #3366CC;">"medium"</span> && quality!=<span style="color: #3366CC;">"low"</span><span style="color: #66cc66;">)</span> <span style="color: #66cc66;">{</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> quality = <span style="color: #3366CC;">"high"</span>;</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #66cc66;">}</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #000066; font-weight: bold;">return</span> <span style="color: #3366CC;">'/games/play_flash.phtml?va=&game_id=964&nc_referer=&age=1&hiscore=80&sp=0&questionSet=&r=1088908'</span>+<span style="color: #3366CC;">'&width='</span>+width+<span style="color: #3366CC;">'&height='</span>+height+<span style="color: #3366CC;">'&quality='</span>+quality;</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #66cc66;">}</span></li></ol></div> You see? The url is there. Just grab the string between "return '" and "'+'" and you should be fine Here is the "fixed" load code: Code (Visual Basic): <div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Function</span> GetGame<span style="color: #66cc66;">(</span>gameID <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> strHTML <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, lngX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHTML = Inet.<span style="color: #66cc66;">OpenURL</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"http://www.neopets.com/games/play.phtml?game_id="</span> & gameID<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHTML = <span style="color: #ff0000;">"http://www.neopets.com"</span> & GetBetween<span style="color: #66cc66;">(</span>strHTML, <span style="color: #ff0000;">"return '"</span>, <span style="color: #ff0000;">"'+'"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHTML = Inet.<span style="color: #66cc66;">OpenURL</span><span style="color: #66cc66;">(</span>strHTML<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> GetBetweenAll strHTML, <span style="color: #ff0000;">"swf.addParam('"</span>, <span style="color: #ff0000;">"');"</span>, lstAdd</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> GetBetweenAll strHTML, <span style="color: #ff0000;">"swf.addVariable('"</span>, <span style="color: #ff0000;">"');"</span>, lstAdd</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHTML = GetBetween<span style="color: #66cc66;">(</span>strHTML, <span style="color: #ff0000;">"var swf = new SWFObject('"</span>, <span style="color: #ff0000;">"'"</span><span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">"?"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">For</span> lngX = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">To</span> lstAdd.<span style="color: #66cc66;">ListCount</span> - <span style="color: #cc66cc;">1</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strSplit = <span style="color: #b1b100;">Split</span><span style="color: #66cc66;">(</span>lstAdd.<span style="color: #66cc66;">List</span><span style="color: #66cc66;">(</span>lngX<span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">"', '"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHTML = strHTML & strSplit<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">"="</span> & strSplit<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">"&"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Next</span> lngX</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHTML = <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strHTML, <span style="color: #cc66cc;">1</span>, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>strURL<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Flash.<span style="color: #66cc66;">Movie</span> = strHTML</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li></ol></div>
You are forgetting when using OpenUrl it doesnt use the right headers. SO tnt will be able to tell your using a program.