mehdi.mousavi
یک شنبه 05 دی 1389, 18:55 عصر
سلام.
الان با همون ابزار این کد رو تولید کردم:
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
Private Const WM_SETTEXT As Integer = &HC
Private Const BN_CLICKED As Integer = &HF5
Private Const GW_HWNDFIRST As Integer = 0
Private Const GW_HWNDLAST As Integer = 1
Private Const GW_HWNDNEXT As Integer = 2
Private Const GW_HWNDPREV As Integer = 3
Private Const GW_OWNER As Integer = 4
Private Const GW_CHILD As Integer = 5
Private Const GW_ENABLEDPOPUP As Integer = 6
<DllImport("User32.dll")> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As StringBuilder) As Int32
End Function
<DllImport("user32.dll")> _
Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
End Function
<DllImport("user32.dll")> _
Private Shared Function GetClassName(ByVal hWnd As IntPtr, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer
End Function
<DllImport("user32.dll")> _
Private Shared Function GetWindow(ByVal hWnd As IntPtr, ByVal uCmd As Integer) As IntPtr
End Function
Private Sub ChangeInputs()
Dim hWnd As IntPtr = FindWindow(Nothing, "Math")
If hWnd <> IntPtr.Zero Then
SetAnotherAppInputs(hWnd, 3.5D, 7.5D)
End If
End Sub
Private Sub SetAnotherAppInputs(ByVal hWnd As IntPtr, ByVal firstNum As Decimal, ByVal secondNum As Decimal)
Dim hWndEditBoxFirst As IntPtr = IntPtr.Zero, hWndEditBoxSecond As IntPtr = IntPtr.Zero, hWndButtonGo As IntPtr = IntPtr.Zero
Dim hChildWnd As IntPtr = GetWindow(hWnd, GW_CHILD Or GW_HWNDFIRST)
Dim tabIndex As Integer = 0
While hChildWnd <> IntPtr.Zero
Dim className As New StringBuilder(512)
GetClassName(hChildWnd, className, 512)
Dim windowClassName As String = className.ToString()
If windowClassName.Contains(".EDIT.") Then
If tabIndex = 4 Then
hWndEditBoxFirst = hChildWnd
ElseIf tabIndex = 2 Then
hWndEditBoxSecond = hChildWnd
End If
ElseIf windowClassName.Contains(".BUTTON.") Then
hWndButtonGo = hChildWnd
End If
tabIndex += 1
hChildWnd = GetWindow(hChildWnd, GW_HWNDNEXT)
End While
SendMessage(hWndEditBoxFirst, WM_SETTEXT, IntPtr.Zero, New StringBuilder(firstNum.ToString()))
SendMessage(hWndEditBoxSecond, WM_SETTEXT, IntPtr.Zero, New StringBuilder(secondNum.ToString()))
SendMessage(hWndButtonGo, BN_CLICKED, IntPtr.Zero, Nothing)
End Sub
End Class
از این استفاده کنید.
موفق باشید.