ورود

View Full Version : سوال: گرفتن سورس يه وب پيج و نمايش آن توسط web browser


shahramlotfi
یک شنبه 07 خرداد 1391, 20:13 عصر
سلام
ميخوام سورس يه صفحه رو از اينترنت به يه تكست باكس فرا خواني كنم كه بتونم تغييراتي تو سورس وب پيج بدم

تا اينجا مشكلي نيست

حالا ميخوام بعد از تغييرات اونو توسط web browser نمايش بدم

نميخوام سورس رو جايي ذخيره كنم و دوباره اونو لود كنم

ميخوام سورس رو مستقيم از تكست باكس تو web browser نمايش بدم

آيا همچين چيزي ممكنه

اساتيد لطفا كمك كنن
محسن واژدی
یک شنبه 07 خرداد 1391, 21:25 عصر
سلام
کد زیر را بررسی کنید:

Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
End Sub

Private Sub Command1_Click()
WebBrowser1.Document.Write ("<b>In the Name of Allah</b>")
End Sub


بجای "<b>In the Name of Allah</b>" هم کد مورد نظر را قرار میدهیم

موفق باشید
shahramlotfi
یک شنبه 07 خرداد 1391, 22:13 عصر
آقاي وا‍ژدي
كدي كه گذاشتيد به خوبي جواب داد ممنون
ولي متاسفانه اينو فراموش كرده بودم كه داخل وب پيج عكسهايي هم هست كه با روش فوق نتونستم اونارو لود كنم
آيا راه ديگه اي هست
در كل صورت مسئله رو اينجوري بگم
يه صفحه اينترنتي هست كه ميخوام قبل از نمايش توسط web browser يك سري تغيرات توش انجام بشه و بعد نمايش داده بشه
چون صفحه اي دارم كدي توش هست كه باعث ميشه دستور پرينت صادر بشه و به محض رويت صفحه پرينت انجام ميشه و من ميخوام اون دستور رو حذف كنم
البته به نظر من منطقي ترين روش ذخيره صفحه و بعد اعمال تغييرات و بعد فراخواني هستش كه متاسفانه من راهش رو بلد نيستم
در كل اگه امكان داره راهنمايي بفرماييد
ممنون
محسن واژدی
یک شنبه 07 خرداد 1391, 23:05 عصر
برای ذخیره کدها و باز کردن صفحه در WB میتوانید از کدی مشابه زیر استفاده کنید:
Private Sub Command1_Click()
Dim sTmpFle$
Dim sHTML_Codes$
sHTML_Codes$ = "<html><body><p>In the Name of Allah</p></body></html>"
sTmpFle$ = App.Path & "\tmp.htm"
Open sTmpFle$ For Output As #1
Print #1, sHTML_Codes$;
Close #1
WebBrowser1.Silent = True
WebBrowser1.Navigate sTmpFle$
End Sub

موفق باشید
shahramlotfi
سه شنبه 09 خرداد 1391, 12:17 عصر
آقاي واژدي با راهنمايي هاي شما كارم راه افتاد ممنون

اگه ممكنه اينو هم برام توظيح بديد
ميخوام google.com رو حذف كنم يا با چيز ديگه جايگزين كنم

<body onload="WPrint()" bottommargin="0" leftmargin="0" rightmargin="0">
<form name="form1" method="post" action="http://google.com" id="form1">
محسن واژدی
سه شنبه 09 خرداد 1391, 12:41 عصر
سلام
میتوانید از تابع Replace استفاده کنید:

Dim sContents$, sFind$, sReplace$, sAfterReplace$

Private Sub Command1_Click()
sContents$ = "CODES"
sFind$ = "google.com"
sReplace$ = "yahoo.com"
sAfterReplace$ = Replace(sContents$, sFind$, sReplace, , , vbTextCompare)
End Sub

که به ترتیب:
sContents محتویات صفحه را نگهداری میکند
sFind رشته ای که میبایستی یافت شود (یعنی google.com)
sReplace رشته جدیدی که جایگزین sFind میشود
sAfterReplace در پایان هم نتیجه در این متغیر ذخیره میشود

موفق باشید