کلیک روی یک دکمه در پیغام در وی بی

[alibehroozi]

سلام

من از یک کامپوننتی استفاده میکنم که موقع لود برنامه یک پیغام بهم میده 2 تا دکمه داره که نوشته :
Evaluate
Register
حالا من میخواهم این پیام نشون داده نشه یا روی Evaluate به طور خودکار کلیک کنه که در کل نمایش داده نشه
در ضمن کلید close هم نداره این برنامه یک پیغام کوچیک با 2 تا باتن
اگر میشه خواهشا کمک کنید

ممنونم

[alibehroozi]

دوستان لطفا پاسخ بدن .... خیلی نیاز دارم

[setroyd]

برنامه شما یعنی رجیستر نشده اگه اینقدر راحت بود که همه از کامپوننت های رجیستر نشده استفاده میکردن ! شما میتونی یه کاری کنی بیای یه تایمر با api تعریف کنی که تو انجمن هست نمونش نمیخواد بزارم و بعدش با دستور Click sendmessage بیای روی evaluate کلیک کنی البته اگر نوع اون button چیزی غیر از button نباشه مثلا طرف با Picture box طراحی نکرده باشه . راه های متداولی هست این یکیش بود مثلا کلا من هیچ کدوم رو توصیه نمیکنم بجز رجیستر کردن اون کامپوننت .

[alibehroozi]

اینو میدونم
اما اون کدی که شما گفتی رو من توی انجمن چی سرچ کنم ؟
در هر صورت واضح راهنمایی کنید
ممنون

[سید حمید حق پرست]

سلام علیکم
اسم کامپوننت؟

یا علی (ع)

[alibehroozi]

vintasoft
دنبال کرک نیستم
دنبال اینم که چطوری میتونم پیامش رو غیر فعال کنم یا کلیک کنیم ( البته با اینتر هم میشه )
و اینکه میخواستم بپرسم منظور از بافر انتقال در اسکنر چیست ؟

ممنون

[m.4.r.m]

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

[alibehroozi]

یعنی یک دستوری نیست که من اینتر بزنم روی این پیام ؟ :متعجب:

[سید حمید حق پرست]

برای زدن کلید اینتر میتونی از کد زیر استفاده کنید :
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_ENTER = 13

Private Sub Command1_Click()
keybd_event VK_ENTER, 0, 0, 0
End Sub
اگر بتونید دستور رو قبل از باز شدن پیغام اجرا کنید فکر کنم پیغام بسته بشه، خودم روی msgbox تست کردم کار کرد، اینجوری :
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_ENTER = 13

Private Sub Command1_Click()
keybd_event VK_ENTER, 0, 0, 0
MsgBox "test"
End Sub
اگر نشد لینک کامپوننت پ.خ کنید تا روشهای دیگه ای رو تست کنم یا پیغام معکوس کنم
موفق باشید.

یا علی (ع)

[alibehroozi]

برای زدن کلید اینتر میتونی از کد زیر استفاده کنید :
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_ENTER = 13

Private Sub Command1_Click()
keybd_event VK_ENTER, 0, 0, 0
End Sub
اگر بتونید دستور رو قبل از باز شدن پیغام اجرا کنید فکر کنم پیغام بسته بشه، خودم روی msgbox تست کردم کار کرد، اینجوری :
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_ENTER = 13

Private Sub Command1_Click()
keybd_event VK_ENTER, 0, 0, 0
MsgBox "test"
End Sub
اگر نشد لینک کامپوننت پ.خ کنید تا روشهای دیگه ای رو تست کنم یا پیغام معکوس کنم
موفق باشید.

یا علی (ع)

سلام ممنون عمل کرد
فقط یک مشکل داره اینم که Register رو اجرا میکنه
Evaluate دکمه بالایی هست که باید با کلید بالا بره روی اون
اگر میشه کد اونو هم بگید ممنون

[سید حمید حق پرست]

سلام علیکم
بفرمایید :
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_ENTER = 13
Const VK_LEFT = &H25

Private Sub Command1_Click()
keybd_event VK_LEFT, 0, 0, 0
keybd_event VK_ENTER, 0, 0, 0
End Sub
برای تست هم :
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_ENTER = 13
Const VK_LEFT = &H25

Private Sub Command1_Click()
keybd_event VK_LEFT, 0, 0, 0
keybd_event VK_ENTER, 0, 0, 0
If MsgBox("test", vbYesNo) = vbNo Then MsgBox "no"
End Sub
موفق باشید.

یا علی (ع)

[alibehroozi]

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

ممنون

[سید حمید حق پرست]

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

ممنون
توضیح کلی : بافر یک حافظه میانی هستش که انتقال اطلاعات به صورت مستقیم از طریق آن انجام می گیرد، اطلاعات در هر مرحله وارد بافر میشه و بعد به مقصد منتقل می شود.
موفق باشید.

یا علی (ع)

[alibehroozi]

همین طور که میدونید اسکنر هایی برای اسکن سریع تصویر اومده ( همونایی که برگ رو میکشن تو و اسکن میکنن مثل پرینتر )
در ویژوال بیسیک چطوری از این امکان استفاده کنیم

ممنون ( فکر کنم ADF ) باشه