Jump to content
Sign in to follow this  
MacroKing

Greater Or Equal Operator ...

Recommended Posts

MacroKing

Here is the code ... sometimes it works fine, but sometimes it just keels over ...

dim $StoryNum = 0, $end_story = 0

$StoryNum = InputBox("No. of Stories", "Enter the bottom story num on the screen", $StoryNum)

$end_story = InputBox("No. of Stories", "Enter the last story to be done", $end_story)

;check to see that things are working properly. if no msgboxes, then no.

if $StoryNum > $end_story then

MsgBox ( 0, "Story number", "Story number is "&$StoryNum )

MsgBox ( 0, "last one", "Last story is "&$end_story)

endif

While $StoryNum >= $end_story

Send($StoryNum&"{enter}")

Sleep(250)

Send("2{enter}")

Sleep(250)

Send("{right 2}")

Sleep(250)

Send("1{enter}")

Sleep(250)

Send("{right 2}")

Sleep(250)

Send("51{enter}")

Sleep(250)

Send("1{enter}")

Sleep(10000)

Sleep(10000)

Sleep(10000)

Send("{end 3}")

$StoryNum = $StoryNum - 1

wend


If I had a really good sig file, this is where it would go.

Share this post


Link to post
Share on other sites
MacroKing
:whistle: DOH! I thought it would be something like that, but couldn't find a reference in the help section on datatypes. perhaps we should add one ... and here is one more wrinkle. It works -- as currently written without forcing the datatype -- IF you use the mouse to click the `OK' button, instead of using the <enter> key ... cheers et thanks.

If I had a really good sig file, this is where it would go.

Share this post


Link to post
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
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.