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

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

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

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопросы, задачи и их решения по VBScript.

 
Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1
 
Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018
freedom83

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день.
Как отследить изменение памяти процесса или обращение к нему пользователя/программы? если таковое произошло, свернуть экран и вывести сообщение.  
спасибо.  

Всего записей: 100 | Зарегистр. 17-01-2006 | Отправлено: 07:33 03-08-2012
folta

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
так, только не смеяться)
есть скрипт, который запускает первую программу, ждет пока пользователь нажмет на одну из двух кнопок и после этого запускается вторая программа(эта остается в фоне, так надо).
для очередности, пользую это:
WaitForProcess переменная, 0
но ставлю "0", вторая не стартует, другие цифры, на первое окно выпрыгивает очень быстро вторая программа.
штоб их порвало!
что там выставить или где скачать хороший мануал по этим WaitForProcess, с телефона много не начитаешь.

Всего записей: 1177 | Зарегистр. 24-11-2010 | Отправлено: 23:26 06-08-2012
Black_Lung



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
freedom83
в vbs никак, имхо
 
folta
WaitForProcess это не стандартное vbs, и мануала по нему скорее всего нет, нужно сам код сотреть.
Какие значения других цифер подбирались?
 
 
 
Мануал из шапке не работает, исправить нужно.

Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 13:25 07-08-2012
folta

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Black_Lung
Function OnFirstParentStart
TPPath = ExpandPath("%ProgramFilesDir%\blabla...")
TP =ExecuteVirtualProcess(TPPath)
WaitForProcess TP, 0
End Function
 
ставил 6000, таки почти то. но это обыкновенная задержка.
за ней идет точно такая функция с запуском этой же программы, только OnLastProcessExit, ну, там все понятно.
 
это скрипт для ThinApp)

Всего записей: 1177 | Зарегистр. 24-11-2010 | Отправлено: 13:40 07-08-2012
korggrodno



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
set WshShell = WScript.CreateObject("WScript.Shell")  
 
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
TC_folder = fso.OpenTextFile("_TC_folder.ini", ForReading).ReadLine
WshShell.run "runas /user:ramteks\sergey.h.adm ..\" + TC_folder + "\Totalcmd.exe"  
WScript.Sleep 1000
WshShell.SendKeys "****"
WshShell.SendKeys "{ENTER}"    
WScript.Sleep 1000
 
написал скрипт запуска TC на vbs .  
 
На xp под пользователем и под админом он работает.  
Независимо от того консольный или терминальный сеанс.
 
На win7 в консольном сеансе этот vbs скрипт не работает.  
Независимо под администратором или под пользователем
А в терминальном сеансе этот скрипт одинаково хорошо работает  
под пользователем и под администратором.  
 
Если в консольном сеансе открыть cmd и стартовать tc с помощью runas в ручную то работает
то все прекрасно работает
 
Помогите исправить чтобы работало в консольном сеансе на windows 7

Всего записей: 383 | Зарегистр. 15-11-2007 | Отправлено: 12:34 13-08-2012 | Исправлено: korggrodno, 18:26 15-08-2012
smaharbA

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Black_Lung
 
msgbox (createobject("rcbdyctl.setting").GetIpAddress)
 
 
Добавлено:
Black_Lung

Цитата:
freedom83
в vbs никак, имхо
 

 
легко

Всего записей: 8 | Зарегистр. 08-04-2012 | Отправлено: 22:24 15-08-2012
Black_Lung



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
korggrodno
у меня работает и через cscript и через wscript, и так и через RDP
 
smaharbA

Цитата:
msgbox (createobject("rcbdyctl.setting").GetIpAddress)

к чему это?

Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 11:30 16-08-2012
red91



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите как авторизоваться на сайте в последней открытой вкладке  
 
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://yandex.ru"
objIE.Navigate2 "http://yahoo.com", &h800
objIE.Navigate2 "http://mail.ru" , &h800
objIE.Visible = true
WScript.Sleep 2000
Set objForm = objIE.Document.forms(0)
objForm.elements("Login").value = "name"
objForm.elements("Domain").value = "mail.ru"
objForm.elements("Password").value = "pass"
objForm.submit()
objIE.Visible = True

Всего записей: 1 | Зарегистр. 23-08-2012 | Отправлено: 21:09 25-08-2012
smaharbA

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
set shell=CreateObject("Shell.Application")
for each x in shell.Windows()
on error resume next
msgbox (x.document.location)
on error goto 0
next
 
 
дальше расписывать, или будете разные объекты для слежки использовать ?

Всего записей: 8 | Зарегистр. 08-04-2012 | Отправлено: 22:22 27-08-2012
freedom83

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

Цитата:
легко

 
каким именно образом?
 
Добавлено:
в том числе и отследить появление необходимого процесса

Всего записей: 100 | Зарегистр. 17-01-2006 | Отправлено: 11:39 29-08-2012 | Исправлено: freedom83, 11:40 29-08-2012
DANGER RAIDER



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, помогите.
 
Посоветовали сюда обратиться.
 
