Register forum user name Search FAQ

Gammon Forum

Notice: Any messages purporting to come from this site telling you that your password has expired, or that you need to verify your details, confirm your email, resolve issues, making threats, or asking for money, are spam. We do not email users with any such messages. If you have lost your password you can obtain a new one by using the password reset link.

Due to spam on this forum, all posts now need moderator approval.

 Entire forum ➜ MUSHclient ➜ VBscript ➜ Setting a sleep command to a random integer

Setting a sleep command to a random integer

It is now over 60 days since the last post. This thread is closed.     Refresh page


Posted by Greytopryu   (1 post)  Bio
Date Sat 28 Jun 2008 08:19 PM (UTC)
Message
Good afternoon all,

This is most likely a stupid basic question so please forgive me but I've been running into a dilemma.
My code:
set WSHShell = CreateObject("WScript.Shell")


dim max,min
max=10000
min=500

Dim RNDM
Randomize
RNDM=((max)*Rnd+min)


Do While 1=1
WSHShell.SendKeys "{F5}"
WScript.Sleep (RNDM)
loop

Should be returning a random sleep time in between each F5. Instead, it waits the same amount of time in between. This code was previously working to generate a random number, now that i put it infront of a sleep command its not working correctly. Any ideas?
Top

Posted by Nick Gammon   Australia  (23,173 posts)  Bio   Forum Administrator
Date Reply #1 on Sat 28 Jun 2008 09:25 PM (UTC)
Message
See http://mushclient.com/faq point 25.

- Nick Gammon

www.gammon.com.au, www.mushclient.com
Top

The dates and times for posts above are shown in Universal Co-ordinated Time (UTC).

To show them in your local time you can join the forum, and then set the 'time correction' field in your profile to the number of hours difference between your location and UTC time.


16,244 views.

It is now over 60 days since the last post. This thread is closed.     Refresh page

Go to topic:           Search the forum


[Go to top] top

Information and images on this site are licensed under the Creative Commons Attribution 3.0 Australia License unless stated otherwise.