Gán Text Cho Ứng Dụng Khác Dùng Hàm API SendMessage (1 người xem)

[quocphuoc88]

Chào các anh/chị/bạn:
Em muốn gán text cho Combobox của 1 ứng dụng khác ( cụ thể là ứng dụng Hỗ Trợ Kê Khai của tổng cục thuế (HTKK)).
Em dùng Winspy++ để tìm class của ứng dụng và tìm được nhưng khi dùng hàm Sendmessage để gán text thì nó cứ 'trơ trơ' ra mà không chạy ra kết quả e mong muốn.
Mong anh/chị/bạn có thể xem qua và giúp đỡ.
Xin cám ơn !
Code e dùng để gán Text:

Sub RunHTKK()
    ShellExecute 0, "Open", "C:\Program Files (x86)\HTKK320\Project\HTKK.exe", 0, 0, SW_NORMAL
    Do
        DoEvents
        hWnd = FindWindow("ThunderRT6MDIForm", vbNullString)
    Loop Until hWnd > 0
    
    hWnd = FindWindowEx(hWnd, 0&, "MDIClient", vbNullString)
    
    hWnd = FindWindowEx(hWnd, 0&, "ThunderRT6FormDC", vbNullString)
    
    
    hWnd = FindWindowEx(hWnd, 0&, "ThunderRT6ComboBox", vbNullString)
    
    hWnd = FindWindowEx(hWnd, 0&, "Edit", vbNullString)
    
    SendMessage hWnd, WM_SETTEXT, 0&, CStr("0302945343")


End Sub

 

[doveandrose]

phải kiểm tra cho kĩ thông số hwnd mà bạn tính toán so sánh với số hwnd trong spy có = nhau chưa ?
Combobox đó có cho phép ghi dữ liệu bất kì hay không ? hay phải chọn từ trong danh sách của nó ?
Bạn có phải thêm 1 chữ byval vào trước tham số thứ 4 của ham Sendmessage nữa thí dụ byval "12345"

Nếu các câu hỏi ở trên đều trả về "CÓ" mà kết quả vẫn chưa "áp phê" thì phải tăng cường "thuốc liều cao"

 

[quocphuoc88]

phải kiểm tra cho kĩ thông số hwnd mà bạn tính toán so sánh với số hwnd trong spy có = nhau chưa ?
Combobox đó có cho phép ghi dữ liệu bất kì hay không ? hay phải chọn từ trong danh sách của nó ?
Bạn có phải thêm 1 chữ byval vào trước tham số thứ 4 của ham Sendmessage nữa thí dụ byval "12345"

Nếu các câu hỏi ở trên đều trả về "CÓ" mà kết quả vẫn chưa "áp phê" thì phải tăng cường "thuốc liều cao"

Thật cám ơn bạn. Đã tìm ra nguyên nhân là thiếu Byval