gamerman2360 Posted October 24, 2005 Posted October 24, 2005 Something is wrong and I can't find it, can someone help? expandcollapse popup; See: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp $oIE = ObjCreate("Shell.Explorer.2") $startmenu = WinGetPos("", "start") $file = "@TempDir@/runescape.html" GUICreate("RuneScape", @DesktopWidth, @DesktopHeight - $startmenu[3], 0, 0, 0x00CF0000 + 0x10000000 + 0x00800000) $world = _SetWorld() If $members Then $ad = 29 Else $ad = 119 EndIf If $world = 0 Then $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 500, 600) Else $GUIActiveX = GUICtrlCreateObj($oIE, (@DesktopWidth - 765) / 2, 0 - $ad, 765, 503) EndIf While 1 Sleep(5000) WEnd Func Terminate() Exit EndFunc ;==>Terminate Func OnAutoItStart() #NoTrayIcon opt("TrayMenuMode", 1) opt("TrayOnEventMode", 1) opt("GUIOnEventMode", 1) opt("ExpandEnvStrings", 1) opt("ExpandVarStrings", 1) opt("GUICloseOnESC", 0) opt("RunErrorsFatal", 1) opt("SendKeyDownDelay", 39) GUISetOnEvent(-3, "Terminate") TraySetClick(8) TraySetToolTip("RuneScape") While 1 $answer = MsgBox(4, "Worlds", "Would you like to play in 1 world?") If $answer = 6 Then $worlds = 1 ExitLoop EndIf $answer = MsgBox(4, "Worlds", "Would you like to play in 2 worlds?") If $answer = 6 Then $worlds = 2 ExitLoop EndIf WEnd SetTray($worlds) $answer = MsgBox(4, "Defaults?", "Would you like to use the default settings?") $ico = "@TempDir@/runescape.ico" If Not FileExists($ico) Then InetGet("http://www.runescape.com/favicon.ico", $ico) TraySetIcon($ico) EndFunc ;==>OnAutoItStart Func SetTray($worlds) If $worlds = 1 Then Global $TrayMenu_SetDefault1 = TrayCreateItem("Set Default (1 World)") Global $TrayMenu_SetDefault2 = TrayCreateItem("Set Default (2 Worlds)") Global $TrayMenu_ChangeWorld = TrayCreateItem("Change World") Global $TrayMenu_ChangeWorld = TrayCreateItem("Change World") Global $TrayMenu_Refreash = TrayCreateItem("Refreash") TrayCreateItem("") Global $Tray_Close = TrayCreateItem("Close") TrayItemSetOnEvent($Tray_ChangeWorld, "TrayFunc") TrayItemSetOnEvent($Tray_Refreash, "TrayFunc") TrayItemSetOnEvent($Tray_Close, "TrayFunc") ElseIf $worlds = 2 Then Global $TrayMenu_SetDefault1 = TrayCreateItem("Set Default (1 World)") Global $TrayMenu_SetDefault2 = TrayCreateItem("Set Default (2 Worlds)") Global $TrayMenu_ChangeWorld = TrayCreateItem("Change World") Global $TrayMenu_ChangeWorld = TrayCreateItem("Change World") Global $TrayMenu_Refreash = TrayCreateItem("Refreash") TrayCreateItem("") Global $Tray_Close = TrayCreateItem("Close") TrayItemSetOnEvent($Tray_ChangeWorld, "TrayFunc") TrayItemSetOnEvent($Tray_Refreash, "TrayFunc") TrayItemSetOnEvent($Tray_Close, "TrayFunc") EndIf EndFunc Func OnAutoItExit() GUIDelete() EndFunc ;==>OnAutoItExit Func TrayFunc() Select Case @TRAY_ID = $Tray_SetDefault1 Case @TRAY_ID = $Tray_SetDefault2 Case @TRAY_ID = $Tray_ChangeWorld _SetWorld() Case @TRAY_ID = $Tray_Refreash $oIE.refreash Case @TRAY_ID = $Tray_Close Exit EndSelect EndFunc Func _SetWorld($number = 0, $lowmem = -1) If $number = 0 Then $number = InputBox("World?", "Please the world you want to enter.@CRLF@Type negative numbers to enter classic worlds.(Not yet, still working on it.)", 0, " M") If @error = 1 Then Return 1 ElseIf IsInt($number) Then MsgBox(0, "Failed", "There are no fractional worlds.") SetError(1) Return 0 EndIf If $lowmem = -1 And $number <> 0 Then $lowmem = MsgBox(4, "Detail", "Would you like to play in high detail?") If $lowmem = 6 Then $lowmem = 0 If $lowmem = 7 Then $lowmem = 1 EndIf Select Case $number = 0 Global $members = 0, $classic = 0, $file = "http://www.runescape.com/" Return $number Case $number = 1 Global $server = "ul2", $members = 0, $classic = 0 Case $number = 2 Global $server = "ul4", $members = 1, $classic = 0 Case $number = 3 Global $server = "po3", $members = 0, $classic = 0 Case $number = 4 Global $server = "po4", $members = 0, $classic = 0 Case $number = 5 Global $server = "po5", $members = 0, $classic = 0 Case $number = 6 Global $server = "po6", $members = 1, $classic = 0 Case $number = 7 Global $server = "above2", $members = 0, $classic = 0 Case $number = 8 Global $server = "above3", $members = 0, $classic = 0 Case $number = 9 Global $server = "above4", $members = 1, $classic = 0 Case $number = 10 Global $server = "jolt7", $members = 0, $classic = 0 Case $number = 11 Global $server = "jolt8", $members = 0, $classic = 0 Case $number = 12 Global $server = "jolt9", $members = 1, $classic = 0 Case $number = 13 Global $server = "nl3", $members = 0, $classic = 0 Case $number = 14 Global $server = "nl4", $members = 0, $classic = 0 Case $number = 15 Global $server = "uk2", $members = 0, $classic = 0 Case $number = 16 Global $server = "uk3", $members = 0, $classic = 0 Case $number = 17 Global $server = "tor1", $members = 0, $classic = 0 Case $number = 18 Global $server = "tor2", $members = 1, $classic = 0 Case $number = 19 Global $server = "nl7", $members = 0, $classic = 0 Case $number = 20 Global $server = "nl8", $members = 0, $classic = 0 Case $number = 21 Global $server = "nl11", $members = 0, $classic = 0 Case $number = 22 Global $server = "nl1", $members = 1, $classic = 0 Case $number = 23 Global $server = "uk4", $members = 1, $classic = 0 Case $number = 24 Global $server = "uk5", $members = 1, $classic = 0 Case $number = 25 Global $server = "nl12", $members = 0, $classic = 0 Case $number = 26 Global $server = "ul5", $members = 1, $classic = 0 Case $number = 27 Global $server = "nl5", $members = 1, $classic = 0 Case $number = 28 Global $server = "nl6", $members = 1, $classic = 0 Case $number = 29 Global $server = "ul6", $members = 0, $classic = 0 Case $number = 30 Global $server = "po7", $members = 0, $classic = 0 Case $number = 31 Global $server = "po8", $members = 0, $classic = 0 Case $number = 32 Global $server = "ul1", $members = 0, $classic = 0 Case $number = 33 Global $server = "at1", $members = 0, $classic = 0 Case $number = 34 Global $server = "at2", $members = 0, $classic = 0 Case $number = 35 Global $server = "at3", $members = 0, $classic = 0 Case $number = 36 Global $server = "at4", $members = 1, $classic = 0 Case $number = 37 Global $server = "tor3", $members = 0, $classic = 0 Case $number = 38 Global $server = "planet1", $members = 0, $classic = 0 Case $number = 39 Global $server = "planet2", $members = 0, $classic = 0 Case $number = 40 Global $server = "planet3", $members = 0, $classic = 0 Case $number = 41 Global $server = "planet4", $members = 1, $classic = 0 Case $number = 42 Global $server = "po2", $members = 1, $classic = 0 Case $number = 43 Global $server = "sl11", $members = 0, $classic = 0 Case $number = 44 Global $server = "at6", $members = 1, $classic = 0 Case $number = 45 Global $server = "planet5", $members = 0, $classic = 0 Case $number = 46 Global $server = "planet6", $members = 1, $classic = 0 Case $number = 47 Global $server = "above5", $members = 0, $classic = 0 Case $number = 48 Global $server = "above6", $members = 1, $classic = 0 Case $number = 49 Global $server = "ams1", $members = 0, $classic = 0 Case $number = 50 Global $server = "ams2", $members = 0, $classic = 0 Case $number = 51 Global $server = "ams3", $members = 0, $classic = 0 Case $number = 52 Global $server = "ams4", $members = 0, $classic = 0 Case $number = 53 Global $server = "ams5", $members = 1, $classic = 0 Case $number = 54 Global $server = "ams6", $members = 1, $classic = 0 Case $number = 55 Global $server = "ch1", $members = 0, $classic = 0 Case $number = 56 Global $server = "nl10", $members = 0, $classic = 0 Case $number = 57 Global $server = "ch3", $members = 0, $classic = 0 Case $number = 58 Global $server = "ch4", $members = 1, $classic = 0 Case $number = 59 Global $server = "ch5", $members = 1, $classic = 0 Case $number = 60 Global $server = "ch6", $members = 1, $classic = 0 Case $number = 61 Global $server = "se1", $members = 0, $classic = 0 Case $number = 62 Global $server = "se2", $members = 0, $classic = 0 Case $number = 63 Global $server = "se3", $members = 0, $classic = 0 Case $number = 64 Global $server = "se4", $members = 1, $classic = 0 Case $number = 65 Global $server = "se5", $members = 1, $classic = 0 Case $number = 66 Global $server = "se6", $members = 1, $classic = 0 Case $number = 67 Global $server = "jolt10", $members = 0, $classic = 0 Case $number = 68 Global $server = "jolt11", $members = 0, $classic = 0 Case $number = 69 Global $server = "jolt12", $members = 1, $classic = 0 Case $number = 70 Global $server = "sl10", $members = 1, $classic = 0 Case $number = 71 Global $server = "uk7", $members = 1, $classic = 0 Case $number = 72 Global $server = "sl1", $members = 0, $classic = 0 Case $number = 73 Global $server = "sl2", $members = 0, $classic = 0 Case $number = 74 Global $server = "sl3", $members = 0, $classic = 0 Case $number = 75 Global $server = "sl4", $members = 0, $classic = 0 Case $number = 76 Global $server = "sl5", $members = 0, $classic = 0 Case $number = 77 Global $server = "sl6", $members = 1, $classic = 0 Case $number = 78 Global $server = "sl7", $members = 1, $classic = 0 Case $number = 79 Global $server = "sl8", $members = 1, $classic = 0 Case $number = 80 Global $server = "jolt1", $members = 0, $classic = 0 Case $number = 81 Global $server = "jolt2", $members = 0, $classic = 0 Case $number = 82 Global $server = "jolt3", $members = 0, $classic = 0 Case $number = 83 Global $server = "jolt4", $members = 1, $classic = 0 Case $number = 84 Global $server = "jolt5", $members = 1, $classic = 0 Case $number = 85 Global $server = "ny1", $members = 0, $classic = 0 Case $number = 86 Global $server = "ny2", $members = 0, $classic = 0 Case $number = 87 Global $server = "ny4", $members = 0, $classic = 0 Case $number = 88 Global $server = "ny5", $members = 1, $classic = 0 ;~ Case $number = -1 ;~ Global $server = "", $members = 1, $classic = 1 ;~ Case $number = -2 ;~ Global $server = "", $members = 1, $classic = 1 ;~ Case $number = -3 ;~ Global $server = "", $members = 1, $classic = 1 ;~ Case $number = -4 ;~ Global $server = "", $members = 1, $classic = 1 ;~ Case $number = -5 ;~ Global $server = "", $members = 1, $classic = 1 ;~ Case $number = -6 ;~ Global $server = "", $members = 1, $classic = 1 EndSelect If FileExists($file) Then FileDelete($file) FileWrite($file, '<frameset cols="*" rows="*" frameborder="1" border="0"><frame src="http://$server$.runescape.com/rs2.cgi?lowmem=$lowmem$&plugin=0&affiliate=windowsclient" scrolling = no></frameset>') $oIE.navigate($file) Return $number EndFunc ;==>_SetWorld
markusss Posted October 25, 2005 Posted October 25, 2005 Hey! Please tell us what the script is supposed to do.... And with scripts that big it is always better if you just attach the script, because it is easier to read the scripts in SciTE with syntax highlighting that without Also, if you give a more detailed description of your problem it is easier to the problem.. Felix N. (tdlrali)
markusss Posted October 25, 2005 Posted October 25, 2005 (edited) Edit: The error report of SciTE: expandcollapse popupC:\Programme\AutoIt3\Projects\runescape.au3(7,13) : WARNING: $members: possibly used before declaration. If $members Then ~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(66,45) : WARNING: $Tray_ChangeWorld: possibly used before declaration. TrayItemSetOnEvent($Tray_ChangeWorld, ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(67,42) : WARNING: $Tray_Refreash: possibly used before declaration. TrayItemSetOnEvent($Tray_Refreash, ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(89,38) : WARNING: $Tray_SetDefault1: possibly used before declaration. Case @TRAY_ID = $Tray_SetDefault1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(91,38) : WARNING: $Tray_SetDefault2: possibly used before declaration. Case @TRAY_ID = $Tray_SetDefault2 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(97,32) : WARNING: $Tray_Close: possibly used before declaration. Case @TRAY_ID = $Tray_Close ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(66,45) : ERROR: $Tray_ChangeWorld: undeclared global variable. TrayItemSetOnEvent($Tray_ChangeWorld, ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(67,42) : ERROR: $Tray_Refreash: undeclared global variable. TrayItemSetOnEvent($Tray_Refreash, ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(89,38) : ERROR: $Tray_SetDefault1: undeclared global variable. Case @TRAY_ID = $Tray_SetDefault1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(91,38) : ERROR: $Tray_SetDefault2: undeclared global variable. Case @TRAY_ID = $Tray_SetDefault2 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(65,53) : WARNING: $Tray_Close: declared global in function only. Prefer top of file. Global $Tray_Close = TrayCreateItem("Close") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(13,56) : ERROR: GUICtrlCreateObj(): undefined function. $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 500, 600) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(37,31) : ERROR: TraySetToolTip(): undefined function. TraySetToolTip("RuneScape") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3(66,57) : ERROR: TrayItemSetOnEvent(): undefined function. TrayItemSetOnEvent($Tray_ChangeWorld, "TrayFunc") ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ C:\Programme\AutoIt3\Projects\runescape.au3 - 7 error(s), 6 warning(s) I think this says most of it, many of your variables aren't declared! Example: where do you get $members from? See here: If $members Then $ad = 29 ... This checks if $members is 1 and if it is it sets $ad to 29 and otherwise does the rest... But $members isn't defined.... As i said, please give more information about what this is supposed to do! [Edit] Sorry for new post, didn't see that I wasn't editing till i posted it! Edited October 25, 2005 by Felix N.
TK_Incorperate Posted October 25, 2005 Posted October 25, 2005 other then more info on what it's supposed to do, post what the error SAYS when you try to run it, and it should be alot easier to fix....
Snarg Posted October 25, 2005 Posted October 25, 2005 This is the wrong forum. Please look here: http://www.autoitscript.com/forum/index.php?act=SR&f=9 A little reading goes a long way. Post count means nothing.
gamerman2360 Posted October 28, 2005 Author Posted October 28, 2005 Lol, posted it then forgot about it... It is supposed to navigate to directly to runescape cliants. Each world has a different site like po6.runescape.com or jolt12.runescape.com. I think it's just easier to skip the OnAutoItStart() which declared vars are being cought as not declared by anything that tries to check it. Most of the code is getting the server handles or what ever they are. But now that i know more of autoit. I think there are better ways to set it.
gamerman2360 Posted October 28, 2005 Author Posted October 28, 2005 (edited) O ya. Forgot to say. because of the line of code <script LANGUAGE='javascript'>try { if (top == self) {top.location.href='http://www.runescape.com/'; } } catch(er) { } </SCRIPT> on the runescape pages, they can only be viewed through frames... Edit: Which is stupid because <script LANGUAGE='javascript'>if (top == self) {top.location.href='http://www.runescape.com/'}</SCRIPT> would do the exact same thing... Took some time to look up 'try' commands for javascript only to read back and findout it's just an if statement... Edited October 28, 2005 by gamerman2360
pipobona Posted November 28, 2005 Posted November 28, 2005 gamerman2360 said: O ya. Forgot to say. because of the line of code <script LANGUAGE='javascript'>try { if (top == self) {top.location.href='http://www.runescape.com/'; } } catch(er) { } </SCRIPT> on the runescape pages, they can only be viewed through frames... Edit: Which is stupid because <script LANGUAGE='javascript'>if (top == self) {top.location.href='http://www.runescape.com/'}</SCRIPT> would do the exact same thing... Took some time to look up 'try' commands for javascript only to read back and findout it's just an if statement... you can also just get rid of that javascript by using this code to retrieve the html page: $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") $oHTTP.Open("GET","http://www.runescape.com") $oHTTP.Send() $HTMLSource = $oHTTP.Responsetext then remove the javascript stuff from the $htmlSource variable and then save the source and load it in your browser
gamerman2360 Posted November 30, 2005 Author Posted November 30, 2005 (edited) Ya, but instead of searching for a string in the html, I could just satisfy the Javascript by loading it in a frame. Which the browser does do. If FileExists($file) Then FileDelete($file) FileWrite($file, '<frameset cols="*" rows="*" frameborder="1" border="0"><frame src="http://$server$.runescape.com/rs2.cgi?lowmem=$lowmem$&plugin=0&affiliate=windowsclient" scrolling = no></frameset>') $oIE.navigate($file)Anyway I'm still making changes. Like instead of all those dang globals to change the world number to the name I need to connect to, I'll just use a giant array made with StringSplit(). [edit] That code: $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") $oHTTP.Open("GET","http://www.runescape.com") $oHTTP.Send() $HTMLSource = $oHTTP.ResponsetextCould come in handy, I'll keep it in mind. Edited November 30, 2005 by gamerman2360
Chris86 Posted July 31, 2007 Posted July 31, 2007 If you are going to check if the script got any wrong commandos or something that might get the script to not work open SciTe and go Tools>SyntaxCheck Prod(or click CTRL+F5)
ashley Posted July 31, 2007 Posted July 31, 2007 RUNESCAPE IS GAY!!! ONLY MAKE THIS IF UR GONA SELL IT.... NOT FOR UR WON USE STOP PLAYING IT AND DO MORE AUTOIT... OR GET CONQUERONLINE/ WORLD OF WARCRAFT... THERE ALL MUCH BETTER... JUST FOR THE RECORED I USED TO PLAY RUNESCAPE BUT THEN I GOT MY LIFE BACK... ITS THE SORT OF GAME THAT KILLS YOU... Free icons for your programs
Developers Jos Posted August 1, 2007 Developers Posted August 1, 2007 ashley said: RUNESCAPE IS GAY!!!ONLY MAKE THIS IF UR GONA SELL IT....NOT FOR UR WON USE STOP PLAYING IT AND DO MORE AUTOIT... OR GET CONQUERONLINE/ WORLD OF WARCRAFT...THERE ALL MUCH BETTER...JUST FOR THE RECORED I USED TO PLAY RUNESCAPE BUT THEN I GOT MY LIFE BACK...ITS THE SORT OF GAME THAT KILLS YOU...What is your point here ?Why are you shouting at us ?Maybe just shutting up is a better option ? SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
ashley Posted August 1, 2007 Posted August 1, 2007 JdeB said: What is your point here ?Why are you shouting at us ?Maybe just shutting up is a better option ?my point is its one of the worst games ever made...(just my opinion)im not shouting.... sorrysorry can't shutup.... i just wanted to warn him to will take his life away... it ruined mine...THIS IS JUST MY OPINION Free icons for your programs
Developers Jos Posted August 1, 2007 Developers Posted August 1, 2007 ashley said: my point is its one of the worst games ever made...(just my opinion)im not shouting.... sorrysorry can't shutup.... i just wanted to warn him to will take his life away... it ruined mine...THIS IS JUST MY OPINIONWell my opinion is that you were unnecessarily rude here and you better just shut up when you don't have anything useful to share ...THIS IS JUST MY OPINION SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
Glyph Posted August 1, 2007 Posted August 1, 2007 JdeB said: Well my opinion is that you were unnecessarily rude here and you better just shut up when you don't have anything useful to share ...THIS IS JUST MY OPINIONThis is wayy off topic, but it has to be said..." OWNED! ". tolle indicium
idusy Posted August 1, 2007 Posted August 1, 2007 ashley said: my point is its one of the worst games ever made...(just my opinion)im not shouting.... sorrysorry can't shutup.... i just wanted to warn him to will take his life away... it ruined mine...THIS IS JUST MY OPINIONI have a strange feeling Runescape was only a minor contribution to your lack of social "life".
Thornhunt Posted August 16, 2007 Posted August 16, 2007 look there are many free online games that are beter than runescape but some pple are 'addicted' to it me personally think its a load of shi* and dont bother playing it unles im running around shouting "noobs" .. or "get a life" or "get a better game" at pple.. and i dont see the point in bots or auto or what ever ya like to call em unless its a way of progressing and lerning autoit script.. my point is .. games are made to be played. and cheast, hacks, bots, are fun .. but in the long run ther boring and crap. unles you lern somet from them Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now