D
Deleted member 1294
Guest
Mình thấy tool này rất hay ! Liệu chúng ta có thể lưu lại quá trình đã ghi trước đó để lần sau chỉ mở lên là nó thực hiện lại không nhỉ nếu được như vậy thì thật tuyệt!
Ghi lại thao tác chuột và tái hiện lại thao tác chuột-dự án tự động hóa can thiệp vào các ứng dụng khác trên máy tính
- Thread starter tuhocvba
- Ngày gửi
Những điều các bạn có thể học hỏi được:
Bài toán 1:
Mã:
Input: KeyCode= 54 (0x54 -Hexa)
Output: Long = 84
Giải:
=Val("&H" & KeyCode)Lấy giá trị của Listbox.
Mã:
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
tmp = Split(List1.List(i), vbTab) 'Lay du lieu 1 dong, phan tach boi dau Tab
EventTime = tmp(0) 'Thoi gian
EventName = tmp(1) 'Down/Up
KeyCode = tmp(2) 'KeyCode. Ex: 54Chạy tới dòng dữ liệu nào thì select vào dòng dữ liệu đó, cho nên ta có dòng code số 3.
Các dòng code 5~8 : lấy dữ liệu từ listbox. Cách lấy này rất hay, cần cập nhật kiến thức này vào
Bạn cần đăng nhập để thấy link
:
Bạn cần đăng nhập để thấy hình ảnh
Giai đoạn 3: Hợp code Tool giai đoạn 1 (Tool 1: main) + Tool giai đoạn 2 (Tool 2).
Các thông tin Module của Tool 2 sẽ được chuyển sang Tool 1:
Giai đoạn 3.1: Hợp code phần Record.
Kỳ vọng: Không chỉ lấy thông tin chuột mà còn lấy cả thông tin bàn phím
Trên Tool 2 thấy rằng thủ tục này được lặp lại:
Có lẽ chỉ cần gọi một lần là đủ, hiện chưa hiểu tại sao lại phải gọi hai lần. Không có thời gian thử nếu bớt đi một lần gọi thì sẽ ra sao.
Do Tool 2 đang hoạt động tốt nên trung thực phản ánh điều này vào Tool 1.
Trên Tool 2:
Trong khi đó trên Tool 1 là:
Vì vậy sẽ lấy theo giá trị được khai báo ở Tool 2, tức là:
Cần copy đoạn code này của Tool 2 sang Tool 1.
Cần sửa lại đoạn code record của Tool 1:
Vì lúc này chúng ta có hai công việc, ghi lại thao tác chuột + ghi lại thao tác bàn phím.
Ngoài ra, vì listbox của Tool 1 và Tool2 có sự khác biệt: Listbox của Tool1 có 6 cột dữ liệu, Tool2 có 4 cột dữ liệu. Ngoài ra, để phục vụ cho việc tái hiện lại thao tác (Play sau này) cần phân biệt dòng dữ liệu nào là của chuột, dòng dữ liệu nào là của bàn phím, do đó phần ghi dữ liệu bàn phím sẽ thêm thông tin:
File demo (chú ý thao tác Play chưa hoạt động nên đừng thử dùng):
Các thông tin Module của Tool 2 sẽ được chuyển sang Tool 1:
Mã:
========Module2_Play============
keybd_event
EXTENDED_KEY
KEYUP
========Module1_TieuChuan========
Public MoP As POINTAPI 'Vi tri hien tai cua chuotKỳ vọng: Không chỉ lấy thông tin chuột mà còn lấy cả thông tin bàn phím
Trên Tool 2 thấy rằng thủ tục này được lặp lại:
Mã:
Call EventsAnlyz(tMsg, True) 'Trang thai khoi tao
Call EventsAnlyz(tMsg, True) 'Trang thai khoi taoDo Tool 2 đang hoạt động tốt nên trung thực phản ánh điều này vào Tool 1.
Trên Tool 2:
Mã:
Const KEY_CNT = &H255 ' = 597
Mã:
Const KEY_CNT = &H10 '=16. So lan quet su kien-Scan event
Mã:
KEY_CNT = &H255
Mã:
KeyList(&H3) = "Break"
KeyList(&H8) = "Backspace"
KeyList(&H9) = "Tab"
KeyList(&HD) = "Enter"
KeyList(&H10) = "Shift"
KeyList(&H11) = "Ctrl "
KeyList(&H12) = "Alt "
KeyList(&H13) = "Pause"
KeyList(&H1B) = "Esc"
KeyList(&H1C) = "変換"
KeyList(&H1D) = "無変換 "
KeyList(&H20) = "Space"
KeyList(&H21) = "PgUp"
KeyList(&H22) = "PgDn"
KeyList(&H23) = "End"
KeyList(&H24) = "Home "
KeyList(&H25) = "←"
KeyList(&H26) = "↑ "
KeyList(&H27) = "→ "
KeyList(&H28) = "↓ "
KeyList(&H2D) = "Insert "
KeyList(&H2E) = "Delete "
KeyList(&H30) = "0"
KeyList(&H31) = "1"
KeyList(&H32) = "2"
KeyList(&H33) = "3"
KeyList(&H34) = "4"
KeyList(&H35) = "5"
KeyList(&H36) = "6"
KeyList(&H37) = "7"
KeyList(&H38) = "8"
KeyList(&H39) = "9"
KeyList(&H41) = "A"
KeyList(&H42) = "B"
KeyList(&H43) = "C"
KeyList(&H44) = "D"
KeyList(&H45) = "E"
KeyList(&H46) = "F"
KeyList(&H47) = "G"
KeyList(&H48) = "H"
KeyList(&H49) = "I"
KeyList(&H4A) = "J"
KeyList(&H4B) = "K"
KeyList(&H4C) = "L"
KeyList(&H4D) = "M"
KeyList(&H4E) = "N"
KeyList(&H4F) = "O"
KeyList(&H50) = "P"
KeyList(&H51) = "Q"
KeyList(&H52) = "R"
KeyList(&H53) = "S"
KeyList(&H54) = "T"
KeyList(&H55) = "U"
KeyList(&H56) = "V"
KeyList(&H57) = "W"
KeyList(&H58) = "X"
KeyList(&H59) = "Y"
KeyList(&H5A) = "Z"
KeyList(&H5B) = "Cua so trai"
KeyList(&H5C) = "Cua so phai"
KeyList(&H5D) = "Application"
KeyList(&H60) = "テンキー0"
KeyList(&H61) = "テンキー1"
KeyList(&H62) = "テンキー2"
KeyList(&H63) = "テンキー3"
KeyList(&H64) = "テンキー4"
KeyList(&H65) = "テンキー5"
KeyList(&H66) = "テンキー6"
KeyList(&H67) = "テンキー7"
KeyList(&H68) = "テンキー8"
KeyList(&H69) = "テンキー9"
KeyList(&H6A) = "*"
KeyList(&H6B) = "+"
KeyList(&H6C) = ","
KeyList(&H6D) = "-"
KeyList(&H6E) = "."
KeyList(&H6F) = "/"
KeyList(&H70) = "F1"
KeyList(&H71) = "F2"
KeyList(&H72) = "F3"
KeyList(&H73) = "F4"
KeyList(&H74) = "F5"
KeyList(&H75) = "F6"
KeyList(&H76) = "F7"
KeyList(&H77) = "F8"
KeyList(&H78) = "F9"
KeyList(&H79) = "F10"
KeyList(&H7A) = "F11"
KeyList(&H7B) = "F12"
KeyList(&H7C) = "F13"
KeyList(&H7D) = "F14"
KeyList(&H7E) = "F15"
KeyList(&H7F) = "F16"
KeyList(&H80) = "F17"
KeyList(&H81) = "F18"
KeyList(&H82) = "F19"
KeyList(&H83) = "F20"
KeyList(&H84) = "F21"
KeyList(&H85) = "F22"
KeyList(&H86) = "F23"
KeyList(&H87) = "F24"
KeyList(&H90) = "Num Lock"
KeyList(&H91) = "Scroll Lock"
KeyList(&HBA) = ":"
KeyList(&HBB) = ";"
KeyList(&HBC) = ","
KeyList(&HBD) = "-^"
KeyList(&HBE) = "."
KeyList(&HBF) = "/"
KeyList(&HC0) = "@"
KeyList(&HDB) = "["
KeyList(&HDC) = "\"
KeyList(&HDD) = "]"
KeyList(&HDE) = "^"
KeyList(&HE2) = "\(バックスラッシュ）"
KeyList(&HF0) = "Caps Lock"
KeyList(&HF2) = "カタカナ"
KeyList(&HF3) = "半角／全角"
KeyList(&HF4) = "半角／全角"
Mã:
if KeyStr = "LeftButton" or KeyStr = "RightButton" or KeyStr = "MiddleButton" thenNgoài ra, vì listbox của Tool 1 và Tool2 có sự khác biệt: Listbox của Tool1 có 6 cột dữ liệu, Tool2 có 4 cột dữ liệu. Ngoài ra, để phục vụ cho việc tái hiện lại thao tác (Play sau này) cần phân biệt dòng dữ liệu nào là của chuột, dòng dữ liệu nào là của bàn phím, do đó phần ghi dữ liệu bàn phím sẽ thêm thông tin:
Mã:
With List1
.AddItem EventTime & vbTab & _
UpDown & vbTab & _
KeyCode & vbTab & _
KeyStr & vbTab & _
"KeyboardX" & vbTab & "KeyboardX"
.ListIndex = .ListCount - 1 'select dong cuoi trong listbox
End With
Bạn cần đăng nhập để thấy link
Hình ảnh demo:
Bạn cần đăng nhập để thấy hình ảnh
Giai đoạn 3: Hợp code Tool giai đoạn 1 (Tool 1: main) + Tool giai đoạn 2 (Tool 2).
Giai đoạn 3.2: Hợp code phần Play (tái hiện lại thao tác bàn phím và chuột).
File demo:
Có chú ý khi sử dụng: Bạn cần ấn phim từ tốn và chậm rãi, mục đích là một phím khi ấn xuống thì trên Listbox phải hiển thị được hai trạng thái Down/Up.
Hình ảnh dưới đây là quá trình macro Play, tái hiện lại thao tác bằng tay trước đó của tôi.
Giai đoạn 3.2: Hợp code phần Play (tái hiện lại thao tác bàn phím và chuột).
File demo:
Bạn cần đăng nhập để thấy link
Có chú ý khi sử dụng: Bạn cần ấn phim từ tốn và chậm rãi, mục đích là một phím khi ấn xuống thì trên Listbox phải hiển thị được hai trạng thái Down/Up.
Hình ảnh dưới đây là quá trình macro Play, tái hiện lại thao tác bằng tay trước đó của tôi.
Bạn cần đăng nhập để thấy hình ảnh
Về lý thuyết thì được. Xuất toàn bộ nội dung từ Listbox ra txt rồi Import txt vào Listbox. Như vậy mọi người có thể chỉnh sửa file txt để thêm thao tác.
Về mặt thiết kế thì tôi nghĩ sẽ có nhiều vấn đề. Trường hợp người dùng load file txt khác, có nội dung không phù hợp để tái hiện thao tác thì phải ra thông báo lỗi đúng không?
Vậy nội dung txt như thế nào là sai?
Khi thêm chức năng này như bạn nói, nhất định phải có bước check file load vào, việc định nghĩa như thế nào là đúng, rồi từ đó code chức năng check file txt-là việc mất thời gian.
Nếu chỉ đơn thuần xuất ra và nạp vào y như bạn nói, việc code không mất tới 30p.
Thiết kế lại hiển thị trên UserForm. Hiện nay là hơi hỗn loạn.
Hiện tại Listbox chỉ để 1 cột dữ liệu. Bằng cách thể hiện bằng các dấu Tab, nên nhin vào tưởng như Listbox đang dùng nhiều cột mà thực ra không phải.
Cần phải thiết kế tỉ mỉ từng bước, sẽ bàn sau.
=====================
Thiết kế lại hiển thị (Lấy Tool1 tái hiện chuột làm nền tảng).
Thêm cột số thứ tự để trực quan hơn.
Bạn cần đăng nhập để thấy hình ảnh
Kết quả:
Bạn cần đăng nhập để thấy hình ảnh
Cụ thể sửa code:
1. Tạo ra 7 Label làm nhãn cho các cột dữ liệu, tên của chúng lần lượt là Lb1, Lb2,...,Lb7.
2. Sửa code:
Thủ tục UserForm_Initialize:
-Thêm code:
Mã:
List1.ColumnCount = 7
List1.ColumnWidths = Lb1.Width & ";" & Lb2.Width & ";" & Lb3.Width & ";" & Lb4.Width & ";" & Lb5.Width _
& ";" & Lb6.Width & ";" & Lb7.Width-Sửa code:
Phần code ghi thao tác bàn phím:
Mã:
With List1
.AddItem
.List(cnt - 1, 0) = cnt
.List(cnt - 1, 1) = EventTime
.List(cnt - 1, 2) = "KeyboardX"
.List(cnt - 1, 3) = "KeyboardX"
.List(cnt - 1, 4) = UpDown 'KeyStr
.List(cnt - 1, 5) = KeyCode
.List(cnt - 1, 6) = KeyStr '"KeyboardX"
.ListIndex = .ListCount - 1 'select dong cuoi trong listbox
End With
Mã:
With List1
.AddItem
.List(cnt - 1, 0) = cnt
.List(cnt - 1, 1) = EventTime
.List(cnt - 1, 2) = MousePos
.List(cnt - 1, 3) = EventName
.List(cnt - 1, 4) = UpDown
.List(cnt - 1, 5) = KeyCode
.List(cnt - 1, 6) = KeyStr
.ListIndex = .ListCount - 1 'Select dong cuoi cung
End WithYukino Ichikawa
VIP
Vâng, em xin tiếp nối
Bạn cần đăng nhập để thấy link
của vbano1.Vâng: đây ạ. Chỉ xuất ra và nạp lại thì không khó lắm. Nhưng thiết kế tỉ mỉ như BKKBG nêu thì cần thời gian ạ.
Bạn cần đăng nhập để thấy hình ảnh
Thật là hết chịu nổi.
Do đó tôi xúc tiến dự án này, cung cấp ngay bản demo cho anh chị em.
Ở bản này, anh chị em có thể nhập vào số phút để chạy nút Play lặp lại trong bao nhiêu phút.
Anh chị em cũng có thể dùng các phím Export để xuất nội dung từ Listbox ra file txt.
Đồng thời sử dụng phím Import để nạp lại nội dung này vào Listbox.
Do đó tôi xúc tiến dự án này, cung cấp ngay bản demo cho anh chị em.
Bạn cần đăng nhập để thấy link
Ở bản này, anh chị em có thể nhập vào số phút để chạy nút Play lặp lại trong bao nhiêu phút.
Bạn cần đăng nhập để thấy hình ảnh
Anh chị em cũng có thể dùng các phím Export để xuất nội dung từ Listbox ra file txt.
Đồng thời sử dụng phím Import để nạp lại nội dung này vào Listbox.
@Trọng hòa : Bản tool final ở đây:
Bạn cần đăng nhập để thấy link