T?o Password d? b?o v? file VB.Script c?a b?n

M?t kh?u b?o v? VB.
M? do?n m� t?p tin cho ph�p b?n b?o v? VB.Script. Ch? c?n d?t hai d�ng c?a r?t don gi?n v� n� s? y�u c?u m?t kh?u m?i khi b?n ch?y script.

Visual Basic

1 2	pass=inputbox("Password?") if pass="ethicalhackx.com" then msgbox("Correct Password!") else msgbox("Incorrect Password!")

V� d? :

=inputbox("Password?")

if pass="ethicalhackx.com" then msgbox("Correct Password!") else msgbox("Incorrect Password!")

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

loop