• 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

Moderators: tungcan5diop, QUANITGROBEST

User avatar
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Posts: 1123
Joined: Wed 24/09/2008 4:04 pm
Location: TPHCM
Has thanked: 1 time
Been thanked: 28 times

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

Postby tungcan5diop » Thu 15/10/2009 3:10 pm

andylam1992 wrote:Ý 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!

User avatar
Kỳ Nam
Guru
Guru
Posts: 510
Joined: Sun 12/08/2007 8:47 pm
Location: Qui Nhơn
Been thanked: 1 time
Contact:

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

Postby Kỳ Nam » Thu 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
Attachments
Messenger.7z
VB C# 2008
(178.01 KiB) Downloaded 505 times

User avatar
andylam1992
Thành viên danh dự
Thành viên danh dự
Posts: 380
Joined: Mon 06/04/2009 12:57 pm
Location: TP.HCM Q5
Has thanked: 2 times
Been thanked: 4 times
Contact:

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

Postby andylam1992 » Thu 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

User avatar
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Posts: 1123
Joined: Wed 24/09/2008 4:04 pm
Location: TPHCM
Has thanked: 1 time
Been thanked: 28 times

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

Postby tungcan5diop » Fri 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!

User avatar
Kỳ Nam
Guru
Guru
Posts: 510
Joined: Sun 12/08/2007 8:47 pm
Location: Qui Nhơn
Been thanked: 1 time
Contact:

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

Postby Kỳ Nam » Fri 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ử

User avatar
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Posts: 1123
Joined: Wed 24/09/2008 4:04 pm
Location: TPHCM
Has thanked: 1 time
Been thanked: 28 times

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

Postby tungcan5diop » Fri 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!

User avatar
Kỳ Nam
Guru
Guru
Posts: 510
Joined: Sun 12/08/2007 8:47 pm
Location: Qui Nhơn
Been thanked: 1 time
Contact:

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

Postby Kỳ Nam » Fri 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

User avatar
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Posts: 1123
Joined: Wed 24/09/2008 4:04 pm
Location: TPHCM
Has thanked: 1 time
Been thanked: 28 times

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

Postby tungcan5diop » Fri 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
Posts: 1
Joined: Fri 24/05/2013 12:28 pm

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

Postby thaikcc » Fri 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ổ
Posts: 66
Joined: Sun 03/10/2010 6:17 pm
Has thanked: 5 times
Been thanked: 15 times

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

Postby vohungvi » Mon 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
Posts: 6
Joined: Thu 07/01/2016 9:42 pm
Has thanked: 1 time

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

Postby ntd252 » Sat 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

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?


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

Who is online

Users browsing this forum: No registered users and 0 guests