گرفتن هندل تکس باکس برنامه دیگر و فرستادن پیغام به آن

سلام.
فرض کنيد يه برنامه بازه و يه تکس باکس هم داره. من ميخوام از طريق برنامه خودم متن تکس باکس رو عوض کنم. اول با FindWindows هندل اون برنامه رو به دست ميارم. ولي بعد که ميخوام هندل تکس باکس رو به دست بيارم نميتونم.
اولش رو برنامه خودم تست کردم. هندل تکس باکس برنامه خودمو که داشتم. خواستم با PostMessage و SendMessage متنشو عوض کنم ولي نشد.
پس لطفا جواب اين 2 سوال رو بديد. اول اينکه چطور هندل تکس باکس یا کنترل های یه برنامه دیگه رو به دست بيارم دوم بعد که هندل رو به دست اوردم چطور بهش پيغام بفرستم و متنشو عوض کنم.
ممنون.

کد:

---

Option Explicit

Const WM_SETTEXT = &HC
Const GWL_STYLE = (-16)
Const GWL_EXSTYLE = (-20)
Const WM_GETTEXT = &HD
Const WM_GETTEXTLENGTH = &HE
Const GWL_HWNDPARENT = (-8)
Const WM_COMMAND = &H111
Const MIN_ALL = 419
Const MIN_ALL_UNDO = 416
Const MAX_PATH = 260
Const SW_SHOW = 5
Const SW_RESTORE = 9
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWNORMAL = 1

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Type RECT
    Left  As Long
    Top    As Long
    Right  As Long
    Bottom As Long
End Type

Private Type WINDOWPLACEMENT
    Length          As Long
    flags            As Long
    showCmd          As Long
    ptMinPosition    As POINTAPI
    ptMaxPosition    As POINTAPI
    rcNormalPosition As RECT
End Type

