+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] احتاج الى تعديل :( (/showthread.php?tid=21493)
احتاج الى تعديل :( - MeDo Ly - 25-08-17
السلام عليكم ورحمة الله وبركاته
انا اليوم درت برنامج وكملت كل شيئ
بس جاني شيئ غلط
وماعرفتش احله 
الكود :
كود :
SendKeys.SendWait("{MouseLeft}")احتاج تعديل الى ان يرسل ماوس left يعني يرسل ضغظ click بالماوس
RE: احتاج الى تعديل :( - Algeriany - 25-08-17
(25-08-17, 08:53 PM)MeDo Ly كتب : السلام عليكم ورحمة الله وبركاته
انا اليوم درت برنامج وكملت كل شيئ
بس جاني شيئ غلط
الكود :
كود :
SendKeys.SendWait("{MouseLeft}")
احتاج تعديل الى ان يرسل ماوس left يعني يرسل ضغظ click بالماوس
حتى اني عندي مشكله في هادي معرفتش نديرها
RE: احتاج الى تعديل :( - أبو نوره - 25-08-17
مرحبا اخى
SendKeys خاصه بلوحه المفاتيح حتى انها ليس كل المفاتيح
تحتاج API التاليه ضعها في بدايه كلاس الفورم
PHP كود :
<Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Sub mouse_event(ByVal dwFlags As UInteger, ByVal dx As UInteger, ByVal dy As UInteger, ByVal dwData As UInteger, ByVal dwExtraInfo As Integer)
End Sub
Public Enum MouseEventFlags As UInteger
MOUSEEVENTF_ABSOLUTE = &H8000
MOUSEEVENTF_LEFTDOWN = &H2
MOUSEEVENTF_LEFTUP = &H4
MOUSEEVENTF_MIDDLEDOWN = &H20
MOUSEEVENTF_MIDDLEUP = &H40
MOUSEEVENTF_MOVE = &H1
MOUSEEVENTF_RIGHTDOWN = &H8
MOUSEEVENTF_RIGHTUP = &H10
MOUSEEVENTF_XDOWN = &H80
MOUSEEVENTF_XUP = &H100
MOUSEEVENTF_WHEEL = &H800
MOUSEEVENTF_HWHEEL = &H1000
End Enum
لان الحدث Click هو عباره عن Down ثم Up تحتاج لهذين السطرين لتنفيذ ضغط الزر الايسر للماوس
لاحظ MouseEventFlags اللي فوق فيها قيمه المفتاح الايمن والاوسط وايضا العجله تبع الماوس
PHP كود :
mouse_event(MouseEventFlags.MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MouseEventFlags.MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
بالتوفيق للجميع