Jump to content

Some vbs scripts to install...


Westi

Recommended Posts

Could you make a vbs script to make control panel be in my computer!

Yes, i can, but i prefer this method :

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideMyComputerIcons]
"{21EC2020-3AEA-1069-A2DD-08002B30309D}"=dword:00000000

dont work :)

Link to comment
Share on other sites


Here is a TweakUI PowerToy VBS Script for people who can't get the Shortcut method to work on there PC's

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
WshShell.Popup "This will Install Tweak UI PowerToy DO NOT MOVE THE MOUSE OR PRESS ANY KEYS!",5," - Warning - ",48

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

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

'don't use "{n 5}" instead of five times "n" !
WshShell.SendKeys "n"
WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
WScript.Sleep 2000
WshShell.SendKeys "a"
WScript.Sleep 2000
WshShell.SendKeys "n"
WScript.Sleep 2000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 2000
Wscript.Quit

:)

Link to comment
Share on other sites

Could you make a vbs script to make control panel be in my computer!

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideMyComputerIcons]"{21EC2020-3AEA-1069-A2DD-08002B30309D}"=dword:00000000

You have to restart.

Don't know why, but on my two systems, it works.

Maybe there is a different key in non-german version. :)

Link to comment
Share on other sites

  • 4 weeks later...

here's a working winamp 5 beta vbs

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

WshShell.Run ("%systemdrive%\install\Apps\Winamp5\winamp50beta_full.exe")

WScript.Sleep 1000

WshShell.SendKeys "%A"
WScript.Sleep 400

WshShell.SendKeys "{TAB 3}"
WScript.Sleep 400

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

WshShell.SendKeys " "
WScript.Sleep 400

WshShell.SendKeys "{DOWN 5}"
WScript.Sleep 400

WshShell.SendKeys " "
WScript.Sleep 400

WshShell.SendKeys "%n"
WScript.Sleep 400

WshShell.SendKeys "%n"
WScript.Sleep 400

WshShell.SendKeys "{TAB 2}"
WScript.Sleep 400

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

WshShell.SendKeys " "
WScript.Sleep 400

WshShell.SendKeys "{DOWN 5}"
WScript.Sleep 400

WshShell.SendKeys " "
WScript.Sleep 400

WshShell.SendKeys "%N"
WScript.Sleep 400

WshShell.SendKeys "{TAB 2}"
WScript.Sleep 400

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

WshShell.SendKeys "%N"
WScript.Sleep 400

WshShell.SendKeys "%i"

Wscript.Quit

this script doesn't install visual plugins and AOL link

have fun :)

Link to comment
Share on other sites

  • 1 month later...

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...