ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Alex_111 14:10 28-12-2008 Цитата:  постоянна выкидывает ошибка в первой строки перед словам As? Afaik, оно не обязательно (я даже не уверен что в vbs оно поддерживается)...   Код: Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject")   If FSO.FolderExists("C:\мои документы") Then     MsgBox "Папка существует" Else     MsgBox "Папка не существует" End If ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 15:04 28-12-2008

ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Alex_111 16:32 28-12-2008 Цитата:  как зделать так чтоб VBS чтоб Например если заходиш в cmd.exe и пишеш net user то он выводит на экран всех кто зареган на этой машине По идее вот так можно:   Код: Set WshShell = CreateObject("WScript.Shell")   Set WshExec = WshShell.Exec("net user")   Set OutStream = WshExec.StdOut Str = ""   While Not OutStream.AtEndOfStream     Str = Str & Trim(OutStream.ReadLine()) & vbCrLf Wend   Wscript.Echo Str   Но у меня почему то выводит в неверной кодировке. А также я не знаю как скрыть окно консоли при использовании Exec.   Но можно и через WMI получать список локаьлных аккаунтов:   Код: On Error Resume Next   strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")   Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount Where LocalAccount = True")   sAccounts = "" iCounter = 0   For Each objItem in colItems     iCounter = iCounter + 1          sAccounts = sAccounts & _         "[Account №" & iCounter & "]" & vbCRLF & _         "Account Type: " & objItem.AccountType & vbCRLF & _         "Caption: " & objItem.Caption & vbCRLF & _         "Description: " & objItem.Description & vbCRLF & vbCRLF Next   Wscript.Echo sAccounts ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 17:46 28-12-2008 | Исправлено: ViSiToR, 17:49 28-12-2008

ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Alex_111 18:59 28-12-2008 Цитата:  в VBS нет такого как в CND например  start  /c:\windows\system32\telnet.exe? Почему нет, если просто запустить консольную (или любую другую) утилиту тогда так:   Код: Set oShell = CreateObject("WScript.Shell") oShell.Exec("c:\windows\system32\telnet.exe")   Если нужно скрыть тогда так (но нет возможности (а точнее мне не известна такова) читать Std потоки):   Код: Set oShell = CreateObject("WScript.Shell") oShell.Run "c:\windows\system32\telnet.exe", 0, True ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 19:21 28-12-2008

ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Alex_111 01:39 06-01-2009 Цитата: Вот мой код. Откуда он? если убрать On Error Resume Next, то сразу всплывут ошибки. ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 02:56 06-01-2009

ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Alex_111 13:51 06-01-2009 Цитата: Сам написал, я же у тебя брал книги вот сам начил програмировать. Интересно, где в этих книгах есть FSO.TextFileExists("TextFile")?   Цитата: А именно где ошибки? Почти везде , например запись нажатых клавиш... я если честно не слышал чтобы vbs это поддерживал, могу ошибаться, но данный скрипт вываливается с ошибками о не поддерживаемых свойствах и не объявленных объектов. Я даже в googl'е пытался поискать тот же OnPressSendKeys, единственный результат нашёлся, и он ссылается прямо на твой пост ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 14:10 06-01-2009

ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Alex_111 19:06 06-01-2009 Цитата: FSO.FileExists("вот что здесь я незнаю") Имя файла?     Цитата: a OnPressSendKeys я так подумал что в моем случий при нажатие клавиши она должна быть записана вот и я дописал OnPress. Программировать на угад, это не самый лучши способ   Цитата: как мне правельно зделать? Я уже написал...   14:10 06-01-2009 Цитата: например запись нажатых клавиш... я если честно не слышал чтобы vbs это поддерживал   Это можно сделать через соответствующий хук с WinAPI, но в VBS это практический нереально. ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 23:12 06-01-2009

ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Alex_111 23:43 06-01-2009 Цитата:  нереально эта как? невозможна или вазможна но с глюками? Мне не известен подобный метод, для меня не реально - значит не выполнимо, не доступно, не досигаемо...   Цитата: видел на VB кейлоггер но эта программа а не скрипт VB - Это Visual Basic если я не ошибаюсь, и это разные вещи, vbs намного примитивнее, и предназначен для решения задач административного характера, в это не входят всякого рода кейлогеры, и другие сценарии для слежки за пользователем (хотя кое что и есть, например слежение за изменением в списке процессов). ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 23:54 06-01-2009

dadu Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вот такая книженция, (стянул сайт, пожал .chm). Удобно листинги смотреть (копи-пастить).   Плюс картинки цветные.     Windows Script Host 2.0 Guide.chm   Автор: Gunter Born   Язык: анг.   На русском эта книженция называется Руководство разработчика на WSH 2.0. Везде валяется, в DjVu. Всего записей: 1222 | Зарегистр. 13-11-2002 | Отправлено: 12:14 07-01-2009 | Исправлено: dadu, 12:35 07-01-2009

ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору dadu На этот сервис (hxxp://rapidshare.ru/) вирус подкрался:   Цитата: HTML:Iframe-inf hxxp://www.rapidshore.ru/images/index.html         Почему не залить на обычный rapidshare.com? ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 15:08 07-01-2009 | Исправлено: ViSiToR, 15:09 07-01-2009

dadu Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ViSiToR Цитата: На этот сервис (hxxp://rapidshare.ru/) вирус подкрался:   HTML:Iframe-inf hxxp://www.rapidshore.ru/images/index.html     ага обратил внимание, но у мня этот реф был побит черным списком, так что ... хммм.   Перезалил на обычную рапиду  -  т.е. rapidshare.com   Windows Script Host 2.0 Guide.chm Всего записей: 1222 | Зарегистр. 13-11-2002 | Отправлено: 16:39 07-01-2009

mozers Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору dadu Книжка, конечно, хорошая, но скомпилированна неаккуратно   В инете можно найти более приличный вариант. Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 02:15 08-01-2009

dadu Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mozers Ок.     что то не получается скачать   Выложите сами, если у вас оно есть. Всего записей: 1222 | Зарегистр. 13-11-2002 | Отправлено: 04:29 08-01-2009 | Исправлено: dadu, 04:48 08-01-2009

mozers Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Нет проблем: Microsoft Windows Script Host 2.0 Developer's Guide Copyright © 2000 by Gьnter Born Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 14:07 08-01-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

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование