Instructables
Picture of vbs Net Send Messenger
Here is the instructible on how to make a Net Send Messenger using Visual Basic Script (vbs).
I used vbs instead of batch because i don't like to use batch. Batch is too simple.
Just to let you know, this is my first instructible. I hope you like it!

Comment if you want!
 
Remove these adsRemove these ads by Signing Up

Step 1: Step 1... Writing the script

Picture of Step 1... Writing the script
Open NotePad and copy and paste this code into Notepad.

Dim x
Dim y

set oShell = createobject("wscript.shell")

x = InputBox("Enter User or IP","Net Send Messenger.. script by Cavingboy92")

y = InputBox("Enter Messege","Net Send Messenger.. script by Cavingboy92")

oshell.run "net send "& (x) &" "& (y) &""

Step 2: Step 2... interpretation of script

Dim x = declaring variables
Dim y = declaring variables

set oShell = createobject("wscript.shell") = calls and makes the object

x = InputBox("Enter User or IP","Net Send Messenger.. script by Cavingboy92") = asks you for username or IP.

y = InputBox("Enter Messege","Net Send Messenger.. script by Cavingboy92") = Enter messege

oshell.run "net send "& (x) &" "& (y) &"" = starts net send and inputs the username/ IP and messege into the program. Then it sends it.

Step 3: Step 3...Saving the script and testing Messenger

Picture of Step 3...Saving the script and testing Messenger
vbs messenger pic 3.bmp
vbs messenger pic 4.bmp
Once you have the script copied and pasted into NotePad, you have to save it.

Save the scripting as Messenger.vbs

*Once you have done that test it out.

If you have any problems, suggestions,or questions, send me a message.
Enjoy!
justin6661 year ago
where i can download it ?
jazujosie2 years ago
it work perfectly bro, but is it possible to add net view command along with net send to see users in network.
17hmr2434 years ago
just funny way to shut pc down

so write u own funny mesg inbetween " "
so it could be

onclick=msgbox ("your hard drive has failed please format",2,"ph home to late shutting down")

now u can change to numer from 1 to 20 to get dif boxes
copy past into notpad save as any thing u whant but must end in .vbs

onclick=msgbox ("your hard drive has failed please format",2,"com%dot disk format fat32")
onclick=msgbox ("your hard drive is running to fast",13,"com%dot disk format fat32 restart")
onclick=msgbox ("failed please format",14,"com%dot disk format fat32 restart")
onclick=msgbox ("save and exit now",15,"com%dot disk format fat32 restart")
onclick=msgbox ("sending passwords",16,"com%dot disk format fat32 shut down")
onclick=msgbox ("sending bannking details",17,"com%dot disk format fat32 restart")
onclick=msgbox ("sending b.s.b details",18,"com%dot disk format fat32 formating hard drive")
onclick=msgbox ("thank you for your time and $",19,"you have just been hacked")
Set shell = WScript.CreateObject("WScript.Shell")
shell.Run "%windir%\system32\shutdown.exe -s"
Goalie14 years ago
When I send it, it does not go anywhere, the Black window appears briefly, but then disappears. Help Me!!
sharlston5 years ago
i sent a message on the sam ecomputer but after i sent the message cmd popped up for a second then no one ever recieved the message how come? whats wrong?
cavingboy92 (author)  sharlston4 years ago
You probably don't have the messenger service enabled on both computers. to enable it go to... RUN..Type Services.msc.. then ..OK. Then scroll down to messenger, click properties, and then start the service.
how do you do this is Windows 7 because i looked and i cant find it...
thanks
UBERBANKAI4 years ago
iRule is right
GeekBeam4 years ago
ooh funny idea make this connect with a speaker
Bert995 years ago
Boring
iRule Bert995 years ago
Dude seriously people work hard to work out how to do these things and all you can say is .. boring .. should cut him some slack seriously its not like youve done the best ibles in the world.
i agree
with iRule
me too
asking me leads to a yes i do agree with irule
I agree with iRule. This is actually cool if you know what it is.
If it's boring, read something else. This is interesting to some people.
greenbean5 years ago
When you enter the IP, is that the IP of who recieves the message? Or is that supposed to be your IP?
cavingboy92 (author)  greenbean5 years ago
you enter the user or IP of the computer you are sending the message to.
OK, so does the receiver have to be on the same network, or could I, say, send a message to my friend from my house to his?
cavingboy92 (author)  greenbean5 years ago
The receiver if the message has to be on the same network.
who does it send the message to?
cavingboy92 (author)  AAbbasHussain5 years ago
you can either send a message to you whole work group by: *
or you can send to to a person on your work group by: workgroup name here/ Username here
theknight5 years ago
Hey Cavingboy Just commenting to apologise for totally stealing your idea. I really didn't realise until after I finished my instructable 'NETsend using VBScripting'. Sorry! Was not trying rain on your parade!
PKTraceur5 years ago
What does this do?
benjgvps5 years ago
This will only work on PCs that have the messaging service enabled, by default on all service packs since SP2. You can re-enable it, though if you are wishing to use this at school or work, it won't function.