سوال: وارد کردن اطلاعات به فرم در وب بروزر [بایگانی]

علیرضا.ا

دوشنبه 29 مهر 1392, 19:08 عصر

سلام

میخام محتوای textbox رو داخل یه فرم وارد کنم
البته این فرم iframe هست و از نوع input نیس!
id و name هم نداره:لبخند:
سورس صفحه این مدلیه:

<iframe id="rte388255" name="rte388255" width="738px" frameborder="0" height="350px" src="x.com/x.html"><html id="rte388255"><head>
<style>
body {
background: #FFFFFF;
margin: 2px;
padding: 5px;
direction: rtl;
font-family: tahoma;
font-size: 11px;
}
</style>
</head>
<body>

</body></html></iframe>

میخام متن textbox بین دو تا تگ body صفحه قرار بگیره.

Hossis

دوشنبه 29 مهر 1392, 20:58 عصر

سلام

میخام محتوای textbox رو داخل یه فرم وارد کنم
البته این فرم iframe هست و از نوع input نیس!
id و name هم نداره:لبخند:
سورس صفحه این مدلیه:

<iframe id="rte388255" name="rte388255" width="738px" frameborder="0" height="350px" src="x.com/x.html"><html id="rte388255"><head>
<style>
body {
background: #FFFFFF;
margin: 2px;
padding: 5px;
direction: rtl;
font-family: tahoma;
font-size: 11px;
}
</style>
</head>
<body>

</body></html></iframe>

میخام متن textbox بین دو تا تگ body صفحه قرار بگیره.
اولا که این فریم، آی دی داره
ثانیا: آیا متن تکست باکس، کد اچتی ام ال هست؟

اول یک وب بروزر با نام WB ایجاد می کنید و این کد رو بهش می دید
بعد از این , با این کد، متن رو در بدنه می ریزید
wb.Document.domDocument.Body.innerText=textbox1.te xt

علیرضا.ا

دوشنبه 29 مهر 1392, 23:35 عصر

متن تکست باکس مهم نیس چی باشه
فقط مهم اینه که یه متن در تگ بادی ایفریم بره...
این کدی که دادین برای بادی خود سایت نیس ایا؟
من دو تا تگ بادی دارم یکی سایت اصلی و یکی ایفریم موجود در اون سایت......

Hossis

سه شنبه 30 مهر 1392, 22:35 عصر

متوجه منظورتون شدم
این کد رو آماده و تست کردم، جواب داد

البته سورس صفحه ای که گذاشته بودید رو در فایل e:/0.htm ذخیره کردم قبلش

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WB.Navigate("file:///e:/0.htm")

End Sub

Private Sub BT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn.Click
Try
WB.Document.Body.InnerText = TextBox1.Text
Catch ex As Exception
End Try
End Sub

علیرضا.ا

سه شنبه 30 مهر 1392, 23:19 عصر

مرسی کد درسته ولی یه مشکلی
این کد به جای کل صفحه متن رو قرار میده.

یه بار از اول توضیح میدم:D
میخام یه نرم افزار بسازم که به طور خودکار مثلا توی بلاگفا یا میهن بلاگ یا ... پست ارسال کنه با متنی که توی تکست باکس دارم.
تایتل پست رو میشه گزاشت ولی متن برای پست رو نتونستم و میخام با این کدی که شما دادین متن رو تکست باکس به قسمت متن پست منتقل کنم....
با این کدی که الان دادی به جای کل صفحه ی ارسال پست این متن میاد..

Hossis

چهارشنبه 01 آبان 1392, 08:59 صبح

مرسی کد درسته ولی یه مشکلی
این کد به جای کل صفحه متن رو قرار میده.

یه بار از اول توضیح میدم:D
میخام یه نرم افزار بسازم که به طور خودکار مثلا توی بلاگفا یا میهن بلاگ یا ... پست ارسال کنه با متنی که توی تکست باکس دارم.
تایتل پست رو میشه گزاشت ولی متن برای پست رو نتونستم و میخام با این کدی که شما دادین متن رو تکست باکس به قسمت متن پست منتقل کنم....
با این کدی که الان دادی به جای کل صفحه ی ارسال پست این متن میاد..
درسته اول دقت نکردم
این کد، سورس رو مطابق میل شما درست می کنه ولی فکر نکنم به این مقصود برسه چون وقتی این سورس رو به وب بروزر برگردونی ، فکر نکنم ج بده
حالا باز هم تستش کن

Dim Frams As HtmlElement
Dim doc As HtmlDocument = WB.Document ' mshtml.IHTMLDocument2
Frams = doc.GetElementsByTagName("Iframe")(0)

Dim tmpWB As New WebBrowser
tmpWB.DocumentText = Frams.InnerHtml
tmpWB.Document.Write(Frams.InnerHtml)
tmpWB.Document.DomDocument.close()

doc = tmpWB.Document
doc.body.innerText = TextBox1.Text
doc.Body.DomElement.bgcolor = "#0000a010"
Frams.OuterHtml = doc.Body.OuterHtml

علیرضا.ا

چهارشنبه 01 آبان 1392, 16:30 عصر

تشکر
مقداری کار میکنه:D
یه چند تا مشکل کوچولو داره(یه تیکه از خود قالب اصلی هم وارد فرم تکت باکس میشه!)
یه کاریش میکنم...
به هر حال ممنون:x