مبتدی: زدن دکمه تب تو برنامه [بایگانی]

View Full Version : مبتدی: زدن دکمه تب تو برنامه

ma300d

یک شنبه 12 شهریور 1391, 18:19 عصر

سلام
یه برنامه دارم مینویسم حالا یه قسمتش لازمه که
مثلا 4 بار دکمه تب زده بشه تو وب بروزر سپس اینتر زده بشه
از دوستان کسی میتونه کمک کنه
چون با cmd اینا اشنایی ندارم بیشتر راهنمایی کنید یا همشو بنویسید :افسرده::خجالت: ممنون میشم :لبخند:

SlowCode

یک شنبه 12 شهریور 1391, 18:34 عصر

اين دستور ارسال تب هست.
SendKeys "{tab}"
حالا واسه 4 بار ميتوني بنويسي:
For i = 1 To 4
SendKeys "{tab}"
Next

ma300d

یک شنبه 12 شهریور 1391, 19:31 عصر

ممنون که جواب دادی
خطای dermison dineid میده
این رو واسه وب بروزر میخوام
یعنی فوکوس تو وب بروز باشه
بازم ممنون

ma300d

یک شنبه 12 شهریور 1391, 21:56 عصر

دروب بروزر میخوام فوکوس کنه یعنی

امین مستانی

دوشنبه 13 شهریور 1391, 02:17 صبح

سلام

WebBrowser1.SetFocus

ma300d

دوشنبه 13 شهریور 1391, 10:17 صبح

ممنون
ولی من این راه رو تست کردم با فوکوس کردن و زدن دکمه تب در وب بروزر دکمه تب زده نمیشه
یعنی مثلا من میخوام برنامه 4 بار دکمه تب رو بزنه تا بره رو یه لینکی و بعد اینتر بزنه خودش
یه دوستی میگفتن باید کلیدش رو پیداکنی :-?

امین مستانی

دوشنبه 13 شهریور 1391, 14:37 عصر

این نمونه را بررسی کنید ...

ma300d

دوشنبه 13 شهریور 1391, 19:47 عصر

این نمونه را بررسی کنید ...

شما خودتون این رو تست کردید؟
من که اجراش کردم خطا میده خطای 70 run time
از دستور on error resume next
هم که استفاده کردم برای رفع خطا و برنامه جواب نداد

امین مستانی

دوشنبه 13 شهریور 1391, 20:30 عصر

من دوباره برنامه رو تست کردم خطایی نداد
میشه بگید به چی گیر میده ؟؟

Veteran

دوشنبه 13 شهریور 1391, 21:02 عصر

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_Load()
WebBrowser1.SetFocus
'=====Tab
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, &H2, 0
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, &H2, 0
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, &H2, 0
keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, &H2, 0
'======Enter
keybd_event 13, 0, 0, 0
keybd_event 13, 0, &H2, 0
End Sub

ma300d

سه شنبه 14 شهریور 1391, 01:34 صبح

دوست عزیز Veteran اینو من به صورت برنامه در اوردم ولی اجرا نشد ضمیمه کردم
92309

ma300d

سه شنبه 14 شهریور 1391, 01:37 صبح

من دوباره برنامه رو تست کردم خطایی نداد
میشه بگید به چی گیر میده ؟؟
run time 70
خطا نداد یعنی 4 بار فوکوس کرد و اینتر رو زد؟ و صفحه بروزر عوض شد ؟

ma300d

چهارشنبه 15 شهریور 1391, 00:11 صبح

همنچان منتظر کمک شما

aleas2

چهارشنبه 15 شهریور 1391, 01:14 صبح

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

Private Sub Command1_Click()
WebBrowser1.Document.Forms(0).elements("btnSubmit").Click

End Sub

ma300d

چهارشنبه 15 شهریور 1391, 10:09 صبح

نه دوست من
بلاگفا مثال بود

ma300d

چهارشنبه 15 شهریور 1391, 20:55 عصر

کسی جواب نمیده ;(