• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

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

Mã nguồn các chương trình tiện ích

Điều hành viên: tungcan5diop, QUANITGROBEST

Hình đại diện của người dùng
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Bài viết: 1123
Ngày tham gia: T.Tư 24/09/2008 4:04 pm
Đến từ: TPHCM
Has thanked: 1 time
Been thanked: 28 time

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

Gửi bàigửi bởi tungcan5diop » T.Năm 15/10/2009 3:10 pm

andylam1992 đã viết:Ý 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) :D


Hỡi thế gian bug(lỗi) là gì?
Mà sửa...hoài không hết!

Hình đại diện của người dùng
Kỳ Nam
Guru
Guru
Bài viết: 510
Ngày tham gia: CN 12/08/2007 8:47 pm
Đến từ: Qui Nhơn
Been thanked: 1 time
Liên hệ:

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

Gửi bàigửi bởi Kỳ Nam » T.Năm 15/10/2009 3:49 pm

ủ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
Tập tin đính kèm
Messenger.7z
VB C# 2008
(178.01 KiB) Đã tải 442 lần

Hình đại diện của người dùng
andylam1992
Thành viên danh dự
Thành viên danh dự
Bài viết: 380
Ngày tham gia: T.Hai 06/04/2009 12:57 pm
Đến từ: TP.HCM Q5
Has thanked: 2 time
Been thanked: 4 time
Liên hệ:

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

Gửi bàigửi bởi andylam1992 » T.Năm 15/10/2009 6:48 pm

ờ đú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.

不相信未作牺牲竟先可拥有
只相信是靠双手找到我欲求
Cần - Kiệm- Liêm(liêm kiết) - Nghĩa - Chí - Tín

Hình đại diện của người dùng
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Bài viết: 1123
Ngày tham gia: T.Tư 24/09/2008 4:04 pm
Đến từ: TPHCM
Has thanked: 1 time
Been thanked: 28 time

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

Gửi bàigửi bởi tungcan5diop » T.Sáu 16/10/2009 8:07 am

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? :D
Hỡi thế gian bug(lỗi) là gì?
Mà sửa...hoài không hết!

Hình đại diện của người dùng
Kỳ Nam
Guru
Guru
Bài viết: 510
Ngày tham gia: CN 12/08/2007 8:47 pm
Đến từ: Qui Nhơn
Been thanked: 1 time
Liên hệ:

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

Gửi bàigửi bởi Kỳ Nam » T.Sáu 16/10/2009 10:20 am

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ử

Hình đại diện của người dùng
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Bài viết: 1123
Ngày tham gia: T.Tư 24/09/2008 4:04 pm
Đến từ: TPHCM
Has thanked: 1 time
Been thanked: 28 time

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

Gửi bàigửi bởi tungcan5diop » T.Sáu 16/10/2009 11:09 am

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
Hỡi thế gian bug(lỗi) là gì?
Mà sửa...hoài không hết!

Hình đại diện của người dùng
Kỳ Nam
Guru
Guru
Bài viết: 510
Ngày tham gia: CN 12/08/2007 8:47 pm
Đến từ: Qui Nhơn
Been thanked: 1 time
Liên hệ:

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

Gửi bàigửi bởi Kỳ Nam » T.Sáu 16/10/2009 11:27 am

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

Hình đại diện của người dùng
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Bài viết: 1123
Ngày tham gia: T.Tư 24/09/2008 4:04 pm
Đến từ: TPHCM
Has thanked: 1 time
Been thanked: 28 time

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

Gửi bàigửi bởi tungcan5diop » T.Sáu 16/10/2009 12:08 pm

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
Hỡi thế gian bug(lỗi) là gì?
Mà sửa...hoài không hết!

thaikcc
Bài viết: 1
Ngày tham gia: T.Sáu 24/05/2013 12:28 pm

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

Gửi bàigửi bởi thaikcc » T.Sáu 24/05/2013 4:47 pm

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

vohungvi
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 66
Ngày tham gia: CN 03/10/2010 6:17 pm
Has thanked: 5 time
Been thanked: 15 time

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

Gửi bàigửi bởi vohungvi » T.Hai 08/07/2013 8:14 pm

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
Bài viết: 6
Ngày tham gia: T.Năm 07/01/2016 9:42 pm
Has thanked: 1 time

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

Gửi bàigửi bởi ntd252 » T.Bảy 05/03/2016 9:50 pm

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

Mã: Chọn hết

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

Mã: Chọn hết

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?


Quay về “[.NET] Mã nguồn chương trình tiện ích”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách