Портирование из Делфи в ВБ.

[Павлуша]

есть у меня один исходник на Дельфи:

Код: Выделить всё

while (true)do
begin
WinExec ('Netsend "здесь некоторый ИП в локалке "Здесь какое-то сообщение')
SW_show);
sleep (100)
end;

(все события привязаны к одной кнопке)
Задумал я значит его перенести на ВБ.
Попросив помощи у Рамзеса, у меня появился вот такой код (ВБ)

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
Shell "Net Send 127.0.0.1", vbHide
End Sub

(код Рамзеса)
на форме только таймер и кнопка.
задумал я все это добро модифицировать и добавить туда пару текстбоксов (1 - для ИП, 2 - интервал посылания...)

цель этой проги засыпать какой-нить ИП в локалке месагами через функцию Виндовс - netsend.
Но код рамзеса не работает, код который у меня получился после доработки Рамзесова - тем более.

И вот вопрос:
подскажите как вызвать фунцию netsend через ВБ и помогите плз модифицировать прогу.
заранее спасибо.

[BV]

Код: Выделить всё

Option Explicit

Private Declare Function WinExec Lib "kernel32.dll" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Const SW_SHOW As Long = 5

Private Sub Form_Load()
    Do While True
        Call WinExec("То же, что и в Delphi", SW_SHOW)
        Call Sleep(100)
    Loop
End Sub

[Павлуша]

2 BV.

Код: Выделить всё

Option Explicit

Private Declare Function WinExec Lib "kernel32.dll" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Const SW_SHOW As Long = 5

Private Sub Form_Load()
    Do While True
        Call WinExec("netsend 127.0.0.1 messadge", SW_SHOW)
        Call Sleep(100)
    Loop
End Sub


после работы сего у меня завис ВБ и никаких Нетсендов не высветилось...
может что-то не так?

[BV]

Полагаю, что Net Send.

[Павлуша]

да, да, да...
спасибо.
вот так все работает, но засыпать себя мессагами не получилось -
"не удалось найти псевдоним сообщений в сети"
но окна ДОСа вылезали с такой переодичностью, что ВБ виснет на фиг...
ура, сетка в нашем УПК теперь уйдет в даун!! (наверное...)
еще раз спасибо

Но вопросы остались:
1 - когда экран заваливает Нет Сендами, то вместо слова "messadge"
высвечивается Net Send.
что делать в этом случае?

[Павлуша]

FleX_2004
а связаться с ним как?
батник у меня есть, но он только для меня и используется...
я просто добавил в прогу текстбокса код получился такой:

Код: Выделить всё

Option Explicit

Private Declare Function WinExec Lib "kernel32.dll" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Const SW_SHOW As Long = 5

Private Sub Form_Load()
    Do While True
        Call WinExec("netsend +Text.Text+ +Text2.text+", SW_SHOW) 'тут ИП и мессагу вводим в текстбоксе
        Call Sleep(+text3.text+) 'а тут интервал из текстбокса беру.
    Loop
End Sub


поправте если в коде ошибку допустил.

[alibek]

Блин, ну есть же NetMessageBufferSend.

[Павлуша]

alibek
а по подробней? у меня MSDN нет, а в английском я не шарю ваще, так что microsoft.com/msdn - не предлагать
а если серьезно, то что не так?
кодга код был вот таким:

Код: Выделить всё

Option Explicit

Private Declare Function WinExec Lib "kernel32.dll" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Const SW_SHOW As Long = 5

Private Sub Form_Load()
    Do While True
        Call WinExec("net send 127.0.0.1 messadge", SW_SHOW)
        Call Sleep(100)
    Loop
End Sub


то на экран выбрасыалось сообщение от ДОСа что нельзя приконнектиться к данному ИП (у меня нет локалки), а когда я в код добавил текстбоксы, то у меня выскакивают окна ДОСа с сообщением:
"net send
сиетаксис данной команды:
net send user |domian| messadge"
вот что-то в этом роде.

[alibek]

Если не знаешь английский, то учи.
А пока будешь учить, ходи сюда: http://msdn.microsoft.com/library/defau ... ersend.asp
И а API-Guide посмотри.

[Павлуша]

ни фига не понял, по вышесказанной причине.
но,alibek, ты мне только одно скажи - можно использовать
чистую команду NetMessadgeBufferSend вместо Net Send?
Или она требует каких то подключений?

[alibek]

В API-Guide есть готовый код, смотри там.

[Konst_One]

тебе alibek уже сказал на что равняться надо, а то вообще из строя выгоним

[Павлуша]

alibek
а где достать этот АПИ-гид?
первый раз о таком слышу

[Amed]

Теперь точно выгонят

Лови ссылку, пока никто не видел: http://www.allapi.net, там найдёшь.

[Павлуша]

а нет, уже гдето слышал...
2 Amed спасибо за ссылку