Vbs, Vraag stop en doorgaan

[creative]

Hallo medeforummer's,

ik zoek een scriptje (bekijk het plaatje maar)

en als ik op Ja klik dat ik door ga
en als ik op nee klik dat de script stopt ,

weet iemand dat ??
(ik heb het eingelijk snel nodig )

 

[That Guy]

iets in deze richting.. weet niet of "vbOkay" kan in VBA, google er anders ff op

varInput = Msgbox( ..... )
if varInput = vbOkay then
   msgbox "U koos okay"
else
   msgbox "U koos niet okay"
end if

 

[ZipPe]

Dat kan je eventueel maken met
http://www.devguru.com/Technologies/wsh/quickref/wshshell_Popup.html
en
http://www.devguru.com/Technologies/wsh/quickref/wshshell_SendKeys.html

Het nadeel met scripting logins of runas is dat je geen wachtwoord scrambling kan verwerken. DWZ iedereen die het script met een text editor opend het wachtwoord kan uitlezen. Dus niet echt geschikt voor multi user computers..

of je moet dan met inputbox werken waar het wachtwoord ingevuld moet worden.

voorbeeld

Set WshShell = WScript.CreateObject("WScript.Shell")
intButton = WshShell.popup ("Do you like to login now " & NOW, 0, "Login", 36)


if (intButton = 7) then
WshShell.Popup "Pleace Leave.............", 0, "Wrong Answer!!", 16

else

wshshell.Run "www.gmail.com"
WScript.Sleep 1000

wshshell.SendKeys "login name"
WScript.Sleep 500

'jump next
wshshell.SendKeys "{tab}"

wshshell.SendKeys "passw0rd"
WScript.Sleep 500

wshshell.SendKeys "{enter}"
end if

of

Set WshShell = WScript.CreateObject("WScript.Shell") 

intButton = WshShell.popup ("Do you like to login now " & NOW, 0, "Login", 36)


if (intButton = 7) then
WshShell.Popup "Pleace Leave.............", 0, "Wrong Answer!!", 16

Else


strUserName = InputBox ("Please Give Username", "User", "jantje")
If strUserName = "" Then
WScript.Quit
Else

strPassw0rd = InputBox ("Please Give password", "password", "Passw0rd")
If strPassw0rd = "" Then
WScript.Quit
Else
wshshell.Run "www.gmail.com"
WScript.Sleep 1000

wshshell.SendKeys strUsername
WScript.Sleep 500

'jump next
wshshell.SendKeys "{tab}"
WScript.Sleep 500

wshshell.SendKeys strpassw0rd
WScript.Sleep 500
wshshell.SendKeys "{ }"
wshshell.SendKeys "{enter}"
End If
End If
End If

Het zijn maar voorbeelden, afhankelijk van de snelheid van je computer geopende vensters en de snelheid van je Internetverbinding zal hier nog aan gesleuteld moeten worden.

Er zullen ook beslist meer scripting mogelijkeden op dit gebied zijn (waar ik niet of minder in thuis ben)

 

[creative]

ja en nee, het werkt wel maar ik zoek gewoon een schermpje met ja en nee en als je op nee drukt dat meteen alles afsluit (trouwens het werkt wel leuk)

 

[ZipPe]

Set WshShell = WScript.CreateObject("WScript.Shell") 

intButton = WshShell.popup ("Klik Ja of Nee! ", 0, "Ja of Nee", 36)


if (intButton = 7) then
WScript.Quit

Else

End If