Hi dear VB coders on the earth!

this is Afshin from IRAN

wanna to write a program like messagner but works on LAN not internet

you will send a message to the desired user and he/she  will answer you after receivng your message...
but when i send a message to the user. the message box appears to show message to the user and i want to show messages in my program like messangers .

and the other question is that...
  all of chat program i downloaded from the nets are to exe files (server and client) but as you know Yahoo! messagner has juest 1 file to send and receive messages
help me with your ideas...

warm regards to all VB coders,Afshin     

[Edited by Afshin_Zavar on 18-09-2003 at 12:20 PM GMT]

____________________________
Persia

what makes you think we are from Earth?...lol...

Perhaps the examples you have use the winsock control...? I have used this to create a simple messenger in the past which is pretty straight forward, just look in your help at the example.

also, I have seen peeps use a trick with a database as the "communication center", passing each users text into the db table, then out to the recipient user.

[Edited by ~Bean~ on 03-10-2003 at 11:52 PM GMT]

____________________________
Eggheads unite! You have nothing to lose but your yolks.

Hello guys,
First of all to Bean : I don't think somebody must do the second trick you defined here, the database hack.Its for commercial use perhapes.

For Afshin_Zaver : Its very simple.Create a server which will run on the always running pc on your network that is the server itself, and then distribute a copy of the client application to all the clients in the network.I've on of this type made in Flash with the server made in Perl(in the form of EXE ) .So if you want it then buzz.I'm not sure you need it anymore.

Regards,
Asim Siddiqui.

I agree. You have to use winsock control that must be something like this.

'SEND MESSAGE ACROSS THE NETWORK PC 'make two command buttons 'make two text boxes 'make two timers 'All with their default name Dim ExecuteVal As Variant Dim Dest As String Dim Strval As String Private Sub Command1_Click() Dim t, m t = Trim(Text2.Text) m = Trim(Text1.Text) If t = "" Then MsgBox "Enter Remote Computer Name" & Chr(13) & "For this message" Text2.SetFocus ElseIf m = "" Then MsgBox "Enter Some Message" Text1.SetFocus End If Strval = "net send " & t & " " & m ExecuteVal = Shell(Strval) End Sub Private Sub Command2_Click() Me.bandh End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Cancel = True Me.bandh End Sub Private Sub Timer1_Timer() Label4.Caption = "Bye Prashant !!" End Sub Private Sub Timer2_Timer() End End Sub Public Sub bandh() Timer1.Enabled = True Timer2.Enabled = True Timer1.Interval = 200 Timer2.Interval = 1400 End Sub

____________________________
Im JAMES  

Hello folks,
I think the following post would be of great help :
http://www.andreavb.com/tip100007.html .
So check it out.

Regards,
Asim Siddiqui.