hdh tổng hợp

HỆ ĐIỀU HÀNH REVIEW

I. Chat UDP 2006 2
II. Chat UDP UNICODE 4


I. Chat UDP 2006

Design Form:


Project Panel:


Step by Step:
01. Tạo project mới có 1 Form (frmChat)
02. Tạo ra 3 TextBox (txtSend, txtReceive, txtRemoteComputer) và 3 Label
03. Add 1 component “Microsoft Winsock Control 6.0” (name udpPeerA with protocol 1 – sckUDPProtocol) và vẽ vào Form.
04. Add module: modSetWindowPos
05. Viết Code


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

Private Sub txtSend_Change()
On Error Resume Next
udpPeerA.RemoteHost = txtRemoteComputer.Text
udpPeerA.SendData txtSend.Text
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


II. Chat UDP UNICODE
Design Form:


Project Panel:


Step by Step:
- Add components
o MS winsock 6.0
o MS Form 2.0 Object Library
- Add 5 modules của thầy
- Vẽ những Label và textbox theo chuẩn 2.0 (Unicode)
- Tạo file SPI. Ý nghĩa của file SPI là lưu lại tất cả những font windows mặc định của máy user để chương trình của mình khi chạy sẽ không đụng đến cấu hình của họ. Và sẽ apply font chữ của chương trình chat vào Windows trên máy của user.
o Tại màn hình Desktop, chọn Properties  Appearance  Advanced.
o Tại combo box tên Item  chọn Tooltip
o Chỉnh tất cả font chữ của Active Windows, Menu, Message box về font Tahoma.
- Trở lại màn hình form trong VB6, nhấn tổ hợp phím Ctrl+G để xuất hiện màn hình Immediate. Gõ vào dòng lệnh SaveSPI “spInfoTahoma.spi” để tạo ra file SPI.
- Viết code

Source Code:
Private Sub Form_Load()
On Error Resume Next
With udpPeerA
.RemoteHost = txtRemoteComputer.Text //Địa chỉ máy cần remote tới
.RemotePort = 2001 //Port trên máy khách
.Bind 2001 //Port trên máy mình
End With

AddFontResource "VKNT.fon" //Load font của chương trình Chat vào windows máy user.
LoadSPI "SpInfoTCVN3.spi" //Load file SPI của chương trình mình
AddIcons Me //Tạo ra 1 icon trên taskbar
RefreshDesktop //Làm tươi lại màn hình
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShowPopUpMenu Me, X, mnuHeThong //Hiển thị menu tại taskbar khi rê hoặc click chuột phải.
End Sub

Private Sub Form_Resize()
If Me.ScaleHeight = 0 And Me.ScaleWidth = 0 Then
' Khi nguoi dung nhan nut Minimize thi an form xuong taskbar
Me.Hide
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
mnuHeThong_Exit_Click //Nut Thoat
End Sub

Private Sub mnuHeThong_Exit_Click() //Khi người người thoát khỏi ct Chat
RemoveIcons //Gỡ Icon ra khỏi taskbar
RestoreSPI //Khôi phục lại cấu hình SPI ban đầu trên máy user.
RemoveFontResource "VKNT.font" //Gỡ bỏ font ra khỏi hệ thống máy user
RefreshDesktop // Làm tuoi
End
End Sub

Private Sub mnuHeThong_HienThi_Click() //Khi user muốn hiển thị lại form chat
frmChat.WindowState = vbNormal
frmChat.Show
End Sub

Private Sub txtSend_Change() //Khi có thay đổi tại textbox gởi sẽ phát sinh lệnh phía dưới.
'On Error Resume Next
udpPeerA.RemoteHost = txtRemoteComputer.Text //Xác định cổng kết nối giữa 2 máy
udpPeerA.SendData StrConv(txtSend.Text, vbUnicode) //Send dữ liệu đi sau khi đã convert sang unicode.
End Sub

Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long) //Nhan du lieu
'On Error Resume Next
Dim strData As String

udpPeerA.GetData strData
txtRemoteComputer.Text = udpPeerA.RemoteHostIP

txtReceive.Text = StrConv(strData, vbFromUnicode) //Khi nhận gói dữ liệu vè thì sẽ được hiển thị sang unicode

Me.WindowState = vbNormal
Me.Show
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub