Undocument Windows API và VBA

[ThangCuAnh]

Cái laptop hư lâu lắc, phải gởi vào thành hồ chứa mưa sữa, mới lấy về.
Nên quay lại tiếp với cái gọi là "rờ chxx em" Windows và VBA.
Topic này tui sẽ đăng lần lượt những gì cu anh tui phát hiện ra trong quá trình "rờ em" Windows API, DLLs và VBAxxx.dll. Các tips, tricks này sẽ bảo đảm không có trên ông "Gấu gồ". Và dùng được cho VBA trên Offices. Chứ "ưn đồ cú mèn" API mà chỉ dùng được cho C/C++, Delphi... thì dân tin học VP ở đây thua.
Tui chỉ sẽ tập trung ở các Windows DLL sau: kernel32.dll, shell32.dll, shlwapi.dll, oleaut32.dll, ole32.dll, advapi32.dll... và 1 ít từ ntdll.dll (core usermode API của Windows). Trên VBExxx.dll thì tui chỉ tập trung vào VBE6 của Office 2007, VBE7 của Office2010 32 và 64bit, các VBExxx.dll khác cũng sẽ gần như tương đượng, không khác nhau mấy.

 

[ThangCuAnh]

Máy tui dỏm hơn máy bạn cả trăm lần mà chạy có vài phút à mà đơ cái gì
À quên, máy 1 nhân (1 CPU) phụ thuộc vào số thread set trong Excel settings nữa.

 

[Kiều Mạnh]

 

[ThangCuAnh]

OK bạn, đúng rồi bạn, dùng 4, bạn cứ test đi. Excel nó tự detect ra máy bao nhiêu nhân mà.
PS: À quên, các bạn sữa lại hàm DumpString như sau nhé, để nó dump full cả địa chỉ:

'
' Dump memory content of a VBA string variable to hex bytes string
' Có the dùng cho Excel de xem các char di dang trong 1 chuoi trên cell
'
Public Function DumpString(ByRef strDump As String) As String
    If StrPtr(strDump) <> 0 Then
        ' Avoid BSTR pointer of strDump is NULL, when strDump was not initialized or was assigned = vbNullString
        DumpString = DumpMem(StrPtr(strDump) - 4, LenB(strDump) + 6)
    Else
        DumpString = DumpMem(VarPtr(strDump), PTR_SIZE)
    End If
End Function

 

[Kiều Mạnh]

chạy hàm DumpString củ đoán mất 1 giây chi đó có ngay tức thì

chạy hàm DumpString bài 103 thì nó lâu hơn

 

[ThangCuAnh]

Khổ ghê, chạy hàm DumpString ngoài Excel đó, đọc lại giúp cậu ơi

 

[thuyyeu99]

Khổ ghê, chạy hàm DumpString ngoài Excel đó, đọc lại giúp cậu ơi

Xin lỗi em hỏi chúc nhé, Mấy bữa trước em có đọc loáng thoáng cái hàm Typename mà kiếm lại không thấy vậy anh ?

 

[ThangCuAnh]

Nó nằm bên topic lập trình Delphi bằng video đó bé

 

[Kiều Mạnh]

 

[thuyyeu99]

Nó nằm bên topic lập trình Delphi bằng video đó bé

Còn cái typename Bé hông thấy. Anh co thể post lại cho bé được hông.
Bé Cám ơn anh trai trước nhé hihihihi ☺☺☺☺☺

 

[Kiều Mạnh]

ABCDEF    41 00 42 00 43 00 44 00 45 00 46 00
    0C 00 00 00 41 00 42 00 43 00 44 00 45 00 46 00 00 00
    
    
    145F0758: 0C 00 00 00 41 00 42 00 43 00 44 00 45 00 46 00 00 00

 

[ThangCuAnh]

Kéo ABCDEF hết cột A, kéo B1 hết cột B.
Công thức B1= DumpString(A1).
DumpStrinh mới nhen.
Xong Remove Duplicate, xem còn lại mấy dòng ?
Cảm ơn bạn

 

[Kiều Mạnh]

Kéo mỏi tay quá mai keo tiếp

 

[ThangCuAnh]

Dùng hàm cũ rồi.
Ctrl c, ctrl shft down, ctrl v, ai biểu kéo = chuột chời

 

[ThangCuAnh]

Bé @thuyyeu99 test giùm chú vụ này đi.
Nãy giờ máy chú Excel đang chạy đơ máy luôn, chú đang ép nó chạy 1 nhân. Máy bé mấy nhân ?

 

[thuyyeu99]

không biết anh, kiểm tra bằng cách nào ?

 

[ThangCuAnh]

Bé đọc, download file từ post 93 nhé.

 

[thuyyeu99]

em không biết nó máy nhân nữa. của em win 7 32 bit

 

[ThangCuAnh]

Máy em 4 nhân

Bài đã được tự động gộp: 22/8/19

Bạn mình hỏi vụ CreateThread, mình im lặng không trả lời vì muốn tìm cho ra Excel nó hoạt động thế nào, rõ mới trả lời. Đừng giận nhé bạn.
Đây là kết quả bắt Excel chạy 1 nhân, cho phép multithread. Nó sinh 1 worker thread ngoài thread chính để tính toán. Thread đó chạy song song trên 2 nhân.
Số vùng memory address cấp cho chuỗi ABCDEFGH trao đổi giữa VBA và Excel là 2.
Giờ trả về cho nó 2 nhân, chạy lại thử.

 

[thuyyeu99]

Máy em 4 nhân

Bài đã được tự động gộp: 22/8/19

Bạn mình hỏi vụ CreateThread, mình im lặng không trả lời vì muốn tìm cho ra Excel nó hoạt động thế nào, rõ mới trả lời. Đừng giận nhé bạn.
Đây là kết quả bắt Excel chạy 1 nhân, cho phép multithread. Nó sinh 1 worker thread ngoài thread chính để tính toán. Thread đó chạy song song trên 2 nhân.
Số vùng memory address cấp cho chuỗi ABCDEFGH trao đổi giữa VBA và Excel là 2.
Giờ trả về cho nó 2 nhân, chạy lại thử.

Cả triệu dòng không biết khi nào xong hichic

 

[ThangCuAnh]

Khi bật 2 nhân cho Excel, kết quả trên máy tôi, vùng nhớ trao đổi giữa VBA và Excel vẫn là 2, nhưng số thread tham gia tính toán thay đổi đáng kể.
Excel GUI thread (thread chính) giờ lên 2, Worker thread chính để tính toán vẫn là 1, nhưng tại sao lại có sự tham gia của các thread lạ của MSO.dll và 2 đến 3 từ ông Windows bắn ra ? Ông từ winmm.dll có thread priority cao nhất (Highest), ông từ ntdll.dll lâu lâu phọt ra 1 cái rồi biến mất, phải canh nhanh tay chụp màn hình mới được.
Sợ máy bà con nhanh quá không thấy rõ đâu.