Вот учю VBScript...
Стартовые знания получил.
Взявши идеии с форумов досовершенствовал пару программ.
Описание программы: Это калькулятор. Он поддерживает сложение, вычитание, умножение, деление, возведение в квадрат, извлечение квадратного корня.
Версия: 6
Язык программы: VBScript
'Калькулятор V6
'(C)HellWolf06 2011
Dim Num1, Sign, Num2
Num1 = InputBox ("Введите первое число:", "Калькулятор V6", "")
Sign = InputBox ("Введите знак" & Chr (10) & "(Поддерживается: +, -, *, /, ^ и Sqrt):"_
& Chr (10) & "Для получения информации о скрипте введите About", "Калькулятор V6", "")
Num2 = InputBox ("Введите второе число:" & Chr (10) & "(Необязательно)", "Калькулятор V6", "")
'[+]Сложение
If Sign = "+" Then
Dim PlsResult
PlsResult = cint (Num1) + cint (Num2)
MsgBox PlsResult, 0, "Калькулятор V6"
End If
'[-]Вычитание
If Sign = "-" Then
Dim MinResult
MinResult = cint (Num1) - cint (Num2)
MsgBox MinResult, 0, "Калькулятор V6"
End If
'[*]Умножение
If Sign = "*" Then
Dim MulResult
MulResult = cint (Num1) * cint (Num2)
MsgBox MulResult, 0, "Калькулятор V6"
End If
'[/]Деление
If Sign = "/" Then
Dim DivResult
DivResult = cint (Num1) / cint (Num2)
MsgBox DivResult, 0, "Калькулятор V6"
End If
'[^]Возведение в квадрат
If Sign = "^" Then
Dim Root
Root = cint (Num1) ^ 2
MsgBox Root, 0, "Калькулятор V6"
End If
'[Sqrt]Извлечение квадратного корня
If Sign = "Sqrt" Then
Dim Sqrt
Sqrt = sqr(Num1)
MsgBox Sqrt, 0, "Калькулятор V6"
End If
If Sign = "sqrt" Then
Dim smallcasesqrt
smallcaseSqrt = sqr(Num1)
MsgBox smallcasesqrt, 0, "Калькулятор V6"
End If
'[About]Информация о скрипте
If Sign = "About" Then
MsgBox "Это калькулятор на VBScript." & Chr (10) &_
"Он поддерживает сложение, вычитание, умножение, деление, возведение в квадрат, извлечение квадратного корня."_
& Chr (10) & "(C)HellWolf06 24/02/2011", 0, "Калькулятор V6"
End If
If Sign = "about" Then
MsgBox "Это калькулятор на VBScript." & Chr (10) &_
"Он поддерживает сложение, вычитание, умножение, деление, возведение в квадрат, извлечение квадратного корня."_
& Chr (10) & "(C)HellWolf06 24/02/2011", 0, "Калькулятор V6"
End If
'[Error]В случаи ошибок
If Num1 = "" Then
MsgBox "Вы не ввели первое число!", 0, "Калькулятор V6"
End If
If Sign = "" Then
MsgBox "Вы ввели не верный знак!", 0, "Калькулятор V6"
End If
Добавлено спустя 7 минут 14 секунд:Описание программы: Этот скрипт проверяет наличие интернета.
Версия: 2
Язык программы: VBScript
'Этот скрипт проверяет наличие интернета.
'(C)HellWol06 2011
Set WshShell = CreateObject ("WScript.Shell")
TestResult = WshShell.Run ("ping " & "www.google.com", 0, True)
If TestResult = 0 Then
MsgBox "Интернет работает! :)"
Else
MsgBox "Интернет не работает! :("
End If
Кстати, во время написания скрипта нашел западло: ОБЯЗАТЕЛЬНО нужно "ping " и "www.google.com" писать именно так, и после ping с пробелом, но почему?
Добавлено спустя 3 минуты 18 секунд:Описание программы: Этот скрипт позволяет получить короткий путь к файлу.
Версия: 2
Язык программы: VBScript
'Этот скрипт позволяет получить короткий путь к файлу.
'(C)HellWolf06 2011
Set FSO = CreateObject ("Scripting.FileSystemObject")
'Создаем объект FileSystemObject
Set Dialog = CreateObject("UserAccounts.CommonDialog")
'Создаем диалог "Открыть файл"
Dialog.Filter = "Все файлы (*.*) | *.*"
Dialog.FilterIndex = 0
Dialog.InitialDir = "C:\Documents and Settings\%Username%\"
IntResult = Dialog.ShowOpen
'Настраиваем диалог
Set file1 = FSO.GetFile (Dialog.FileName)
ShPath = file1.ShortPath
MsgBox "Короткий путь к файлу: " & ShPath , vbQuestion, "Короткий путь к файлу:"
Добавлено спустя 2 минуты 1 секунду:Также, скоро выложу ОКОНЧАТЕЛЬНУЮ версию говорилки.
(C)HellWolf06 2011