Vbs Net Send Messenger

12,654

13

25

Posted

Introduction: 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!

Step 1: 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

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!

Share

    Recommendations

    • Spotless Contest

      Spotless Contest
    • Pocket-Sized Contest

      Pocket-Sized Contest
    • Microcontroller Contest

      Microcontroller Contest
    user

    We have a be nice policy.
    Please be positive and constructive.

    Tips

    Questions

    26 Comments

    I tried sending myself a message...it was only open for a split second and then closed...How can I keep the message open long enough to read it?

    where i can download it ?

    it work perfectly bro, but is it possible to add net view command along with net send to see users in network.

    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"

    When I send it, it does not go anywhere, the Black window appears briefly, but then disappears. Help Me!!

    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?

    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

    ooh funny idea make this connect with a speaker