Jump to content

bosko

Active Members
  • Posts

    40
  • Joined

  • Last visited

Everything posted by bosko

  1. thx i vuv you for that
  2. im gonna start learning some of the harder languages and code my own with a few friends...
  3. see thats where we all got confused i only use cursor for mouse cursor and not for text for text i call it the blinky text line
  4. wouldnt that move my cursor?
  5. pfft only half the time the other half is serbian so it depends on when you are trying to read my mind edit: do you see on your keyboard the six or buttons that say "Insert" "Home" "PageUp" "Delete"" End" "Page Down" under that is four directional arrows the one to your right
  6. hmmmm whats the button limit?
  7. the refresh button doesnt show
  8. So can somebody please help me make the refresh button refresh 5000 times when clicked? i tried replasing "Refresh" with send("{F5}") but then the buttons disapear
  9. nope the right arrow on the keyboard
  10. how would i make it a constant refresh. till i hit pause?
  11. no not the cursor but the little directional pad
  12. #include "GUIConstants.au3" ; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI ; ; The full example is available in the test\ActiveX directory (TestXInternet.au3) ; ; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp $oIE = ObjCreate("Shell.Explorer.2") ; Create a simple GUI for our output GUICreate ( "Embedded Web control Test", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj ( $oIE, 10, 40 , 600 , 360 ) $GUI_Button_Back = GuiCtrlCreateButton ("Back", 10, 420, 100, 30) $GUI_Button_Forward = GuiCtrlCreateButton ("Forward", 120, 420, 100, 30) $GUI_Button_Home = GuiCtrlCreateButton ("Home", 230, 420, 100, 30) $GUI_Button_Stop = GuiCtrlCreateButton ("Stop", 330, 420, 100, 30) $GUI_Button_Refresh = GuiCtrlCreateButton ("Refresh", 330, 420, 100, 30) $GUI_Button_Pause = GuiCtrlCreateButton ("Pause", 330, 420, 100, 30) GUISetState () ;Show GUI $oIE.navigate("www.neopets.com") ; Waiting for user to close the window While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home $oIE.navigate("www.neopets.com") $msg = $GUI_Button_Back $oIE.GoBack Case $msg = $GUI_Button_Forward $oIE.GoForward Case $msg = $GUI_Button_Stop $oIE.Stop Case $msg = $GUI_Button_Refresh $oIE.Send("{F5}") Case $msg = $GUI_Button_Pause $oIE.Toggle_pause EndSelect Wend GUIDelete () Exit some of the buttons dont show up and it wont refresh cna someone give me some hints?
  13. send keys (in auto it script i kno) Right? edit or RWIN
  14. I LOVE YOU AND GAFROST but yeah i always miss them sons of a b***** it doesnt navigate to different pages... is there any way i could just make a browser......
  15. with beta i get this error $Input_URL = GUICtrlCreateInput("http://www.neopets.com/explore.phtml", 20, 40, $Input_URL = GUICtrlCreateInput("http://www.neopets.com/explore.phtml", 20, 40^ ERROR Error parsing function call.
  16. $oIE = ObjCreate("InternetExplorer.Application") $oIE = ^ERROR Error: Unknown function name.
  17. i was using a diff version that was the problem but i got another error when i used 3.1.1 Func_Myadlib() Error: Duplicate function name.
  18. Error reading: GUIConstants.au3 ... are you using beta?
  19. thx for that but if i understand that it goes by x&y coordinates... but not all people have their mouse buttons the same so how would i make it so that it looks for the letters Go or a white arrow edit: #include <GuiConstants.au3> Opt ("WinTitleMatchMode", 2) Global $pause = 0, $win = "- Microsoft Internet Explorer", $oIE HotKeySet("{PAUSE}", "GoPause") HotKeySet("{ESC}", "myexit") GUICreate("MyGUI", 392, 322) $Input_URL = GUICtrlCreateInput("http://www.neopets.com/explore.phtml", 20, 40, 340, 20) $Btn_Navigate = GUICtrlCreateButton("Navigate",392/2 - 60,80,120,25) GUICtrlSetImage (-1, "GO.bmp",22) GUISetState() _Navigate() AdlibEnable("_MyAdlib") While 1 Sleep(10) WEnd Exit Func _Navigate() $oIE = ObjCreate("InternetExplorer.Application") With $oIE .Navigate (GUICtrlRead($Input_URL)) While .ReadyState <> 4 Sleep(10) WEnd Sleep(500) .Visible = 1 EndWith WinWaitActive($win, "") Sleep(300) WinSetState($win, "", @SW_MAXIMIZE) WinSetOnTop($win, "", 1) EndFunc Func _MyAdlib() While 1 If Not WinActive($win, "") Then WinActivate($win, "") If Not WinExists($win, "") Then Exit Send("{F5}") While $oIE.ReadyState <> 4 If Not WinExists($win, "") Then Exit Sleep(10) WEnd WEnd EndFunc ;==>_MyAdlib Func GoPause() $pause = 1 HotKeySet("{PAUSE}", "UnPause") While $pause Sleep(10) WEnd HotKeySet("{PAUSE}", "GoPause") EndFunc ;==>GoPause Func UnPause() $pause = 0 EndFunc ;==>UnPause Func myexit() WinKill($win, "") Exit EndFunc ;==>myexit EndWith WinWaitActive($win, "") Sleep(300) WinSetState($win, "", @SW_MAXIMIZE) WinSetOnTop($win, "", 1) EndFunc Func _MyAdlib() While 1 If Not WinActive($win, "") Then WinActivate($win, "") If Not WinExists($win, "") Then Exit Send("{F5}") While $oIE.ReadyState <> 4 If Not WinExists($win, "") Then Exit Sleep(10) WEnd WEnd EndFunc ;==>_MyAdlib Func GoPause() $pause = 1 HotKeySet("{PAUSE}", "UnPause") While $pause Sleep(10) WEnd HotKeySet("{PAUSE}", "GoPause") EndFunc ;==>GoPause Func UnPause() $pause = 0 EndFunc ;==>UnPause Func myexit() WinKill($win, "") Exit EndFunc ;==>myexit thats what i got when i edited it bu i get an error now that says "Eroor: "func" statement has no matching EndFunc".
  20. well heres the code ;--------> EDIT URL HERE ---v $sURL = "http://www.neopets.com/explore.phtml" ;--------> EDIT URL HERE ---^ Opt("WinTitleMatchMode", 2) Global $pause = 0, $win = "- Microsoft Internet Explorer" $oIE = ObjCreate("InternetExplorer.Application") With $oIE .Navigate($sURL) While .ReadyState <> 4 Sleep(10) Wend Sleep(500) .Visible = 1 EndWith WinWaitActive($win, "") Sleep(300) WinSetState($win, "", @SW_MAXIMIZE) WinSetOnTop($win, "", 1) HotkeySet("{PAUSE}", "GoPause") HotkeySet("{ESC}", "myexit") While 1 If not WinActive($win, "") Then WinActivate($win, "") If not WinExists($win, "") Then Exit Send("{F5}") While $oIE.ReadyState <> 4 If not WinExists($win, "") Then Exit Sleep(10) Wend Wend Func GoPause() $pause = 1 HotkeySet("{PAUSE}", "UnPause") While $pause Sleep(10) Wend HotkeySet("{PAUSE}", "GoPause") EndFunc Func UnPause() $pause = 0 EndFunc Func myexit() WinKill($win, "") Exit EndFunc i tried gui create but all i got was an error mesage thats its not writen properly
  21. I LOVE YOU edit: $oIE = ObjCreate("InternetExplorer.Application") Unknown function name
  22. all i said was its for a neopets cheat site didnt say whitch one speciflicly..... so no more spam just ppl to help me with mny code
  23. WTF are you talking about increasing site hits? i need bloody help and im asking and getting answers.... geneious
×
×
  • Create New...