Jump to content

Recommended Posts

Posted (edited)

[===-===-===-===-===-=--

[ JSendx v0.1

[===-===-===-===-===-=--

Description

---------------------

JSendx it's a messenger that use the same DOS's command NET SEND

for communicate with anothers users through the LAN Network.

Features

---------------------

- Use: Graphical User Interface (GUI)

- Easy to customize (window color, friendly names)

- Checks if destinatary exists

- Supports multilines and double quotes in the messages.

- Supports massive messages.

- Save the configuration, favorite position, last user, etc.

Requirements

---------------------

- Only for Windows 2000/XP

- AutoIt3 v3.0.102

Acknowledgment / Thanks

------------------------------------

- Principally: Paul(jpm) & Jon for GUI Development and support. :D

http://www.autoitscript.com/fileman/users/public/Josbe/_proys/jsendx/jsendx_v0.1.zip

Bugs/Comments/Suggestions are welcome. :huh2:

Screenshots

http://www.autoitscript.com/fileman/users/public/Josbe/_proys/jsendx/sshot1.jpg

http://www.autoitscript.com/fileman/users/public/Josbe/_proys/jsendx/sshot2.jpg

EDIT: no any update. (link fixed)

Edited by josbe
  • 3 weeks later...
Posted (edited)

:D I was thinking..... You could make an instant-messenger program with your JSendX idea:

1) GUI with two edit controls: One for receiving messages, one for sending.

2) Watch for messages received:

While 1
   sleep(100)
   If WinExists("Messenger Service", "Message from") Then
      $text = WinGetText("Messenger Service", "Message from")
      WinClose("Messenger Service", "Message from")
      _addTextToTheRecievedMessagesEditControl($text)
   EndIf
WEnd

3) When you send a message, you could also append its text to the other edit control.

4) Add encryption--maybe just something simple like ROT-13 on the message. One reason for adding encryption is that, by default, Windows 2000/XP logs the text of any net send popup in the event viewer (eventvwr.msc)

P.S. You might also want to automatically run "cmd /c net start Messenger" in case the Messenger service is not already runnning.

Edited by CyberSlug
Use Mozilla | Take a look at My Disorganized AutoIt stuff | Very very old: AutoBuilder 11 Jan 2005 prototype I need to update my sig!
Posted (edited)

:D I was thinking.....  You could make an instant-messenger program with your JSendX idea:

1)  GUI with two edit controls:  One for receiving messages, one for sending.

2)  Watch for messages received:

While 1
   sleep(100)
   If WinExists("Messenger Service", "Message from") Then
      $text = WinGetText("Messenger Service", "Message from")
      WinClose("Messenger Service", "Message from")
      _addTextToTheRecievedMessagesEditControl($text)
   EndIf
WEnd

3)  When you send a message, you could also append its text to the other edit control.

4)  Add encryption--maybe just something simple like ROT-13 on the message.  One reason for adding encryption is that, by default, Windows 2000/XP logs the text of any net send popup in the event viewer (eventvwr.msc)

P.S.  You might also want to automatically run "cmd /c net start Messenger" in case the Messenger service is not already runnning.

The message is sent using Microsoft's way.

How would you add encryption?

Never mind....

Edited by SlimShady
Posted

I don't intend to hijack josbe's thread, but here's a http://www.autoitscript.com/fileman/users/public/CyberSlug/NetSendMessenger.au3 :huh2:

Notes:

The combo box has the computer name

Use Shift+Enter to insert carriage-returns

:) Fine. I had thought to recapture the sent text, but not in using an "Edit" for log the messages. Good idea. :D

Thxs.

  • 5 months later...
Posted

kewl dude,

if we can display the text we type....it will become like a instant messenger

just like ym

did anyone manage to do it???

I will try to undestand the code first before doing it.

Thanks for the kewl script :idiot:

Posted (edited)

I have manage to display the message type by the sender.

I may add some more thing

- if the program is minimised when it receive new message, it will auto

max

- if the message cannot reach its destination, it will prompt error

and maybe i will try to combine both net send messenger with jsendx

cherrioooo :idiot:

Edited by evod510
Posted

i always wanted to make an instant messanger, but i never knew where to start ='( but your link doesnt work!!! i want to try it soOOOOOOO0000 bad!!!! plz fix it if you can, thanks =)

FootbaG
Posted (edited)

i always wanted to make an instant messanger, but i never knew where to start ='( but your link doesnt work!!! i want to try it soOOOOOOO0000 bad!!!! plz fix it if you can, thanks =)

<{POST_SNAPBACK}>

If it's like the Jsend I tried then it's so far only a lan messenger

BTW: use rc4 encryption

Edited by killaz219
Posted

i always wanted to make an instant messanger, but i never knew where to start ='( but your link doesnt work!!! i want to try it soOOOOOOO0000 bad!!!! plz fix it if you can, thanks =)

<{POST_SNAPBACK}>

Oh, this script was released in June 15. (a little old)

Due to internal problems with the files they weren't available so far.

The code use the old syntax, but if you want it for learning purposes, don't worry. :idiot:

(I will try to fix the link)

Posted

ooo, lol, its ok, ill try and make one myself =)) i dont know where to start off ='( ill google it though =0

FootbaG
Posted (edited)

thanks josbe =))) :-)

i gotta go download the older version in order for it to work right? or could i just change the functions to the ones that would match up with what they should be?

Edited by layer
FootbaG
Posted

if you are using auto v3, you can just run it.

let me show the basic net send script i created before I found the

existence of JSendX and then Net Send Messenger

I dont think we should reinvent the wheel, we can always

update JSendX (with permission :idiot: )

ok have fun coding autoit

Do
$PC = InputBox("Message To", "Please Specify Name:")
If @error == 1 Then Exit
Until $PC <> " "

Do
$Text = InputBox("Message Text", "Enter your message.")
If @error == 1 Then Exit
Until $Text <> " "

RunWait(@comspec & " /c net send "& $PC &" "& $Text,"",@sw_hide)
if RunWait(@comspec & " /c net send "& $PC &" "& $Text,"",@sw_hide) == 0 Then

MsgBox(0, $PC,"Message Send")

Else
MsgBox(0, $PC,"Cannot Send Message")

EndIf
Posted

i have the latest unstable and trying to run it gives me errors...? so i guess i do gotta download the old version, huh?"

FootbaG
Posted

Got email requesting more comments... so here's something that should work with the newest version of AutoIt....

Note: If you want to insert a carriage return in your message, use Shift+Enter or Ctrl+Enter.

<{POST_SNAPBACK}>

The name "SlugSend" really makes it sound like a "instant" messenger..... :idiot:

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...