laatst heeft iemand me dit gemaakt in vbs. je kunt dit gewoon starten als je het opslaat met de extensie vbs
-------------------------------
Dim ss
Dim AA
Set ss = CreateObject("WScript.Shell")
ss.Run "C:\temp\ranos\ranos.cer", 1
AA=0
do
wscript.sleep 500
AA = ss.appactivate ("Certificate")
Loop until AA=1
ss.SendKeys "%{I}"
wscript.sleep 1000
ss.SendKeys "%{N}"
ss.SendKeys "%{N}"
ss.SendKeys "{ENTER}"
ss.SendKeys "%{Y}"
ss.SendKeys "{ENTER}"
ss.SendKeys "{ENTER}"
wscript.sleep 2000
ss.Run "C:\temp\ranos\cifmgmt.cer", 1
AA=0
do
wscript.sleep 500
AA = ss.appactivate ("Certificate")
Loop until AA=1
ss.SendKeys "%{I}"
wscript.sleep 1000
ss.SendKeys "%{N}"
ss.SendKeys "%{N}"
ss.SendKeys "{ENTER}"
ss.SendKeys "%{Y}"
ss.SendKeys "{ENTER}"
ss.SendKeys "{ENTER}"
wscript.sleep 2000
ss.Run "C:\temp\ranos\secmgmt.cer", 1
AA=0
do
wscript.sleep 500
AA = ss.appactivate ("Certificate")
Loop until AA=1
ss.SendKeys "%{I}"
wscript.sleep 1000
ss.SendKeys "%{N}"
ss.SendKeys "%{N}"
ss.SendKeys "{ENTER}"
ss.SendKeys "%{Y}"
ss.SendKeys "{ENTER}"
ss.SendKeys "{ENTER}"
Set ss = Nothing
----------------------
het script start 3x een programma op (de path verwijzigen c:\ranos etc)
en controleert dan op het programma openstaat (vervang certificate door de titel die bovenin je window staat met de naam van het programma hierin bv outlook express) daarna ff bij de sendkeys de toetsen veranderen naar de toetsen die je wil.
ff prutsen en je krijgt het wel aan de gang.
[
Voor 13% gewijzigd door
Verwijderd op 03-07-2003 15:47
]