Batya
|
 Posted: Fri Aug 19, 2011 10:26 Post subject: |
 |
|
| Flasher wrote: | | ' Отправить в буфер RGB-число |
У меня IE при каждом запуске требует разрешения на на доступ к буферу обмена. Менять настройки не хочу. Переделал скрипт от Flasher с выводом результата в окне. Кому надо (например, мне  ), самостоятельно нажмёт Ctrl+C.
| Code: | '=====================================================================
' Вычисление RGB-числа
'=====================================================================
Option Explicit
Dim R, G, B, A, Flag, MM
Const Title = "Вычисление RGB-числа"
On Error Resume Next
Do
A = InputBox("Введите через пробел три числа [0-255]," & vbnewLine & _
"соответствующие своему цвету " & vbNewLine & _
"""красный зелёный синий""", Title, "0 0 0")
If A = "" Then WScript.Quit
With New RegExp
.Pattern = "^ *(\d+) +(\d+) +(\d+) *$"
.IgnoreCase = True
.Global = True
Set MM = .Execute(A)(0).SubMatches
End With
Flag = (Err.Number = 0)
If Flag Then
R = MM(0) : G = MM(1) : B = MM(2)
Flag = (R <= 255 And G <= 255 And B <= 255)
If Not Flag Then Mess 2
Else
Mess 1
Err.Clear
End If
Loop Until Flag
On Error GoTo 0
InputBox "Результат:", Title, RGB(R, G, B)
WScript.Quit
Sub Mess(Mode)
Dim lStr
Select Case Mode
Case 1 lStr = "Необходимо указать 3 числа, разделённых пробелами!"
Case 2 lStr = "Все числа должны лежать в диапазоне [0-255]!"
End Select
MsgBox lStr, vbExclamation, Title
End Sub |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
