Cần giúp đỡ!

Trong buổi thực hành hồi sáng, có phần gới thông điệp cho nhiều máy cùng 1 lúc. Bạn nào biết code làm ơn chỉ dùm nhé! Cám ơn các bạn!

minh co sua lai chuong trinh cua thay mot it,cac ban tham khao.Send All minh chua xu ly cach nao tim day dia chia IP ,hay cung lop.tam thoi chi la lopB thoi.Cac ban xu ly them nha!

Minh tim mai ma k biet cho nao de add file len ca!!Cac xem cod nha
minh co them 2option : chon Send group,Send All,va button Send

Day la form chinh :

Private Sub CmdSend_Click()
Dim strarr() As String
Dim i As Integer
On Error Resume Next
strarr = Split(txtRemoteComputer.Text, ";")
For i = 0 To UBound(strarr)
udpPeerA.RemoteHost = strarr(i)
udpPeerA.SendData txtSend.Text
udpPeerA_DataArrival (1000)
Next
End Sub

Private Sub Form_Load()
On Error Resume Next
With udpPeerA
.RemoteHost = txtRemoteComputer.Text
.RemotePort = 2001
.Bind 2001
End With
End Sub

Private Sub Optall_Click()
txtRemoteComputer.Text = "255.255.255."
End Sub

Private Sub Optnhom_Click()
MsgBox "Xin nhap ten cac may tinh or dia chia IP,cach nhau bang dau " & ";"
txtRemoteComputer.Text = ""
txtRemoteComputer.SetFocus
End Sub

Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim strData As String

udpPeerA.GetData strData
txtRemoteComputer.Text = udpPeerA.RemoteHostIP

txtReceive.Text = strData

Me.WindowState = vbNormal
Me.SetFocus
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub



Tamnv

ban con giu bai tap thuc hanh cua thay ngay hom qua khong? Share dum minh voi. USB hu rui. Thanks nhiu nha.

ban len dien dan totuan.one-forum.net se thay bai tap do!

Tamnv

Để gởi thông điệp cho nhiều máy cùng 1 lúc, khi chạy chương trình chat bạn nhập vào TextBox (có Label là Remote Computer) thông số của Subnet mask, theo như phòng máy thực hành là: 255.255.255.255.
Để mặc định thông số này sau mỗi lần chạy, bạn click chuột phải trên TextBox (có Label là Remote Computer) chọn Properties, trong Properties bạn chọn thuộc tính Text là 255.255.255.255.