Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / net use, net send / 22 сообщений из 22, страница 1 из 1
27.12.2003, 09:55
    #32365091
wilhel
wilhel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
Народ, имеем Win2000 Prof в домене.
1) Как узнать какие принтеры подключены и к каким lpt (net use)?
2) Как подключить определенный принтер к какому-нибудь lpt?
3) Как отключить?
(только без всяких диалогов wind'ы, а то пользователи подохнут от возбуждения)
4) Как послать net send?

Send me all about local network
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.01.2004, 23:40
    #32367778
$hadow
$hadow
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
а что мешает shellexecute???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.01.2004, 12:03
    #32367839
wilhel
wilhel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
$hadow Вы, наверно, меня не поняли. Мне не нужно посылать на печать, а нужно следить за печатью.
Кстати я нашел EnumJobs(), а вы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 03:31
    #32368200
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
посмотри функцию EnumPrinters и сопутствующие ей. Я решал все вопросы по управлению печатью при помощи их.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 07:34
    #32368222
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
да, нет сенд проще всего послать через ShellExecute или CreateProcess...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 08:46
    #32368259
Cauchy
Cauchy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
StarWind, напиши пример для net send-a, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 09:07
    #32368263
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
а что его писать?
net send localhost "test"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 09:22
    #32368273
Cauchy
Cauchy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
Я имел ввиду пример с ShellExecute.
Попробовал так:
Код: plaintext
1.
2.
3.
procedure TForm1.Button1Click(Sender: TObject);
begin
       ShellExecute(handle,'open','net send gmc jhjhj','',nil,SW_SHOW);
end;

gmc - это имя одного из компов
Не работает :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 09:28
    #32368281
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
а на том компе надеюсь ядро NT? не 98?
если так, то идет ли нет-сенд из командной строки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 09:34
    #32368285
Cauchy
Cauchy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
Да, 2000 Server. Из командной строки все идет, поскольку я часто пользовался (пока аську не поставил).
Меня интересует правильно ли я на писал все параметры в ShellExecute.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 09:52
    #32368294
Cauchy
Cauchy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
Пробовал через cmd:
Код: plaintext
ShellExecute(h,'open','cmd.exe ','net send gmc jhjhj',nil,SW_SHOW);

Вызывается окошко cmd, а сообщение не отсылается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 09:55
    #32368297
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
вроде как правильно (правда я в основном не ей пользуюсь)
можно посмотреть на ошибку, попробуй после ее вызова сказать RaiseLastWin32Error;
и еще, попробуй поменять местами третий и четвертый параметр.... весьма вероятно что поможет...
а то что пробуешь через cmd , то это не правильно. Командный процессор не умеет этого делать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 09:55
    #32368298
Гавриленко Сергей Алексеевич
Гавриленко Сергей Алексеевич
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
А если так
Код: plaintext
ShellExecute( 0 , 'open', pChar('net send * "Hello, word!"'), nil, nil,  SW_SHOWNORMAL );
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 10:13
    #32368309
Cauchy
Cauchy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
to StarWind

авторпопробуй поменять местами третий и четвертый параметр
Не помогает.

авторпробуешь через cmd, то это не правильно. Командный процессор не умеет этого делать
Всегда пользовался cmd для отправки сообщения, поскольку если набирать в командной строке над кнопкой "Пуск", то хранится история всей моей болтовни. Просто набирал "cmd" в командной строке, вызывалось консольное окошко, в котором набирал "net send gmc kjkhj". Хотя может ты имеешь ввиду, что нельзя передать команду "net send" через параметр ShellExecute...

А можно привести работающий пример (не важно через чего) ?


to Гавриленко Сергей Алексеевич

Шутник... Всему домену сообщение слать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 10:23
    #32368317
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
в общем cmd не надо
попробуй через CreateProcess

Код: plaintext
1.
GetStartupInfo(SI);
 CreateProcess(nil,'net send localhost test',nil,nil,false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,SI,PI);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 10:30
    #32368327
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
ShellExecute(h,'open','cmd.exe ','net send gmc jhjhj',nil,SW_SHOW);

Было бы весьма странно, если бы это сработало :-)

Делай так:
Код: plaintext
ShellExecute(Application.Handle,nil,'net.exe','localhost hello world!',nil,SW_HIDE);




eNose
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 10:54
    #32368348
Cauchy
Cauchy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
to StarWind

Спасибо, работает.
А потом ничего освобождать или там еще чего делать не надо?


to eNose

Пишет : A call to an OS function failed.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 11:02
    #32368359
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
Ну ошибся я, естественно:

ShellExecute(Application.Handle,nil,'net.exe',' send localhost hello world!',nil,SW_HIDE);




eNose
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 11:14
    #32368368
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
нет не нужно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.01.2004, 11:38
    #32368382
Cauchy
Cauchy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
to eNose

Сообщение посылается.
Вставил после этой строчки RaiseLastWin32Error пишет туже самую ошибку. Так и должно быть? Без RaiseLastWin32Error ошибку не выдает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 03:05
    #32369018
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
Cauchy
эээ если что RaiseLastWin32Error нужно только в случае если произошла ошибка при исполнении WinAPI и тебе хочется ее посмотреть. Так что тут ее не нужно, либо (что будет правильнее) поставить вызов этой процы под условие, в случае ошибки в WinAPI
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.01.2004, 08:59
    #32369074
Cauchy
Cauchy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
net use, net send
А понял. Значит RaiseLastWin32Error нужна только в случае ошибки и выдает последнюю произошедшую ошибку. Т. е. даже если ошибки не произошло, то все равно будет выдавать сообщение о последней произошедшей ошибке. (неспроста она называется LastError )
Я то думал, что если ошибки не было, то и сообщения никакого не будет.
Спасибо за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / net use, net send / 22 сообщений из 22, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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