نیاز به برنامه کلیک چپ موس

[سپهر-111]

سلام دوستان و اساتید گرامی
من نیاز به برنامه ای دارم که این کار انجام بده: (فرض مثال من اشاره گر موس به مکانی که میخوام میبرم و در انجا این برنامه مثلا هر یک ثانیه یک بار کلیک چپ موس اجرا کنه)
خیلی وقت هست که با ویژوال بیسیک کار نکردم...
ممنون میشم اگه دوستان قطعه کدی در این زمینه داشته باشند بهم بدند
با تشکر از حسن توجه شما

[isaac23]

نمی دونم این بکارت بیاد یا نه فقط یه تایمر اضافه کن و این دستورات رو اضافه کن بهش

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Form1.PopupMenu f
End If
End Sub

[imanpazoki]

سلام دوستان
بنده هم کدی شبیه همین کد میخوام فقط

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

سپاس فراوان

[meys34]

اینجا رو هم یه سر بزنید:

http://barnamenevis.org/showthread.php?480467-%D9%85%D8%A7%DA%A9%D8%B1%D9%88-%D8%A8%D8%B1%D8%A7%D9%8A-%D8%B9%D9%85%D9%84%D9%8A%D8%A7%D8%AA-%D9%85%D8%A7%D9%88%D8%B3&p=2152792&viewfull=1#post2152792

[سپهر-111]

سلام دوستان
ممنون از پاسخهایی که دادید:لبخندساده:
در کل من یک کد ساده میخوام : فقط کلیک چپ موس انجام بده و هیچ کار دیگه ای نمیخوام (شاید اینطوری ساده تر باشه)
ممنون میشم اگه همچین کدی دارید ،دریغ نکنید:تشویق:

[vbhamed]

سلام

از تابع Api زیر استفاده نمایید
توضیحات بیشتر در گوگل
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As MouseEvent_Enum, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

[سپهر-111]

سلام
تشکر میکنم از پاسخ مفید که دادید.

و همچنین این لینک خارجی پیدا کردم :

http://www.vbforums.com/showthread.php?555688-I-want-to-programmatically-click-the-mouse