تنظيم ليست درون سايت با ليست برنامه

[gorg313]

سلام

چند وقت هست دارم برنامه نويسي تحت وب انجام ميدم ولي متاسفانه در چند بخش به جواب کامل نرسيدم لطفآ منو راهنمايي کنيد

درون سايت (http://chatgap2gap.mihanblog.com/) يک ليست باکس داريم اسم باکس و اطلاعاتش درون کد پايين هست

Private Sub Combo1_Click()
'provider اسم ليست باکس تو سايته
WebBrowser1.Document.All.Item("provider").Value = Combo1.Text

End Sub



خوب مشکل من اينه وقتي روي ليست باکس فرم کليک ميکنم اطلاعات ليست باکس سايت خالي ميشه و و اطلاعات درون ليست باکس من را نميخونه :لبخند: شيطونه ميگه بزنم بکشمش

خوب بگذريم

گزينه ارسال هم داره که يک باتون هستش ولي متاسفانه نام نداره و کلاسس تعريف شده واسش :لبخند:


<td align="left" colspan="2">

<input class="btn" type="submit" onclick="return valid2()" value="Send"></input>

</td>

اينم کدش خوب من چکار کنم يکي اينو کامل بهم بگه:اشتباه:

اين کد واسه باتون هايي هست که اسم دارن نميشه در اين برنامه استفاده کرد

'WebBrowser1.Document.getelementbyid("اسم دکمه").Click

[Dr Saeed]

سلام

میشه اون سایت رو بزارید

[gorg313]

سلام اينم سايت (http://gamepm.mihanblog.com/)

http://www.sms2free.net

:لبخند:

[meys34]

سوال اولتون:
Private Sub Command1_Click()
Dim o As Object

For Each o In WebBrowser1.Document.getelementbyid( "provider" ).Options
List1.AddItem o.Text
'MsgBox o.Text
Next
End Sub

Private Sub Form_Load()
WebBrowser1.Silent = True
WebBrowser1.Navigate "http://www.sms2free.net/"
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub

سوال دوم:
Private Sub Command2_Click()
WebBrowser1.Document.Forms( "smsfrm" ).Submit
End Sub

البته مشکل اصلی اینه... http://www.sms2free.net/captcha.php
باید این کد به درستی نوشته بشه...
یعنی اینکه نمیشه به صورت خودکار از این سایت استفاده کرد...

[gorg313]

سلام ميثم من تقريبآ کامل نوشته بودم اصلياش اينا بودن که نمي تونستم خوب من اون گزينه چک باکس يادم رفته بود بپرسم

بعد هم من ميخوام کامبو باکس سايت که داخل وب سايت عوض بشه نه ليست برنامه من برعکسش

:لبخند:

اون کد را هم که قرار دادي مشکل نداره



Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub







اين کد هم از باز شدن وب جديد از سايت (http://sms-mss.mihanblog.com/) جلوگيري ميکنه درسته ؟ :لبخند:

[meys34]

آقا یه سوالی کلا هدفت چیه؟

راستی کپچا رو چیکار کردی؟ چه جوری دورش میزنی؟


سلام ميثم من تقريبآ کامل نوشته بودم اصلياش اينا بودن که نمي تونستم خوب من اون گزينه چک باکس يادم رفته بود بپرسم


WebBrowser1.Document.getelementbyid( "accept" ).Status = True



بعد هم من ميخوام کامبو باکس سايت که داخل وب سايت عوض بشه نه ليست برنامه من برعکسش

:لبخند:



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

ولی موقع ارسال (به جای ارسال متن) یه عدد ارسال میشه و اون عدد داخل سرور سایت پردازش میشه و شما اونو دیگه نمیتونی کاریش بکنی...





Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub


اين کد هم از باز شدن وب جديد از سايت (http://sms-mss.mihanblog.com/) جلوگيري ميکنه درسته ؟ :لبخند:
بله چون هی صفحه چیلتژینک باز میشد این کارو کردم...

[gorg313]

آقا یه سوالی کلا هدفت چیه؟

راستی کپچا رو چیکار کردی؟ چه جوری دورش میزنی؟

من دورش نميزنم به صورت عادي فراخوانيش ميکنم و کاربر وارد ميکنه

من هدف خاصي ندارم هميشه برام گزينه هايي که نام ندارن تو سايت جالب بودن

فقط کلاس هستن و جالبه برام ميخوام در کل ياد بگيرمش





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

ولی موقع ارسال (به جای ارسال متن) یه عدد ارسال میشه و اون عدد داخل سرور سایت پردازش میشه و شما اونو دیگه نمیتونی کاریش بکنی...




من اعدادشو در اوردم

348

497

322

خوب به قول خودت اصليش اعداد هستش من براش تعريف ميکنم

322 = own num

own num = عدد تعريفش ميکنم و با 322 برابرش ميکنم

if combo1.text= own num then
own num = 322
end if

خوب کاربر ديگه عدد را نميبينه و متن براش هست ولي درون برنامه عدد سند ميشه

ولي من تو سايت تست کردم عدد تو کامبو باکسش نرفت گيجم کرد

:اشتباه:

بازم دستت درد نکنه خيلي چيزاي خوبي ياد گرفتم ازت دمت گرم :بوس:

[meys34]

من دورش نميزنم به صورت عادي فراخوانيش ميکنم و کاربر وارد ميکنه

من هدف خاصي ندارم هميشه برام گزينه هايي که نام ندارن تو سايت جالب بودن

فقط کلاس هستن و جالبه برام ميخوام در کل ياد بگيرمش



ما داریم تو برنامه نویس درس پس میدیم...




من اعدادشو در اوردم

348

497

322

خوب به قول خودت اصليش اعداد هستش من براش تعريف ميکنم

322 = own num

own num = عدد تعريفش ميکنم و با 322 برابرش ميکنم

if combo1.text= own num then
own num = 322
end if

خوب کاربر ديگه عدد را نميبينه و متن براش هست ولي درون برنامه عدد سند ميشه

ولي من تو سايت تست کردم عدد تو کامبو باکسش نرفت گيجم کرد

:اشتباه:

بازم دستت درد نکنه خيلي چيزاي خوبي ياد گرفتم ازت دمت گرم :بوس:

میشه value دونه دونه option ها رو تغییر داد... ولی من فکر کردم اگه کلا innerHTML رو تغییر بدیم سریعتر و راحت تر باشه...

بنابراین:
Dim t As String
t = "<option value='0'>انتخاب کنيد</option>" _
& "<option value='347'>شرکت مخابرات کيش=347</option>" _
& "<option value='348'>شرکت مخابرات سيار اصفهان=348</option>" _
& "<option value='497'>ايرانسل=497</option>" _
& "<option value='322'>پارس آنلاين=322</option>"

t = "<select name='provider' id='provider' class='input-text' style='width:170px;'>" & t & "</select>"

WebBrowser1.Document.getelementbyid( "providers" ).innerHTML = t

[gorg313]

میشه value دونه دونه option ها رو تغییر داد... ولی من فکر کردم اگه کلا innerHTML رو تغییر بدیم سریعتر و راحت تر باشه...

بنابراین:
Dim t As String
t = "<option value='0'>انتخاب کنيد</option>" _
& "<option value='347'>شرکت مخابرات کيش=347</option>" _
& "<option value='348'>شرکت مخابرات سيار اصفهان=348</option>" _
& "<option value='497'>ايرانسل=497</option>" _
& "<option value='322'>پارس آنلاين=322</option>"

t = "<select name='provider' id='provider' class='input-text' style='width:170px;'>" & t & "</select>"

WebBrowser1.Document.getelementbyid( "providers" ).innerHTML = t


من اولين بار مي بينم که ميشه مقادير درون سايت را با ويژوال بيسيک 6 عوض کرد

خيلي حرفه اي و خوب واقعآ آفرين همين نمونه کارتون مي تونه شروع يه کار باشه مثلآ ترجمه سايت هاي خارجي و...

من يه سوال داشتم الان که ليست باکس سايت عوض ميشه

ليست باکس برنامه را ما بايد متن بذاريم مثلآ همين انتخاب کنيد :اشتباه:

تست کردم به جوابي نرسيدم يعني همين کد شما را تست کردم فقط گزينه انتخاب کنيد برام ظاهر ميشه

[meys34]

من يه سوال داشتم الان که ليست باکس سايت عوض ميشه

ليست باکس برنامه را ما بايد متن بذاريم مثلآ همين انتخاب کنيد :اشتباه:

تست کردم به جوابي نرسيدم يعني همين کد شما را تست کردم فقط گزينه انتخاب کنيد برام ظاهر ميشه

ببخشید این قسمت رو خیلی نفهمیدم منظورتون چیه؟

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


به جای این:
"<option value='322'>پارس آنلاين</option>"
اینو بنویسید:
"<option value='322' selected=1 >پارس آنلاين</option>"