Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
9 / 9 / 0
Регистрация: 08.04.2021
Сообщений: 297

MsgBox запускается в свернутом состоянии

02.02.2025, 19:50. Показов 3794. Ответов 49

Студворк — интернет-сервис помощи студентам
В чем может быть причина запуска MsgBox в свернутом состоянии и как это исправить?
Предполагаю это как-то связано с применением оператора SendKeys (может приводить к автоматическому отключению правого цифрового блока клавиатуры). SendKeys "{NUMLOCK}" не помогает..
Visual Basic
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
Sub VBA_Chrome()
    Dim Number  As Long
    Dim a
    NumberPP = 1
CreateObject("WScript.Shell").Run "https://translate.yandex.ru/?from=tabbar&source_lang=en&target_lang=ru"
Application.Wait (Now() + TimeValue("00:00:03"))
    Cells(2, 1).Select
    ActiveCell.Value = NumberPP
    a = Cells(ActiveCell.Row, 2).Value
    SetClipBoardText a
    txt = ClipboardText
        Debug.Print Now & "  Текст в буфере для Chrome: " & txt
    Cells(ActiveCell.Row, 4).Value = Now
    SetCursorPos 750, 200           'клик на поле ввода слова
        mouse_event &H2, 0, 0, 0, 0
        Sleep (300)
        mouse_event &H4, 0, 0, 0, 0
        Sleep (200)
      Sleep (300)
    SendKeys "^v"
    Application.CutCopyMode = False ' как бы "очистка буфера"
    Application.Wait (Now() + TimeValue("00:00:01"))
        SetCursorPos 1700, 200           'клик на окно перевода
            mouse_event &H2, 0, 0, 0, 0
            Sleep (300)
            mouse_event &H4, 0, 0, 0, 0
        Sleep (1300)
        SetCursorPos 1807, 195 'клик на кнопку копирования
        mouse_event &H2, 0, 0, 0, 0
            Sleep (300)
            mouse_event &H4, 0, 0, 0, 0
'    SendKeys "^a"
'    Sleep (300)
'    SendKeys "^c"
        Sleep (100)
    SetClipBoardText a
    txt = ClipboardText
        Debug.Print Now & "  Текст из окна перевода Chrome: " & txt
        Debug.Print " "
    Range("C2").Value = txt
    Range("A3").Value = NumberPP + 1
    SendKeys "{NUMLOCK}"
        MsgBox "Перевод " & Cells(ActiveCell.Row, 2).Value & ": " & Cells(2, 3).Value, , "Сообщение"
    ClearClipBoardText
End Sub
 
Function ClipboardText() ' чтение из буфера обмена
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        ClipboardText = .GetText
    End With
End Function
 
Function SetClipBoardText(ByVal Text As Variant) As Boolean
    SetClipBoardText = CreateObject("htmlfile").parentWindow.clipboardData.setData("Text", Text)
End Function
 
'Функция очистки буфера обмена
Function ClearClipBoardText() As Boolean
    ClearClipBoardText = CreateObject("htmlfile").parentWindow.clipboardData.clearData("Text")
End Function
И вопрос2: Нестабильная работа SendKeys "^c" может как-то быть стабилизирована? Причины выяснял, но так и не пришел к определённому выводу (работа с двух мониторов?).
Вложения
Тип файла: rar VBA-WB.rar (22.6 Кб, 8 просмотров)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
02.02.2025, 19:50
Ответы с готовыми решениями:

Формирование уведомлений в свернутом состоянии
Здравствуйте. Есть приложение для чтения RSS-ленты определенного сайта. Новости обновляются редко (где-то раз в неделю), поэтому...

Не работает программа в свёрнутом состоянии
Добрый день! Помогите, пожалуйста! Написал программу, используя таймер и считывание с ком-порта. всё работает, НО, если программу свернуть,...

Нажатие клавиш в свернутом состоянии
Здравствуйте. Мне необходимо, чтобы моя программа реагировала на нажатие клавиши F4 даже находясь в свернутом состоянии. Как это можно...

