با سلام : به دوستان عزیز ، من یه برنامه میخوام که باهاش بشه یه پست تو یک سایت رو توی یک textbox نشون داد
همین . ممنون میشه اگه بنده رو راهنمایی کنید . فوری . فوری .فوری
با تشکر
Printable View
با سلام : به دوستان عزیز ، من یه برنامه میخوام که باهاش بشه یه پست تو یک سایت رو توی یک textbox نشون داد
همین . ممنون میشه اگه بنده رو راهنمایی کنید . فوری . فوری .فوری
با تشکر
تو كه گفتي ديگه اينجا نمي آي...؟!؟!؟! :13: :31:
اينا رو تو يه فايل به اسم test.html ذخيره كن...!؟! :
بعد يه كنترل WebBrowser با يه TextBox و يه دكمه به فرمت اضافه كن...!؟!کد:<html>
<head>
<title>Test!</title>
</head>
<body>
Input Box :
<form>
<input type="text" name="textbox" value="default"></input>
</form>
</body>
</html>
اين يه خط كد رو تو رويداد form_load بنويس...!؟! :
اين رو هم تو رويداد كليك دكمه...!؟! (command1_click) :کد:
WebBrowser1.Navigate app.path & "\test.html"
يعني الان كل كد ها بايد به اين شكل باشه...!؟! :کد:
Text1.Text = WebBrowser1.Document.Forms(0).elements("textbox").Value
حالا بعد از اين كه فايل html تو webbroswer لود شد... تو textbox اي كه تو صفحه html هست... يه چيزي بنويس... بعد رو دكمه اي كه به فرمت اضافه كردي كليك كن...!؟! با اين كار متني كه تو صفحه html نوشتي... وارد TextBox رو فرمت ميشه...!؟! :21:کد:
private sub form_load()
WebBrowser1.Navigate app.path & "\test.html"
end sub
private sub command1_click()
Text1.Text = WebBrowser1.Document.Forms(0).elements("textbox").Value
end sub
خب... تو مثال ما... اسم textbox تو فرم html همون textbox بود... به خاطر همين... اسم element اي كه WebBrowser مقدارش رو نشون ميده هم textbox شد... اگه بخواي مقدار textbox هاي ديگه اي كه تو فرم html وجود داره رو از طريق WebBrowser استخراج كني... بايد اسم اون textbox رو جاي textbox جلوي element بذاري...!؟! (چه قدر textbox :19: ...!؟! )
Text1.Text = WebBrowser1.Document.Forms(0).elements("textbox").Value
متأسفانه كنترل WebBrowser من خراب شده...!؟! :19: وگرنه فايل هاي پروژه رو هم برات درست مي كردم...!؟! :27:
موفق باشي...!؟! :46:
ممنون plus جان . ولی این ذخیره نمیشه که میخوام هر وقت برنامه اجرا شد . بره از همون صفحه بخونه متن ها رو بخونه . باید یک
دیتا بیس هم بهش وصل کنیم که وقتی متن ارسال شد به صفحه ذخیره هم بشه تا بتونه فراخوانی کنه دوباره . ولی بازم ممنون از
لطفی که کردی .:46:
دوستان عزیز این بار برنامه فرق میکنه ، من یه برنامه نوشتم که با استفاده از webbrowser یک صفحه لود میشه که محتویات یک
فایل متنی تو جایی که آپلود کردم رو نشون میده . حالا من میخوام اون محتویات که تو webbrowser هست رو تو یک
textbox نشون بده ممنون میشم اگه راهنمایی کنید .
چرا از Inet استفاده نمي كني...!؟! ببين...!؟! :نقل قول:
کد:Text1.text = Inet1.OpenURL("http://www.test.com/textfile.txt")
چون کد صفحه رو این طوری نشون میده نه محتویات خود صفحه رو .
[PHP]<iframe src="http://gigfa.com/err/error.php?err=404" width="100%" height="100%" scrolling="no" align="top" frameborder="0"></iframe>[/PHP]
دیـــــــگه نمیخواد جواب بدین ، خودم پیدا کردم راه حل رو . :5:
داداش اگه پیدا کردی بزار اینجا ما هم نیاز داریم.
ممنون
چشم عزیز بیا برو حالشـــــو ببـــــــــــر .
این کد رو به دو صورت میشه نوشت اولین این که خیلی ساده هست :
[PHP]Text1.Text = WebBrowser1.Document.body.innertext[/PHP]دومین کد این که می تونید که مستقیما از خود اینترنت اکسپلورر استفاده کنید
برنامه ی زیر هم با visual basic کار می کنه هم با visual basic.net و هم با vbscript ! حالشو ببرین
من در این برنامه از اینترنت اکسپلورر یک شی اکتیو ایکس میگیرم و اینترنت اکسپلورر رو به صورت مخفیانه اجرا می کنم.
بعد یک صفحه رو بارگذاری می کنم و در نهایت سورس صفحه رو می خونم و با msgbox نمایش می دم
هیچ نیازی هم به کنترل webbrowser نداره. میگم که این روشی هست که حتی با وی بی اسکریپت هم کار میکنه. یه ترفند باحال و ابتکاری برای کسانی که می خوان تروجان بنویسن.:21:
[PHP]Private Sub Form_Load()
Dim IE As Object
Dim data As String
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Navigate ("http://www.google.com")
Do While IE.Busy
Loop
data = IE.Document.body.innerhtml
MsgBox data
IE.Quit
Set IE = Nothing
End Sub[/PHP]