3 Simple Ways to
Share What You Make

With Instructables you can share what you make with the world — and tap into an ever-growing community of creative experts.

PhotosPhotos

Share one or more photos of a project, recipe, or whatever you've made, quickly and easily.

Step by StepStep-By-Step

Share your step-by-step photos with text instructions of what you made so others can do it too!

VideoVideo

Share your how-to video. You'll need your embed code from a video site such as YouTube.

NETsend with VBScripting

NETsend with VBScripting
Ok so it's not totally with VBScripting, but I think that VBScripting InputBoxes and Msgboxes look much more user friendly than inputting into a cmd window.

Oh and btw, Please don't write "MUCH EASIER WAY..."

Cause yes we all know that you can open up cmd and type "Net send computername yourmessagehere"

This is just a more user friendly way of doing it.

Disclaimer
I am totally not responsible if anything goes wrong with this program, or if the program is misused in ANY way.

Now we've got that out the way, let's move on -->
 
Remove these adsRemove these ads by Signing Up
 

Step 1Let's Get Started

Let\
Firstly, I'll show you the script and on the next page i'll explain what each bit means.

dim Target
Target=InputBox("Enter Target Computer: ","Carrier Pigeon v1.7 (TheKnight)")
If Target="" Then
WScript.Quit
End IF

dim begin
begin=MsgBox ("Begin conversation with " & target & "?",36,"Carrier Pigeon v1.7")
If begin = vbNo Then
WScript.Quit
End If

dim message
message="0"
Do Until message=""
message=InputBox("Enter Message: " & vbcr & vbcr + _
"No Value sends a blank message" & vbcr + _
"Press Cancel or Alt+F4 to close the window","" & Target," ",13500,100)
Set fs=CreateObject("Scripting.FileSystemObject")
strFileName = fs.BuildPath(Wscript.ScriptFullName & "\..", "~msngr.bat")
strFileName = fs.GetAbsolutePathName(strFileName)
Set ts = fs.OpenTextFile(strFileName, 2, True)
ts.WriteLine "@echo off"
ts.WriteLine "set message=" & message
ts.WriteLine "set target=" & Target
ts.WriteLine "net send %Target% %message%"
ts.Close

dim shell
set shell=createobject("wscript.shell")
shell.Run "~msngr.bat",2
Loop
« Previous StepDownload PDFView All StepsNext Step »
14 comments
May 28, 2010. 7:45 AMBADWOLF1 says:
This is a great instructable and it works for me, but how can i get so when I recieve a message I get an alarm or a tone telling me I have a message.
Mar 28, 2010. 5:52 AMrahulbumwatt says:
 nice work dude!
Jun 24, 2009. 8:07 AMt3h_w0n says:
Wow, we had almost the same idea. I made mine in vb.net and my friends and I use it at school.
http://t3hw0n.wildspad.com/Netsend.NET.exe
Jan 6, 2010. 6:48 PMjames.mcglashan says:
dead link
Apr 3, 2009. 11:21 AMSparkythehappygirafe says:
Hey how do i figure out my 'friends' computer's name? like do you mean it's ip? cause if your on one big network (say a school computer) then we all have the same ip or do u mean the actual computer name itself?
Jan 6, 2010. 6:47 PMjames.mcglashan says:
 I pinged my mum to find out her IP

cmd.exe ping "computer name or site"

i tryed google but no one sends back googles ip is 66.102.11.99
Oct 3, 2009. 6:03 PMgreenbean says:
At schools you actually do have different IPs. Theyre almost the same, but not. Just look at the IPCONFIG information and you will find everything that you need, like the the ipv4 address, the mac address, ect.
Oct 3, 2009. 6:04 PMgreenbean says:
And the account name sometimes works too.
Apr 5, 2009. 11:37 AMSparkythehappygirafe says:
ok thanks man ya i'll try that
Oct 10, 2009. 11:42 AMsharlston says:
do you enter the targets ip or username?
Feb 8, 2009. 7:33 AMrimar2000 says:
Seems easy. If this functions, this is great!!!

Pro

Get More Out of Instructables

Already have an Account?

close

All Steps Viewing
View all steps of an Instructable on the same page when you're a Pro Member.

Upgrade to Pro today!
3
Followers
6
Author:theknight