Vbs Net Send Messenger

13,509

13

26

About: I have a great interest in CyberSecurity. I like to work with different OS, Arduino, and Raspberry Pi. I love being a Firefighter/EMT.

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

    • Planter Challenge

      Planter Challenge
    • Sensors Contest

      Sensors Contest
    • DIY Summer Camp Contest

      DIY Summer Camp Contest

    26 Discussions

    0
    None

    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?

    0
    None
    jazujosie

    7 years ago on Introduction

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

    0
    None
    17hmr243

    8 years ago on Introduction

    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"

    0
    None
    Goalie1

    9 years ago on Step 3

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

    0
    None
    sharlston

    9 years ago on Introduction

    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?

    2 replies
    0
    None
    cavingboy92sharlston

    Reply 9 years ago on Introduction

    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.

    0
    None
    iRuleBert99

    Reply 10 years ago on Introduction

    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.

    0
    None
    BlackHoleManiRule

    Reply 9 years ago on Step 2

    I agree with iRule. This is actually cool if you know what it is.

    0
    None
    shaneomacmcgeeBert99

    Reply 9 years ago on Step 2

    If it's boring, read something else. This is interesting to some people.

    0
    None
    greenbean

    10 years ago on Introduction

    When you enter the IP, is that the IP of who recieves the message? Or is that supposed to be your IP?

    1 reply