[VB.Net]Chương trình chat trong LAN

[tungcan5diop]

Ý em nói là cái địa chỉ máy chủ đấy. máy "sx27" có tồn tại trong nội bộ mạng lan không, "sx27" là tên của máy chủ hay là tên hiển thị trong netwrok place?

máy "sx27" là tên cùa máy tính anh đang xài(computer name),và tất nhiên cũng là máy chủ(vì mình cố tình tạo nó thành máy chủ để các máy con khác có thể chát với mình,theo đúng như Kỳ Nam đã nói)

[Kỳ Nam]

ủa ủa , nhớ là có up code C# nữa mà , và cái nằm trong máy tui có giao diện khác

tungcan5diop chạy file này thử , để nó tự tìm địa chỉ máy chủ ( máy có mở port 2222 )

để ý coi có chương trình nào ngăn mở port 0 , vd windows xp firewall

[andylam1992]

ờ đúng rồi ethernet loopback dùng port 0. Anh thử dùng IP 127.0.0.1 xem nó có kết nối được hay không rồi mới dùng computer name. Có khi là do chương trình # chặn prot 0 như anh Kỳ Nam đã nói.

[tungcan5diop]

có mấy cái thắc mắc
1.Tên:
2.Mật Khẩu:
3.Mua vé:
4.Dô cửa:
1 & 2 là do mình tạo hả?(hix mật khẩu gõ mà thấy hết luôn)
3 & 4 ko hiểu
còn cái mà CreateRoom,SaveData thì sao?
khi chạy Service.exe thì nó báo đã khởi dộng Server(đã tự động tìm đúng IP của máy)
khi chạy Chatter.exe nó báo "Không nối được với Server"
máy mình ko có chương trình nào chặn mở Port cả,FireWall cũng đã tắt rồi.
có phải máy nào cũng có thể làm máy chủ được đúng ko?miễn là các máy trong cùng một mạng phải ko?

[Kỳ Nam]

trong thư mục Release , xóa 2 file data và room tại trong đó có sẵn mấy cái tên + mk

mua vé = register
dô cửa = login

createroom để tạo room
savedata để lưu dữ liệu của service đề fòng bị cúp điện
làm biếng tạo giao diện nên ... dẩy cho lẹ

tungcan5diop chạy cả service.exe và Chatter.exe trên cùng 1 máy coi được 0

nếu được thì vào YM , id của tui kynamntkt , cho mượn máy của cậu để chạy thử

[tungcan5diop]

tungcan5diop chạy cả service.exe và Chatter.exe trên cùng 1 máy coi được 0

cái này thử rồi,ko được,chạy sang máy bà chị cùng phòng làm thử cũng ko được,sau khi nhập Tên,Mật Khẩu bấm Vô Cửa hay Mua Vé nó đều báo "Không nối được với Server"

nếu được thì vào YM , id của tui kynamntkt , cho mượn máy của cậu để chạy thử

ở Cty mình ko cho vào Y!M chỉ có tối về nhà mới được thôi,nếu rảnh thì tối làm thử.
p/s:ở sẳn mình nói luôn. bửa chép cái RegToy của Kỳ Nam,đang chạy Set up,chắc cũng gần xong rồi thì tự nhiên nó đứng im re...tui phải Cancel,nhưng mở chương trình vẫn được,đến khi tui thử UnInStall nó báo thành công mà trên Menu vẫn còn tên chương trình,vào C:Program vẫn thấy

[Kỳ Nam]

nghe thì chắc là service.exe chưa mở được port ; chạy thử máy ở nhà chưa

teamviewer http://www.teamviewer.com/download/TeamViewerQS.exe

nếu 0 mắc gì thì pm vào tài khoản forum ID + password của teamviewer

[tungcan5diop]

chạy thử máy ở nhà chưa

chưa.

nếu 0 mắc gì thì pm vào tài khoản forum ID + password của teamviewer

có gì tối về tui thử cái máy ở nhà rồi gửi qua cho,giờ đang ở Cty ko gửi được.thanks

[thaikcc]

chạy hok dc các pạn ơi hix, làm sao để chạy dc thế mình còn gà quá !

[vohungvi]

Chạy cái Service lên, bảo "An Enter de dung", tưởng ấn Enter mới xài được, ai ngờ là ấn Enter để đóng. Bác thớt sửa lại giùm chứ không thôi mấy con gà như em ngồi mò muốn chết

[ntd252]

ké vào pic này hỏi mọi người chút!
Em đang viết cái mã cũng chat lan kiểu này, nhưng chỉ là gửi tin tới máy chủ để hiển thị lên màn hình, k0 cần máy chủ phản hồi lại.
Người gửi em viết như sau

Code: Select all

Option Explicit On
Imports System.IO
Imports System.Net.Sockets

Public Class Form1
    Dim Client As TcpClient

    Private Sub btnClick() Handles Button1.Click
        Try
            Client = New TcpClient("127.0.0.1", 8000)
            Dim Writer As New StreamWriter(Client.GetStream())
            Writer.Write("</> " & TextBox1.Text & " <\>")
            Writer.Flush()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

Server

Code: Select all

Option Explicit On
Imports System.IO
Imports System.Net.Sockets

Public Class Form1
    Dim Listener As New TcpListener(8000)
    Dim Client As TcpClient

    Private Sub _FormClosing() Handles Me.FormClosing
        Listener.Stop()
    End Sub

    Private Sub _Load() Handles MyBase.Load
        Timer1.Start()
        Listener.Start()
    End Sub

    Private Sub _Tick() Handles Timer1.Tick
        Dim Message As String
        Dim nStart As Integer
        Dim nLast As Integer

        If Listener.Pending = True Then
            Message = ""
            Client = Listener.AcceptTcpClient()
            Dim Reader As New StreamReader(Client.GetStream())

            While Reader.Peek > -1
                Message &= Convert.ToChar(Reader.Read()).ToString
            End While

            If Message.Contains("</>") Then
                nStart = InStr(Message, "</>") + 4
                nLast = InStr(Message, "<\>")
                Message = Mid(Message, nStart, nLast - nStart)
            End If

            Label1.Text = Message
        End If
    End Sub
End Class

Em muốn là nhiều người cùng gửi tới máy chủ, thì biết xem ai là người gửi tin nào ấy thì đặt tên cho mỗi máy kết nối như thế nào?