49
9 / 9 / 0
Регистрация: 08.04.2021
Сообщений: 297
10.02.2025, 18:28  [ТС]
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от АЕ Посмотреть сообщение
Последний раз редактировалось mik-a-el; Сегодня в 00:10.
Это да, спс за оперативность, сегодня собирался попросить убрать геометки.
0
9 / 9 / 0
Регистрация: 08.04.2021
Сообщений: 297
10.02.2025, 18:33  [ТС]
Цитата Сообщение от АЕ Посмотреть сообщение
сделать самостоятельно
Какой-то подвох с кавычками произошел, не сразу догадался в чем причина)
pLeft = InStr(1, HTMLcode, "id='weather-now-number'>") + 24 .................... pLeft = InStr(HTMLcode, "id=""weather-now-number"">") + 24
https://www.cyberforum.ru/atta... 1739201519
Миниатюры
MsgBox запускается в свернутом состоянии  
0
ᴁ ©
Эксперт MS Access
 Аватар для АЕ
4178 / 2463 / 513
Регистрация: 13.12.2016
Сообщений: 8,366
Записей в блоге: 5
11.02.2025, 12:09
Цитата Сообщение от ooos Посмотреть сообщение
другой вопрос- с сайта https://nataassa.livejournal.com/1884453.html вытащить:
Никак. Или вы всегда собираетесь вытаскивать на 10 февраля? На каждый день адрес страницы меняется непредсказуемым образом.

Добавлено через 2 минуты
Да и глупое это занятие. Я нашел с десяток гороскопов на разных сайтах и все они одному и тому же знаку на одну и ту же дату сулили радикально противоположную лабуду.
1
9 / 9 / 0
Регистрация: 08.04.2021
Сообщений: 297
11.02.2025, 15:17  [ТС]
Цитата Сообщение от АЕ Посмотреть сообщение
Или вы всегда собираетесь вытаскивать на 10 февраля? На каждый день адрес страницы меняется непредсказуемым образом.
Уточню, что адрес страницы постоянный - https://nataassa.livejournal.com/ и ежедневно добавляются подзаголовки "Астрологический прогноз на 11 февраля ( Наталия Барская, астролог)", "Астрологический прогноз на 10 февраля ( Наталия Барская, астролог)" внутри которых наверняка можно определить искомую подстроку
Кликните здесь для просмотра всего текста
<div class="asset-header-content-inner"><h2 class="asset-name page-header2"><a href="https://nataassa.livejournal.com/1885220.html" class="subj-link" >Астрологический прогноз на 11 февраля ( Наталия Барская, астролог)</a></h2>
<div class="asset-meta asset-entry-date">
<ul class="asset-meta-list clearfix">
<li class="item"><span><abbr class="datetime">Feb. 10th, 2025 at 6:44 PM</abbr></span></li><li class="item asset-meta-rating"><span class="entry-rating asset-meta-rating-inner"><a href="https://www.livejournal.com/ratings?country=appropriate" class="entry-rating__link" title="316 position in rating"><span class="entry-rating__text entry-rating__text--long">entry is in top500 rating</span><span class="entry-rating__text entry-rating__text--short">Top 500</span></a></span></li>
</ul>
</div>
</div></div></div>
</div> <!-- end asset-header -->
<div class="asset-content">
<div class="asset-body "><div class="user-icon"><img src="https://l-userpic.livejournal.com/113985628/7028326" alt="56" height="100" width="94" /><br />
<span class="user-name-print"><span class="ljuser i-ljuser i-ljuser-type-P " data-ljuser="nataassa" lj:user="nataassa" ><a href="https://nataassa.livejournal.com/profile/" target="_self" class="i-ljuser-profile" ><img class="i-ljuser-userhead" src="https://l-stat.livejournal.net/img/userinfo_v8.svg?v=17080&v=818" /></a><a href="https://nataassa.livejournal.com/" class="i-ljuser-username" target="_self" ><b>nataassa</b></a></span></span></div>Добрый вечер! <br /><br />Завтра вторник, приближается полнолуние. В отношениях между Солнцем и Меркурием ничего нового, эта пара идёт по Водолею рука об руку и спорит с Ураном. Луна во Льве. Марс с Сатурном сохраняют дружеские отношения.<br /><br />В целом день противоречивый. И для переживаний поводы есть, и для оптимизма в том числе. СМИ скучать не придется. В том числе в Израиле.<br /><br />По знакам Зодиака<br /><br />Овен<br />Как с самого начала пойдет, так и весь день сложится, а потому и лениться с утра не стоит. Планы должны быть четкими и реалистичными. Иначе может возникнуть путаница и, как следствие, неопределенность в результатах.<br /><br />Телец<br />События могут противоречить одно другому, поэтому лучше отсидеться в тени и потерять время впустую, нежели настаивать на своем и получить отпор.<br /><br />Близнецы<br />Ожидают большего, но по итогам будут и малым удовлетворены. Дела идут своим чередом и заметных препятствий не предполагают. Настроение ровное.<br /><br />


Добавлено через 13 минут
Цитата Сообщение от АЕ Посмотреть сообщение
Да и глупое это занятие. Я нашел с десяток гороскопов на разных сайтах и все они одному и тому же знаку на одну и ту же дату сулили радикально противоположную лабуду.
Совершенно с Вами согласен в части глупости употребления подобного контента, это даже обсуждать не стоит. Как не стал я обсуждать с коллегами женского пола данный аспект чтения гороскопов. Просто хочу продемонстрировать возможности извлечения.
Хотелось бы обсудить занятие "Извлечение контента с веб-страницы" на данном примере в качестве разминки перед тем как научиться извлекать время запуска "Битрикс24" 06:50 из строки:

Добавлено через 15 минут
Кликните здесь для просмотра всего текста
</span></div></td><td class="main-grid-cell main-grid-cell-left js-453_2025-02-11" data-editable="true"style="" ><div class="main-grid-cell-inner"><span class="main-grid-cell-content" data-prevent-default="true" > <div data-day-cell-key="453_2025-02-11" data-shift-block="true">
<div class="timeman-grid-worktime-record-cell" data-href="/timeman/worktime/records/186465/report/"
data-id="186465"
data-role="worktime-record-cell">
<div class="" >
<div class="timeman-grid-worktime ">
<div class="timeman-grid-worktime-inner">
<div class="timeman-grid-worktime-container">
<div class="timeman-grid-worktime-duration">
<span class="timeman-grid-worktime-duration-value">
5<span>ч </span>59<span>м</span> </span>
</div>
<div class="timeman-grid-worktime-interval "
data-role="start-end">
<span data-role="start">06:50</span>
<span>-</span>
<span data-role="end">...</span>
</div>
</div>
<span class="timeman-grid-worktime-icon-container">
</span>
</div>
</div>
0
ᴁ ©
Эксперт MS Access
 Аватар для АЕ
4178 / 2463 / 513
Регистрация: 13.12.2016
Сообщений: 8,366
Записей в блоге: 5
11.02.2025, 15:30
Цитата Сообщение от ooos Посмотреть сообщение
внутри которых наверняка можно определить искомую подстроку
Согласен. Изучайте, пробуйте.
1
9 / 9 / 0
Регистрация: 08.04.2021
Сообщений: 297
11.02.2025, 15:37  [ТС]
Цитата Сообщение от АЕ Посмотреть сообщение
Согласен. Изучайте, пробуйте.
Вот, уже навскидку вижу, что пригодится:
Visual Basic
1
2
Выбираем, содержимое какого тега по порядку, начинающегося с 0, нужно извлечь
    myTxt = myTag(5).innerText
, вероятно как и всё остальное, спасибо за ссылку.
0
ᴁ ©
Эксперт MS Access
 Аватар для АЕ
4178 / 2463 / 513
Регистрация: 13.12.2016
Сообщений: 8,366
Записей в блоге: 5
11.02.2025, 16:06
Цитата Сообщение от ooos Посмотреть сообщение
Вот, уже навскидку вижу, что пригодится:
Советую не превращать тему в блог, который сильно отличается от первоначальной темы. Если есть конкретные сложности или вопросы, то создавайте конкретные темы. И если они будут интересны форумчанам, то там и получите ответ.
1
9 / 9 / 0
Регистрация: 08.04.2021
Сообщений: 297
11.02.2025, 18:52  [ТС]
Цитата Сообщение от АЕ Посмотреть сообщение
Согласен. Изучайте, пробуйте.
Готово:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Primer()
    Dim trimString As String, res As String
    Dim myHtml As String, myFile As Object, myTag As Object, myTxt As String
    myHtml = GetHTML1("https://nataassa.livejournal.com/")
    Set myFile = CreateObject("HTMLFile")
    myFile.body.innerHTML = myHtml
    Set myTag = myFile.getElementsByTagName("div")
    myTxt = myTag(91).innerText
    res = Split(myTxt, "Добрый вечер, друзья! ")(0)
    Debug.Print res
End Sub
Debug.Print:
Кликните здесь для просмотра всего текста
Астрологический прогноз на 11 февраля ( Наталия Барская, астролог)
Feb. 10th, 2025 at 6:44 PM

nataassa
Добрый вечер!

Завтра вторник, приближается полнолуние. В отношениях между Солнцем и Меркурием ничего нового, эта пара идёт по Водолею рука об руку и спорит с Ураном. Луна во Льве. Марс с Сатурном сохраняют дружеские отношения.

