MacroKing Posted March 26, 2004 Share Posted March 26, 2004 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 comment Share on other sites More sharing options...
MacroKing Posted March 26, 2004 Author Share Posted March 26, 2004 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 comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now