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

Deleted member 1294 · 16/5/20

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!

tuhocvba · 16/5/20

Nội dung listbox xuất ra txt. Lần sau nạp lại txt. Việc đó làm được mà.

Euler · 16/5/20

vbano1 nói:
Giai đoạn 2: Ghi lại thao tác bàn phím và tái hiện lại thao tác bàn phím
Giai đoạn 2.2: Tái hiện lại thao tác bàn phím bằng nút bấm Play
File demo:
Bạn cần đăng nhập để thấy link

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)

Bài toán 2:
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: 54

Dòng code số 1: Chạy từ dòng dữ liệu đầu tiên tới dòng dữ liệu cuối cùng trên Listbox.
Chạ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

tuhocvba · 16/5/20

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:

Mã:

========Module2_Play============
keybd_event
EXTENDED_KEY
KEYUP

========Module1_TieuChuan========
Public MoP As POINTAPI             'Vi tri hien tai cua chuot

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:

Mã:

    Call EventsAnlyz(tMsg, True) 'Trang thai khoi tao
    Call EventsAnlyz(tMsg, True) 'Trang thai khoi tao

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:

Mã:

Const KEY_CNT = &H255 ' = 597

Trong khi đó trên Tool 1 là:

Mã:

Const KEY_CNT = &H10        '=16. So lan quet su kien-Scan event

Vì vậy sẽ lấy theo giá trị được khai báo ở Tool 2, tức là:

Mã:

KEY_CNT = &H255

Cần copy đoạn code này của Tool 2 sang Tool 1.

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) = "半角／全角"

Cần sửa lại đoạn code record của Tool 1:

Mã:

if KeyStr = "LeftButton" or KeyStr = "RightButton" or KeyStr = "MiddleButton" then

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:

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

File demo (chú ý thao tác Play chưa hoạt động nên đừng thử dùng):

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

giaiphapvba · 16/5/20

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:

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

BKKBG · 17/5/20

USA_Covid19 nói:
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ỉ

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.

vbano1 · 17/5/20

giaiphapvba nói:
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:
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.

Thiết kế lại hiển thị trên UserForm. Hiện nay là hơi hỗn loạn.

Euler nói:
Những điều các bạn có thể học hỏi được:
Bài toán 2:
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: 54

Dòng code số 1: Chạy từ dòng dữ liệu đầu tiên tới dòng dữ liệu cuối cùng trên Listbox.
Chạ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

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.

USA_Covid19 nói:
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!

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

Thủ tục cmdRecord_Click:
-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

Phần code ghi thao tác chuột:

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 With

cnt là biến đếm, mỗi lần phát hiện ra một sự kiện thì tăng cnt.

Yukino Ichikawa · 18/5/20

Vâng, em xin tiếp nối

Bạn cần đăng nhập để thấy link

của vbano1.

USA_Covid19 nói:
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!

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

tuhocvba · 18/5/20

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 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.

Euler · 19/5/20

Bản Tool final:
Link download:

Bạn cần đăng nhập để thấy link

Mật khẩu các loại nếu có sẽ là:

Mã:

tuhocvba.net

PTHhn · 19/5/20

Tool này hay quá, nhưng khi đang Play ở chế độ đặt giờ (ví dụ 1 tiếng), trong thời gian ấy có người chat với mình. Mình muốn dừng thì thao tác hơi khó khăn. Nên có phím nóng để dừng chương trình ngay lập tức.

Trọng hòa · 11/8/20

Hay quá . Khi nào thì xong tool ghép cả 2 lại vậy ad.

tuhocvba · 11/8/20

@Trọng hòa : Bản tool final ở đây:

Bạn cần đăng nhập để thấy link

tuhocvba · 1/12/21

Bạn dùng bản final, trên đó có nút Export, xuất thao tác ra file txt. Sau này cần nạp lại thì ấn nút Import.

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

Deleted member 1294

Guest

tuhocvba

Administrator

Euler

Administrator

tuhocvba

Administrator

giaiphapvba

Administrator

BKKBG

Yêu THVBA nhất

vbano1

SMod

Yukino Ichikawa

VIP

tuhocvba

Administrator

Euler

Administrator

PTHhn

Yêu THVBA như điếu đổ

Trọng hòa

Yêu THVBA

tuhocvba

Administrator

tuhocvba

Administrator