Code:
DIM Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Set locator = CreateObject("WbemScripting.SWbemLocator")
Set service = locator.ConnectServer()
Set props = service.ExecQuery("select name from Win32_Process where name = 'mspaint.exe'")
num = props.Count
If num = 0 Then
Wsh.Run "mspaint.exe"
End If
Do Until Wsh.AppActivate("Безымянный - Paint")
Loop
Wsh.SendKeys "^{v}"
Set Wsh = nothing
WScript.Quit
Обзываешь его к примеру copy.vbs
В меню добавляешь в секции
[Image Popup Menu]
Item, "Открыть в Paint"= Copy image & Execute program,"c:\Program Files\Opera\copy.vbs"
--------------------------------
К знатокам VB почему то при попытке считать название программы (в вышенаписанном mspaint.exe) из аргументов присылаемых извне,:
Code:
Option Explicit
MsgBox "Переданный параметр: " & WScript.Arguments(0), vbInformation
Мне выдается ошибка
переменная не определена locator
Хочется что бы параметр (выбранная программа) были любые а скриптик один.