В целом день противоречивый. И для переживаний поводы есть, и для оптимизма в том числе. СМИ скучать не придется. В том числе в Израиле.

По знакам Зодиака

Овен
Как с самого начала пойдет, так и весь день сложится, а потому и лениться с утра не стоит. Планы должны быть четкими и реалистичными. Иначе может возникнуть путаница и, как следствие, неопределенность в результатах.

Телец
События могут противоречить одно другому, поэтому лучше отсидеться в тени и потерять время впустую, нежели настаивать на своем и получить отпор.

Близнецы
Ожидают большего, но по итогам будут и малым удовлетворены. Дела идут своим чередом и заметных препятствий не предполагают. Настроение ровное.

Рак
День обычный, но с более высокими итогами, чем предполагалось. Ракам легко, а потому дел может быть реализовано больше, чем планировалось.

Лев
День не прост и не слишком результативен. Больших планов лучше не строить, чтобы не пришлось сетовать на трудности в реализации. Правильнее будет, если прожить этот день на малых оборотах.

Дева
Выходят сухими из воды там, где окружающие садятся в лужу. К советам и мнению Дев прислушиваются, их результативность вызывает одобрение. Настроение в гору.

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

Скорпион
Где шло в гору, там и сейчас не хуже. Одновременно с этим возможны проблемы, избавление от которых отвлечет от продвижения вперед. Скорпионы справятся, но легко не будет.

Стрелец
Останутся довольны, но могут жаловаться на усталость, которая накатит к вечеру. В целом день понравится за счет неожиданно хороших результатов.

Козерог
Без сюрпризов - как хороших, так и наоборот. День понравится легкостью в реализации повседневных дел и отсутствием задач, способных нервировать. В целом день обычный, нормальный.

Водолей
Энергичны или всего лишь суетливы - это зависит от результатов, а они завтра умеренные. Недостаточными их тоже назвать нельзя. Чего Водолеи ждали, то они получат.

Рыбы
Раньше конца недели мелких препятствий не появится, чем и следует воспользоваться в режиме "здесь и сейчас". Как минимум, ничего не стоит откладывать на потом.


Цитата Сообщение от АЕ Посмотреть сообщение
Советую не превращать тему в блог, который сильно отличается от первоначальной темы
Тема закрыта, благодарю за помощь и советы.
0
1712 / 579 / 76
Регистрация: 10.04.2009
Сообщений: 9,330
11.02.2025, 19:35
Цитата Сообщение от АЕ Посмотреть сообщение
Советую не превращать тему в блог, который сильно отличается от первоначальной темы
надо бы порекомендовать админу переименовать тему
я пас определить соль данной темы...
0
9 / 9 / 0
Регистрация: 08.04.2021
Сообщений: 297
11.02.2025, 19:40  [ТС]
Цитата Сообщение от Ципихович Эндрю Посмотреть сообщение
я пас определить соль данной темы...
Согласен, тут текста на десяток тем..
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
11.02.2025, 19:40
Помогаю со студенческими работами здесь

Отлов нажатия клавиш в свернутом состоянии
Здравствуйте. Мне необходимо, чтобы моя программа реагировала на нажатие клавиши F4 даже находясь в свернутом состоянии. Как это можно...

Как убрать Skype из панели задач в свернутом состоянии?
Как его убрать из панели задач, оставив только в трее. Может сборка есть или версия portable, или в настройках есть?

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

Ошибка The type or namespace name 'MsgBox' does not exist in the class or namespace 'MsgBox.MsgBox' (are you missing an assembly reference?)
Есть Class Library, написанная на VB.NET. Компилирую, вставляю assembly в VB.NET, все работает. Вставляю в проект на C#, не работает. Делаю...

Добавляю запись в базу данных и юзеру через msgbox хочу сказать об этом, но получаю еррор msgbox 'Permission denied'
Добавляю запись в базу данных и юзеру через msgbox хочу сказать об этом, но получаю еррор msgbox 'Permission denied' В чем грабли?...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
50
Ответ Создать тему
Новые блоги и статьи
Debian 13: Установка Lazarus QT5
ВитГо 09.05.2026
Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива.
Hrethgir 06.05.2026
На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта
Argus19 01.05.2026
Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++
pyirrlicht 29.04.2026
попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита
Maks 28.04.2026
Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание
Maks 24.04.2026
У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью
Maks 22.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru