گرفتن Handel و SendMassage و Postemasage

[sima_6600]

سلام ببخشید که مزاحم شدم من چند تا سوال داشتم که کسی جواب نمیده میخواستم اگر ممکنه کمکم کنید
1-من میخوام هندل یک پنجره رو بدست بیارم اما مشکل اینه که هر بار اجرای برنامه کپشنش عوض میشه و نمیشه ازش هندل گرفت فکر کنم بشه با نام پروسه هندل رو گرفت اما من بلد نیستم. میشه یک سورس در ای باره به من بدیت ممنونم
2-چطور میشه یک متن رو به یک تکس ارسال کرد و کلید اینتر رو هم ارسال کنه
با تشکر فراوان
لطف کنید بامثلا توضیح بدیت

[Payman62]

سلام ببخشید که مزاحم شدم من چند تا سوال داشتم که کسی جواب نمیده میخواستم اگر ممکنه کمکم کنید
1-من میخوام هندل یک پنجره رو بدست بیارم اما مشکل اینه که هر بار اجرای برنامه کپشنش عوض میشه و نمیشه ازش هندل گرفت فکر کنم بشه با نام پروسه هندل رو گرفت اما من بلد نیستم. میشه یک سورس در ای باره به من بدیت
2-چطور میشه یک متن رو به یک تکس ارسال کرد و کلید اینتر رو هم ارسال کنه
با تشکر فراوان

سلام.
برای سوال 1 میتونی رو پنجره مورد نظر کلیک کنی؟ بعد هندل پنجره دارای فوکوس رو بگیریم. یا نه پنجره در اختیارت نیست؟
اون سورس ویبی دات نت از کلاس های دات نت استفاده کرده. ما نمیتونیم تو ویبی ازشون استفاده کنیم. اما یه راه داره. میتونی اون سورس رو dll کنی و بیاری تو ویبی ازش استفاده کنی.

2-

کد:

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Const WM_CHAR = &H102
Private Const VK_RETURN = &HD 'Enter Key
Private Const WM_KEYDOWN = &H100
Private Const WM_SETTEXT = &HC

Private Sub SendText(editx As Long, Text As String)
Text = Left(Text, 395)
SendMessageSTRING editx, WM_SETTEXT, 400, Text
End Sub

Private Sub Command1_Click()
SendText 397432, "Dkk"
End Sub