Calling a dos command

[LostProgrammer]

Is it possible to call a dos command in vb .net?

 

Thanks

 

LP

[Volte]

Which command? There's probably a Windows equivilant.

[LostProgrammer]

I want to setup a intranet messenging program. Using the command Net send #machinename# #message#

 

Thanks

 

LP

[PlausiblyDamp]

Process.Start should do the trick.

look for it in MSDN or search the archives, plenty examples

[divil]

net send is not a DOS command.

[Dark Kai]

I got this from MSDN. Hope it helps

 

Dim p As New System.Diagnostics.Process()

p.Start("C:\WINNT\system32\net.exe", "send <IPADDRESS> <Message>")

[Runtime_error]

I got this from MSDN. Hope it helps

 

Dim p As New System.Diagnostics.Process()

p.Start("C:\WINNT\system32\net.exe", "send <IPADDRESS> <Message>")

 

So will that work on Windows NT from a remote webserver or will it only work locally. So what i mean is that if this a user goes to a page and then this code is executed then that will only work on the webserver rite?

[aewarnick]

As long as the web server has the dot net framework installed, I suppose.

[Volte]

Here's a basic class to send using the API:

Imports System.Runtime.InteropServices

Public Class NetSend
   'Note the use of the Unicode keyword:
   Declare Unicode Function NetMessageBufferSend Lib "NETAPI32.dll" ( _
       ByVal servername As String, _
       ByVal msgname As String, _
       ByVal fromname As String, _
       ByVal buf As String, _
       ByVal buflen As Int32) As Int32

   Public Shared Sub Send(ByVal destination As String, ByVal message As String)
       NetMessageBufferSend(Nothing, _
           destination, _
           Nothing, _
           message, _
           message.Length * 2) 'times 2 because every one character = 2 bytes in unicode
   End Sub
End Class

Just stick that in a class file and call it like

NetSend.Send("127.0.0.1", "this is a message")

[decrypt]

Is there anyway to get the

Dim p As New System.Diagnostics.Process()
p.Start("C:\WINNT\system32\net.exe", "send <IPADDRESS> <Message>")

to not close right away?

 

For example you push a key and it closes?

Edited January 3, 2004 by decrypt

[Ontani]

y won't you just use the shell command?

 

just declare 2 variables 1 for name/ip

and 1 for message

 

button1_click...

Dim adress As String = textbox1.text
Dim text As String = textbox2.text

shell("net send " + adress + " " + text)

 

normally it works.

 

Greetz :)