Горячее
Лучшее
Свежее
Подписки
Сообщества
Блоги
Эксперты
Войти
Забыли пароль?
или продолжите с
Создать аккаунт
Я хочу получать рассылки с лучшими постами за неделю
или
Восстановление пароля
Восстановление пароля
Получить код в Telegram
Войти с Яндекс ID Войти через VK ID
Создавая аккаунт, я соглашаюсь с правилами Пикабу и даю согласие на обработку персональных данных.
ПромокодыРаботаКурсыРекламаИгрыПополнение Steam
Пикабу Игры +1000 бесплатных онлайн игр
Погрузись в мир куриных перестрелок! Хватай пушку и пусть только перья останутся на месте твоих врагов!

Чикен Страйк

Шутер, Экшены, Для мальчиков

Играть

Топ прошлой недели

  • Oskanov Oskanov 8 постов
  • alekseyJHL alekseyJHL 6 постов
  • XpyMy XpyMy 1 пост
Посмотреть весь топ

Лучшие посты недели

Рассылка Пикабу: отправляем самые рейтинговые материалы за 7 дней 🔥

Нажимая кнопку «Подписаться на рассылку», я соглашаюсь с Правилами Пикабу и даю согласие на обработку персональных данных.

Спасибо, что подписались!
Пожалуйста, проверьте почту 😊

Новости Пикабу Помощь Кодекс Пикабу Реклама О компании
Команда Пикабу Награды Контакты О проекте Зал славы
Промокоды Скидки Работа Курсы Блоги
Купоны Biggeek Купоны AliExpress Купоны М.Видео Купоны YandexTravel Купоны Lamoda
Мобильное приложение

Vbs

6 постов сначала свежее
Sanya.playz
Sanya.playz
3 года назад

Окно с кодом для закрытия⁠⁠

Привет, я тебя научу так с помощью блокнота

Окно с кодом для закрытия Vbs, Блокнот, Windows, Windows 95, Windows 10, Windows 11

это делается вот так:

Do

st=InputBox("текст")

Loop Until st="пароль"

а потом просто сохраняете в формате на кодировку анси сохраняете и готово

Показать полностью
Vbs Блокнот Windows Windows 95 Windows 10 Windows 11
3
greatwriter
greatwriter
4 года назад

Скрипт VBS⁠⁠

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

MsgBox "Random chat", 64, "Application for VK"
Set y = CreateObject ("Scripting.FileSystemObject")
Do
a="hidden number:"
Randomize
Number = Int ((RND * 999999998) +1)
MsgBox a&" "&Number , 64, "Application for VK"
Style = vbOKOnly
Dim oShell
Set oShell = CreateObject ("WSCript.shell")
Dim objShell
Set objShell = CreateObject("Shell.Application")
iURL = "https://vk.com/im?sel="
Call objShell.ShellExecute("C:\Program Files\Mozilla Firefox\firefox.exe", iURL, "", "", 1)
WScript.Quit
Loop

[моё] Скрипт Vbs Текст
10
17
liberpain
liberpain
5 лет назад
MS, Libreoffice & Google docs

Доступ к тексту в буфере обмена в vba/vbs⁠⁠

Попросили помочь со скриптами vbs. Благодаря криворукости разработчиков специфическому поведению SAP, решением проблемы было использование буфера обмена. С чтением содержимого всё просто, а вот с записью уже не так тривиально. Причём, сторонний софт туда не скопировать и не скомпилировать - огорожено. Так что пользуют "васик".


Вобщем, нарыл вот такое. Кому надо, пользуйтесь:


Функция:

Function ClipBoard(input)
If IsNull(input) Then
ClipBoard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text")
If IsNull(ClipBoard) Then ClipBoard = ""
Else
CreateObject("WScript.Shell").Run "mshta.exe javascript:eval(""document.parentWindow.clipboardData.setData('text','" & Replace(Replace(Replace(input, "'", "\\u0027"), """","\\u0022"),Chr(13),"\\r\\n") & "');window.close()"")", 0,True
End If
End Function

Использование:


Получение текста:

result = ClipBoard(null)

Установка текста:

ClipBoard("новый текст")

Если установка не нужна, можно функцию не использовать, хватит простой строки:

result = CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text")

Для установки через setData такой способ не подходит (М$ пофиксили возможность зачем-то), посему приходится извращаться с помощью HTA.

Показать полностью
Basic Vba Vbs Макрос Скрипт Microsoft Excel Текст
32
0
Matyr
Matyr
7 лет назад

Рубрики одно сайта⁠⁠

Рубрики одно сайта
Алкоголь Vba Vbs
2
354
Ha6opCocucok
Ha6opCocucok
11 лет назад

"Вирусы" в Блокноте, часть 1⁠⁠

Альтернативный способ создания Диалогового Окна (фигурировал в некотором посте http://pikabu.ru/story/_2065889)
&quot;Вирусы&quot; в Блокноте, часть 1 Альтернативный способ создания Диалогового Окна (фигурировал в некотором посте <a href="http://pikabu.ru/story/_2065889)">http://pikabu.ru/story/_2065889)</a>
Показать полностью 1
[моё] Диалог Приветствие Блокнот Vbs Летучая мышь Вирус Длиннопост
38
393
wondersalmon
wondersalmon
11 лет назад

Скрипт удаления следов от Webalta и прочей дряни⁠⁠

Первый длиннопост.
Скрипт удаления следов от Webalta и прочей дряни Первый длиннопост.
[моё] Webalta Vbs Скрипт Реестр Тег
59
Посты не найдены
О Нас
О Пикабу
Контакты
Реклама
Сообщить об ошибке
Сообщить о нарушении законодательства
Отзывы и предложения
Новости Пикабу
RSS
Информация
Помощь
Кодекс Пикабу
Награды
Команда Пикабу
Бан-лист
Конфиденциальность
Правила соцсети
О рекомендациях
Наши проекты
Блоги
Работа
Промокоды
Игры
Скидки
Курсы
Зал славы
Mobile
Мобильное приложение
Партнёры
Промокоды Biggeek
Промокоды Маркет Деливери
Промокоды Яндекс Путешествия
Промокоды М.Видео
Промокоды в Ленте Онлайн
Промокоды Тефаль
Промокоды Сбермаркет
Промокоды Спортмастер
Постила
Футбол сегодня
На информационном ресурсе Pikabu.ru применяются рекомендательные технологии