Jump to content

Reviving

Mulawin

By Mulawin,
in AutoIt General Help and Support

 Share

Recommended Posts

Mulawin Wayfarer

Mulawin

Posted
Posted 

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.5 Prototype

#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000

GuiCreate("MyGUI", 392, 323,(@DesktopWidth-392)/2, (@DesktopHeight-323)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Label_1 = GuiCtrlCreateLabel("Username", 20, 90, 80, 20)
$Label_2 = GuiCtrlCreateLabel("Password", 20, 150, 80, 30)
$Input_3 = GuiCtrlCreateInput("", 180, 80, 130, 30)
$Input_4 = GuiCtrlCreateInput("", 180, 150, 140, 30)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
   ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

sleep(2000)
If FileExists(@ProgramFilesDir & "\mozilla\firefox.exe") Then
Run(@ProgramFilesDir & "\mozilla\firefox.exe")
sleep(1000)
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;; change 0 , 500 to URL location
send(www.darkthrone.com)
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;;;;;;; change location of username
Send(GuiCtrlRead($Input_3)
sleep(200)
send("{tab}")
sleep(200)
Send(GuiCtrlRead($Input_4) & "{Enter}")
sleep(1000)

MouseClick("left", 0, 500, 0);;;;;;;;;;;;;;;;; change coordinates to community
sleep(200)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;; change coordinates to recruit
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;;;;; change coordinates to wardogs
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;; change coordinates to recruit button
sleep(800)
For $=1 to 349
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;; change to coordinates of recruit button
Sleep(800)

Exit 0

help me edit this will yaa??

New Owner of this AU account

Link to comment
Share on other sites
  • Replies 70
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

ChrisL Universalist

ChrisL

Posted
Posted

I tried to ask him how to put the ok/yes or cancel there but.......

need help here

Does this help?

#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000

GuiCreate("MyGUI", 392, 323,(@DesktopWidth-392)/2, (@DesktopHeight-323)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Label_1 = GuiCtrlCreateLabel("Username", 20, 90, 80, 20)
$Label_2 = GuiCtrlCreateLabel("Password", 20, 150, 80, 30)
$Input_3 = GuiCtrlCreateInput("", 180, 80, 130, 30)
$Input_4 = GuiCtrlCreateInput("", 180, 150, 140, 30)
$Submit = GuiCtrlCreateButton ("Go", 180, 200, 60,40)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $MSG = $Submit
        Go()
    Case Else
  ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

;sleep(2000)

Func GO()
If FileExists(@ProgramFilesDir & "\mozilla\firefox.exe") Then
Run(@ProgramFilesDir & "\mozilla\firefox.exe")
sleep(1000)
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;; change 0 , 500 to URL location
send("www.darkthrone.com")
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;;;;;;; change location of username
$Var = GuiCtrlRead($Input_3)
Send($Var)
sleep(200)
send("{tab}")
sleep(200)
Send(GuiCtrlRead($Input_4) & "{Enter}")
sleep(1000)

MouseClick("left", 0, 500, 0);;;;;;;;;;;;;;;;; change coordinates to community
sleep(200)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;; change coordinates to recruit
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;;;;; change coordinates to wardogs
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;; change coordinates to recruit button
sleep(800)
For $i = 1 to 349
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;; change to coordinates of recruit button
Sleep(800)
next
Else
    MsgBox (0,"Warning", "FireFox not found")
Endif
[u]Scripts[/u]Minimize gui to systray _ Fail safe source recoveryMsgbox UDF _ _procwatch() Stop your app from being closedLicensed/Trial software system _ Buffering Hotkeys_SQL.au3 ADODB.Connection _ Search 2d Arrays_SplashTextWithGraphicOn() _ Adjust Screen GammaTransparent Controls _ Eventlogs without the crap_GuiCtrlCreateFlash() _ Simple Interscript communication[u]Websites[/u]Curious Campers VW Hightops Lambert Plant Hire
Link to comment
Share on other sites
Thatsgreat2345 Universalist

Thatsgreat2345

Posted
Posted (edited)

HAHAH what? this was when i was noobish and did everything with clicks :P but cool sum1s using it i guess

i dont undertand ur question yes/ok? like a button saying Start?

by the way u forgot the endfunc

#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000

GuiCreate("MyGUI", 392, 323,(@DesktopWidth-392)/2, (@DesktopHeight-323)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Label_1 = GuiCtrlCreateLabel("Username", 20, 90, 80, 20)
$Label_2 = GuiCtrlCreateLabel("Password", 20, 150, 80, 30)
$Input_3 = GuiCtrlCreateInput("", 180, 80, 130, 30)
$Input_4 = GuiCtrlCreateInput("", 180, 150, 140, 30)
$Submit = GuiCtrlCreateButton ("Go", 180, 200, 60,40)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $MSG = $Submit
        Go()
    Case Else
 ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

;sleep(2000)

Func GO()
If FileExists(@ProgramFilesDir & "\mozilla\firefox.exe") Then
Run(@ProgramFilesDir & "\mozilla\firefox.exe")
sleep(1000)
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;; change 0 , 500 to URL location
send("www.darkthrone.com")
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;;;;;;; change location of username
$Var = GuiCtrlRead($Input_3)
Send($Var)
sleep(200)
send("{tab}")
sleep(200)
Send(GuiCtrlRead($Input_4) & "{Enter}")
sleep(1000)

MouseClick("left", 0, 500, 0);;;;;;;;;;;;;;;;; change coordinates to community
sleep(200)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;; change coordinates to recruit
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;;;;; change coordinates to wardogs
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;; change coordinates to recruit button
sleep(800)
For $i = 1 to 349
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;; change to coordinates of recruit button
Sleep(800)
next
Else
    MsgBox (0,"Warning", "FireFox not found")
Endif
endfunc
Edited by thatsgreat2345
Link to comment
Share on other sites
ChrisL Universalist

ChrisL

Posted
Posted

by the way u forgot the endfunc

So I did..

Lets see if mulawin will come back with anything cos I have no Idea what he wants to do

[u]Scripts[/u]Minimize gui to systray _ Fail safe source recoveryMsgbox UDF _ _procwatch() Stop your app from being closedLicensed/Trial software system _ Buffering Hotkeys_SQL.au3 ADODB.Connection _ Search 2d Arrays_SplashTextWithGraphicOn() _ Adjust Screen GammaTransparent Controls _ Eventlogs without the crap_GuiCtrlCreateFlash() _ Simple Interscript communication[u]Websites[/u]Curious Campers VW Hightops Lambert Plant Hire
Link to comment
Share on other sites
Thatsgreat2345 Universalist

Thatsgreat2345

Posted
Posted

well i think hes thinking the wrong thing i made this to click the button on the in game recruiter that u only have to click one button i think hes thinking that it will click peoples links and find the duplicate image and click it :P kinda confusing but u got to play the game to understand

Link to comment
Share on other sites
ChrisL Universalist

ChrisL

Posted
Posted

but umm thats great2345

i've gots a problem with this

Else
    MsgBox (0,"Warning", "FireFox not found")
Endif

cant run the game

what if http://darkthrone.com/(recruit thing page)

Well presumably whoever made the program in the first place decided to write it using firefox as the web browser, you need to download and install firefox to use the program I guess
[u]Scripts[/u]Minimize gui to systray _ Fail safe source recoveryMsgbox UDF _ _procwatch() Stop your app from being closedLicensed/Trial software system _ Buffering Hotkeys_SQL.au3 ADODB.Connection _ Search 2d Arrays_SplashTextWithGraphicOn() _ Adjust Screen GammaTransparent Controls _ Eventlogs without the crap_GuiCtrlCreateFlash() _ Simple Interscript communication[u]Websites[/u]Curious Campers VW Hightops Lambert Plant Hire
Link to comment
Share on other sites
Guest
This topic is now closed to further replies.
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...