Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Апрель 2020   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

solowey
Статус: Специалист
Рейтинг: 515
∙ повысить рейтинг » 		Megaloman
Статус: Советник
Рейтинг: 226
∙ повысить рейтинг » 		Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 4
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1143
Дата выхода:08.04.2020, 11:16
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:15 / 14
Вопросов / ответов:3 / 6

Консультация # 95807: Добрый день! подскажите, пожалуйста, как сделать ячейки ("F3"), ("F4") изменяющимися в цикле. чтобы не было перечисления: Range("F3").Select ActiveCell.FormulaR1C1 = "=PRODUCT(RC[-4],RC[-2])" Range("F4").Select ActiveCell.FormulaR1C1 = "=PRODUCT(RC[-4],RC[-2])...
Консультация # 73809: Мне нужно послать сообщение от клавиатуры в DOS-программу.Как это сделать?...
Консультация # 108273: Добрый день уважаемые эксперты! У меня 2 вопроса. 1. Как в VB6.0 произвести копирование файла из него самого ? Например имеется файл с именем temp.exe при его запуске надо что бы он скопировал себя нв C:. Это можно сделать с помощью Set aa = CreateObject("Scripting.FileSystemObject") aa.CopyFile "C: emp.exe", "C: e...

Консультация # 95807:

Добрый день!
подскажите, пожалуйста, как сделать ячейки ("F3"), ("F4") изменяющимися в цикле.
чтобы не было перечисления:

Range("F3").Select
ActiveCell.FormulaR1C1 = "=PRODUCT(RC[-4],RC[-2])"
Range("F4").Select
ActiveCell.FormulaR1C1 = "=PRODUCT(RC[-4],RC[-2])"

заранее благодарна!

Дата отправки: 20.07.2007, 18:01
Вопрос задал: шубейко Маргарита
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Nance:

Здравствуйте, шубейко Маргарита!
Для обозначения нужной ячейки можно использовать как запись Range("F3").Select, так и запись Cells(6,3).Select, для того чтобы использовать цикл, замените во второй записи цифры на переменные, например I и J, и в цикле будут поосередно перебераться нужные вам ячейки, вашу запись можно записать так:
Dim i As Integer
For i = 3 To 4
Cells(i, 6).Select
ActiveCell.FormulaR1C1 = "=PRODUCT(RC[-4],RC[-2])"
Next i
End Sub


Консультировал: Nance
Дата отправки: 20.07.2007, 18:37
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Черников Игорь Владимирович:

Здравствуйте, шубейко Маргарита!
*** Ответ перенесен в мини-форум вопроса ***
[ Климова М. ]
= = =
Ответ состоял из одних вопросов. Читайте правила портала.

Консультировал: Черников Игорь Владимирович
Дата отправки: 21.07.2007, 17:01
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Magister:

Здравствуйте, Шубейко Маргарита!

Ну примерно как в приложении:

Приложение:

Консультировал: Magister
Дата отправки: 24.07.2007, 21:46
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 73809:

Мне нужно послать сообщение от клавиатуры в DOS-программу.Как это сделать?

Дата отправки: 02.02.2007, 19:24
Вопрос задал: Мамедов Ильяс/ILLIOS
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Alec Perle:

Здравствуйте, Мамедов Ильяс/ILLIOS!
Если быть точным, то сообщение ДОС-программа и не обработает.
Насколько я понял, нужно имитировать нажатие клавиш в запущенной ДОС-программе.
Для этого нужно использовать API функцию keybd_event, которая имитирует нажатие клавиш.
Ниже пример из книги Д.Эпплмана "Win32 API и Visual Basic"
И для того, чтобы ДОС-программа "поняла", что "нажатые" клавиши нужно обработать именно ей, ее окно нужно октивизировать: AppActivate title[, wait]

Приложение:

Консультировал: Alec Perle
Дата отправки: 02.02.2007, 19:54
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 108273:

Добрый день уважаемые эксперты! У меня 2 вопроса.
1. Как в VB6.0 произвести копирование файла из него самого ? Например имеется файл с именем temp.exe при его запуске надо что бы он скопировал себя нв C:. Это можно сделать с помощью Set aa = CreateObject("Scripting.FileSystemObject")
aa.CopyFile "C: emp.exe", "C: emp1.exe" но это возможно при условии что исходный файл будет иметь имя temp.exe и не получиться при другом имени. Можно ли как нибудь сделать возможность копирования этого файла из него самого невзирая на его имя ????

2. Как в VB6.0 можно осуществить запись программы в реестр в автозапуск??? у меня получалось такое сделать только следующим образом:
Set r = CreateObject("Wscript.Shell")
r.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun1.exe", "C:1.exe" но каждый раз при срабатывании сценария антивирус начинает реагировать именно на эти строчки принимая их как код вируса. Эт что же получается , что не возможно реализовать запись в рестр из-за того что каждый раз каждый раз антивирус будет блокировать это выполнение ??? ((( Подскажите как в других прогах реализуется запись в реестр!!!!

Дата отправки: 06.11.2007, 16:01
Вопрос задал: Trist13
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Дмитрий Т.:

Здравствуйте, Trist13!
Насчет первого: посмотрите встроенный обязательный объект app, очень интересная штука smile . У него есть свойство Exename, как раз хранящее то, что вам нужно.
Насчет второго: не буду говорить стопроцентно, но к примеру у меня файрвол при каждой установке ругается - и мне это даже нравиться, хоть я и не мазахист... Появляется ощущение контроля над машиной, пускай даже ложное. Не уверен, что есть алгоритм, гарантирующий что антивирус не будет ругаться. НО! попробуйте поискать какую-нибудь Api функцию, мне кажеться что подобное должно быть. Хотя антивирус все равно будет проверять.... :(

Консультировал: Дмитрий Т.
Дата отправки: 06.11.2007, 18:39
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует PsySex (Профессионал):

Здравствуйте, Trist13!
1.
Без FSO.
FileCopy App.Path + "\" + App.EXEName + ".exe", "c:\mуfile.exe"
С вашим примером
aa = CreateObject("Scripting.FileSystemObject")
aa.CopyFile App.Path + "\" + App.EXEName + ".exe", "C:\temp1.exe"
2.
Вы все правильно делаете. Антивирус мониторит ключ автозапуска, ведь вредоносные программы зачастую записывают себя имеено в ключ Run. Такую опцию можно отключить в антивирусе, если вы пишете для себя. Если же для запуска на других машинах, то тут как повезет;-) Либо ищите другие пути запуска вашей программы.

Консультировал: PsySex (Профессионал)
Дата отправки: 08.11.2007, 08:29
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное