Jump to content

sp3tzn4z

Members
  • Posts

    11
  • Joined

  • Last visited

Everything posted by sp3tzn4z

  1. Well that wus the key i had to delete, and sry that i didn't include it in my previous post but i'm glad you figured it out by yourself.
  2. I just checked this thing and it looks nice but i didn't need it so i uninstalled it but after i did that i saw when i right clicked a file that the right click menu still had the option " Encrypt with Encrypt0r" (i had the newest version), so be sure to fix that in the next version because i had to go in my registry to delete it, its wus just annoying nothing else .
  3. Well i have problems with trying to login on php webpages like : http://www.autoitscript.com/forum/index.ph...t=Login&CODE=00 and http://www.gfxintervention.com/forums/logi...e611380bd37047a is it me or aren't we able to do that with IE.au3 atm ???
  4. Well i read it and i think i'm gonna stick with mouseclicks then because my first attempt had 9 errors and 1 warning and it's only 10 lines long so I'm gonna do it another time then because i need to go somewhere till sunday and monday i have school again and don't have time to this then.
  5. Well now i'm using this script atm to login at a website : run("C:\Program Files\Internet Explorer\iexplore.exe") winwaitactive("pagetitle - Internet Explorer") MouseClick ( "left", 446, 465, 1) Sleep (2000) MouseClick ( "left", 442, 301, 1) Send ($v_UserName) Mouseclick ( "left", 442, 323, 1) Send ($v_PassWord) Mouseclick ( "left", 471, 344, 1) Sleep (2000) But sometimes the coordinates shift a bit and then i have to adjust it and it happened to me 3-4 times in 2 days that i had to replace all the coordinates from 68 Mouseclicks in total. And i searched the forums and read everything about IE.au3 but i can't figure it out from the next thing what to do with it and i don't see anything else between <FORM></FORM> <FORM method=post> <TABLE align=center> <TBODY> <TR> <TD width=100>Username:</TD> <TD><INPUT style="WIDTH: 150px" maxLength=16 name=login></TD></TR> <TR> <TD width=100>Password:</TD> <TD><INPUT style="WIDTH: 150px" type=password maxLength=16 value="" name=pass></TD></TR> <TR> <TD></TD> <TD align=right><INPUT style="WIDTH: 100px" type=submit value=Login name=submit></TD></TR></TBODY></TABLE></FORM> Can someone help me ?
  6. Well i got it working like i wanted i just replaced the 2 radio's by a combobox and this is what i have , and now that i have this i'm gonna look for something else to add in there. SmOke_N thank you for the tips and help you gave me. #include <GUIConstants.au3> ; == GUI generated with Koda == $Form1 = GUICreate("MyMacro", 277, 259, 285, 202) $Combo1 = GUICtrlCreateCombo("", 8, 200, 259, 21) GUICtrlSetData(-1, "choice1|choice2") GUICtrlCreateLabel("Username", 8, 80, 60, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input1 = GUICtrlCreateInput("", 8, 96, 259, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Password", 8, 128, 58, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Input2 = GUICtrlCreateInput("", 8, 144, 259, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Select current city", 8, 176, 108, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Pic1 = GUICtrlCreatePic("", 8, 8, 259, 64) $Button1 = GUICtrlCreateButton("Start", 8, 232, 257, 17) GUISetState(@SW_SHOW) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button1 If GUICtrlRead($Input1) <> '' And GUICtrlRead($Input2) <> '' Then choosepoint() Else MsgBox(0, 'Error', 'You did not fill in a username or password.') EndIf EndSelect WEnd Exit Func choosepoint() If GUICtrlRead ($Combo1) = "choice1" Then point1(GUICtrlRead($Input1), GUICtrlRead($Input2)) ElseIf GUICtrlRead ($Combo1) = "choice2" Then point2(GUICtrlRead($Input1), GUICtrlRead($Input2)) Else MsgBox (0, "Error", "Choose your point") EndIf EndFunc Func point1($v_UserName, $v_PassWord) run("C:\Program Files\Internet Explorer\iexplore.exe") winwaitactive("pagetitle - Internet Explorer") MouseClick ( "left", 446, 465, 1) Sleep (2000) MouseClick ( "left", 442, 301, 1) Send ($v_UserName) Mouseclick ( "left", 442, 323, 1) Send ($v_PassWord) Mouseclick ( "left", 471, 344, 1) Sleep (2000) While 1 Mouseclick ( "left", 884, 126, 1) Sleep (2000) Mouseclick ( "left", 581, 411, 1) Send ("60") Mouseclick ( "left", 587, 450, 1) Sleep (2000) Mouseclick ( "left", 577, 381, 1) Send ("60") Mouseclick ( "left", 569, 452, 1) Sleep (2000) Mouseclick ( "left", 884, 144, 1) Sleep (2000) Mouseclick ( "left", 584, 407, 1) Send ("60") Mouseclick ( "left", 587, 451, 1) Sleep (2000) Mouseclick ( "left", 572, 380, 1) Send ("60") Mouseclick ( "left", 566, 451, 1) Sleep (2000) Mouseclick ( "left", 31, 197, 1) Sleep (2000) Mouseclick ( "left", 538, 222, 1) Sleep (2000) Mouseclick ( "left", 503, 280, 1) Sleep (2000) MouseWheel ( "down") Sleep (2000) Mouseclick ( "left", 400, 489, 1) Sleep (2000) Mouseclick ( "left", 503, 626, 1) Sleep (65000) Mouseclick ( "left", 883, 125, 1) Sleep (2000) Mouseclick ( "left", 581, 363, 1) Send ("60") Mouseclick ( "left", 586, 451, 1) Sleep (2000) Mouseclick ( "left", 575, 430, 1) Send ("60") Mouseclick ( "left", 568, 451, 1) Sleep (2000) Mouseclick ( "left", 883, 145, 1) Sleep (2000) Mouseclick ( "left", 580, 362, 1) Send ("60") Mouseclick ( "left", 586, 451, 1) Sleep (2000) Mouseclick ( "left", 574, 428, 1) Send ("60") Mouseclick ( "left", 567, 452, 1) Sleep (2000) Mouseclick ( "left", 31, 196, 1) Sleep (2000) Mouseclick ( "left", 537, 223, 1) Sleep (2000) Mouseclick ( "left", 503, 281, 1) Sleep (2000) MouseWheel ( "down") Sleep (2000) Mouseclick ( "left", 400, 388, 1) Sleep (2000) Mouseclick ( "left", 504, 625, 1) Sleep (65000) Wend EndFunc Func Point2($v_UserName, $v_PassWord) run("C:\Program Files\Internet Explorer\iexplore.exe") winwaitactive("pagetitle - Internet Explorer") MouseClick ( "left", 446, 465, 1) Sleep (2000) MouseClick ( "left", 442, 301, 1) Send ($v_UserName) Mouseclick ( "left", 442, 323, 1) Send ($v_PassWord) Mouseclick ( "left", 471, 344, 1) Sleep (2000) While 1 Mouseclick ( "left", 883, 125, 1) Sleep (2000) Mouseclick ( "left", 581, 363, 1) Send ("60") Mouseclick ( "left", 586, 451, 1) Sleep (2000) Mouseclick ( "left", 575, 430, 1) Send ("60") Mouseclick ( "left", 568, 451, 1) Sleep (2000) Mouseclick ( "left", 883, 145, 1) Sleep (2000) Mouseclick ( "left", 580, 362, 1) Send ("60") Mouseclick ( "left", 586, 451, 1) Sleep (2000) Mouseclick ( "left", 574, 428, 1) Send ("60") Mouseclick ( "left", 567, 452, 1) Sleep (2000) Mouseclick ( "left", 31, 196, 1) Sleep (2000) Mouseclick ( "left", 537, 223, 1) Sleep (2000) Mouseclick ( "left", 503, 281, 1) Sleep (2000) MouseWheel ( "down") Sleep (2000) Mouseclick ( "left", 400, 388, 1) Sleep (2000) Mouseclick ( "left", 504, 625, 1) Sleep (65000) Mouseclick ( "left", 884, 126, 1) Sleep (2000) Mouseclick ( "left", 581, 411, 1) Send ("60") Mouseclick ( "left", 587, 450, 1) Sleep (2000) Mouseclick ( "left", 577, 381, 1) Send ("60") Mouseclick ( "left", 569, 452, 1) Sleep (2000) Mouseclick ( "left", 884, 144, 1) Sleep (2000) Mouseclick ( "left", 584, 407, 1) Send ("60") Mouseclick ( "left", 587, 451, 1) Sleep (2000) Mouseclick ( "left", 572, 380, 1) Send ("60") Mouseclick ( "left", 566, 451, 1) Sleep (2000) Mouseclick ( "left", 31, 197, 1) Sleep (2000) Mouseclick ( "left", 538, 222, 1) Sleep (2000) Mouseclick ( "left", 503, 280, 1) Sleep (2000) MouseWheel ( "down") Sleep (2000) Mouseclick ( "left", 400, 489, 1) Sleep (2000) Mouseclick ( "left", 503, 626, 1) Sleep (65000) Wend EndFunc
  7. Thx for the suggestion about AutoIt 123 i'll take a look at it.
  8. Thx SmOke_N for the help but can you give me a hint on how that would work without interrupting MyMacro Func ?? I wanna understand what its doeing and not just copy and paste it.
  9. Well i thought i would expand it a little more but once again i can't find the answer to it, and yes i know i'm rushing into it again but i always wanna learn things fast. i did the following thing: I added a group in the GUI that contains 2 Radio's But now i wanna know how i get them to work like i want. If the first radio ("Point 1") is selected then it needs to start reading the script at where i wrote "Func PointOne", and if the second radio is selected ("Point 2) then it needs to start reading the script at where i wrote "Func PointTwo". But that has to happen after "Func MyMacro" has done his job. And i don't have a clue on how to do that.Can anyone help me with that ? #region #include <GuiConstants.au3> GuiCreate("My Macro", 200, 236,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $Group_1 = GuiCtrlCreateGroup("Select you're starting point", 10, 10, 180, 80) $Radio_2 = GuiCtrlCreateRadio("Point 1", 20, 30, 90, 20) $Radio_3 = GuiCtrlCreateRadio("Point 2", 20, 60, 90, 20) $Label_4 = GuiCtrlCreateLabel("Username", 10, 100, 170, 20) $Label_5 = GuiCtrlCreateLabel("Password", 10, 150, 170, 20) $Input_6 = GuiCtrlCreateInput("", 10, 120, 180, 20) $Input_7 = GuiCtrlCreateInput("", 10, 170, 180, 20) $Button_8 = GuiCtrlCreateButton("Begin", 10, 200, 180, 20) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button_8 If GUICtrlRead($Input_6) <> '' And GUICtrlRead($Input_7) <> '' Then MyMacro(GUICtrlRead($Input_6), GUICtrlRead($Input_7)) Else MsgBox(0, 'Error', 'Fill in username and password first') EndIf EndSelect WEnd Exit Func MyMacro($v_UserName, $v_PassWord) Run("C:\Program Files\Internet Explorer\iexplore.exe") WinWaitActive("Webpage - Internet Explorer") MouseClick ( "left", 446, 465, 1) Sleep (2000) MouseClick ( "left", 442, 301, 1) Send ($v_UserName) Mouseclick ( "left", 442, 323, 1) Send ($v_PassWord) Mouseclick ( "left", 471, 344, 1) Sleep (2000) While 1 Func PointOne Mouseclick ( "left", 884, 126, 1) Sleep (2000) Mouseclick ( "left", 581, 411, 1) Send ("60") Mouseclick ( "left", 587, 450, 1) Sleep (2000) Mouseclick ( "left", 577, 381, 1) Send ("60") Mouseclick ( "left", 569, 452, 1) Sleep (2000) Mouseclick ( "left", 884, 144, 1) Sleep (2000) Mouseclick ( "left", 584, 407, 1) Send ("60") Mouseclick ( "left", 587, 451, 1) Sleep (2000) Mouseclick ( "left", 572, 380, 1) Send ("60") Mouseclick ( "left", 566, 451, 1) Sleep (2000) Mouseclick ( "left", 31, 197, 1) Sleep (2000) Mouseclick ( "left", 538, 222, 1) Sleep (2000) Mouseclick ( "left", 503, 280, 1) Sleep (2000) MouseWheel ( "down") Sleep (2000) Mouseclick ( "left", 400, 489, 1) Sleep (2000) Mouseclick ( "left", 503, 626, 1) Sleep (65000) func PointTwo Mouseclick ( "left", 883, 125, 1) Sleep (2000) Mouseclick ( "left", 581, 363, 1) Send ("60") Mouseclick ( "left", 586, 451, 1) Sleep (2000) Mouseclick ( "left", 575, 430, 1) Send ("60") Mouseclick ( "left", 568, 451, 1) Sleep (2000) Mouseclick ( "left", 883, 145, 1) Sleep (2000) Mouseclick ( "left", 580, 362, 1) Send ("60") Mouseclick ( "left", 586, 451, 1) Sleep (2000) Mouseclick ( "left", 574, 428, 1) Send ("60") Mouseclick ( "left", 567, 452, 1) Sleep (2000) Mouseclick ( "left", 31, 196, 1) Sleep (2000) Mouseclick ( "left", 537, 223, 1) Sleep (2000) Mouseclick ( "left", 503, 281, 1) Sleep (2000) MouseWheel ( "down") Sleep (2000) Mouseclick ( "left", 400, 388, 1) Sleep (2000) Mouseclick ( "left", 504, 625, 1) Sleep (65000) Wend EndFunc #endregion --- GuiBuilder generated code End --- sry if it's in the wrong forum section but i didn't wanna make a new topic in the GUI section because i already started this one yesterday and didn't know where to put it.
  10. Thx for explaining it in such short and fast way and giving me an example of it. The helpfile isn't really well explained for me and some things in the helpfile for Scite are missing. now need to figure out tons of other stuff i'm gonna add but you really gave me a good push in the right direction and i thank you for it
  11. Well first of all this is a great program, i started this morning with learning it. But i wanna get something done because i really want/need it atm I know i'm rushing into it but i got nothing else to do atm. I wanna make a GUI for the macro i made today/yesterday (0:09 GMT +1) Ok this is what i made today but the problem is i want it to be able to be used by more people with not having to change the Username and Password in the code all the time Run("C:\Program Files\Internet Explorer\iexplore.exe") WinWaitActive("Page Title - Internet Explorer") MouseClick ( "left", 446, 465, 1) Sleep (2000) MouseClick ( "left", 442, 301, 1) Send ("username") Mouseclick ( "left", 442, 323, 1) Send ("password") Mouseclick ( "left", 471, 344, 1) Sleep (2000) While 1 Mouseclick ( "left", 884, 126, 1) Sleep (2000) Mouseclick ( "left", 581, 411, 1) Send ("60") Mouseclick ( "left", 587, 450, 1) Sleep (2000) Mouseclick ( "left", 577, 381, 1) Send ("60") Mouseclick ( "left", 569, 452, 1) Sleep (2000) Mouseclick ( "left", 884, 144, 1) Sleep (2000) Mouseclick ( "left", 584, 407, 1) Send ("60") Mouseclick ( "left", 587, 451, 1) Sleep (2000) Mouseclick ( "left", 572, 380, 1) Send ("60") Mouseclick ( "left", 566, 451, 1) Sleep (2000) Mouseclick ( "left", 31, 197, 1) Sleep (2000) Mouseclick ( "left", 538, 222, 1) Sleep (2000) Mouseclick ( "left", 503, 280, 1) Sleep (2000) MouseWheel ( "down") Sleep (2000) Mouseclick ( "left", 400, 489, 1) Sleep (2000) Mouseclick ( "left", 503, 626, 1) Sleep (65000) Mouseclick ( "left", 883, 125, 1) Sleep (2000) Mouseclick ( "left", 581, 363, 1) Send ("60") Mouseclick ( "left", 586, 451, 1) Sleep (2000) Mouseclick ( "left", 575, 430, 1) Send ("60") Mouseclick ( "left", 568, 451, 1) Sleep (2000) Mouseclick ( "left", 883, 145, 1) Sleep (2000) Mouseclick ( "left", 580, 362, 1) Send ("60") Mouseclick ( "left", 586, 451, 1) Sleep (2000) Mouseclick ( "left", 574, 428, 1) Send ("60") Mouseclick ( "left", 567, 452, 1) Sleep (2000) Mouseclick ( "left", 31, 196, 1) Sleep (2000) Mouseclick ( "left", 537, 223, 1) Sleep (2000) Mouseclick ( "left", 503, 281, 1) Sleep (2000) MouseWheel ( "down") Sleep (2000) Mouseclick ( "left", 400, 388, 1) Sleep (2000) Mouseclick ( "left", 504, 625, 1) Sleep (65000) Wend And my idea wus to make a GUI where you enter your username and password and the starts the actions that it does in the code above but i have no clue on how to do it but i used GuiWizard.exe and this is what came out of it. ; Script generated by AutoBuilder 0.6 Prototype #include <GuiConstants.au3> GuiCreate("My Macro V1.0", 291, 180,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $Input_1 = GuiCtrlCreateInput("Enter username here", 30, 40, 230, 20) $Input_2 = GuiCtrlCreateInput("Enter password here", 30, 90, 230, 20) $Label_3 = GuiCtrlCreateLabel("Username", 30, 20, 100, 20) $Label_4 = GuiCtrlCreateLabel("Password", 30, 70, 100, 20) $Button_5 = GuiCtrlCreateButton("Start", 100, 130, 100, 30) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;; EndSelect WEnd Exit Now my question is if someone wants to point me in the right direction and help me out a bit to make from those two things 1 thing. I would be happy if someone did because some parts from the Scite help file is missing. Sry if i posted it in the wrong section but i didn't know if i had to post this in GUI because i think there is alot more "coding" to do besides the GUI part (correct me if i'm wrong because i'm a total noob atm and i need all the help i need, either bad or good comments help me so....)
×
×
  • Create New...