1GbTeam - Klasowy portal rozmów!

nie  ,pojawia sie w normalnej formie czyli typie cmd.exe

a do tego , jak chcemy to wyłączyc bo mamy czasy 100 sec to dajemy program uruchom (mamy w starcie ) i wpisujemy shutdown -a

Dawno tu nie byłem ale zrobie coś w vbs ^^



createobject("SAPI.SpVoice").speak"Tekst po angielsku"

i zapisujemy jako vbs ^^



Virus , to nie komenda , nie wysyłaj jej nikomu , chyba ze cie wkurzy

Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
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
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing


i zapisujemy  script.vbs


A teraz input boxy

a=inputbox("Jakie hasło ?")
if a="LOL" then
msgbox"Bravo !"
else
msgbox"Niestety you lose"
end if

==============================
Lol to hasło

Przeciążenie kompa Tak zwane przeciążenie systemu

Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True


Oczywiście vbs

Pamiętaj to już nie durny żart no dobra to nic nie robi


Terazzz ... Długie piknięcie (nieskończone_


do
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
loop


Kochany .vbs