Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

   

bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
 
InStr([start,] str1, str2[, compare]) Возвращает индекс символа, с которого начинается первое вхождение подстроки str2 в строку str1. Параметр start задаёт номер символа, с которого следует начинать поиск (если не задан, то с начала строки). Поиск производится слева направо. Параметр compare задаёт режим сравнения при обработке строк (0 - двоичное сравнение, 1 - текстовое сравнение).
 
InStrRev(str1, str2[, start[, compare]]) То же самое, что InStr, но поиск производится справа налево, т.е возвращается номер последнего символа, с которого начинается вхождение подстроки str2 в строку str1.
 
Left(str, len) Возвращает len символов с начала строки str.
 
Right(str, len) Возвращает len символов с конца строки str.
 

 
ищешь в первый раз - потом второй раз но уже в куске строки начиная с найденного первого места

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 11:10 30-09-2009 | Исправлено: bomzzz, 11:11 30-09-2009
Starley25



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
а можно поподробнее не могу сразу врубиться как пользоваться данным мне советом, -). В моей строке нет пробелов, так на всякий случай информирую.

Всего записей: 117 | Зарегистр. 07-03-2005 | Отправлено: 11:22 30-09-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
*********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  
 
я синтаксис не особо помню надо в справочнике смотерть так примерно
еще надо счетчик добавить и переменную которая будет общее смещение накапливать, можно строку перезаписывать - но это расточительно для памяти

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 11:29 30-09-2009 | Исправлено: bomzzz, 11:45 30-09-2009
Starley25



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
СПСИБ. Попонятней стало.

Всего записей: 117 | Зарегистр. 07-03-2005 | Отправлено: 11:48 30-09-2009
GRom V

Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Как написать нажатее клавишь Ctrl + T
 
WshShell.SendKeys "{^}""{T}" не катит?

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 10:16 02-10-2009
TYMAH3003

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При запуске скрипта одновременно запускается cmd.exe ,,,. можно ли прописать что бы cmd.exe запускалась в скрытом режиме  
типа  
 

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

 

Код:
 
' Файл getshares.vbs
' Поиск компьютеров в локальной сети и общих ресурсов на каждом компьютере
' Запуск из консоли: cscript getshares.vbs
Set WshShell = CreateObject("WScript.Shell")
'
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
Set SrchCmps = WshShell.Exec("%comspec% /c net view")
SrchCmps.StdOut.SkipLine
SrchCmps.StdOut.SkipLine
SrchCmps.StdOut.SkipLine
Str = SrchCmps.StdOut.ReadAll
'
Set Cmps = regEx_SrchCmps.Execute(Str)   ' Execute search.
'
For Each MatchCmps in Cmps      ' Iterate Matches collection.
    ' Search directories in each finded computer
    Set SrchDir = WshShell.Exec("%comspec% /c net view "+MatchCmps.Value)
    On Error Resume Next
    SrchDir.StdOut.SkipLine
    SrchDir.StdOut.SkipLine
    SrchDir.StdOut.SkipLine
    SrchDir.StdOut.SkipLine
    SrchDir.StdOut.SkipLine
    SrchDir.StdOut.SkipLine
    SrchDir.StdOut.SkipLine
    Str = SrchDir.StdOut.ReadAll
'    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
'=============================================================================


Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 13:51 02-10-2009 | Исправлено: TYMAH3003, 13:53 02-10-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TYMAH3003

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

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

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 14:32 02-10-2009 | Исправлено: bomzzz, 14:34 02-10-2009
TYMAH3003

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bomzzz
нет сам скрипт запускает cmd ,,некатит

Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 14:49 02-10-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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
И заключайте большой код в теги [ more ]  [ /more ]  
 
bomzzz
Добрый совет: Я бы очень попросил не раздавать по разным топикам советы "вообще", а приводить проверенный и испытанный Вами лично код.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 15:11 02-10-2009
TYMAH3003

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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
 

 

Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 15:29 02-10-2009 | Исправлено: TYMAH3003, 15:47 02-10-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TYMAH3003
Не сложно. Просто абсолютно безинтересно. Обычно я такие вопросы игнорирую. getshares.vbs : Подробнее...

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 16:00 02-10-2009
TYMAH3003

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mozers
+5 Респект огромный, помог очень

Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 16:21 02-10-2009
mayachka78



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите решить такую задачу. Нужно добавить в реестр вот это:

Код:
[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"

но вместо "C:\\Program Files\\AKVIS\\Decorator" нужно так: "текущая папка\\Plug-Ins\\AKVIS
и после этого запустить "ps.exe" из текущей папки

Всего записей: 3 | Зарегистр. 25-07-2009 | Отправлено: 22:16 02-10-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mayachka78
В поставленной задачке нет ничего что не было бы подробно разжевано в любом справочном пособии по WSH. Поэтому и отвечать никто не хочет... sample.vbs : Подробнее...

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 10:38 03-10-2009 | Исправлено: mozers, 10:41 03-10-2009
mrLuca

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

Всего записей: 2 | Зарегистр. 09-09-2009 | Отправлено: 00:21 05-10-2009
Titans01



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

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 15:22 08-10-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 15:39 08-10-2009 | Исправлено: bomzzz, 15:41 08-10-2009
Titans01



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bomzzz
Спасибо
А зачем нужна прога WinDjView?

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 15:43 08-10-2009 | Исправлено: Titans01, 15:47 08-10-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
 
чтоб открыть книгу "Руководство разработчика на WSH 2.0 " она в этом формате и в текст не форматируется. не все про него знают, поэжтому лучше прогу сразу положить.
 
после всего этого останется vbs и wmi прочитать
http://www.intuit.ru/department/os/compromtwin/12/ тут например

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 15:50 08-10-2009
Titans01



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А wsh это тоже часть vbs или как?
И нельзяли кнопки в диалоговых окнах своими именами называть?

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 15:53 08-10-2009 | Исправлено: Titans01, 15:56 08-10-2009
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru