حرفه ای: استفاده از web browser [بایگانی]

ali682344

سه شنبه 03 مرداد 1391, 20:40 عصر

سلام
بچه ها به این سورس php نگاه کنید:

<select id="shahrestan_s" name="shahrestan_s" default="<?php echo($_POST["shahrestan_s"]); ?>" class="requre shahrestan" >
<option value="" selected="selected" > انتخاب کنید</option>
<option value="2011100000" >شهرستان آذر شهر</option>
<option value="2014220000" >شهرستان پلدشت</option>
<option value="2014230000" "
حالا من مشکلم اینه که این دستورات داخل یه combo auto complete هستن،من می خوام با وی بی اوتوماتیک این شهرها رو انتخاب کنم که نیاز نباشه انلاین کار کنم من با خود combo مشکلی ندارم یعنی می تونم داخل کمبو هم کد شهر رو بنویسم و هم اسم شهر ولی وقتی می زنم رو کلید ثبت سایت می گه این فیلد شهر رو پر کنید:متفکر:

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

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

چهارشنبه 04 مرداد 1391, 02:51 صبح

سلام علیکم
بنده هم همین مشکلو دارم البته با انسور یاهو . دوستان به نظر شما مشکل چیه

یا علی (ع)

just4froum

چهارشنبه 04 مرداد 1391, 13:57 عصر

با سلام :

ببین این به دردت میخوره ؟

Private Sub Command1_Click()
For n = 0 To w.Document.All.length - 1
If w.Document.All(n).tagName = "OPTION" Then
If w.Document.All(n).Value = "2011100000" Then w.Document.All(n).Selected = True: Exit Sub
End If
Next
End Sub

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

پنج شنبه 05 مرداد 1391, 09:37 صبح

ممنون از جناب just4froum (http://barnamenevis.org/member.php?211054-just4froum) عزیز . اما جواب نداد . آیا راه دیگه ای نیست؟
دوستان اگر میشه راهنمایی کنید

یا علی (ع)

محسن واژدی

پنج شنبه 05 مرداد 1391, 10:59 صبح

سلام علیکم
میتوانید آدرس سایتی که با این مورد در آن مواجه هستید را در اینجا یا pm ذکر کنید؟

موفق باشید

just4froum

پنج شنبه 05 مرداد 1391, 13:26 عصر

نمونه سورس ضمینه شد جناب حق پرست.

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

جمعه 06 مرداد 1391, 01:36 صبح

سلام علیکم

سلام علیکم
میتوانید آدرس سایتی که با این مورد در آن مواجه هستید را در اینجا یا pm ذکر کنید؟

موفق باشید
ممنون از شما
سایت یاهوو قسمت انسور هنگام ثب ای دی

از دوست عزیز just4froum (http://barnamenevis.org/member.php?211054-just4froum) تشکر میکنم لطف کردید . الان دانلود میکنم

یا علی (ع)

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

جمعه 06 مرداد 1391, 04:44 صبح

سلام علیکم
ممنون از just4froum (http://barnamenevis.org/member.php?211054-just4froum) عزیز اما برای انسور یاهو جواب نمیده . البته حتما من اشتباه ویرایش کردم . یاهو دو تا انسور داره که باید با توجه به ای دی اونها تغیر بدهیم که من کد شما رو به کد زیر تغییر دادم اما باز کار نمیکنه :
For n = 0 To WebBrowser1.Document.GetElementById("secquestion").All.length - 1
If WebBrowser1.Document.GetElementById("secquestion").All(n).tagName = "OPTION" Then
If WebBrowser1.Document.GetElementById("secquestion").All(n).Value = CStr(Val(Combo3.ListIndex) + Val("1")) Then WebBrowser1.Document.GetElementById("secquestion").All(n).Selected = True
End If
Next

و کد دو تا OPTION به ترتیب اینه :

<select class="" id="secquestion" name="secquestion" aria-required="true"> <option value="" SELECTED >- Select One -</option> <option value="What is the first name of your favorite uncle?" >What is the first name of your favorite uncle?</option> <option value="Where did you meet your spouse?" >Where did you meet your spouse?</option> <option value="What is your oldest cousin's name?" >What is your oldest cousin's name?</option> <option value="What is your youngest child's nickname?" >What is your youngest child's nickname?</option> <option value="What is your oldest child's nickname?" >What is your oldest child's nickname?</option> <option value="What is the first name of your oldest niece?" >What is the first name of your oldest niece?</option> <option value="What is the first name of your oldest nephew?" >What is the first name of your oldest nephew?</option> <option value="What is the first name of your favorite aunt?" >What is the first name of your favorite aunt?</option> <option value="Where did you spend your honeymoon?" >Where did you spend your honeymoon?</option> </select>

<select class="" id="secquestion2" name="secquestion2" aria-required="true"> <option value="" SELECTED >- Select One -</option> <option value="Where did you spend your childhood summers?" >Where did you spend your childhood summers?</option> <option value="What was the last name of your favorite teacher?" >What was the last name of your favorite teacher?</option> <option value="What was the last name of your best childhood friend?" >What was the last name of your best childhood friend?</option> <option value="What was your favorite food as a child?" >What was your favorite food as a child?</option> <option value="What was the last name of your first boss?" >What was the last name of your first boss?</option> <option value="What is the name of the hospital where you were born?" >What is the name of the hospital where you were born?</option> <option value="What is your main frequent flier number?" >What is your main frequent flier number?</option> <option value="What is the name of the street on which you grew up?" >What is the name of the street on which you grew up?</option> <option value="What is the name of your favorite sports team?" >What is the name of your favorite sports team?</option> <option value="What was your first pet's name?" >What was your first pet's name?</option> <option value="What is the last name of your best man at your wedding?" >What is the last name of your best man at your wedding?</option> <option value="What is the last name of your maid of honor at your wedding?" >What is the last name of your maid of honor at your wedding?</option> <option value="What is the name of your favorite book?" >What is the name of your favorite book?</option> <option value="What is the last name of your favorite musician?" >What is the last name of your favorite musician?</option> <option value="Who is your all-time favorite movie character?" >Who is your all-time favorite movie character?</option> <option value="What was the make of your first car?" >What was the make of your first car?</option> <option value="What was the make of your first motorcycle?" >What was the make of your first motorcycle?</option> <option value="Who is your favorite author?" >Who is your favorite author?</option> </select>

ممنون میشم راهنمایی کنید

یا علی (ع)

just4froum

جمعه 06 مرداد 1391, 14:57 عصر

با سلام :

چون یاهو یک سایتی است که سورسش تغییر نمی کنه شما می تونید کلا عددی که باید برای n بدست بیارید را از قبل بدست آورده و در برنامه قرار بدهید نه این که در برنامه دنبال n بگردید (البته جفتش درسته ولی اگر از قبل n را بدست آورید راحت تره)

به عنوان مثال این برای قسمت ثبت نام در یاهو : (برای کمبو باکس اول سوال امنیتی)

Private Sub Command1_Click()
If Combo.ListIndex <> -1 Then Web.Document.All(440 + Combo.ListIndex).Selected = True
End Sub

Private Sub Form_Load()
Combo.Text = "- Select One -"
Combo.AddItem "What is the first name of your favorite uncle?"
Combo.AddItem "Where did you meet your spouse?"
Combo.AddItem "What is your oldest cousin's name?"
Combo.AddItem "What is your youngest child's nickname?"
Combo.AddItem "What is your oldest child's nickname?"
Combo.AddItem "What is the first name of your oldest niece?"
Combo.AddItem "What is the first name of your oldest nephew?"
Combo.AddItem "What is the first name of your favorite aunt?"
Combo.AddItem "Where did you spend your honeymoon?"
End Sub

just4froum

جمعه 06 مرداد 1391, 15:05 عصر

مشکل کد خودتون هم از این قسمت قرمز هست :

If Web.Document.GetElementById("secquestion").All(n).Value = CStr(Val(Combo3.ListIndex) + Val("1")) Then Web.Document.GetElementById("secquestion").All(n).Selected = True

توی سورس اگر ببینید مقدار value میشود : What is the first name of your favorite uncle?

<option value="What is the first name of your favorite uncle?" >What is the first name of your favorite uncle?</option>

در صورتی که شما آن را برابر یک عدد قرار داده اید پس درستش میشه

For n = 0 To Web.Document.GetElementById("secquestion").All.length - 1
If Web.Document.GetElementById("secquestion").All(n).tagName = "OPTION" Then
If Web.Document.GetElementById("secquestion").All(n).Value = "What is the first name of your favorite uncle?" Then Web.Document.GetElementById("secquestion").All(n).Selected = True
End If
Next

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

یک شنبه 08 مرداد 1391, 22:42 عصر

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

یا علی (ع)

ali682344

یک شنبه 29 مرداد 1391, 14:57 عصر

سلام از همه راهنمایی هایی که دوستان ارائه دادن تشکر می کنم.
مشکل من با این دستورات حل شد.

Public Function SetComboBoxValue(Form As Integer, Name As String, name2 As String)
Dim q, i
For q = 0 To WebBrowser.Document.Forms(Form).length - 1
'MsgBox WebBrowser.Document.Forms(Form)(q).Name
If (WebBrowser.Document.Forms(Form)(q).Name = Name) Then
For i = 0 To WebBrowser.Document.Forms(Form)(q).length - 1
'MsgBox WebBrowser.Document.Forms(Form)(q).Options(i).Valu e
If WebBrowser.Document.Forms(Form)(q).Options(i).Valu e = name2 Then
WebBrowser.Document.Forms(Form)(q).Options(i).Sele cted = True
Exit For
End If
Next i
End If
Next q
End Function