Skip to main content

Featured

WIN ALL ACTEVETED LIFETIME

  Search for: Recent Posts Simple trick to install Windows 11 on an old PC Easy ways to activate Windows 11 for FREE without a product key Remove “You may be a victim of software counterfeiting” notification Windows Defender detects my scripts as “HackTool:BAT/AutoKMS” Quickly convert Windows Server Evaluation edition to the retail one Easiest way to remove the Windows watermark from your screen Categories Computer Tips Microsoft Software Products 2 ways to activate Windows 10 for FREE without additional software Posted by  Always Smile   in  Microsoft Software Products  /  Last updated on  August 26, 2021 As you know, Microsoft notified Windows 10 is “the last version of Windows” and explained that they will be focused on the development of powerful and new features under the guise of software updates instead of building a new version. This means there will be no Windows 11 or 12 in the future(*). So if you are thinking about an upgrade, this is the b...
Post a Comment
Read more

 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

Step 3...Saving the Script and Testing Messenger
Step 3...Saving the Script and Testing Messenger
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!

Be the First to Share

    Recommendations

    Walking Gonk Droid
    Walking Gonk Droid by sradtke in Robots
     5  185
    Micro:bit OLED Game
    Micro:bit OLED Game by SomeNewKid in Microcontrollers
     134
    Over Engineered TriGlow
    Over Engineered TriGlow by Arnov Sharma in LEDs
     36  2.9K
    Build a Ray Gun With Sound Effects
    Build a Ray Gun With Sound Effects by lonesoulsurfer in Electronics
     57  3.9K

    • Robots Contest

      Robots Contest

    • Space Contest

      Space Contest

    • Halloween Contest

      Halloween Contest

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

    26 Comments

    troy.glover.7
    troy.glover.7

    6 years ago on Introduction

    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?

    jazujosie
    jazujosie

    9 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.

    17hmr243
    17hmr243

    11 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"

    Comments

    Post a Comment

    Popular Posts