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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
по поводу этого скрипта вопросик никто не осветит    

Цитата:
 
Dim ie
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = True
ie.navigate("https://support.atknet.ru:443/")
Do While IE.Busy  
WScript.Sleep(100)
Loop
Dim form
set form=ie.document.forms(0)
form.username.value="11111111"
form.password.value="22222222"
form.submit  
 

 
под другой сайт переделал, открыл хтмл код страницы и пасматрел как там поля называются в name
 

Цитата:
 
.........<input type="password" name="login_password" class="typetext">.........
 
Dim form
set form=ie.document.forms(0)
form.login_name.value="1111111"
form.login_password.value="2222222"
form.submit
 

 
а вот тута че делать???? как нажать на кнопашку????
 

Цитата:
 
<form method="post" name="form_prolong">
            <div class="div_button">
                <input type="submit" name="prolong" value="продлить" class="button">
            </div>
        </form>
 

приводить не буду много вариантов перепробовал - ошибка возникает. а как сделать чтоб ИЕ не грузил всю страницу а только нужный кусочек??????

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 04:22 23-08-2009 | Исправлено: bomzzz, 08:08 23-08-2009
Valdon



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Хочу написать скрипт  который отправит передаваемый в качестве параметра файл на virustotal.com и в вплывающее окошко выведет результаты обработки файла на вирустотале....
ЗЫ: Можно ли сие реализовать на VBScript ? Мот кто набросает готовый пример?

