» Программирование "удобняшек" на VBScript

*********1*************1**************1**********
ищем вхождение 1 в строку справа налево, получаем нумер - что то около 10

преобразуем строку отрезая от нее 10 символом сначала может вот этим лучше вопроспользовацо чем высилять из общей длины

Цитата:

Mid(str, start[, len])) Возвращает из строки str подстроку, которая начинается с позиции start и имеет длину len. Если параметр len не указан, возвращаются все символы до конца строки.

*************1**************1**********
получаем вот такую строку снова ищем снова режем....
это все запихивается в один цикл

Добавлено:
MyString=...............................
start = 0

start=InStr( Mid(MyString, start)), "YES", 1)

if start<>0 then

я синтаксис не особо помню надо в справочнике смотерть так примерно
еще надо счетчик добавить и переменную которая будет общее смещение накапливать, можно строку перезаписывать - но это расточительно для памяти

СПСИБ. Попонятней стало.

Как написать нажатее клавишь Ctrl + T

WshShell.SendKeys "{^}""{T}" не катит?

При запуске скрипта одновременно запускается cmd.exe ,,,. можно ли прописать что бы cmd.exe запускалась в скрытом режиме
типа


Код:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe", 0, False

TYMAH3003

Цитата:

Запуск из консоли: Wscript getshares.vbs

вот так попробуй

bomzzz
нет сам скрипт запускает cmd ,,некатит

TYMAH3003
Можно вывод консольной команды перенаправлять в файл, а затем читать его:
Код: ret = WshShell.Run("%comspec% /c net view > %temp%\out.tmp", 0, true)
If ret=0 Then
With FSO.OpenTextFile(WshShell.ExpandEnvironmentStrings("%temp%\out.tmp"))
output = .ReadAll
.Close
End With
End If

WScript.Echo output

mozers Если не сложно объедини в один скрипт, я 0 в этом

какие строки заменить на

Код:
ret = WshShell.Run("%comspec% /c net view > %temp%\out.tmp", 0, true)
If ret=0 Then
With FSO.OpenTextFile(WshShell.ExpandEnvironmentStrings("%temp%\out.tmp"))
output = .ReadAll
.Close
End With
End If

WScript.Echo output

TYMAH3003
Не сложно. Просто абсолютно безинтересно. Обычно я такие вопросы игнорирую. getshares.vbs : [more]
Код: ' Файл getshares.vbs
' Поиск компьютеров в локальной сети и общих ресурсов на каждом компьютере
' Запуск из консоли: cscript getshares.vbs
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
'
Dim regEx_SrchCmps, MatchCmps, Cmps ' Copmputers
Dim regEx_SrchDir, MatchDir, Dirs ' Directories
' Computers
Set regEx_SrchCmps = New RegExp ' Create a regular expression.
regEx_SrchCmps.Pattern = "\\\\(\w|[-.])+" ' Set pattern.
regEx_SrchCmps.IgnoreCase = True ' Set case insensitivity.
regEx_SrchCmps.Global = True ' Set global applicability.
' Directories
Set regEx_SrchDir = New RegExp ' Create a regular expression.
regEx_SrchDir.Pattern = ".+(?=\s{2,}.{1,10}\s{5,}\x0D\x0A)" ' pattern dir search
regEx_SrchDir.IgnoreCase = True ' Set case insensitivity.
regEx_SrchDir.Global = True ' Set global applicability.
' Search computers
Str = RunConsole("net view")
'
Set Cmps = regEx_SrchCmps.Execute(Str) ' Execute search.
'
For Each MatchCmps in Cmps ' Iterate Matches collection.
' Search directories in each finded computer
On Error Resume Next
Str = RunConsole("net view "+MatchCmps.Value)
' WScript.Echo "scanning: "+MatchCmps.Value+Chr(10)+Str ' DEBUG
Set Dirs = regEx_SrchDir.Execute(Str) ' Execute search.
For Each MatchDir In Dirs
'WScript.Echo MatchCmps.Value+"\"+MatchDir.Value
WScript.Echo strConvert(MatchCmps.Value+"\"+MatchDir.Value,"Windows-1251","cp866")
Next
' WScript.Echo "end scanning" ' DEBUG
On Error GoTo 0
Next
'
Set SrchCmps = Nothing
Set SrchDir = Nothing
Set regEx_SrchCmps = Nothing
Set regEx_SrchDir = Nothing
WScript.Quit 0
'
'=============================================================================

'=============================================================================
Function StrConvert(strText, strSourceCharset, strDestCharset)
Const adTypeText = 2
Const adModeReadWrite = 3
Dim objStream
Set objStream = WScript.CreateObject("ADODB.Stream")

With objStream
.Type = adTypeText
.Mode = adModeReadWrite
.Open
.Charset = strSourceCharset
.WriteText strText
.Position = 0
.Charset = strDestCharset
strConvert = .ReadText
End With

Set objStream = Nothing
End Function

'=============================================================================
Function RunConsole(command)
Dim ret
ret = WshShell.Run("%comspec% /c "+command+" > ""%temp%\out.tmp""", 0, true)
If ret=0 Then
With FSO.OpenTextFile(WshShell.ExpandEnvironmentStrings("%temp%\out.tmp"))
RunConsole = .ReadAll
.Close
End With
End If
End Function

mozers
+5 Респект огромный, помог очень

Помогите решить такую задачу. Нужно добавить в реестр вот это:

Код: [HKEY_LOCAL_MACHINE\SOFTWARE\AKVIS\Decorator]
"Folder"="C:\\Program Files\\AKVIS\\Decorator"
"OrderURL"="http://akvis.com/en/decorator/price-change-texture.php?ref=8bf"
"LangNo"="RU"
"SupportURL"="mailto:support@akvis.com"

mayachka78
В поставленной задачке нет ничего что не было бы подробно разжевано в любом справочном пособии по WSH. Поэтому и отвечать никто не хочет... sample.vbs : [more]
Код: Set FSO = CreateObject("Scripting.FileSystemObject")
script_path = FSO.GetParentFolderName(WScript.ScriptFullName)

Set WshShell = CreateObject("WScript.Shell")
With WshShell
.RegWrite "HKLM\SOFTWARE\AKVIS\Decorator\Folder", script_path & "\Plug-Ins\AKVIS"
.RegWrite "HKLM\SOFTWARE\AKVIS\Decorator\OrderURL", "http://akvis.com/en/decorator/price-change-texture.php?ref=8bf"
.RegWrite "HKLM\SOFTWARE\AKVIS\Decorator\LangNo", "RU"
.RegWrite "HKLM\SOFTWARE\AKVIS\Decorator\SupportURL", "mailto:support@akvis.com"
End With

WshShell.Run(script_path & "\ps.exe")

И всё же, кто нибудь может мне помочь с таким вопросом: как можно обращаться из https страницы к источнику на http, чтобы браузер не пронюхал, что идёт XSS? Мне советовали использовать скрипт, который за определённые промежутки времени коннектится к http и генерирует в указанном месте страничку https откуда я и могу получать данные. Но что-то нифига у меня не вышло. Кто нибудь занимался незаметным cross site scripting'ом?

Я хочу начать изучение Visual Basic Script , можете дать ссылку на статью по изучению, много облазил страниц и не нашёл ничего нормального, только vbs для web программирования.

Titans01
фигова как то лазил

Цитата:

http://narod.ru/disk/12530906000/Automation.chm.html

Руководство разработчика на WSH 2.0
Руководство разработчика на WSH 2.0

WinDjView-1.0.3-Setup

http://narod.ru/disk/13940360000/Portable%20Script%20Center.chm.html
http://narod.ru/disk/13940363000/Windows%20Script%20Technologies.chm.html

bomzzz
Спасибо
А зачем нужна прога WinDjView?

чтоб открыть книгу "Руководство разработчика на WSH 2.0 " она в этом формате и в текст не форматируется. не все про него знают, поэжтому лучше прогу сразу положить.

после всего этого останется vbs и wmi прочитать
http://www.intuit.ru/department/os/compromtwin/12/ тут например

А wsh это тоже часть vbs или как?
И нельзяли кнопки в диалоговых окнах своими именами называть?

http://ru.wikipedia.org/wiki/Windows_Script_Host

мона

Добавлено:

а сами кнопки? на вбс нет незя только из стандартного набора
Выводится кнопка ОК.
Выводятся кнопки ОК и Отмена (Cancel).
Выводятся кнопки Стоп (Abort), Повтор (Retry) и Пропустить (Ignore).
Выводятся кнопки Да (Yes), Нет (No) и Отмена (Cancel).
Выводятся кнопки Да (Yes) и Нет (No).
Выводятся кнопки Повтор (Retry) и Отмена (Cancel).
Отмена Повторить Продолжить
и Help

А можно сделать при нажатии кнопки отмена вернуться на преды
дущие окно(inputbox)?
И ещё как сделать чтоб окно было с названием программы а не пустое?
И можно написать компилятор vbs в exe с помощью vbs?

1 можно елси я правельно понил о чем речь
2 параметр указать в свойствах функции
3 не вижу препятствий

Плиз напиши код к 1!
И какой параметр?

справку открой там все параметры расписаны
WshShell.Popup
MsgBox

просто если отмена снова вернуться на строку с инпутом, да и все

Типо этого или как?

Код: n=inputbox ("ляля")
if n="ляля" then y=msgbox ("ляля", vbOkCancel)
if y=vbcancel then n

Dim result
Do
result = InputBox("Please enter a path", "MyTitle", "C:\", 100, 100)
Loop While result=""
WScript.Echo "You entered " & result

Добавлено:
WshShell.Popup "Соопчение", 0, "Заголовок", vbOKOnly + vbInformation

А зачем так много всяких команд не проще так

Код: t=inputbox ("Введите:", "Заголовок")

пример на то и премир чтоб все возможности показать

Можешь помочь с калькулятором?
вот
Код: x1=inputbox ("a+b=? Введите a", "Калькулятор: Сумма")
x2=inputbox (x1& "+b=? Введите b", "Калькулятор: Сумма")
x3=clng(x1)+clng(x2)
msgbox x1& "+"& x2& "="& x3,"Калькулятор: Сумма"

Titans01

Цитата:

Что компу ненравится в 4 строке ?

Так надо:

Код: MsgBox x1 & "+" & x2 & "=" & x3, , "Калькулятор: Сумма"

Большое спасибо