Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нажать кнопку программно? / 8 сообщений из 8, страница 1 из 1
02.10.2008, 13:15
    #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:21
    #35572054
PaulWist
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нажать кнопку программно?
Дык напиши

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

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

По указанному пути пока никакой реакции??
Странно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.10.2008, 18:07
    #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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нажать кнопку программно? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 505ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1587222]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 345ms
total:  505ms
x
x
Закрыть


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