Jump to content

Recommended Posts

Posted (edited)

Hi there

I just got my self into vbs programming to install some programs that cannot be installed silently or causing some problems when done so

I had problems with norton systemworks so here I am trying to write a vbs

how to mouse click(double click, right click) at an exact point? (res 1600x1200)

how to use ctrl

how to use shift

how to use windows key

how to combine shift + any other key?

and last is there a way to say at next page or next prompt or something instead of putting timers?

and a program to write this, maybe, a program showing the neccessary tags to me

I know windows have one but just in case I don't like it:)

Thanks

Edited by XtremeMaC

Posted

okay I got it to work

but my questions still remain on how to etc..

here's the vbs script if anyone's interested

it skips clean sweep, systemdoctor, unerase wizard and norton recycle

'Automatic, but not silent install of PowerDVD5 and newest patch
'Usefull AFTER the mplayerc-script

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next

'Run setup from location on hdd'
'you have to check the path !
WshShell.Run ("%systemdrive%\install\Apps\systemworks\setup.exe")

'if your hdd is slow, increase the next value
WScript.Sleep 17000

WshShell.SendKeys "{ENTER}"
WScript.Sleep 300

WshShell.SendKeys "n"
WScript.Sleep 300

WshShell.SendKeys "a"
WScript.Sleep 300

WshShell.SendKeys "n"
WScript.Sleep 300

WshShell.SendKeys "n"
WScript.Sleep 300

WshShell.SendKeys "c"
WScript.Sleep 300

WshShell.SendKeys "n"
WScript.Sleep 300

WshShell.SendKeys "{DOWN}"
WScript.Sleep 300

WshShell.SendKeys " "
WScript.Sleep 300

WshShell.SendKeys "{UP}"
WScript.Sleep 300

WshShell.SendKeys "{ENTER}"
WScript.Sleep 300

WshShell.SendKeys "{DOWN 2}"
WScript.Sleep 300

WshShell.SendKeys "{RIGHT}"
WScript.Sleep 300

WshShell.SendKeys "{DOWN 3}"
WScript.Sleep 300

WshShell.SendKeys " "
WScript.Sleep 300

WshShell.SendKeys "{UP}"
WScript.Sleep 300

WshShell.SendKeys "{ENTER}"
WScript.Sleep 300

WshShell.SendKeys "{DOWN}"
WScript.Sleep 300

WshShell.SendKeys " "
WScript.Sleep 300

WshShell.SendKeys "{UP}"
WScript.Sleep 300

WshShell.SendKeys "{ENTER}"
WScript.Sleep 300

WshShell.SendKeys "{DOWN 2}"
WScript.Sleep 300

WshShell.SendKeys " "
WScript.Sleep 300

WshShell.SendKeys "{UP}"
WScript.Sleep 300

WshShell.SendKeys "{ENTER}"
WScript.Sleep 300

WshShell.SendKeys "%n"
WScript.Sleep 2000

WshShell.SendKeys "n"
WScript.Sleep 300

WScript.Sleep 300000

WScript.Sleep 300

WshShell.SendKeys "{ENTER}"
WScript.Sleep 300

WshShell.SendKeys "{ENTER}"
WScript.Sleep 300

Wscript.Quit

Be advised these sleep times are for my too much program installed windows. Your times could change!!

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...