Như tiêu đề hôm nay tôi nghiên cứu Tools Quản Lý VNC viết bằng VB.NET. Lưu ý phải được cài VNC trước.
CÁC GIAI ĐOẠN
- Tạo chức năng kết nết VNC bằng 1 cú click. (*)
- Tạo chức năng gửi nhận File giữa Server/Client VNC.
- Gửi nhận File cho tất cả các PC trong hệ thống
CODE
SỰ KIỆN NÚT BẤM
Private Sub ConnetVNC(sender As Object, e As EventArgs) Handles PC1.Click, PC2.Click, PC3.Click, PC4.Click, PC5.Click, PC6.Click, PC7.Click, PC8.Click, PC9.Click, PC10.Click, PC11.Click, PC12.Click
, PC13.Click, PC14.Click, PC15.Click
Dim ipN As String
'tùy ip của hệ thống các bạn mà điền ở đây VD của tôi là 192.168.1.x
'sender.Name.Substring(3) tôi đặt tên các các nút là PC1,PC2,...PC15, lệnh này sẽ lấy các số theo sau PC
ipN = "192.168.1." & sender.Name.Substring(2)
'Gửi ip đến SUB SendIpToVNC
SendIpToVNC(ipN)
End Sub
SUB SENDKEY
Sub SendIpToVNC(PCiP As String)
Dim strCopyMe As String = POSiP
Clipboard.SetDataObject(strCopyMe)
'Gọi chương trình VNC ở đây tôi dùng UltraVNC nhớ copy file chạy VNC với chương trình, không các bạn ghi rõ đường dẫn VD: System.Diagnostics.Process.Start("C:\Program Files\uvnc bvba\UltraVNC\vncviewer.exe")
Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start("vncviewer.exe")
'Lệnh này sẽ đợi đến khi có hộp thoại VNC sẽ paste IP vào.
p.WaitForInputIdle()
SendKeys.Send("^V")
'Lệnh này tương đương bấm phím Enter.
p.WaitForInputIdle()
SendKeys.Send("~")
'Lệnh này tương đương với việc Copy Paste Pass đăng nhập UltraVNC đến các PC.
p.WaitForInputIdle()
SendKeys.SendWait("NhapPassVaoDay")
p.WaitForInputIdle()
SendKeys.SendWait("~")
End Sub
Vì chỉ mới nghiên cứu nên Tools chỉ ở mức chạy được. Một số trường hợp UltraVNC bị delay các lệnh SendKeys sẽ lệch. Mọi ý kiến đóng góp sẽ giúp cho tôi thêm nhiều kinh nghiệm hơn. Cảm ơn các bạn
Ở bài tiếp theo sẽ tôi thử tính năng gửi nhận File giữa Server/Client VNC.