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

Alex_111 19:06 06-01-2009
Цитата:

FSO.FileExists("вот что здесь я незнаю")

Имя файла?


Цитата:

a OnPressSendKeys я так подумал что в моем случий при нажатие клавиши она должна быть записана вот и я дописал OnPress.

Программировать на угад, это не самый лучши способ


Цитата:

как мне правельно зделать?

Я уже написал...

14:10 06-01-2009
Цитата:

например запись нажатых клавиш... я если честно не слышал чтобы vbs это поддерживал

Это можно сделать через соответствующий хук с WinAPI, но в VBS это практический нереально.

Спосиба огромное, буду дальше учиться, а нереально эта как? невозможна или вазможна но с глюками? Я гдета видел на VB кейлоггер но эта программа а не скрипт.

Alex_111 23:43 06-01-2009
Цитата:

нереально эта как? невозможна или вазможна но с глюками?

Мне не известен подобный метод, для меня не реально - значит не выполнимо, не доступно, не досигаемо...


Цитата:

видел на VB кейлоггер но эта программа а не скрипт

VB - Это Visual Basic если я не ошибаюсь, и это разные вещи, vbs намного примитивнее, и предназначен для решения задач административного характера, в это не входят всякого рода кейлогеры, и другие сценарии для слежки за пользователем (хотя кое что и есть, например слежение за изменением в списке процессов).

Вот такая книженция, (стянул сайт, пожал .chm). Удобно листинги смотреть (копи-пастить).
Плюс картинки цветные.

Windows Script Host 2.0 Guide.chm

Автор: Gunter Born
Язык: анг.

На русском эта книженция называется Руководство разработчика на WSH 2.0. Везде валяется, в DjVu.

dadu
На этот сервис (hxxp://rapidshare.ru/) вирус подкрался:


Цитата:

HTML:Iframe-inf
hxxp://www.rapidshore.ru/images/index.html

Почему не залить на обычный rapidshare.com?

ViSiToR

Цитата:

На этот сервис (hxxp://rapidshare.ru/) вирус подкрался:

HTML:Iframe-inf
hxxp://www.rapidshore.ru/images/index.html

ага обратил внимание, но у мня этот реф был побит черным списком, так что ... хммм.

Перезалил на обычную рапиду - т.е. rapidshare.com

Windows Script Host 2.0 Guide.chm

dadu
Книжка, конечно, хорошая, но скомпилированна неаккуратно
В инете можно найти более приличный вариант.

mozers
Ок.

что то не получается скачать

Выложите сами, если у вас оно есть.

Нет проблем:
Microsoft Windows Script Host 2.0 Developer's Guide
Copyright © 2000 by Gьnter Born

[more]всем добрый вечер, прошу подкинуть идею(я не програмер) вобщем нужно сжать кучу аудио, использую easy cd-da extractor, но при 50% загрузке процессора звуки фанов мешают мне уснуть , хотелось-бы просто часа на 2 "заморозить" процесс ezcddax.exe,
чтоб потреблял 2-3% а потом разморозить. буду очень презнателен наводке на подобную утилиту или скриптик... а уж сегодня перебьюсь.[/more] проблемму решил.

Хочу создать файл с названием системного времени.
12-21-08.txt к примеру
делаю Time()
в ответ все через двоеточие, винда такое имя не создает.
Как или двоеточие переделать в тире или еще можно вытянуть время??

alxkk
Формат времени берется из региональных настроек системы. Для русской версии разделитель — двоеточие.

alxkk 13:04 12-01-2009
Цитата:

Как или двоеточие переделать в тире или еще можно вытянуть время?

Предлагаю функцию для замены неподдерживаемых символов в имени файла:


Код: sFileName = Time() & ".txt"
sFileName = String_Get_Valid_FileName(sFileName, "[*?\\/|:<>""]", "-")

MsgBox "Valid File Name: " & sFileName, 64, "Replace Unsupported Example"

Function String_Get_Valid_FileName(sString, sPattern, sReplace)
    If Len(Trim(sString)) = 0 Then
        StringReplaceUnsupported = sString
        Exit Function
    End If
    
    If sPattern = "" Then sPattern = "[*?\\/|:<>""]"
    If sReplace = "" Then sReplace = "_"
    
    Set RegEx = New RegExp
    
    RegEx.IgnoreCase = True
    RegEx.Global = True
    
    RegEx.Pattern = sPattern
    sString = RegEx.Replace(sString, sReplace)
    
    RegEx.Pattern = "(" & sReplace & "+)"
    sString = RegEx.Replace(sString, sReplace)
    
    String_Get_Valid_FileName = sString
End Function

есть такой скрипт.
Смотрит определенное событие в event на одном компе.

Помогите модифицировать: скрипт бегает по компам домена-смотрит нужный эвент и создает файл,где указан комп где появился эвент ну и дату можно.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, (Security)}!\\" & _
strComputer & "\root\cimv2")

Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("Select * from __instancecreationevent where " _
& "TargetInstance isa 'Win32_NTLogEvent' " _
& "and TargetInstance.EventCode = '533' ")

Do
Set objLatestEvent = colMonitoredEvents.NextEvent
strAlertToSend = objLatestEvent.TargetInstance.User _
& " attempted to access DatabaseServer."
Wscript.Echo strAlertToSend
Loop

Помогите с маленьким вопросом, есть скрипт который цепляет сетевой диск, но после перезагрузки такой диск автоматом не цепляется, как сделать чтобы сетевой диск восстанавливался после перезагрузки???? Вариант с засовыванием в автозагрузку скрипта не подходит

Возник такой вопрос:
При использовании cmd.exe возможновыполнение команд без создания батника как файла. То есть можно в Пуск-Выполнить написать cmd /с "команда1&команда2&..." и будут последовательно выполнены команды 1,2 ....
Хотелось бы узнать возможно ли такое с JS/VBS?

korosya
Нет ничего проще набрать в ком.строке cscript /? или wscript /? и убедиться что такая возможность недоступна.

Доброе время суток

Есть такой скрипт хочю понять как он работает.

Код: Option Explicit

Dim i, j

j = 0

For i = 1 To 5                    ' Цикл с 5 повторами    

    j = addx(i, j)                'слошить значения с помощью функции addx.
Next

WScript.Echo "Result:", j

Function addx(val1, val2)

    addx = val1 + val2
    
End Function

Alex_111
У тебя функция j=i+j, где i меняется от 1 до 5 (10). Теперь смотри, что получается в каждой итерации:
Сначала j=o
1. j=1+0=1
2. j=2+1=3
3. j=3+3=6
4. j=4+6=10
5. j=5+10=15
6. j=6+15=21
7. j=7+21=28
8. j=8+28=36
9. j=9+36=45
10. j=10+45=55

Спасибо агромное ато я голову ломал.

constant125
Объект WshNetwork
Методы
MapNetworkDrive
Синтаксис:

MapNetworkDrive(<LocalName>,<RemoteName>,<UpdateProfile>, <User>,<Password>)

Назначение:

Подключает сетевой диск.

Параметры:

<LocalName> - строка, локальное имя диска.
<RemoteName> - строка, имя сетевого ресурса.
<UpdateProfile> - необязательный, число (булево). Если указано True, создаваемое сетевое подключение будет сохранено в профиле пользователя.
<User> - необязательный, строка. Имя пользователя, если сетевой диск подключается от пользователя, отличного от текущего.
<Password> - необязательный, строка. Пароль пользователя, если сетевой диск подключается от пользователя, отличного от текущего.


Описание:

Без комментариев.

Пример:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\SERVER\Programs"

А вот если перезагрузить компьютер, сетевой диск пропадает . Чтобы этого не происходило должна появляться запись в реестре, HKCU /network (кстати если скриптом удалять сетевой диск, который подключили через GUI, надо очищать енту ветку, иначе после перезагрузки сетевой диск опять появится)

А если попробовать так:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Z:", "\\SERVER\Programs", true

-- вот это true и должно сделать подключение постоянным...

aliotru
наверное имелось ввиду "true, true "

Нет он записывает в профиль пользователя, но не подключает автоматически (при подключении не надо заново давать имя диска и параметры подключения) а связка true, true отваливается с ошибкой

перепутал я с удалением диска

Товарищи, помогите разобраться с небольшим затруднением. Не могу подключить ссылку на библиотеу Microsoft Windows Installer Object Library. Операционная система ругает скрипт

Код:
<?xml version="1.0"?>
<package>
<job id="sample">

<!-- Microsoft Windows Installer Object Library (ver 1.0) -->
<!-- reference guid="000C1092-0000-0000-C000-000000000046"/ -->
<reference object="WindowsInstaller.Installer"/>

<script language="VBScript">
    WScript.Echo "YOHOHO"
</script>

</job>
</package>

karakurt2
Попробуй удалить строки

<!-- Microsoft Windows Installer Object Library (ver 1.0) -->
<!-- reference guid="000C1092-0000-0000-C000-000000000046"/ -->

должно заработать.

BSUacad, эти строки просто комментарии, их наличие или отсутствие ни на что не влияет. Даже программа oleview из комплекта Windows SDK ругается при двойном щелчке над библиотекой Windows Installer. На всех системах, которые мне доступны, проявляется эта ошибка. Уже весь мозг сломал.

Win XP SP1. Данный пример работает.

Код:
<package>
<job id="Job1">
<reference object="WindowsInstaller.Installer"/>
<script language="VBScript">
<![CDATA[
blablabla
]]>
</script>
</job>
</package>