مشکل با WebBrowser در vb6

[1009645]

سلام دوستان و اساتید عزیز ؛

من در کار با Web Browser در vb6 به مشکل بر خوردم ! من می خوام برنامه ای بنویسم برای یک فروم vBuletin که باهاش بشه پیام خصوصی ارسال کرد !

اما 2 تا مشکل دارم ! اول و مهمتز از همه اینه که وقتی روی Command Botton کلیک میکنم که تکست ها رو از Text Box موجود در فرم کپی کنه ، قسمت عنوان رو درست کپی میکنه اما قسمت متن رو که کپی می کنه کلا اون حالت در یافت تکست داخل سایت از بین میره و به همین خاطر سایت پیام رو ارسال نمی کنه !

و مشکل دوم هم فونت فارسی هست که داخل برنامه درسته اما موقع کپی خرچنگ قورباغه می نویسه

لینک عکس ها هم قرار داده شد ! مرسی :قلب::قلب::قلب:

جوری که می خوام باشه : http://uploadtak.com/images/e1553_ok.png

جوری که هست { مشکل داره } : http://uploadtak.com/images/y756_NoOk.png

کد :


Private Sub cmdCommand1_Click()

wb.Document.GetElementById("title").Innertext = txtOnvan.Text
wb.Document.GetElementById("cke_contents_vB_Editor_001_editor").Innertext = txtMatn.Text

End Sub

[meys34]

سلام

بی زحمت این دو قسمت رو قرار بدین تا ببینیم توش چی هست و مشکل شما چیه... چون با بلاگفا امتحان کردم مشکل نداشت...

wb.Document.GetElementById("title").outerHTML
wb.Document.GetElementById("cke_contents_vB_Editor _001_editor").outerHTML

[SlowCode]

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

[1009645]

سلام

بی زحمت این دو قسمت رو قرار بدین تا ببینیم توش چی هست و مشکل شما چیه... چون با بلاگفا امتحان کردم مشکل نداشت...

wb.Document.GetElementById("title").outerHTML
wb.Document.GetElementById("cke_contents_vB_Editor _001_editor").outerHTML

سلام ، ممنونم از کمکتون اما نشد


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

سایت Ashiyane.org یا khoone.org قسمت ارسال پیام خصوصی

سورس کدش :


<td id="cke_contents_vB_Editor_001_editor" class="cke_contents" style="height:250px" role="presentation"></td>
<textarea dir="rtl" tabindex="-1" role="textbox" aria-label="Rich text editor, vB_Editor_001_editor, press ALT 0 for help." class="cke_source cke_enable_context_menu" style="width: 100%; height: 100%; min-width: 100%; max-width: 100%; resize: none; outline: none; text-align: right;"></textarea>

[meys34]

این رو خودم امتحان کردم ...


MsgBox wb.Document.getElementById("title").Value
MsgBox wb.Document.getElementById("cke_contents_vB_Editor_001_editor").children(0).Value


البته با فارسی هم مشکلی نداشتم نمیدونم مشکل شما چی بوده... اگر ممکنه بیشتر توضیح بدین...

البته اینم منبع: http://stackoverflow.com/questions/4343923/write-inside-text-area-with-javascript

[1009645]

ممنون ، مشکل اول حل شد !

یک سوال و مشکل دیگه پیش اومد ! آیا میشه خطايي رو که در عکس میبینید یک جوری حذف کنیم ؟ یعنی از ظاهر شدنش جلوگیری کنیم یا وقتی ظاهر میشه خودش Yes کلیک کنه ؟

http://uploadtak.com/images/g9746_ie_vb_error.png

و یک سوال دیگه من اگر بخوام برنامم فارسی داشته باشه و اون رو در VPS اجرا کنم { دسترسی برای نصب زبان فارسی ندارم } راهی هست ؟!

از تمام دوستانی که کمک می کنند ممنونم :قلب:

[alipoor2009]

منم با همین مشکل برخوردم - کسی هست جوا بده ؟؟؟؟ الـــــــــــــــو

[meys34]

منم با همین مشکل برخوردم - کسی هست جوا بده ؟؟؟؟ الـــــــــــــــو


ممنون ، مشکل اول حل شد !

یک سوال و مشکل دیگه پیش اومد ! آیا میشه اررور ای رو که در عکس میبینید یک جوری حذف کنیم ؟ یعنی از ظاهر شدنش جلوگیری کنیم یا وقتی ظاهر میشه خودش Yes کلیک کنه ؟

http://uploadtak.com/images/g9746_ie_vb_error.png

و یک سوال دیگه من اگر بخوام برنامم فارسی داشته باشه و اون رو در VPS اجرا کنم { دسترسی برای نصب زبان فادرسی ندارم } راهی هست ؟!

از تمام دوستانی که کمک می کنند ممنونم :قلب:

جواب:




برای رفع این مشکل قبل از navigate کردن باید webbrowser رو در حالت silent قرار بدید؛ به این صورت:


WebBrowser1.Silent = True


موفق باشید/

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

[1009645]

دوستان راهی هست که وقتی Web Browser صفحه رو لود میکنه خودش به صورت اتوماتیک Scroll کنه و وسط صفحه رو نشون بده ؟

[meys34]

دوستان راهی هست که وقتی Web Browser صفحه رو لود میکنه خودش به صورت اتوماتیک Scroll کنه و وسط صفحه رو نشون بده ؟

به روش من در آوردی:

WebBrowser1.Document.parentWindow.scrollTo 100000, 100000

WebBrowser1.Document.parentWindow.scrollTo WebBrowser1.Document.documentElement.scrollLeft / 2, WebBrowser1.Document.documentElement.scrollTop / 2

[SlowCode]

سلام
اگه میخوای به عنصر خاصی(که id داره) فوکوس کنی یه راه ساده تر استفاده از html هست مثلا این آدرس رو باز کنی خودش به sidebar(محل مورد نظر) زوم میکنه:

www.site.com/page.php#sidebar

[just4froum]

اینارو می گم شاید به درد کسی بخوره :

برای scroll کردن علاوه بر روش جناب meys34 می تونی از روش زیراستفاده کنی که استفاده از javascript هست :

WebBrowser1.Navigate ("javascript:scroll(0,0);")

و برای focus که محسن جان گفتند از خود webbrowser هم می تونی استفاده کنی :

WebBrowser1.Document.All("ID").focus