Скрипты. Заходим и выкладываем полезные или прикольные скрипты
#21
Отправлено 09 December 2010 - 17:24
xDD
вводите это в блокноте:
msgbox "Ну чё нажми на кнопку!!!™"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "Прощай Идиот :)"
и переводите в формат .vbs
P.S.- ток перед этим все закачки из инета вырубите и торрент тож xDD!!!
УДАЧИ!!!!!!
#22
Отправлено 10 December 2010 - 13:08
Добавлено (09.12.2010, 21:41)
---------------------------------------------
59595959, ну хоть скажи чё там должно произойти от твоего скрипта?
Добавлено (10.12.2010, 12:54)
---------------------------------------------
открой в отдельном окне рисунок - так чётче видно будет.
Добавлено (10.12.2010, 13:08)
---------------------------------------------
Qwestik, мне страшто твой вписывать
походу он должен комп убить???
#24
Отправлено 10 December 2010 - 15:53
Буа-ха-ха-ха!
з.ы.: нет, спасибо
Добавлено (10.12.2010, 15:53)
---------------------------------------------
Ну, так чё с моей проблемой? чё делать-то или чего я не правильно сделал?
#25
Отправлено 10 December 2010 - 16:24
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "%SystemRoot%\system32\mspaint.exe"
Вообще весь смысл в том, что открываются:
-командная строка
-пайнт
-калькулятор
-пасьянс
-сапёр
И открываются они через каждые две секунды единоразово. Вопщем ето по скрипту видно.
Добавлено (10.12.2010, 16:24)
---------------------------------------------
Командная строка у тебя открылась, а вот пайнт чёт не захотел.
#26
Отправлено 10 December 2010 - 16:48
#27
Отправлено 10 December 2010 - 19:01
Я ж не знаю пайнт нэт у тебя стандартная или прикладная программа.
#33
Отправлено 12 December 2010 - 17:02
FreakyFoX, rocker, надо учить языки программирования. В данном случае это visual basiс script, а то, чем я занимаюсь - не больше чем развлечение, ибо я тупо ищу в просторах и-нета команды для вбс и компоную их в полезные и бесполезные скрипты.
#34
Отправлено 12 December 2010 - 17:51
#35
Отправлено 12 December 2010 - 21:06
Добавлено (12.12.2010, 21:06)
---------------------------------------------
Хотя если этот переделать, то он тоже полезный будет)) Например когда нада сразу несколько программ открыть)
#36
Отправлено 13 December 2010 - 17:52
name1=inputbox("Привет, друг! Как тебя зовут?")
name2=inputbox( + name1 + "? Хорошее имя. Ну а какая у тебя фамилия?")
name3=inputbox("Так, значит, ты у нас " + name1 + " " + name2 + "? Ну а какое твоё отчество?")
yn=MsgBox("Ну что ж, " + name1 + " " + name2 + " " + name3 + ", хочеш прикол?", vbYesNo _
+ vbQuestion, "Ну что?")
If yn = vbYes Then
MsgBox "Твой комп вырубится через 20 секунд! Ха-ха-ха! А если чесно, то я пошутил."
Else
MsgBox "Ну что ж, не хочеш - как хочеш"
End If
Добавлено (13.12.2010, 17:52)
---------------------------------------------
и, на данный момент, единственный
#37
Отправлено 13 December 2010 - 21:30
кароч вбиваете в строку браузера и с помощью стрелок и пробела разрушаете любой сайт))
#39
Отправлено 14 December 2010 - 16:48