• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Nhận URL từ Internet Explorer

Các thủ thuật về hệ thống, thư mục, tập tin và mạng

Điều hành viên: tungcan5diop, QUANITGROBEST

neverland87
Guru
Guru
Bài viết: 490
Ngày tham gia: T.Bảy 26/05/2007 4:31 pm
Been thanked: 8 time

Nhận URL từ Internet Explorer

Gửi bàigửi bởi neverland87 » T.Sáu 30/05/2008 12:26 am

Thủ thuật: Nhận URL từ Internet Explorer
Tác giả: Sưu tầm
Mô tả: Nhận URL từ Internet Explorer



Với thủ thuật đơn giản sau đây, bạn có thể nhận lấy URL từ Internet Explorer (phiên bản 6 và 7) một cách dễ dàng. Nào cùng làm nhé

- Bước 1: tạo ứng dụng Windows Forms.
- Bước 2: tạo 1 label (tên mặc định sẽ là label1) dùng để hiển thị tên website. Kế tiếp, hãy thêm Timer Control từ thanh toolbox (ở khu Components ấy). Sau đó hãy thiết lập thuộc tính của timer control vừa thêm ở cửa sổ Properties như sau:
+ Enabled = true
+ Interval = 1000

- Bước 3: ở cửa sổ làm việc, nhắp chọn menu Project\Add Reference... . Cửa sổ Add Reference sẽ hiện ra, ở tab COM, tìm đến và chọn Microsoft Internet Controls. Sau đó nhấn OK.
- Bước 4: thêm dòng lệnh sau: using System.IO ở cửa sổ soạn code
- Bước 5: bây giờ bạn thụ lý tình huống Tick cho timer control bằng đoạn mã sau:

Mã: Chọn hết

private void timer1_Tick(object sender, EventArgs e)        {            SHDocVw.ShellWindows shellWindows = new SHDocVw.ShellWindowsClass();            string filename;            foreach (SHDocVw.InternetExplorer ie in shellWindows)            {                filename = Path.GetFileNameWithoutExtension(ie.FullName).ToLower();                if (filename.Equals("iexplore"))                    label1.Text = ie.LocationURL;            }        }


SIMPLY THE BEST - ĐƠN GIẢN LÀ TỐT NHẤT

tai_computer
Thành viên chính thức
Thành viên chính thức
Bài viết: 27
Ngày tham gia: T.Bảy 15/08/2009 11:03 am
Has thanked: 1 time

Re: Nhận URL từ Internet Explorer

Gửi bàigửi bởi tai_computer » T.Tư 02/12/2009 3:32 pm

Trong VB.net mình làm thế nào hở anh. Em chuyển sang Vb.net mà cứ im dìm :((
Anh chuyển hộ em nhé Thanks anh nhìu =D>

Hình đại diện của người dùng
tungcan5diop
Cựu chiến binh
Cựu chiến binh
Bài viết: 1123
Ngày tham gia: T.Tư 24/09/2008 4:04 pm
Đến từ: TPHCM
Has thanked: 1 time
Been thanked: 28 time

Re: Nhận URL từ Internet Explorer

Gửi bàigửi bởi tungcan5diop » T.Tư 02/12/2009 3:54 pm

trong vb.net đây

Mã: Chọn hết

  1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  2.         Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindowsClass
  3.         Dim filename As String = ""
  4.         For Each ie As SHDocVw.InternetExplorer In shellWindows
  5.             filename = Path.GetFileNameWithoutExtension(ie.FullName).ToLower
  6.             If filename.Equals("iexplore") Then
  7.                 Me.Label1.Text = ie.LocationURL
  8.             End If
  9.         Next
  10.     End Sub

mình làm nó cũng im lìm,neverland xem hướng dẫn tí,có cần mở IE lên ko?hay cụ thể là như thế nào
Hỡi thế gian bug(lỗi) là gì?
Mà sửa...hoài không hết!

tai_computer
Thành viên chính thức
Thành viên chính thức
Bài viết: 27
Ngày tham gia: T.Bảy 15/08/2009 11:03 am
Has thanked: 1 time

Re: Nhận URL từ Internet Explorer

Gửi bàigửi bởi tai_computer » T.Tư 02/12/2009 4:57 pm

Thanks anh Tùng nha :D đang làm một phần mềm chặn Web xấu mà không có tài liệu nào tham khảo hết mấy anh ui

dinhhungitsoft
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 85
Ngày tham gia: CN 04/04/2010 12:11 am
Been thanked: 1 time

Re: Nhận URL từ Internet Explorer

Gửi bàigửi bởi dinhhungitsoft » CN 04/04/2010 10:55 pm

Cái này có nhận url từ firefox hay các trình duyệt khác không bạn?
Làm chưa chắc thành công, không làm chắc chắn không thành công.

KendyNguyen
Thành viên chính thức
Thành viên chính thức
Bài viết: 15
Ngày tham gia: CN 30/05/2010 10:05 pm

Re: Nhận URL từ Internet Explorer

Gửi bàigửi bởi KendyNguyen » CN 30/05/2010 10:57 pm

Ko cần dùng timer được hok vậy bạn :D

nathu723
Thành viên chính thức
Thành viên chính thức
Bài viết: 38
Ngày tham gia: T.Năm 17/02/2011 10:09 pm

Re: Nhận URL từ Internet Explorer

Gửi bàigửi bởi nathu723 » T.Năm 14/04/2011 4:46 am

tungcan5diop đã viết:trong vb.net đây

Mã: Chọn hết

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindowsClass        Dim filename As String = ""        For Each ie As SHDocVw.InternetExplorer In shellWindows            filename = Path.GetFileNameWithoutExtension(ie.FullName).ToLower            If filename.Equals("iexplore") Then                Me.Label1.Text = ie.LocationURL            End If        Next    End Sub

mình làm nó cũng im lìm,neverland xem hướng dẫn tí,có cần mở IE lên ko?hay cụ thể là như thế nào

Xin anh cho em code trên VB6 ạ (có thể lấy được URL text Unicode).Thanks!


Quay về “[.NET] Hệ thống - Tập tin - Thư mục và Mạng”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách