VB macro help

[islandsoul]

hey im trying to make something so it presses spacebar in game for me so i don't have to. i previously got this from somewhere else and tried to change it so it worked with the game i started playing.

here is the first script

'-----------------
intHighNumber = 10
intLowNumber = 5
x = 0
wow="World of Warcraft"

Set ws = WScript.CreateObject("Wscript.Shell")
ws.AppActivate wow
buff_timer1=Timer
While x < 100
Randomize
y = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
ws.AppActivate wow
ws.Sendkeys ("e")
' x = x+1
buff_timer2=Timer
If buff_timer2-buff_timer1 >= 500 Then
ws.AppActivate wow
ws.Sendkeys ("q")
Else
End If
WScript.Sleep(y*1000)
Wend
'--------------------

okay everything works fine with that and so i try to change it so spacebar gets pressed and more often but i come to a problem. first the script

The script i tried making off of the first one

'-----------------
intHighNumber = 10
intLowNumber = 5
x = 0
mu="Mu"

Set ms = MScript.CreateObject("Mscript.Shell")
ms.AppActivate mu
buff_timer1=Timer
While x < 25
Randomize
y = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
ms.AppActivate mu
ms.Sendkeys (" ")
' x = x+1
buff_timer2=Timer
If buff_timer2-buff_timer1 >= 125 Then
ms.AppActivate mu
ms.Sendkeys (" ")
Else
End If
MScript.Sleep(y*250)
Mend
'--------------------

now when i run it, it does this

Windows Script Host
Script: C:\Documents and Settings\Default\Desktop\loot.vbs
Line: 24
Char: 22
Error: Expected 'Wend'
Code 800A03FA
Source: Microsoft VBScript compilation error

i tried doing some stuff but nothing works, can anyone help me?>

[EvilDaveCanada]

I can only assume that you made a typo on the last line as you have "Mend" instead of "Wend"

[EvilDaveCanada]

actually it looks like you messed up Wscript to Mscript as well as ws to ms
I program in a different language and have NEVER touched a Microsoft language since the original mbasic back in the late 70's but I do work with for, do & while loops all the time.