Private Declare Function NetMessageBufferSend Lib _
"NETAPI32.DLL" (yServer As Any, yToName As Byte, _
yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
FromUser As String, BodyMessage As String) As Boolean
Dim RcptTo() As Byte
Dim From() As Byte
Dim Body() As Byte
RcptTo = RcptToUser & vbNullChar
From = FromUser & vbNullChar
Body = BodyMessage & vbNullChar
If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
Body(0), UBound(Body)) = NERR_Success Then
SendMessage = True
End If
End Function
Private Sub Form_Load()
Dim RetVal As Boolean
RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub
Vb Net Send
ludi, pomagite plz
pitaus otlovit prihodyawie 4erez net send mesagi, no ne polu4aetsya, kto znaet kak takoe sotorit' v basike?
tnx
pitaus otlovit prihodyawie 4erez net send mesagi, no ne polu4aetsya, kto znaet kak takoe sotorit' v basike?
tnx
Цитата:
Originally posted by Psy_After
ludi, pomagite plz
pitaus otlovit prihodyawie 4erez net send mesagi, no ne polu4aetsya, kto znaet kak takoe sotorit' v basike?
tnx
ludi, pomagite plz
pitaus otlovit prihodyawie 4erez net send mesagi, no ne polu4aetsya, kto znaet kak takoe sotorit' v basike?
tnx
Mojno potochnee. Vopros neponjzten. Opishite, plz, popodrobnee. Vi pitaetes otlovit sobitije, ili chto-to svjazano s prerivanijami?
try search at http://vbcode.com, search for NET SEND.
Цитата:
Originally posted by SergeySV
Код:
Private Declare Function NetMessageBufferSend Lib _
"NETAPI32.DLL" (yServer As Any, yToName As Byte, _
yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
FromUser As String, BodyMessage As String) As Boolean
Dim RcptTo() As Byte
Dim From() As Byte
Dim Body() As Byte
RcptTo = RcptToUser & vbNullChar
From = FromUser & vbNullChar
Body = BodyMessage & vbNullChar
If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
Body(0), UBound(Body)) = NERR_Success Then
SendMessage = True
End If
End Function
Private Sub Form_Load()
Dim RetVal As Boolean
RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub
"NETAPI32.DLL" (yServer As Any, yToName As Byte, _
yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
FromUser As String, BodyMessage As String) As Boolean
Dim RcptTo() As Byte
Dim From() As Byte
Dim Body() As Byte
RcptTo = RcptToUser & vbNullChar
From = FromUser & vbNullChar
Body = BodyMessage & vbNullChar
If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
Body(0), UBound(Body)) = NERR_Success Then
SendMessage = True
End If
End Function
Private Sub Form_Load()
Dim RetVal As Boolean
RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub
Народ, напишите, что требовалось-то, а то я транслит не разобрал:P :P :P :D
Да есть в виндах такая команда: net send, которая позволяет особо не заморачиваясь послать на другой комп в локалке текстовое сообщение. В win98 процесс отвечающий за net send стартовал автоматом. (У нас в локалке, дома, даже один чувак написал маленькую прогу для отправки сообщений через Net Send, в ней же запускаешь/останавливаешь службу, а также мышкой выибраешь имя компа из списка) - очень удобно, когда чувак вручную не остановил эту слуюбу из под win98, и сдидит например в КС и не отвечает на сообщения в IChate, посылаешь ему через Net Send сообщение и его сразу выкидывает из КС на рабочий стол где появлется msgbox.... прикольно, особенно если учесть, что при таком вылете CS 1.5 возвращался обратно в игру без звука и курсором мыши, дополнительно к прицелу :) так что приходилось заново запускать игру ;)
В winXp это процесс тоже автоматом стартовал, я уже не помню как он там зовется, что-то типа - Служба получения сообщений что-ли. Но в последнем Service Pack мелкософт убрал автоматический страт это службы, хотя это можно и самому конечно сделать, вручную
В winXp это процесс тоже автоматом стартовал, я уже не помню как он там зовется, что-то типа - Служба получения сообщений что-ли. Но в последнем Service Pack мелкософт убрал автоматический страт это службы, хотя это можно и самому конечно сделать, вручную
Цитата:
Originally posted by SergeySV
Да есть в виндах такая команда: net send, которая позволяет особо не заморачиваясь послать на другой комп в локалке текстовое сообщение. В win98 процесс отвечающий за net send стартовал автоматом. (У нас в локалке, дома, даже один чувак написал маленькую прогу для отправки сообщений через Net Send, в ней же запускаешь/останавливаешь службу, а также мышкой выибраешь имя компа из списка) - очень удобно, когда чувак вручную не остановил эту слуюбу из под win98, и сдидит например в КС и не отвечает на сообщения в IChate, посылаешь ему через Net Send сообщение и его сразу выкидывает из КС на рабочий стол где появлется msgbox.... прикольно, особенно если учесть, что при таком вылете CS 1.5 возвращался обратно в игру без звука и курсором мыши, дополнительно к прицелу :) так что приходилось заново запускать игру ;)
В winXp это процесс тоже автоматом стартовал, я уже не помню как он там зовется, что-то типа - Служба получения сообщений что-ли. Но в последнем Service Pack мелкософт убрал автоматический страт это службы, хотя это можно и самому конечно сделать, вручную
Да есть в виндах такая команда: net send, которая позволяет особо не заморачиваясь послать на другой комп в локалке текстовое сообщение. В win98 процесс отвечающий за net send стартовал автоматом. (У нас в локалке, дома, даже один чувак написал маленькую прогу для отправки сообщений через Net Send, в ней же запускаешь/останавливаешь службу, а также мышкой выибраешь имя компа из списка) - очень удобно, когда чувак вручную не остановил эту слуюбу из под win98, и сдидит например в КС и не отвечает на сообщения в IChate, посылаешь ему через Net Send сообщение и его сразу выкидывает из КС на рабочий стол где появлется msgbox.... прикольно, особенно если учесть, что при таком вылете CS 1.5 возвращался обратно в игру без звука и курсором мыши, дополнительно к прицелу :) так что приходилось заново запускать игру ;)
В winXp это процесс тоже автоматом стартовал, я уже не помню как он там зовется, что-то типа - Служба получения сообщений что-ли. Но в последнем Service Pack мелкософт убрал автоматический страт это службы, хотя это можно и самому конечно сделать, вручную
Всё, спасибо! Теперь до меня дошло!
Цитата:
Originally posted by SergeySV
Код:
SergeySV
skaji, a ka k mojno lovit' soobweniya kotorii prihodyat na tvoy komp, i ne davat im poyavlyatsya na desktope?
spasib
Хмм, задачка не тривиальная, что тут вообще можно по идее сделать:
1. Остановить процесс - тогда не будешь ничего получать. Запускаешь его для отправки сообщения и тут же закрываешь например. - самый простой и надежны вариант.
2. Попробовать ловить окно и закрывать его. Достаточно трудно - прога должна постоянно висет в памяти и например каждые полсекунды проверять наличие этого окна (дай бог, чтобы оно было еще какое-нибудь уникально, а то перлепутаешь и чужое закроешь :) ) и закрывать его. При это окно все равно появится, но тут же исчезнет.
3. попытаться настроить файрвол на перехват сообщений по этому протоколу. ИМХО трудно будет сделать, помойму посылка собщений входит в сетевой протокол NETBIOS (так он что-ли точно называется) и если отрубить его совсем, то твой просто исчезнет из сетевого окружения. Т.е. ни ты уже не сможешь по локалке ходить (по общим папкам в смысле) ни к тебе не смогут, правда по другим протоколам, пжл, FTP, HTTP, почта, chat работать будут, также как CS и т.д. :)
4. Можно еще попробовать через subclassing перегрузить функ. обработчик сообщений, но сильно сомневаюсь, что у этой службы вообще есть окно (даже скрытое).
Может тут еще что-нибудь посоветуют...
1. Остановить процесс - тогда не будешь ничего получать. Запускаешь его для отправки сообщения и тут же закрываешь например. - самый простой и надежны вариант.
2. Попробовать ловить окно и закрывать его. Достаточно трудно - прога должна постоянно висет в памяти и например каждые полсекунды проверять наличие этого окна (дай бог, чтобы оно было еще какое-нибудь уникально, а то перлепутаешь и чужое закроешь :) ) и закрывать его. При это окно все равно появится, но тут же исчезнет.
3. попытаться настроить файрвол на перехват сообщений по этому протоколу. ИМХО трудно будет сделать, помойму посылка собщений входит в сетевой протокол NETBIOS (так он что-ли точно называется) и если отрубить его совсем, то твой просто исчезнет из сетевого окружения. Т.е. ни ты уже не сможешь по локалке ходить (по общим папкам в смысле) ни к тебе не смогут, правда по другим протоколам, пжл, FTP, HTTP, почта, chat работать будут, также как CS и т.д. :)
4. Можно еще попробовать через subclassing перегрузить функ. обработчик сообщений, но сильно сомневаюсь, что у этой службы вообще есть окно (даже скрытое).
Может тут еще что-нибудь посоветуют...
Цитата:
Originally posted by SergeySV
Хмм, задачка не тривиальная, что тут вообще можно по идее сделать:
1. Остановить процесс - тогда не будешь ничего получать. Запускаешь его для отправки сообщения и тут же закрываешь например. - самый простой и надежны вариант.
2. Попробовать ловить окно и закрывать его. Достаточно трудно - прога должна постоянно висет в памяти и например каждые полсекунды проверять наличие этого окна (дай бог, чтобы оно было еще какое-нибудь уникально, а то перлепутаешь и чужое закроешь :) ) и закрывать его. При это окно все равно появится, но тут же исчезнет.
3. попытаться настроить файрвол на перехват сообщений по этому протоколу. ИМХО трудно будет сделать, помойму посылка собщений входит в сетевой протокол NETBIOS (так он что-ли точно называется) и если отрубить его совсем, то твой просто исчезнет из сетевого окружения. Т.е. ни ты уже не сможешь по локалке ходить (по общим папкам в смысле) ни к тебе не смогут, правда по другим протоколам, пжл, FTP, HTTP, почта, chat работать будут, также как CS и т.д. :)
4. Можно еще попробовать через subclassing перегрузить функ. обработчик сообщений, но сильно сомневаюсь, что у этой службы вообще есть окно (даже скрытое).
Может тут еще что-нибудь посоветуют...
Хмм, задачка не тривиальная, что тут вообще можно по идее сделать:
1. Остановить процесс - тогда не будешь ничего получать. Запускаешь его для отправки сообщения и тут же закрываешь например. - самый простой и надежны вариант.
2. Попробовать ловить окно и закрывать его. Достаточно трудно - прога должна постоянно висет в памяти и например каждые полсекунды проверять наличие этого окна (дай бог, чтобы оно было еще какое-нибудь уникально, а то перлепутаешь и чужое закроешь :) ) и закрывать его. При это окно все равно появится, но тут же исчезнет.
3. попытаться настроить файрвол на перехват сообщений по этому протоколу. ИМХО трудно будет сделать, помойму посылка собщений входит в сетевой протокол NETBIOS (так он что-ли точно называется) и если отрубить его совсем, то твой просто исчезнет из сетевого окружения. Т.е. ни ты уже не сможешь по локалке ходить (по общим папкам в смысле) ни к тебе не смогут, правда по другим протоколам, пжл, FTP, HTTP, почта, chat работать будут, также как CS и т.д. :)
4. Можно еще попробовать через subclassing перегрузить функ. обработчик сообщений, но сильно сомневаюсь, что у этой службы вообще есть окно (даже скрытое).
Может тут еще что-нибудь посоветуют...
s otsilkoy razobralsya
s priemaom poka ewe ne o4en
mne predlojili oklu4it' setvice MESNGERa kotoriy otve4aet za peresilku i priem, no togda nado samomu otslejivat' mailbox v winde, i vipolnyat' drugie ego funktzii
4to dumaew na s4et etogo?
esli budut ewe predlojenia, s radostyu tebya visluwau. tnx po lubomu :)
Я попробую проконсультироваться в ближайшие дни по net send с товарищем, который написал прогу.
Токо не очень понятно, чтоже точно тебе надо, ты хочешь отправлять сообщения и получать и при этом иметь возможность при желании временно останавливать службы, что не принимать сообщения.
Да, кстати, а какие у тебя проблмы с приемом? там же от тебя ничего не зависит, отправил сообщение и все, msgbox сам вылезет и покажет.... ты что хочешь чтобы твоя прога могла сама читать эти сообщения?
Токо не очень понятно, чтоже точно тебе надо, ты хочешь отправлять сообщения и получать и при этом иметь возможность при желании временно останавливать службы, что не принимать сообщения.
Да, кстати, а какие у тебя проблмы с приемом? там же от тебя ничего не зависит, отправил сообщение и все, msgbox сам вылезет и покажет.... ты что хочешь чтобы твоя прога могла сама читать эти сообщения?
Цитата:
Originally posted by SergeySV
Я попробую проконсультироваться в ближайшие дни по net send с товарищем, который написал прогу.
Токо не очень понятно, чтоже точно тебе надо, ты хочешь отправлять сообщения и получать и при этом иметь возможность при желании временно останавливать службы, что не принимать сообщения.
Да, кстати, а какие у тебя проблмы с приемом? там же от тебя ничего не зависит, отправил сообщение и все, msgbox сам вылезет и покажет.... ты что хочешь чтобы твоя прога могла сама читать эти сообщения?
Я попробую проконсультироваться в ближайшие дни по net send с товарищем, который написал прогу.
Токо не очень понятно, чтоже точно тебе надо, ты хочешь отправлять сообщения и получать и при этом иметь возможность при желании временно останавливать службы, что не принимать сообщения.
Да, кстати, а какие у тебя проблмы с приемом? там же от тебя ничего не зависит, отправил сообщение и все, msgbox сам вылезет и покажет.... ты что хочешь чтобы твоя прога могла сама читать эти сообщения?
v printzipe ya hotel napisat lan chat.
posilat mesagi ispolzuya net send, i tak je prinimat' ih, no 4to bi ne winda pokazivala ih, a proga.
poslat smog, ispolzuya daje tot je shell "net send ...", a prinimat moey progoy ne mogu. voobwe ya dumal 4to est api kakoynibud, tipa togo 4to otsilaet mesagi, no ni4ego ne nawel:(
Для создания Chat'а ИМХО ты слишком тернистый путь выбрал, он токо кажется вначале простым, потом понимаешь что куча ограничений...
Насколько я в курсе все пишут chat'ы на своем протоколе, это проще и больше возможностей. Используется компонент Winsock который позволяет тебе передвать сообщения по TCP/IP протоколу. Примеров по использованию winsock в инете достаточно много, а возможностей у него много - ты сам господин всего трафика, выбираешь порты по которым будет работать твой чат, придумываешь систему команд, которые станут твоим протоколом - глядишь потом лицензии на него продавать будешь.
Насколько я в курсе все пишут chat'ы на своем протоколе, это проще и больше возможностей. Используется компонент Winsock который позволяет тебе передвать сообщения по TCP/IP протоколу. Примеров по использованию winsock в инете достаточно много, а возможностей у него много - ты сам господин всего трафика, выбираешь порты по которым будет работать твой чат, придумываешь систему команд, которые станут твоим протоколом - глядишь потом лицензии на него продавать будешь.
Насколько я понимаю NetMessageBufferSend() работает только с локальными IP. А можно как-нить отправлять месаги через ИНет, на удаленный комп?
Цитата:
Originally posted by SergeySV
..............
..............
eto ya ponimau,
prosto zahotelos' bolwe ne videt na ekrane PopUp mesagi , tak kak ya nahojus' v LANe, a 4tobi oni dohodili do menya i ih sobirala programma, i pri vozmojnosti prosmotret'