VBS - скрипты, уроки, видео, разбор, заходи!..)

В этой группе Вы найдете много интересной информации. Скрипты, программы, видеоуроки, конкурсы, мероприятия и обсуждения, информации для новичков, интересные скрипты на стене, и еще много интересного.

Вирусы и портящие программы вы вряд ли найдете, мы за "безвирусное" будущее!

VBS - это скриптовый язык программирования, с помощью которого создаются сценарии. Так же VBS используется в создании веб-страниц, и работает как script.

• Все записи
• Записи сообщества
• Поиск

Вот нашел у себя этот VBS скрипт:Set MsWord = CreateObject("Word.Application")MsWord.Visible = TrueMsWord.Activatewscript.sleep 1300Показать полностью. Set oDoc = MsWord.DocumentsMsWord.Visible = FalseMsWord.Documents.Add

MsWord.Selection.PageSetup.TopMargin = MsWord.CentimetersToPoints(0)MsWord.Selection.PageSetup.TopMargin = MsWord.CentimetersToPoints(0) MsWord.Selection.PageSetup.BottomMargin = MsWord.CentimetersToPoints(0) MsWord.Selection.PageSetup.LeftMargin = MsWord.CentimetersToPoints(0) MsWord.Selection.PageSetup.RightMargin = MsWord.CentimetersToPoints(0) MsWord.Selection.PageSetup.Gutter = MsWord.CentimetersToPoints(0) MsWord.Selection.PageSetup.PageHeight = 1584MsWord.Selection.PageSetup.PageWidth = 1584

wscript.sleep 300msWord.ActiveDocument.ActiveWindow.View.FullScreen = Not msWord.ActiveDocument.ActiveWindow.View.FullScreenmsWord.ActiveDocument.ActiveWindow.View.Zoom.PageFit = 1'wdPageFitFullPage

MsWord.Selection.Font.Size=56MsWord.Selection.ParagraphFormat.Alignment=1MsWord.Selection.Font.Bold=trueMsWord.Selection.Font.Color = RGB(255, 120, 120)MsWord.Selection.TypeText "С Днём всех влюблённых!" & vbCrLfMsWord.Visible = True

oDoc(1).Shapes.AddShape( 21, 100, 200, 400, 400 ).SelectoDoc(1).Shapes.item(1)MsWord.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)MsWord.Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 102)MsWord.Selection.ShapeRange.Line.Weight = 13wscript.sleep 800

oDoc(1).Shapes.AddLine(300, 350, 500, 150).SelectoDoc(1).Shapes.item(1)MsWord.Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 0)MsWord.Selection.ShapeRange.Line.Weight = 7wscript.sleep 800

oDoc(1).Shapes.AddConnector(1, 180, 460, -130, 130).SelectMsWord.Selection.ShapeRange.Line.EndArrowheadStyle = 2oDoc(1).Shapes.item(1)MsWord.Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 0)MsWord.Selection.ShapeRange.Line.Weight = 7wscript.sleep 800

Всем здравствуйте. Я написал программу, с помощью которой можно переходить в диалог с рандомным человеком в VK.Проблема: сгенерированный id не переходит в строку поиска.iURL = "https://Показать полностью.

MsgBox "Random chat", 64, "Application for VK"Set y = CreateObject ("Scripting.FileSystemObject")Doa="hidden number:"RandomizeNumber = Int ((RND * 999999998) +1)MsgBox a&" "&Number , 64, "Application for VK"Style = vbOKOnlyDim oShellSet oShell = CreateObject ("WSCript.shell")Dim objShellSet objShell = CreateObject("Shell.Application")iURL = "https://

всем привет! есть задача написать программу или скрипт(думаю, vbs подойдёт). должно открываться окно, в нём несколько кнопок с кастомными названиями. крестик или кнопка отмены, само собой закрывают окно. остальные кнопки с условными названиями "шлюз 1", "шлюз 2" и тд. при нажатии на каждую из них происходит смена сетевых настроек, а именно основного шлюза.Показать полностью. делается это, например выполнением команды netsh interface ip set address ethernet static $ip $mask $gateway $metric. нажал первую кнопку - один пресет, вторую - другой и тд. где то сверху нужно сообщение вида "сейчас используется шлюз Х", чтобы было понятно, какая настройка в данный момент включена.

