اشياء موجود در يك برنامه

[ابوذر محمودی]

سلام
دنبال يه برنامه ام كه بتونه دكمه ها و تكست هاي موجود رو يه برنامه رو بده و بتونه يه پيام به يكي از دكمه ها بفرسته تا كليك بشه.
مثلا ماشين حساب ويندوز رو در نظر بگيريد ، وقتي من تو تكست باكس برنامه خودم علامت + رو بزنم دكمه + ماشين حساب هم عمل كنه.

[r0ot$harp]

سلام
دنبال يه برنامه ام كه بتونه دكمه ها و تكست هاي موجود رو يه برنامه رو بده و بتونه يه پيام به يكي از دكمه ها بفرسته تا كليك بشه.
مثلا ماشين حساب ويندوز رو در نظر بگيريد ، وقتي من تو تكست باكس برنامه خودم علامت + رو بزنم دكمه + ماشين حساب هم عمل كنه.




دوست عزیز کد زیر برای کلیک کردن روی = می باشد . برای مثبت مساوی را در برنامه + کنید .



Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx _
Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const BM_CLICK = &HF5


Private Sub Form_Load()

Dim MainHwnd As Long

Dim ChildHwnd As Long

MainHwnd = FindWindow("SciCalc", vbNullString)
ChildHwnd = FindWindowEx(MainHwnd, 0&, "Button", "=")

If ChildHwnd <> 0 Then
SendMessage ChildHwnd, BM_CLICK, 0&, 0&
End If

End Sub



باتشکر احسان