számítógép |
de ezse rossz: WScript.Sleep 1000
WScript.Sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "gy va"
WScript.Sleep 500
WshShell.SendKeys "g"
WScript.Sleep 500
WshShell.SendKeys "y"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "Én "
WScript.Sleep 500
WshShell.SendKeys "j"
WScript.Sleep 500
WshShell.SendKeys "ól "
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "ös"
WScript.Sleep 500
WshShell.SendKeys "sz! "
nyitogatja a jegyzettömböt és beleirkál dolgokat
lúzer..............
ha valaki normális szivatót akar csinálni :
WScript.Sleep 10
WScript.Sleep 10
Set WshShell = WScript.CreateObject("WScript.Shell")
do
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "notepad"
loop
majd mentsétek el tevalasztodanevet.vbs néven
kicserélhetitek a ikonját meg mindent és inditsátok el , majd meglátjátok mi lesz
nyugodjatok már meg!!! inkább mindenki, aki ide írt, csináljon egy új videót, vagy más értelmesebb dolgot. értem én, hogy már volt ilyen, meg hogy kicsit túl egyszerű, de attól még nem kell ennyire fikázni!
főleg annak, aki még nem csinált egy videót sem! na pont.
Elég csak az hogy
Do
msgbox "szoveg"
Loop
A while fölösleges de ugy is müködik...
OMG De megváltozott a hangod!!