Private lpwndpl  As WINDOWPLACEMENT
Private CursorLoc As POINTAPI

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 Declare Function GetWindowRect Lib "user32" _
    (ByVal hWnd As Long, lpRect As RECT) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
    (ByVal hWnd As Long, ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function GetCursorPos Lib "user32" _
    (lpPoint As POINTAPI) As Long
   
Private Declare Function WindowFromPoint Lib "user32" _
    (ByVal xPoint As Long, ByVal yPoint As Long) As Long
   
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
    (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
   
Private Declare Function GetWindowThreadProcessId Lib "user32" _
    (ByVal hWnd As Long, lpdwProcessId As Long) As Long
   
Private Declare Function GetWindowPlacement Lib "user32" _
    (ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
   
Private Declare Function SetForegroundWindow Lib "user32" _
    (ByVal hWnd As Long) As Long

Private Declare Function ShowWindow Lib "user32" _
    (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
   
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long
   
Dim lLength As Long
Dim sText  As String

Private Sub cmdMinAll_Click()
Dim lHnd As Long

lHnd = FindWindow("Shell_TrayWnd", vbNullString)
Call PostMessage(lHnd, WM_COMMAND, MIN_ALL, 0&)
End Sub

Private Sub cmdQuit_Click()
Unload Me
End Sub


Private Sub cmdShow_Click()
Dim sAppName  As String
Dim lState    As Long
Dim lHandle    As Long

sAppName = Trim$(txtApp)
If sAppName = "" Then Exit Sub
'
' Find the window with the correct caption.
'
lpwndpl.Length = 44
lHandle = FindWindow(vbNullString, sAppName)
If lHandle = 0 Then Exit Sub
'
' Get the window's state and activate it.
'
lState = GetWindowPlacement(lHandle, lpwndpl)
Select Case lpwndpl.showCmd
    Case SW_SHOWMINIMIZED
        Call ShowWindow(lHandle, SW_RESTORE)
    Case SW_SHOWNORMAL, SW_SHOWMAXIMIZED
        Call ShowWindow(lHandle, SW_SHOW)
End Select
Call SetForegroundWindow(lHandle)
End Sub


Private Sub cmdUndo_Click()
Dim lHnd As Long

lHnd = FindWindow("Shell_TrayWnd", vbNullString)
Call PostMessage(lHnd, WM_COMMAND, MIN_ALL_UNDO, 0&)
End Sub

Private Sub Timer1_Timer()
Dim lHandle    As Long
Dim lProcessId  As Long
Dim lThreadId  As Long
Dim lStrLen    As Long
Dim lParentHWnd As Long
Dim sClass      As String
Dim sCaption    As String
Dim sText      As String
Dim sParentText As String
Dim lpRect      As RECT
'
' Get the cursor's coordinates.
'
Call GetCursorPos(CursorLoc)
lblMouseCoords = CursorLoc.x & ", " & CursorLoc.y
'
' Get the handle of the window at those coordinates.
'
lHandle = WindowFromPoint(CursorLoc.x, CursorLoc.y)
'
' Get the window's caption.
'
lStrLen = MAX_PATH
sCaption = Space$(MAX_PATH)
Call GetWindowText(lHandle, sCaption, lStrLen)
lStrLen = GetWindowText(lHandle, sCaption, lStrLen)
sCaption = Left$(sCaption, lStrLen)
'
' Get the window's process and thread ID.
'
lThreadId = GetWindowThreadProcessId(lHandle, lProcessId)
'
' Get the coordinates if the window.
'
Call GetWindowRect(lHandle, lpRect)
'
' Get the window's class.
'
sClass = Space$(MAX_PATH)
Call GetClassName(lHandle, sClass, 255)
sClass = Left$(sClass, InStr(sClass, vbNullChar) - 1)
'
' Get the handle of its parent window.
'
lParentHWnd = GetWindowLong(lHandle, GWL_HWNDPARENT)
'
' Get the window's text's length.
' Get the window's text.
'
sText = fWindowText(lHandle)
sParentText = fWindowText(lParentHWnd)

If sText = Empty Then
      lLength = SendMessage(lHandle, WM_GETTEXTLENGTH, 0, ByVal 0&)
      sText = Space$(lLength + 1)
      sText = "Romina2006"
      Call SendMessage(lHandle, WM_SETTEXT, lLength + 1, ByVal sText)
End If

lblInfo.Caption = _
      "Caption = " & sCaption & vbCrLf _
    & "Text = " & sText & vbCrLf _
    & "Position = " & lpRect.Left & ", " & lpRect.Top & vbCrLf _
    & "Size = " & (lpRect.Right - lpRect.Left) & ", " & (lpRect.Bottom - lpRect.Top) & vbCrLf _
    & "Class = " & sClass & vbCrLf _
    & "Style = " & Hex$(GetWindowLong(lHandle, GWL_STYLE)) & vbCrLf _
    & "Extended style = " & Hex$(GetWindowLong(lHandle, GWL_EXSTYLE)) & vbCrLf _
    & "Handle = " & lHandle & vbCrLf _
    & "Parent window handle = " & lParentHWnd & vbCrLf _
    & "Parent window text = " & sParentText & vbCrLf _
    & "Process ID = " & CStr(lProcessId) & vbCrLf _
    & "Thread ID = " & CStr(lThreadId)
End Sub


Public Function fWindowText(hWnd As Long) As String
Dim lLength As Long
Dim sText  As String
'
' Return the text of a window.
'
'
' Get the text's length.
'
lLength = SendMessage(hWnd, WM_GETTEXTLENGTH, 0, ByVal 0&)
sText = Space$(lLength + 1)
'
' Get the text.
'
Call SendMessage(hWnd, WM_GETTEXT, lLength + 1, ByVal sText)
fWindowText = Left$(sText, lLength)
End Function

---

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ميشه دوستان يكم در مورد اين كدها توضيح بدن
مدتها است كه من از رومينا پستي نميبينم
با تشكر

کسی نمیخواهد کمک کنه
البته من خودم تا حدودی بلدم

سلام.
شما میتونی با تابع FindWindow پنجره مورد نظرتو پیدا کنی و بعد با تابع FindWindowEx یا GetWindow& میتونی تکس باکس رو پیدا کنی.

ولی دقیقا نگفتی میخوای چی کار کنی.

با سلام
چند وقت پیش یک برنامه از تهران امد شیراز که اطلاعات کارت سوخت ماشینها داخلش بود بانکش رو تغییر داده بودن
و روش پسورد گذاشتن حدود یک هفته روش کار کردم پسورد ش رو شکستم اونو باچه مکافاتی تو محیط اکسس باز کردیم و با چه مکافاتی موفق شدیم با یکی از همکاران اونجوری که میخواستیم درش بیاریم
کارمون انجام شد
حالا میخواهم اگه یک برنامه دیگه با اون شرایط فرستاده شد نخواهم دنبال پسورد و اون مشکلات قبلی بشم
البته برنامه با بیسیک بود
ممنون از وقتی که میگذارین
اگه چند تا تکس باکس باشه چطوری باید تکس باکس مورد نظر رو انتخاب کرد

سلام.
شما میخوای پسوردهای مختلف رو داخل تکس باکس ست کنی و امتحان کنی تا پسورد رو به دست بیاری؟

با سلام
منظور من این نیست بلکه میخواهم مقداری که داخل تکس باکس برنامه ارسالی است رو داخل برنامه خودم بیارم
سپس براساس اون مقدار یک جستجو تو برنامه خودم انجام بدم

سلام.
برای پیدا کردن تکس باکس ها که گفتم کدوم ای پی آی ها کارتو راه میندازن.
برای به دست اوردن متن داخل تکس باکس هم SendMessage میتونه کمکت کنه.

سلام.
برای پیدا کردن تکس باکس ها که گفتم کدوم ای پی آی ها کارتو راه میندازن.
برای به دست اوردن متن داخل تکس باکس هم SendMessage میتونه کمکت کنه.