' auto nudge repeater by gaz davidson gaz@bitplane.net


Dim Wsh
Set Wsh = Wscript.CreateObject("Wscript.Shell")

name = inputbox("enter a name","")

cycles = int(inputbox("how many pings?",""))


msgbox "please select " & name & " in the list then click ok"

go

sub go()

  for n=1 to cycles

    if (Wsh.AppActivate("MSN Messenger") = false) then exit sub

    wscript.Sleep 10

    Wsh.SendKeys "~"

    count=0
    while (Wsh.AppActivate(name & " - Conversation") = false and count < 100)
      count = count + 1
      wscript.Sleep 10
    wend

    if (Wsh.AppActivate(name & " - Conversation")) then

      wscript.Sleep 10

      Wsh.SendKeys "%(ad)"
      wscript.Sleep 100

      Wsh.SendKeys "%{F4}"
    else
      exit sub
    end if

  next

end sub

msgbox "end of flood :P"