Need a prog coded...pretty urgent...compensation!

[irwin]

..

[Cubsfan]

Probably isn't too hard (I haven't looked at it), but there's also a good chance you'll get your account locked or something if there are 999 attempts :)

[BS]

Here's something that may work for you, it's not the fastest and relies on the window title to change for it to stop... otherwise your going to have to kill the process. Maybe someone else could figure a way to kill the script once you've logged in. I hope I am correct in assuming that you're running a windows based OS with WSH scripting enabled.

GetPermPin.vbs
==========================================

'====================================================
'
' 1) Open link in new page(With IE) and do not touch anything regarding the page
' 2) Make sure that the title reads "UCR Campus Health Center - Insurance - Microsoft Internet Explorer"
' If not Change windowTitle to match
' 3) Run script
'
'====================================================

'Declarations
windowTitle = "UCR Campus Health Center - Insurance - Microsoft Internet Explorer"

'Prompt for user info
studentId = InputBox("Please Enter Student ID", "Enter Student ID", "")
permPin = InputBox("Please Enter The first 3 digits of your PermPin", "Enter PermPin" , "")

' Get Time between trys, adjust to match connection
timeBtwTry = InputBox("Time between attempts (MilliSeconds)", "Enter Time between attempts", "")

' Create Shell Oject
set WshShell = WScript.CreateObject("WScript.Shell")

'Pause and activate window
WScript.Sleep 100
if WshShell.AppActivate (windowTitle) then
WScript.Sleep 100
else
msgbox("Could not Find window, aborting")
'Exit
Wscript.Quit
end if

'Start checking for PermPin
for i=0 to 9
if WshShell.AppActivate (windowTitle) then
'Send 6 tabs
for n=0 to 5
WshShell.SendKeys "{tab}"
WScript.Sleep 500
next

'Send studentId
WshShell.SendKeys studentId
WScript.Sleep 500

'Send tab
WshShell.SendKeys "{tab}"
WScript.Sleep 500

'Send permPin
WshShell.SendKeys permPin
WshShell.SendKeys "00"
WshShell.SendKeys i
WScript.Sleep 500

'Send enter
WshShell.SendKeys "{Enter}"

'Wait number of seconds before repeating
WScript.Sleep timeBtwTry

else
'Give user last 3 digits of permPin
msgbox("The last 3 digits of your PermPin are: 00" & (i-1))

'Exit
Wscript.Quit

end if
next

for i=10 to 99
if WshShell.AppActivate (windowTitle) then
'Send 6 tabs
for n=0 to 5
WshShell.SendKeys "{tab}"
WScript.Sleep 500
next

'Send studentId
WshShell.SendKeys studentId
WScript.Sleep 500

'Send tab
WshShell.SendKeys "{tab}"
WScript.Sleep 500

'Send permPin
WshShell.SendKeys permPin
WshShell.SendKeys "0"
WshShell.SendKeys i
WScript.Sleep 500

'Send enter
WshShell.SendKeys "{Enter}"

'Wait number of seconds before repeating
WScript.Sleep timeBtwTry

else
'Give user last 3 digits of permPin
msgbox("The last 3 digits of your PermPin are: 0" & (i-1))

'Exit
Wscript.Quit

end if
next

for i=100 to 999
if WshShell.AppActivate (windowTitle) then
'Send 6 tabs
for n=0 to 5
WshShell.SendKeys "{tab}"
WScript.Sleep 500
next

'Send studentId
WshShell.SendKeys studentId
WScript.Sleep 500

'Send tab
WshShell.SendKeys "{tab}"
WScript.Sleep 500

'Send permPin
WshShell.SendKeys permPin
WshShell.SendKeys i
WScript.Sleep 500

'Send enter
WshShell.SendKeys "{Enter}"

'Wait number of seconds before repeating
WScript.Sleep timeBtwTry

else
'Give user last 3 digits of permPin
msgbox("The last 3 digits of your PermPin are: " & (i-1))

'Exit
Wscript.Quit

end if
next

'Finished
msgbox("Finished")

============================================

Good Luck!

[Mike_N_Ike]

If there's only 1000, it may be faster to to brute force it yourself without a program.

But yeah, like CF said, I would be surprised if they didn't lock up your account after a few tries.

[irwin]

tried out Bs' script and the thing works, but yea, I think the lock the account after repeated failed login attempts. After running it, no numbers were spit out, only the text "Finished." :( Oh well. Time to make a trip to Riverside again.

[BS]

Bummer...