Нужно выискивать в лог-файле определенные параметры (имя пользователя: например USER anton) и копировать эту и предыдущую строчку в новый файл (новый или ранее созданный с добавлением в конец документа.
 
Параметры меняются. желательно чтобы была возможность менять параметр и файл.
 
Может просто прога есть уже готовая какая то?
А то у меня за день в логе накапливается больше 1000 листов, физически не могу обработать.
 
Заранее спасибо.

Всего записей: 13 | Зарегистр. 09-07-2012 | Отправлено: 16:02 29-08-2012
boss911



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

Всего записей: 3689 | Зарегистр. 29-01-2005 | Отправлено: 04:18 04-09-2012 | Исправлено: boss911, 05:21 08-09-2012
go85

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Не подскажете, а можно ли при работе скрипта узнать, нажата ли Ctrl (или другая служебная клавиша)?

Всего записей: 2 | Зарегистр. 31-07-2006 | Отправлено: 17:45 07-09-2012
boss911



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Командная строка, батники, сценарии (bat, cmd)
Изначальный вопрос в посте #17.
 
Может тут знают ответ?

Всего записей: 3689 | Зарегистр. 29-01-2005 | Отправлено: 05:22 08-09-2012 | Исправлено: boss911, 05:23 08-09-2012
boss911



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

Всего записей: 3689 | Зарегистр. 29-01-2005 | Отправлено: 05:54 11-09-2012 | Исправлено: boss911, 07:23 11-09-2012
CHICOT

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я полный чайник поэтому прошу написать код от и до.  
  На компьютере я предпочитаю не видеть скрытые и системные папки и файлы. Но бывает какая-нибудь программа требует в диалоговом окне указать путь куда-нибудь в Appliacation data.Приходистя лезть в это время в свойства папки и отмечать/снимать галки (двумя регфайлами тоже пользоваться не очень-то удобно), что неудобно.Поэтому и просьба написать следующий сценарий:  
   
  1.Показать скрытое  
  [HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced]  
  "Hidden"=dword:00000001  
  "ShowSuperHidden"=dword:00000001  
  "WebViewBarricade"=dword:00000001  
  2.Обновить(типа F5)  
  по прошествии 15-20 секунд вернуть в исходное  
  3. Скрыть скрытое  
  [HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced]  
  "Hidden"=dword:00000002  
  "ShowSuperHidden"=dword:00000000  
  "WebViewBarricade"=dword:00000000  
  4.Обновить (типа F5)  
  Заранее спасибо.  

Всего записей: 10 | Зарегистр. 23-06-2008 | Отправлено: 10:59 21-09-2012 | Исправлено: CHICOT, 11:28 21-09-2012
TellMePls

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день !
 
Проясните ситуацию пжста(для неспеца).
Почему при работе скрипта первая переменная получает значение False, а вторая True
 
ttt1  = WshShell.AppActivate("вниз")
ttt2  = WshShell.AppActivate("down")
 
Оба окна имеют место быть. Фокус на окно переводится в обоих случаях
 
????????
Спасибо.
 

Всего записей: 2 | Зарегистр. 28-09-2012 | Отправлено: 01:40 28-09-2012 | Исправлено: TellMePls, 01:40 28-09-2012
Wendiogo

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

Цитата:
необходимо как то вставить паузу

 
Не знаю, актуален ли ответ, но делается это следующей строкой:  
Application.Wait (TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10))
10 - это количество секунд задержки при выполнении скрипта

Всего записей: 1 | Зарегистр. 28-09-2012 | Отправлено: 14:08 28-09-2012
kolonium

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите, как добавить строку в txt файл и открыть его (файл не имеет расширения),
если строка уже существует то пропустить её,
если отсутствует, добавить её и проверить следующую и т.д.
 
есть такие варианты, но их нужно объединить и допилить:
 
первый :
/////////
Option Explicit
 
Dim oData, filetxt
 
Set oData = CreateObject("Scripting.FileSystemObject")
Set filetxt = oData.OpenTextFile("logs", 8, True)  
filetxt.WriteLine("1-я строка") & vbNewLine & "2-я строка"  
filetxt.Close  
 
Set oData = Nothing
 
и второй :
///////////
On Error Resume Next
 
sFile = "C:\log\logs"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If Not oFSO.FileExists(sFile) Then
    MsgBox "Файл не существует", 48, "Ошибка"
Else
    WshShell.Run "notepad.exe " & sFile  
End If
 
ну или сочетать такой способ открытия файла:
///////////////////////////////////////////////////////
on error resume next
 
Set WshShell = Wscript.CreateObject("Wscript.Shell")  
strcomputer      = inputbox("Enter file name","Get logs file","logs")
 
If strComputer = "" Then
  WScript.Quit
End If
 
wshShell.run "%comspec% /c c: & assoc .=txtfile"
WScript.Sleep 500  
 
wshShell.Run "\\" & strcomputer & "\c$\log"

Всего записей: 65 | Зарегистр. 27-11-2008 | Отправлено: 16:39 28-09-2012 | Исправлено: kolonium, 16:39 29-09-2012
TellMePls

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

Цитата:
Цитата:
необходимо как то вставить паузу
 
 
Не знаю, актуален ли ответ, но делается это следующей строкой:  
Application.Wait (TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10))  
10 - это количество секунд задержки при выполнении скрипта

 
Дак проще так
WScript.Sleep 500
цифра - время паузы в мс.  1000мс = 1с

Всего записей: 2 | Зарегистр. 28-09-2012 | Отправлено: 01:34 29-09-2012 | Исправлено: TellMePls, 01:37 29-09-2012
Открыть новую тему     Написать ответ в эту тему

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru