فرستادن key ؟

[mohsen57]

با کد زیر میشه Enter رو فرستاد. برای فرستادن کلید Ctrl+m چی باید بنویسم؟

PostMessage hWnd, WM_KEYDOWN, VK_RETURN, 0

[mohsen57]

کسی بلد نیست؟ بجای VK_RETURN چی باید بنویسم؟

[vbhamed]

سلام


SendKeys "^{ENTER}"

[mohsen57]

من میخوام با PostMessage بفرستم.

[r0ot$harp]

دوست عزیز از این کد استفاده کنید .


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


Button = FindWindowEx(IMClass, 0&, "Button", "&Send")

If Button <> 0 Then
SendMessage Button, BM_CLICK, 0&, 0&
end if


باتشکر احسان

[mohsen57]

آقا احسان، فکر کنم متوجه سوال من نشدی. من می خوام Ctrl+m رو بفرستم به یک پنجره.
البته می خوام به یاهو مسنجر بفرستم برای باز کردن پنجره "Send an Instant Message"
اگه بخوام از SendKeys استفاده کنم باید اول پنجره یاهو مسنجر را بالا بیارم که نمی خوام این کار رو بکنم. فقط می خوام از PostMessage یا SendMessage استفاده کنم.
این هم ثابت ها:


Const VK_CONTROL = &H11
Const VK_M = &H4D

[r0ot$harp]

آقا احسان، فکر کنم متوجه سوال من نشدی. من می خوام Ctrl+m رو بفرستم به یک پنجره.
البته می خوام به یاهو مسنجر بفرستم برای باز کردن پنجره "Send an Instant Message"
اگه بخوام از SendKeys استفاده کنم باید اول پنجره یاهو مسنجر را بالا بیارم که نمی خوام این کار رو بکنم. فقط می خوام از PostMessage یا SendMessage استفاده کنم.
این هم ثابت ها:


Const VK_CONTROL = &H11
Const VK_M = &H4D

آی آی آی آی از دست آدمای شیطون :قهقهه::قهقهه::قهقهه::قهقهه::� �بخند::لبخند::لبخند: .

دوست عزیز شما برای این کار باید از GetMenu , GetMenuID و ... استفاده کنید .

من می تونم به راحنی کد رو در اختیارتون بزارم ولی اگر خودتون سعی کنید به جواب برسین بهتره . چون این ها یه سری نکته های نیمه حرفه ای هستن .



باتشکر احسان

[mohsen57]

آی آی آی آی از دست آدمای شیطون :� �بخند: .

:لبخند::لبخند:

دوست عزیز شما برای این کار باید از GetMenu , GetMenuID و ... استفاده کنید .
در این روش منو باز میشه؟:متفکر:

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


Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
m = GetMenu(y)

[r0ot$harp]

:لبخند::لبخند:

در این روش منو باز میشه؟:متفکر:

اذیتمون نکن. هر چی سرچ کردم چیز خاصی دستگیرم نشد
فقط اینو پیدا کردم:


Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
m = GetMenu(y)


دوست عزیز یه منو از چندین جزء تشکیل شده است .

Menu - SubMenu - Item .

شما باید اول منو رو پیدا کنید . بعد با GetSubMenu مقدار 2 رو دریافت کنید .سپس با GetMenuID باید مقدار 0 رو دریافت کنید . این مقدار ID اون Ctrl+m هست :بامزه::بامزه::بامزه::گیج::گی� �::قهقهه::قهقهه::قهقهه: .



باتشکر احسان

[mohsen57]

آقا احسان اگه میشه سورس رو بنویس چون همه تلاشم رو کردم خسته شدم ولی نتونستم. :گریه:
اگه خواستی pm بده.

[r0ot$harp]

آقا احسان اگه میشه سورس رو بنویس چون همه تلاشم رو کردم خسته شدم ولی نتونستم. :گریه:
اگه خواستی pm بده.

دوست عزیز اگر قرار باشه من بنویسم و شما استفاده کنید هیج کسی در این زمینه پیشرفت نخواهد کرد . و اینم بدونین همه ی کار ها نباید در یک روز انجام شود بعضی اوقات هست که روزها باید تلاش کرد .


MainClass = FindWindow("YahooBuddyMain", vbNullString)

If MainClass <> 0 Then
hMainMenu = GetMenu(MainClass)
hMenu = GetSubMenu(hMainMenu, 2)
MenuID = GetMenuItemID(hMenu, 0)
PostMessage MainClass, WM_COMMAND, MenuID, 0
End If



باتشکر احسان