ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нажать кнопку программно?
8 сообщений из 8, страница 1 из 1
Нажать кнопку программно?
    #35572032
Aptex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aptex
Гость
Hi All!

Началнык хочет сидя дома ночью перезагружать сервер.
Моя программка должна работать постоянно.
Для ночной перезагрузки ставим программу в Автозагрузку.
Но там после загрузки нуно нажать кнопку "Пуск"

Программно пытаюсь сделать это таким,примерно кодом:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
*/* main.prg
PARAMETERS pcAutoStart
...
oTlb = CREATEOBJECT("aotlb")
...
IF PARAMETERS() >  0 
	BINDEVENT(_SCREEN,"Activate",oTlb.aocmd1,"Click", 0 )
ENDIF
...
READ EVENTS
...

И как-то не идет.Может подход не правильный , или где ошибка?
Спасибо!
...
Рейтинг: 0 / 0
02.10.2008, 13:15
| Ответить | Цитировать | Написать  
Нажать кнопку программно?
    #35572054
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Дык напиши

Код: plaintext
1.
2.
if pcAutoStart = 'start'
 do MyPrg
endif
...
Рейтинг: 0 / 0
02.10.2008, 13:21
| Ответить | Цитировать | Написать  
Нажать кнопку программно?
    #35572063
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
Скорее всего, надо не кнопку нажать, а просто выполнить код, исполняемый по нажатию кнопки.
То бишь
Код: plaintext
oTlb.aocmd1.Click()
BindEvent прицепляет обработчик, но не запускает его.
...
Рейтинг: 0 / 0
02.10.2008, 13:24
| Ответить | Цитировать | Написать  
Нажать кнопку программно?
    #35572073
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Код: plaintext
1.
2.
IF PARAMETERS() >  0 
	oTlb.aocmd1.Click()
ENDIF
...
Рейтинг: 0 / 0
02.10.2008, 13:26
| Ответить | Цитировать | Написать  
Нажать кнопку программно?
    #35572832
Aptex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aptex
Гость
проходящий.Скорее всего, надо не кнопку нажать, а просто выполнить код, исполняемый по нажатию кнопки.
То бишь
Код: plaintext
oTlb.aocmd1.Click()
BindEvent прицепляет обработчик, но не запускает его.
Так вот где собака порылась.Век живи-век учись.
С BindEvent не догнал.
Но кажись,если связываю _SCREEN.Activate c Click то должно сработать при _Screen.Activate
Или нет?
Но большое спасибо,пойду указанным путем
...
Рейтинг: 0 / 0
02.10.2008, 16:15
| Ответить | Цитировать | Написать  
Нажать кнопку программно?
    #35572834
Aptex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aptex
Гость
Dima T
Код: plaintext
1.
2.
IF PARAMETERS() >  0 
	oTlb.aocmd1.Click()
ENDIF

Большое спасибо!
...
Рейтинг: 0 / 0
02.10.2008, 16:17
| Ответить | Цитировать | Написать  
Нажать кнопку программно?
    #35572920
Aptex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aptex
Гость
Aptex проходящий.Скорее всего, надо не кнопку нажать, а просто выполнить код, исполняемый по нажатию кнопки.
То бишь
Код: plaintext
oTlb.aocmd1.Click()
BindEvent прицепляет обработчик, но не запускает его.
Так вот где собака порылась.Век живи-век учись.
С BindEvent не догнал.
Но кажись,если связываю _SCREEN.Activate c Click то должно сработать при _Screen.Activate
Или нет?
Но большое спасибо,пойду указанным путем

По указанному пути пока никакой реакции??
Странно.
...
Рейтинг: 0 / 0
02.10.2008, 16:36
| Ответить | Цитировать | Написать  
Нажать кнопку программно?
    #35573160
Aptex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aptex
Гость
PaulWistДык напиши

Код: plaintext
1.
2.
if pcAutoStart = 'start'
 do MyPrg
endif


Правильное решение:
Код: plaintext
1.
2.
3.
IF VARTYPE(pcAutoStart) = "C"
	RAISEEVENT(oTlb.aocmd1,"Click")
ENDIF
PARAMETERS() в ехе почемуто возвращает 0,независимо от наличия параметров.
Всем спасибо!
...
Рейтинг: 0 / 0
02.10.2008, 18:07
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нажать кнопку программно?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35572032&tid=1587222]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 80ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 335ms
total:  515ms
созд. / загр.: 515ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]