[VB.NET] Lấy source trang WEB

Postby **clarkkent** » Sat 21/06/2008 11:20 am

Thủ thuật: [VB.NET] Lấy source trang WEB
Tác giả: Nguyễn Trung Tín
Mô tả: Lấy source 1 trang web
Thấy có cái này http://caulacbovb.com/forum/viewtopic.php?f=20&t=103 của NoBi nhưng bằng C#...
Lúc chạy có thể Form sẽ bị đứng...

Mà chỉ lấy source của những trang có tên hoàn chỉnh ví dụ như http://caulacbovb.com/forum/ .Nếu gõ caulacbovb.com/forum thì có thể sẽ không chạy...

Các control cần có
-TextBox : txtURL
-Button : Button1
-RichTextBox : RichTextBox1

'NameSpace

Code: Select all

Imports System.IO
Imports System.IO.FileStream
Imports System.Net
Imports System.Text
Imports System.Text.Encoding
Imports System.Threading
Imports System.Reflection

'Code cho sự kiện Button1_Click

Code: Select all

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim respHTML As String
        Try
            Dim path As String = txtURL.Text
            Dim wReq As WebRequest = WebRequest.Create(path)
            If TypeOf wReq Is HttpWebRequest Then
                CType(wReq, HttpWebRequest).UserAgent = "VB.NET Lấy Source trang Web"
            End If
            Dim wResp As WebResponse = wReq.GetResponse()
            Dim respStream As Stream = wResp.GetResponseStream()
            Dim reader As StreamReader = New StreamReader(respStream, Encoding.Default)
            respHTML = reader.ReadToEnd()
        Catch ex As Exception
            respHTML = "<HTML></HTML>"
        End Try
        'Ghi source vào RichTextBox
        RichTextBox1.Text = respHTML
        
    End Sub

MrB · Postby **MrB** » Sat 21/06/2008 1:42 pm

Có cách khác

Thủ thuật: Lấy source trang web
Tác giả: Mrb
Mô tả: Lấy source trang web

Code: Select all

WebClient client = new WebClient();
client.Encoding = Encoding.UTF8;
UriBuilder builder = new UriBuilder("http://www.caulacbovb.com");
client.DownloadStringAsync(builder.Uri);
client.DownloadStringCompleted += delegate(object o, DownloadStringCompletedEventArgs arg)
{
    richTextBox1.Text = arg.Result;
};

tai_computer · Postby **tai_computer** » Sat 28/11/2009 6:56 pm

Thanks clarkkent nhiều
Sẵng cho em hỏi làm sao lấy tất cả các Link mà ta đã truy cập vào em đang dùng VB.net
Ai biết chỉ dùm em nha Thaks trước á

Postby **Superman** » Sun 29/11/2009 12:33 am

Link trong cái source lấy về à???

bocapit · Postby **bocapit** » Sun 29/11/2009 10:01 am

Hì cái này thì mình làm nhiều!

Mỗi dùng .net nhưng lại không dùng net để lấy HTML của web vì nếu là server win thì rất khó lấy dữ liệu xuống, nó thường xuyên báo lỗi 503.
Tốt nhất là dùng MSINET.OCX bên com, mọi thứ đều ổn cả, các lỗi đều lấy được. Lúc xưa mình có bài viết hướng dẫn về cái này nhưng mà do đóng cửa 4rum nên không giới thiệu đến các bạn được.
các bạn có thể tham khảo code của mình viêt.
Soft tên là JetSQL Injection 2.5 các bạn có thể tìn kiếm trên google để biêt cách dùng.
http://www.google.com.vn/#hl=en&q=JetSQL+Injection+2.5&meta=&aq=&oq=JetSQL+Injection+2.5&fp=6e2007d7082f2eef
Code thì các bạn có thể down ở đây http://www.mediafire.com/?0tqd2y0ovdm

ps: Cái tiêu để hình như không phù hợp lắm>> lấy HTML code thì đúng hơn

Câu lạc bộ Visual Basic

[VB.NET] Lấy source trang WEB

[VB.NET] Lấy source trang WEB

Re: [VB.NET] Lấy source trang WEB

Re: [VB.NET] Lấy source trang WEB

Re: [VB.NET] Lấy source trang WEB

Re: [VB.NET] Lấy source trang WEB

Who is online