Предыдущая публикация
Видео
Похожие видео
Рекомендации для вас
06:13
Mano VBS Visual Basic Scripting
21 просмотр
14 июн 2016Sveiki siame video parodziau mano sukurtus visual basic scriptus
1.Auto Tekstas:
Text = "tekstas"
With CreateObject("WScript.Shell")
.Run "Notepad"
WScript.Sleep 2000
For i = 1 To Len(Text)
.SendKeys Mid(Text, i, 1)
WScript.Sleep 80
Next
End With
2.Garsas:
Set S = CreateObject("Wscript.Shell")
do
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True"
loop
3.Prikolas su password:
MsgBox "tekstas"
MsgBox "tekstas"
do
password = InputBox ("tekstas")
loop until password = "123"
Свернуть