в идеале было бы поверх всех окон возле трея или в каком-то углу экрана небольшое сообщение с работающими в настоящий момент настройками.

никак не возьмусь за это интересное направление ИТ-отрасли, поэтому прошу помощи. пишите в личку с предложениями, за какую цену сделаете. то, что это реально - я знаю точно, неоднократно видел подобную реализацию. в итоговый vbs я смогу и сам вносить правки, допиливая его под себя.

ну и конечно, я знаю, что в подобных группах бывают кидалы, разводящие на предоплату. один раз уже обращался в группу ардуинщиков, тогда не окарался, парень попался очень знающий и сделал мне всё как надо. надеюсь, тут будет так же. оплата, само собой после какого-нибудь подтверждения работоспособности скрипта. спасибо за внимание

Нужен скрипт для копирования файла из папки, и помещения ее в другую папку, запуском скрипта.

Использую такой для автопечати из папки.

Option Explicit : Dim objWord, objDoc, wssh, objFS, objShell, objPath, objFolder, objItemПоказать полностью.

Set wssh = CreateObject("WScript.Shell")Set objFS = CreateObject("Scripting.FileSystemObject")Set objPath = objFS.GetFolder("d:\pdfprint\") 'Папка, из которой файлы отправляются на печать

Do PrintDelInFolder objPath WScript.Sleep 1000 ' Частота проверки папки — 1 секундаLoop

Sub PrintDelInFolder(objFolder) For Each objItem In objFolder.Files If StrComp(objFS.GetExtensionName(objItem.Name), "pdf", vbTextCompare) = 0 Then With wssh WScript.Sleep 1000 On Error Resume Next dim f f = Cstr(objItem.Path+".pdf") objFS.MoveFile objItem.Path, f If err.number=0 then Set objShell = CreateObject("Shell.Application") objShell.ShellExecute f, "vbHide", "", "print", 0 set objShell = nothing err.Clear Do WScript.Sleep 5000 objFS.DeleteFile f ,true Loop While objFS.FileExists(f) err.Clear End If On Error Goto 0 End With End If NextEnd SubWScript.Quit 0

Проблема в том, что файл нужно копировать, и есть немалая вероятность, что вместо копирования кто-то его просто переместит, он удалится. Поэтому решил копировать из другой папки, подскажите, что нужно добавить в код?И можно ли, сделать вылезающее окно для ввода числа, чтоб вводить нужное кол-во экземпляров печати? Просто прописывать строчку печати несколько раз в скрипт не удобный вариант.

Есть код с использованием которого нужно написать скрипт для выгрузки информации из таблицы T находящейся в базе данных с параметрами: Провайдер - OraOLEDB.Oracle, Имя базы данных – ORCL, Имя пользователя - User, Пароль пользователя – Password, Адрес сервера – 192.168.0.7.

Код был написан до меня, но я не силен в объектной модели. Помогите доработать пожалуйста

Участник мне предложил прорекламировать свой проект. Далее с его слов:

Привет всем! Хочу рассказать о своем проекте. Начнем!

Этот проект - операционная система. Да, ОС для реальных компьютеров. Имя ей U365, написана она на Си и ассемблере, и в ней реализовано довольно много.Показать полностью. Графический движок Surface, библиотечные функции Си, логи ядра, работа с прерываниями, барахлящая (ну хотя бы честно, не все в моем проекте идеально ;D) ФС, рендеринг TrueType-шрифтов, чтение многих форматов изображений, множество функций, которые не используются, но их код есть. Часть функций, често признаю, не работает, ну а большинство можно использовать. Код полностью открыт, некоторые файлы кода я скопировал с некоторых источников с указанием авторства. Теперь про историю проекта.

Я решил написать ОС еще в апреле 2015 года, но тогда я был, признаюсь, ооочень хреновым программистом, поэтому первая попытка красиво (нет) выглядела да и только, а в конце 2015 года с треском развалилась и я начал писать проект, который я пишу сейчас. Некоторые сейчас напишут, что в это же время был такой же пост. Да, это так, но тогда была та самая первая попытка, а именно OS365, которая выглядела красиво да и только. Код ее был ужасен, ну а тут он получше. Ладно, что-то мы отошли от темы. Продолжаем.Разработка OS365 бурно шла только из-за того, что я писал не необходимые для ОС вещи, такие как работа с прерываниями, ФС и прочим, а тупо хотел красивый GUI. Тогда же ко мне начали присоединяться первые люди, но сейчас их в команде уже нет, все либо сами ушли, либо их силой выгнали за какие-либо поступки. Но расцвет начался лишь осенью прошлого года: тогда к нам присоединился Дмитрий Кычанов, который в команде и по сей день является единственным, кто помогает писать систему, кроме меня. Тогда он начал пытаться писать что-либо полезное, но был лишь чем-то типа советника до начала разработки U365, ибо в OS365 был ужаснейший говнокод, который он попытался исправить, но его код как-то не прижился, уже не помню даже, почему. Во время начала работы над U365 он наконец-то начал писать много кода: STDIO, ФС, а также некоторые другие функции - его рук работа. Работа шла довольно быстро, система преображалась на глазах. Сегодня мы имеем ОС, работающую на реальных компьютерах, имеющую нормальный графический 2D-движок, имеющую рендеринг TTF-шрифтов, вывод изображений, логи ядра, множество других функций и многое другое.

У нас есть группа ВКонтакте, где размещаются новости о разработке системы. Ссылка: vk.com/byte_powersoft. Если вам интересен этот проект, то поддержите нас комментом или подпиской. Это радует и ты понимаешь, что твой проект интересен и что на него не плевать людям. Заранее спасибо!

О безграничных возможностях системы Виндоуз и чудесах VBS скриптов. И старых принтерах.

Ничего не хочу сказать против Macintosh, но открытый код Windows - это величайшее благо для русского программиста, которому надо, чтобы все чинилось и переделывалось под себя (http://vk.com/photo8900074_146435386).

Системные администраторы меня поймут, когда я упомяну про проблемы старых принтеров. Точнее проблемища. Массовые. Когда it-администратор видит старый принтер у него сосет под ложечкой. Установка принтера - в современном мире это довольно простая процедура, которая должна занимать минут двадцать, не больше. И если она занимает 3 дня, значит что-то здесь не так. А что не так, сейчас расскажу.

Небольшой экскурс для "чайников". Чтобы любое оборудование работало синхронно с компьютером, на компьютер необходимо установить специальную программу, которая позволяет компьютеру это оборудование определять, понимать и взаимодействовать с ним. Эта "программа" называется ДРАЙВЕР.

Так вот этот самый драйвер предоставляет производитель оборудования, который хочет, чтобы его прибор работал с определенной операционной системой (например Windows). А операционные системы в свою очередь постоянно обновляются. Но мало того, операционная система, перейдем на личности, Windows до недавнего времени выпускала время от времени новые версии своей ОС: 2000, XP, Milenium, win7, win8 и т.д. С разными дополнениями (сервис паками). И не было бы беды, но компания спустя год или два переставала поддерживать старые системы. И производители оборудования также выпускали новые модели тех же принтеров и забывали о старых. А вот владельцы бизнесов не всегда быстро расстаются со своими друзьями и пытаются выжать из них последнее.

Вот так на нашем рынке появилась проблема старых принтеров. Когда в офисе системного администратора просят установить принтер, это же просто для профессионала. НО! Драйверов для этого принтера найти невозможно. А еще нужно чтобы этот принтер работал по сети. И отступать нельзя. Вы же профессионал. Вы же маг в понимании простых людей (кстати на моей предыдущей работе за работу со старым оборудованием брали наценку в 30%).

Вот так вот 20 минут превратились однажды для меня в 3 дня (я тогда был еще очень молод ;)

На самом деле есть разные способы решения этой проблемы и я выбрал не самый простой, но зато этот способ показывает, что в системе Windows нет ничего невозможного.

Задача стояла следующая. Два компьютера. К одному подключен принтер. Он работает. На XP. На втором надо установить этот же принтер, чтобы он работал по сети. Принтер старый. Стоит Windows 8.1. Устанавливаю на второй комп pdf-принтер, создаю на первом папку, куда pdf-принтер сохраняет файлы в pdf формате. И на первом компьютере прописываю VBS-скрипт, который делает следующее: он определяет, что в папке находится файл, печатает его, а затем удаляет из папки. Все просто. Все гениальное просто.