Jump to content

Greater Or Equal Operator ...


Recommended Posts

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.

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.

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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...