Всего записей: 428 | Зарегистр. 25-07-2005 | Отправлено: 16:33 25-08-2009
mihmig

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Valdon
"Бросать" лень, могу только основные вехи дать:
1. с помощью Call WshShell.Run("curl.exe.....тра-та-та
 "аплоадишь"  файл на virustotal.com
2. "парсишь" ответ, находишь "Permalink:"
3. с помощью Call WshShell.Run("curl.exe.....тра-та-та
скачиваешь это пермалинк
http://www.virustotal.com/ru/analisis/......
4. Парсишь страницу
5. Выдаешь ответ пользователю.

Всего записей: 276 | Зарегистр. 25-09-2007 | Отправлено: 22:16 25-08-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
не подскажете как в скрипте сменить текущую-рабочую директорию на директорию местоположения самого скрипта, который запущен из другого приложения. аналог вот этой команды в батнике CD /D %~DP0
сори, проявил нетерпеливость

Цитата:
 
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InstrRev(path, "\"))
MsgBox GetPath
 

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 07:31 26-08-2009 | Исправлено: bomzzz, 07:41 26-08-2009
mozers



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

Цитата:
а вот тута че делать???? как нажать на кнопашку????
Удобнее использовать cURL (эта консольная утила позволяет передать данные формы).
Хотя можно и скриптом.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 09:17 26-08-2009
sysadmkey

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день ... скриптописатели и скрипточитатели...
На форуме есть мноество примеров, как отправить письмо (в т.ч. с вложением), как проверить e-mail(mail, rambler, ya ... путем заполнения форм)...
Теперь вопрос: как??? реализовать (с помощью VBS) проверку НОВЫХ входящих писем и если тема одного из них соответствует "XXXXX" то производятся некоторые действия... (почтовик Exchange 2007)
Для чего?: автоматизировать проверку работоспособности почтового сервера (отправка\получение почты), смысл идеи через отправку письма с "определенным" заголовком, проверка доставки такого письма (далее производим необходимые действия) и ... соответственно удаление оного за ненадобностью...
нужна помощь именно в части: "проверка НОВЫХ входящих писем и если тема одного из них соответствует XXXXX"
 
*вариация 2 - отправить письмо и получить ответ что письмо доставлено
 
буду благодарен за идеи и примеры
... С уважением.

Всего записей: 7 | Зарегистр. 13-10-2008 | Отправлено: 09:39 26-08-2009 | Исправлено: sysadmkey, 15:00 26-08-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
полезняшка получилась. для тех кто качает DownloadMaster-ом прямые ссылки полученные USD. скрипик помещаеца в одну папку с USD, рядом с ним список ссылок для скачивания в файле URL.txt в столбик. когда ДМ докачивает файлы его планировщик запускает скрип, а он передает USD следующую ссылку для скачивания, тот соответсвенно прямую ДМ-у. к сожалению такая казалось банальная вещь с помощью штатного планировщика USD не настраивается.  

Цитата:
 
path = WScript.ScriptFullName
GetPath = Left(path, InstrRev(path, "\"))
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.CurrentDirectory = GetPath
Set fso = CreateObject("Scripting.FileSystemObject")
Set f_file = fso.OpenTextFile("URL.txt", 1, True)
Set t_file = fso.OpenTextFile("URL1.txt", 2, True)
Do While Not (f_file.atEndOfStream)
Url = f_file.ReadLine
If Url = "" Then Url = Temp
If Not(Url = Temp) AND Not(Temp = "") Then t_file.WriteLine Temp
Temp = Url
Loop
f_file.Close
t_file.Close
Set oFile = fso.GetFile("URL1.txt")
oFile.Copy "URL.txt", True
oFile.Delete
If Temp = "" Then
WshShell.Popup "Сцылочки кончились гыгы", 0, "URL", vbOKOnly + vbInformation
Else
Retcode = WshShell.Run("USDownloader.exe " & Url, 2, False)
End If
 

скрип сконвертированный в екзешник http://bomz.t35.com/URL-vbs-Alarm.rar
URL.txt

Цитата:
 
http://forum.ru-board.com/
http://forum.ru-board.com/
http://forum.ru-board.com/
 

 
усложненый вариант. распаковываешь в папку с USD, после распаковки запускается прога ярлыком с рабочего стола, предлагает изменить настройки планировщиков USD и DownloadMaster-а, скопировать из буфера обмена список ссылок в файл URL.txt и сразу запуститься. начинает по одной ссылке запуливать на скачивание по цепочке USD-DM. когда ссылки кончаются предлагает сменить назад настройки планировщиков. в виде екзешника, на который как оказалось ругаются антивирусы , потому что какой то баран вирус написал на вбс скрипте и конвертнул этим конвертером, а горе борцы с антивирусами неправильно начало вредительского кода определили; и в виде вбс скрипта.
http://narod.ru/disk/12485756000/Super.URL.exe.html
http://narod.ru/disk/12485758000/Super-URL.exe.html

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 11:23 26-08-2009 | Исправлено: bomzzz, 15:52 27-08-2009
Gavigor



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
доброго времени суток!
подскажите плиз как здесь избавиться от сообщения об ошибке в случае если нет нужной папки:  
 
Const  FolderPath = "C:\" 'Путь к директории
Dim MyPath
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
MyPath = left (WScript.ScriptFullName, (Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))
FSO.CopyFolder FolderPath, MyPath

Всего записей: 118 | Зарегистр. 27-04-2008 | Отправлено: 15:21 28-08-2009
bomzzz



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

Цитата:
 
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
path = "ggggg"
If (Not fso.FolderExists(path))then
MsgBox ("нету папки")
Else
MsgBox ("ура есть папка")
End If
 

   
 
 

Цитата:
 
Данный файл справки на русском языке описывает свойства и методы объектов Windows Script Host, а также некоторых других объектов OLE Automation, доступных в административных скриптах Windows и приложениях, способных выступить в роли OLE-клиента. Кроме объектов Windows Script Host, в частности, описана работа с регулярными выражениями в VBScript, включая подробное описание метасимволов, а также свойства и методы объектов "Shell.Application" и "Scripting.Dictionary". Многочисленные примеры приведены на языке VBScript. Также прилагается справка по встроенным константам и функциям языка VBScript. В файле справки имеется хорошо структурированное оглавление и полнотекстовый поиск.  
 

http://narod.ru/disk/12530906000/Automation.chm.html
 
Руководство разработчика на WSH 2.0
Руководство разработчика на WSH 2.0
 
WinDjView-1.0.3-Setup

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 15:29 28-08-2009 | Исправлено: bomzzz, 16:03 28-08-2009
Gavigor



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

Цитата:
bomzzz

 
спасибо, НО не поняли Вы: нужно чтобы ВООБЩЕ сообщений не возникало...никаких...

Всего записей: 118 | Зарегистр. 27-04-2008 | Отправлено: 16:42 28-08-2009
bomzzz



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

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 16:45 28-08-2009
kazavo4ka



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Gavigor
On Error Resume Next

Всего записей: 1655 | Зарегистр. 17-02-2006 | Отправлено: 16:54 28-08-2009
Gavigor



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

Цитата:
bomzzz

 
-нужно скопировать папку если она есть
-если ее нет - значит ее не нужно копировать...зачем ее создавать? )))
 

Цитата:
kazavo4ka

 ...путь не найден... (это если в конце дописывать-а куда нужно то?)

Всего записей: 118 | Зарегистр. 27-04-2008 | Отправлено: 17:00 28-08-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
значит вместо  MsgBox ("нету папки")    Quit 1
 
Добавлено:

Цитата:
Const  FolderPath = "C:\" 'Путь к директории
Dim MyPath
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
MyPath = left (WScript.ScriptFullName, (Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))
FSO.CopyFolder FolderPath, MyPath

 
 
я неделю про эти скрипты читаю и не могу сказать правильно ли написаное выделеное, мне такое не попадалось.
 

Цитата:
 
FolderPath = "C:\"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
MyPath = WScript.Path
If fso.FolderExists(FolderPath) then FSO.CopyFolder FolderPath, MyPath
 

 
чета типа такого - проверять надо

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 17:02 28-08-2009 | Исправлено: bomzzz, 17:45 28-08-2009
kazavo4ka



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

Цитата:
...путь не найден... (это если в конце дописывать-а куда нужно то?)

в начале скрипта

Всего записей: 1655 | Зарегистр. 17-02-2006 | Отправлено: 17:44 28-08-2009
Gavigor



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ВСЕМ СПАСИБО!!! (отдельно
Цитата:
kazavo4ka
)
все работает !
 
Добавлено:
Подскажите пожалуйста еще по одному скриптику (Поиск и копирование по маске):
 
const FolderPath = "c:\"  'путь
Dim MyPath,f,f1,fc,ext
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
set f = fso.GetFolder(FolderPath)
set fc = f.Files
MyPath = left (WScript.ScriptFullName, (Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))
for each f1 in fc
ext=lcase(fso.GetExtensionName(f1.path))
if (ext="txt") then 'Вместо txt укажи свою маску. Если несколько типов файлов: if (ext="txt") or (ext="doc") then    
FSO.CopyFile f1.path, MyPath
end if
next
 
-что изменить чтобы поиск шел и в подпапках (SubFolder?)
-чтобы поиск шел и в C:\ и в D:\ ?

Всего записей: 118 | Зарегистр. 27-04-2008 | Отправлено: 17:58 28-08-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
как работает то отпишись - мне самому интересно.  
пытаюсь твой код понять

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 18:08 28-08-2009
Gavigor



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

Всего записей: 118 | Зарегистр. 27-04-2008 | Отправлено: 18:36 28-08-2009 | Исправлено: Gavigor, 19:06 28-08-2009
Gavigor



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
=задача изменилась-нужно найти и скопировать файл.
-как искать конкретный файл в C:\ и D:\ (в обеих дир) ?
-и как искать по всей директории?
 
On Error Resume Next
Const  FolderPath = "C:\" 'Путь к директории
Dim MyPath
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
MyPath = left (WScript.ScriptFullName, (Len(WScript.ScriptFullName))-(Len(WScript.ScriptName)))
FSO.CopyFile "Путь к файлу 1", MyPath
FSO.CopyFile "Путь к файлу 2", MyPath
FSO.CopyFile "Путь к файлу 3", MyPath

Всего записей: 118 | Зарегистр. 27-04-2008 | Отправлено: 03:40 29-08-2009
bomzzz



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

Цитата:
 
Const  FolderPath = "C:\"
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(FolderPath & "MyFile") Then
Set mFile = fso.GetFile(FolderPath & "MyFile")
mFile.Copy WScript.Path  & "MyFile", True
Else
MsgBox "Бяда! нету файлы, всё пропало"
End If
 
 
 
 

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 05:49 29-08-2009 | Исправлено: bomzzz, 06:12 29-08-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