Консольная утилита NET SEND / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Консольная утилита NET SEND

17 сообщений из 17, страница 1 из 1

Консольная утилита NET SEND

#37753815

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

Уважаемые гуру, здравствуйте!
Мне необходимо отправлять/получать сообщения от пользователей
при помощи NET SEND
При таком запуске:

Код: plsql

RUN net send * "Текст сообщения" > res.txt

мелькает окно, файл создается, а так:

Код: plsql

RUN /N2 net send * "Текст сообщения" > res.txt

окно свернуто, но и файл не создается!!! , " > res.txt" добавляется к сообщению :(
Подскажите, pls, как сделать так, чтобы и окна не было, и файл создавался.

PS. Sent и WinSent Messenger не подходят, только NET SEND

...

Рейтинг:

0 / 0

14.04.2012, 10:39

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37753922

Dag

Участник

Сообщения: 880

Рейтинг: 0 / 0

Отказаться от RUN
Возможно ShellExecute поможет.

...

Рейтинг:

0 / 0

14.04.2012, 14:25

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37753939

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

Dag,

Кроме кода завершения от ShellExecute больше ничего не дождешься,
а мне нужен файл с текстом

...

Рейтинг:

0 / 0

14.04.2012, 15:00

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37753962

tanglir

Участник

Сообщения: 30 379

Рейтинг: 0 / 0

Jonny540,

в порядке бреда - пишете "net send * "Текст сообщения" > res.txt" в батник, запускаете батник шеллэкзекьютом...

...

Рейтинг:

0 / 0

14.04.2012, 15:35

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37753999

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Если и отправка и получение выполняется из среды FoxPro, то зачем Вам вообще внешняя утилита? Делайте запись сообщений в DBF-таблицы общего доступа и периодически просматривайте ее содержимое из приложений FoxPro. Если там есть сообщение и оно адресовано текущему пользователю, то отображайте сообщение.

...

Рейтинг:

0 / 0

14.04.2012, 16:05

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37754070

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

ВладимирМ,

Мысль, конечно, интересная, я уже думал над этим
Для просмотра придется использовать таймер, мне этого очень
не хотелось бы, там их и так уже 3 штуки, к тому же надо доставлять
сообщения оперативно, а не через несколько минут (меньше интервал
поставить не могу)

...

Рейтинг:

0 / 0

14.04.2012, 17:23

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37754071

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

tanglir,

" > res.txt" добавляется к сообщению , как ни крутись...

...

Рейтинг:

0 / 0

14.04.2012, 17:25

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37754322

ВасильевСемен

Гость

Я не гуру, но помочь попробую. Я тоже давно отправлял сообщения пользователям ч/з run, но потом сис.админы эту службу у нас заблоктровали, и я сделал по другому отправку сообщений. Достоинства отправки сообщений ч-з run - простота. Как конкретно сделать, чтоб окно не выскакивало я тебе не скажу, но посоветую посмотреть на сайте forum.foxclub.ru, найди там по поиску, что тебе надо.

...

Рейтинг:

0 / 0

14.04.2012, 23:38

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37754526

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

RUN без /N вызывает виртуальную ДОС-машину (CMD.EXE) а она выполняет команду.
RUN с /N вызывает виндовую функцию CreateProcess()
"... > res.txt" это синтаксис который понимает только CMD.EXE, для CreateProcess() это просто параметры которые надо передать в вызываемое приложение.
Поэтому надо так запускать:

Код: sql

RUN /N2 CMD.EXE /C net send * "Текст сообщения" > res.txt

"... > res.txt" это указание перехватить вывод в консоль net.exe и сохранить в файл res.txt

Получить вывод можно еще так:

Код: sql

1.
2.
3.
4.

o=CreateObject("Wscript.Shell") 
x=o.Exec("net send * "Текст сообщения"") 
x.Terminate() 
? x.StdOut.ReadAll

...

Рейтинг:

0 / 0

15.04.2012, 14:48

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37754528

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

PS Пример с Wscript.Shell не проверял, взял тут .

...

Рейтинг:

0 / 0

15.04.2012, 14:53

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37754531

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

Браво, Dima T, спасибо!

...

Рейтинг:

0 / 0

15.04.2012, 14:59

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37754607

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Jonny540ВладимирМ,

Мысль, конечно, интересная, я уже думал над этим
Для просмотра придется использовать таймер, мне этого очень
не хотелось бы, там их и так уже 3 штуки, к тому же надо доставлять
сообщения оперативно, а не через несколько минут (меньше интервал
поставить не могу)
А что, кто-то бьет по рукам? Какая собственно разница сколько таймеров в приложении и с каким интервалом они работают? Это никак и ни на что не влияет. Интервал срабатывания таймера секунд в 30 вполне себе можно считать оперативным.

На всякий случай напомню, что FoxPro - это однопоточное приложение. События выстраиваются в очередь. Это значит, что пока не отработает событие одного таймер событие другого таймера не будет исполнено. Будет ждать своей очереди. Вмешаться в процесс выполнения "чужого" события - не сможет. Разумеется, если только это специально не предусмотрено программистом.

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

...

Рейтинг:

0 / 0

15.04.2012, 17:26

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37755131

КонецЦикла

Гость

есть ещё варианты....
можно написать свою функцию, что-то типа такого

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

PROCEDURE SendMessage
LPARAMETERS cText
LOCAL lcTo, lcFrom, lcMessage, lnRes
DECLARE INTEGER NetMessageBufferSend IN NETAPI32 STRING,STRING,STRING,STRING,INTEGER
lcTo = STRCONV("169.255.0.1", 5) + CHR(0)  &&IP-адрес получателя
lcMessage = STRCONV(cText, 5) + CHR(0)
lnRes = NetMessageBufferSend(.Null., m.lcTo, .NULL., m.lcMessage, LEN(m.lcMessage)*2)
IF m.lnRes # 0
	MESSAGEBOX("Ошибка № " + ALLTRIM(STR(m.lnRes)), 48, "Ошибка отправки сообщения")
ENDIF
ENDPROC

в этом случае мелькать окно не будет

*-или так
loWsShell=CREATEOBJECT("Wscript.Shell")
loWsShell.Run('net send 169.255.0.1 Вася, привет!')

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

...

Рейтинг:

0 / 0

16.04.2012, 10:38

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37755143

КонецЦикла

Гость

...

Рейтинг:

0 / 0

16.04.2012, 10:48

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37755250

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

КонецЦиклаесли служба сообщений на клиенте не запущена, то никакой оперативности не будет, т.к. клиент просто напросто не получит никакого сообщения...
Если служба не запущена, она запускается автоматически из приложения

КонецЦиклаloWsShell=CREATEOBJECT("Wscript.Shell")
loWsShell.Run('net send 169.255.0.1 Вася, привет!')
В этом случае не будет формироваться файл (см. топик)

КонецЦиклаPROCEDURE SendMessage

Код: plsql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

LPARAMETERS cText
LOCAL lcTo, lcFrom, lcMessage, lnRes
DECLARE INTEGER NetMessageBufferSend IN NETAPI32 STRING,STRING,STRING,STRING,INTEGER
lcTo = STRCONV("169.255.0.1", 5) + CHR(0)  &&IP-адрес получателя
lcMessage = STRCONV(cText, 5) + CHR(0)
lnRes = NetMessageBufferSend(.Null., m.lcTo, .NULL., m.lcMessage, LEN(m.lcMessage)*2)
IF m.lnRes # 0
	MESSAGEBOX("Ошибка № " + ALLTRIM(STR(m.lnRes)), 48, "Ошибка отправки сообщения")
ENDIF
ENDPROC

А надо ли "из пушки по воробьям", если можно обойтись одной командой?

КонецЦиклав варианте, предложенном Владимиром, есть свой плюс, т.к. нет зависимости от этой службы...
Я ведь не отвергаю этот вариант в принципе

...

Рейтинг:

0 / 0

16.04.2012, 12:03

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37755828

КонецЦикла

Гость

когда-то была у меня подобная задача с оповещениями... была она сначала сделана в лоб через WshShell Object... да, всего пара-тройка строк кода, но потом пользователей стало напрягать мелькание черного окна... тогда сделал через netapi.. да из пушки по воробьям, но все красиво...
одна проблема вот только была, надо было постоянно контролировать запущена служба приложений или нет... запускать её постоянно не вариант, т.к. хер знает запустилась она или нет, у кого-то не было вообще прав на запуск служб... запускать её от имени администратора, но надо знать его имя и пароль на каждом компьютере и хранить это все надо к тому же, т.к. компьютеры были не в домене.... так, сборная солянка была...
поэтому в итоге все-таки была сделана таблица, где для каждого пользователя были какие-то сообщения, которая периодически просматривалась...

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

...

Рейтинг:

0 / 0

16.04.2012, 17:05

| Ответить | Цитировать | Написать

Консольная утилита NET SEND

#37755862

Jonny540

Участник

Сообщения: 725

Рейтинг: 0 / 0

КонецЦиклано потом пользователей стало напрягать мелькание черного окна
При /N2 окно не мелькает (свернуто)

КонецЦиклау кого-то не было вообще прав на запуск служб... запускать её от имени администратора, но надо знать его имя и пароль на каждом компьютере и хранить это все надо к тому же, т.к. компьютеры были не в домене
В данном конкретном случае все путём

КонецЦиклав итоге все-таки была сделана таблица, где для каждого пользователя были какие-то сообщения, которая периодически просматривалась...
Я же говорил, что не отвергаю этот вариант, но, я думаю, не стоит использовать всегда какое-то универсальное решение...
У нас должно быть как у хороших врачей - к каждому "пациенту" свой подход

...

Рейтинг:

0 / 0

16.04.2012, 17:22

| Ответить | Цитировать | Написать

17 сообщений из 17, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Консольная утилита NET SEND

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=37755828&tid=1583725]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	42ms
get topic data:	12ms
get forum data:	3ms
get page messages:	51ms
get tp. blocked users:	1ms
others:	267ms

total:	408ms