Jump to content

help with a dam loop its not working


Recommended Posts

$MsgBoxResult = MsgBox(1, "AutoBumper", "Made by littlewashu. making life around gaia easier")

If $MsgBoxResult = -1 Then

Exit

Endif

If $MsgBoxResult = 1 Then

Run("E:\Program Files\Internet Explorer\iexplore.exe","E:\Program Files\Internet Explorer",@SW_MAXIMIZE)

winwaitactive("Imperial Valley College - Windows Internet Explorer")

sleep(6000)

send("{tab}")

send("http://www.gaiaonline.com")

send("{enter}")

winwaitactive("Welcome to Gaia Online - Windows Internet Explorer")

sleep(6000)

send("{TAB 8}")

sleep(1000)

send("")

sleep(1500)

send("{TAB}")

send("")

sleep(8000)

send("{TAB}")

send("{ENTER}")

WinWaitActive("Gaia :: Welcome to Gaia - Windows Internet Explorer")

global $loops = 0

Do

$loops = $loops + 1

Sleep(1200)

Send("{tab}")

send("http://www.gaiaonline.com/guilds/posting.php?mode=reply&tc=576&t=7831119")

send("{ENTER}")

winwaitactive("Gaia :: Forums - Post a Reply - Windows Internet Explorer")

Sleep(7000)

Send("{TAB 8}")

sleep(4000)

send("Bump" & Asc ( 64 + $loops)

Send("{TAB 83}")

Sleep(35000)

Send("{ENTER}")

Until $loops = 99999

EndIf

try...

$MsgBoxResult = MsgBox(1, "AutoBumper", "Made by MidnightRaven. making life around gaia easier")
If $MsgBoxResult = -1 Then
Exit
Endif
If $MsgBoxResult = 1 Then
Run("E:\Program Files\Internet Explorer\iexplore.exe","E:\Program Files\Internet Explorer",@SW_MAXIMIZE)
winwaitactive("Imperial Valley College - Windows Internet Explorer")
sleep(6000)
send("{tab}")
send("http://www.gaiaonline.com")
send("{enter}")
winwaitactive("Welcome to Gaia Online - Windows Internet Explorer")
sleep(6000)
send("{TAB 8}")
sleep(1000)
send("")
sleep(1500)
send("{TAB}")
send("")
sleep(8000)
send("{TAB}")
send("{ENTER}")
WinWaitActive("Gaia :: Welcome to Gaia - Windows Internet Explorer")
global $loops = 0
Do
$loops = $loops + 1
Sleep(1200)
Send("{tab}")
send("http://www.gaiaonline.com/guilds/posting.php?mode=reply&tc=576&t=7831119")
send("{ENTER}")
winwaitactive("Gaia :: Forums - Post a Reply - Windows Internet Explorer")
Sleep(7000)
Send("{TAB 8}")
sleep(4000)
send("Bump" & (Asc ( 64 + $loops))
Send("{TAB 83}")
Sleep(35000)
Send("{ENTER}")
Until $loops = 99999
EndIf

keep in mind...the asc values can only go so high b4 they start hitting numbers and other odd characters...so you'd have to make it loop... 65 = Capital A 91 = Capital Z

Edited by ReaImDown
[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to comment
Share on other sites

send("Bump" & Asc ( 64 + $i)

on the right track, try this

send("Bump" & Chr ( 64 + $i)

Keep in mind this will only work for up to a certain number 999 is not going to work!

Dave

Edited by Davo

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------"I don't need to know everything, I just need to know where to find it when I need it"....EinsteinAnd in our case... That's the AutoIT helpfile ;) Please read before posting!!!

Link to comment
Share on other sites

try...

$MsgBoxResult = MsgBox(1, "AutoBumper", "Made by MidnightRaven. making life around gaia easier")
If $MsgBoxResult = -1 Then
Exit
Endif
If $MsgBoxResult = 1 Then
Run("E:\Program Files\Internet Explorer\iexplore.exe","E:\Program Files\Internet Explorer",@SW_MAXIMIZE)
winwaitactive("Imperial Valley College - Windows Internet Explorer")
sleep(6000)
send("{tab}")
send("http://www.gaiaonline.com")
send("{enter}")
winwaitactive("Welcome to Gaia Online - Windows Internet Explorer")
sleep(6000)
send("{TAB 8}")
sleep(1000)
send("")
sleep(1500)
send("{TAB}")
send("")
sleep(8000)
send("{TAB}")
send("{ENTER}")
WinWaitActive("Gaia :: Welcome to Gaia - Windows Internet Explorer")
global $loops = 0
Do
$loops = $loops + 1
Sleep(1200)
Send("{tab}")
send("http://www.gaiaonline.com/guilds/posting.php?mode=reply&tc=576&t=7831119")
send("{ENTER}")
winwaitactive("Gaia :: Forums - Post a Reply - Windows Internet Explorer")
Sleep(7000)
Send("{TAB 8}")
sleep(4000)
send("Bump" & (Asc ( 64 + $loops))
Send("{TAB 83}")
Sleep(35000)
Send("{ENTER}")
Until $loops = 99999
EndIf
nope
Link to comment
Share on other sites

error?

try

send("Bump" + Asc ( 64 + $loops))

and if it doesnt work...this should

send("Bump" & Asc ( 64 + $loops))

also, if u want an infinte loop, do this

Until $loops = -10

Edited by ReaImDown
[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to comment
Share on other sites

send("Bump" & Asc ( 64 + $loops))

That's the correct version, string append '&', not math add '+'.

also, if u want an infinte loop, do this

Until $loops = -10

An infinite loop is simply:

While 1
     ; Something forever...
WEnd

; Or

Do
     ; Something forever...
Until 0

A Do/Until loop runs until the expression is TRUE. In AutoIt, 0 is FALSE and anything non-zero, including -10, is TRUE. So with 'Until 0' it will never be true and never exit the loop, but with Until -10 it will exit on the first loop.

:)

Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law
Link to comment
Share on other sites

That's the correct version, string append '&', not math add '+'.

An infinite loop is simply:

While 1
     ; Something forever...
WEnd

; Or

Do
     ; Something forever...
Until 0

A Do/Until loop runs until the expression is TRUE. In AutoIt, 0 is FALSE and anything non-zero, including -10, is TRUE. So with 'Until 0' it will never be true and never exit the loop, but with Until -10 it will exit on the first loop.

:)

true... thanks lol, w/e works :)

speaking of works...he just stopped posting, any update on the program yet? I dont want to re-install IE to test it myself :| lol

[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

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