گرفتن سورس پیج یک صفحه ی وب

[Mahdi-v]

با سلام به اساتید
دوستان چه طوری میتونم سورس کد یه صفحه ی وب رو با ساخت یه نرم افزار بریزم توی ریچ تکست باکس (view page source)

با تشکر

[Aryan.Software]

بفرمایید:

Imports System.Net

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim WebService As WebClient=New WebClient()
RichTextBox1.Text=WebService.DownloadString("http://www.aryan-pc.ir")

End Sub

End Class

[Mahdi-v]

بفرمایید:

Imports System.Net

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim WebService As WebClient=New WebClient()
RichTextBox1.Text=WebService.DownloadString("www.aryan-pc.ir")

End Sub

End Class


دست شما درد نکنه ممنون اما این ارور رو داد

type " webclient" is not defined

این رو هم زدم
Imports System.Net

[Mahdi-v]

بعد از این که ایمپورت کردم الان میگه

Could not find file 'C:\Users\h\Documents\Visual Studio 2012\Projects\Windows Defender\Windows Defender\bin\Debug\www.site.com'.

[Aryan.Software]

خوب یه http:// بذارید اول آدرس اینجوری:

http://example.com

[Mahdi-v]

استاد دمت گرم فهمیدم باید چی کار کنم :قلب:

[Mahdi-v]

یک سوال داشتم :لبخند:

چه کار کنم که وقتی کاربر حرفه ای میاد تیز بازی در میاره و به جای این که توی تکست باکس اسم یه سایتو بنویسه اسم خودشه مینویسه و بعد باتن رو میزنه ارور نده برنامه ؟:لبخند:

یعنی در صورتی که طرف یه وب پیج وارد نکرد تشخیص بده نرم افزار :)))
با تشکر فراوان

[Aryan.Software]

میتونی یه ComboBox بذاری قبل تکست باکس که آیتم هاش این پروتکل ها باشن: http:// و https:// و بعد این کد رو برای یه Button بنویسی


WebService.DownloadString(ComboBox1.Text & Textbox1.Text)


در این صورت برنامه به اول آدرسی که کاربر وارد کرده http و یا https اضافه میکنه. به هر حال برای محکم کاری کد رو تو بلوک try..catch... هم بنویس


Try
WebService.DownloadString(ComboBox1.Text & Textbox1.Text)
Catch ex as Exception
Msgbox("An Error has occured: " & ErrorToSrting)
End Try

[Mahdi-v]

البته دغدغم فقط اچ تی تی پی نیست حتی اگر یک کمبو باکس با دو گزینه داشته باشیم ممکنه آدرس به طور زیر وارد شه :
http://salam

:قهقهه: خوب اینو نمی تونه سورس بگیره که try catch فک کنم از ارور ران تایم جلوگیری میکنه اگه از هر گونه اروری جلو گیری کنه هم خوبه (اصلا عملیات انجام نشه ولی ارورم نده که خیلی خیلی ضد حاله )
به هر حال بازم هزار بار تشکر :تشویق:

[Aryan.Software]

خوب شرط بذار که حتما دستور باید مثل این وارد شه: http://site.com برای این کار همون طور که گفتم یه کمبو باکس برای پروتکل بذار. ولی برای متن تکست باکس که کاربر دامنه رو وارد میکنه اول باید چک بشه که به صورت domain.com هست یا نه. این کد باید کارتو راه بندازه:(همون طور که خواستی برای خطا ها هیچ پیامی رو نشون نمیده)


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Trim(TextBox1.Text) Like "?*.?*" Then
Try
WebService.DownloadString(ComboBox1.Text & TextBox1.Text)
Catch ex As Exception

End Try

End If
End Sub

[Aryan.Software]

البته اگه بخوای یکم دیگه کار کاربر و خودت رو راحت تر کنی بهتر کد زیر رو هم به رویداد TextChanged برای TextBox1 اضافه کنی. چون امکان داره کاربر کد رو به صورت دستی ننویسه و کپی کنه. و عموما آدرس های کپی شده اولشون http دارن و این http با http که برنامه خودت اضافه میکنه آدرس رو این شکلی میکنه: http://http://domain.com این کد باعث میشه این مشکل حل بشه:


Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
TextBox1.Text = Replace(TextBox1.Text, "http://", Nothing)
TextBox1.Text = Replace(TextBox1.Text, "https://", Nothing)
End Sub

[Mahdi-v]

آقا فقط ارادت :قلب::قلب::بوس::لبخند::تشویق: