Sign in to follow this  
Followers 0
MacroKing

Greater Or Equal Operator ...

2 posts in this topic

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



: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  
Followers 0