Cu Tồ
Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂
- Tham gia
- 6/5/20
- Bài viết
- 735
- Được thích
- 347
Mấy cái sâu xa hơn thì em không biết nhưng em đề xuất bác nghiên cứu thử Sendkey để giả lập tự nhấn copy rồi paste xem sao:Chào toàn thể anh chị em trong diễn đàn!
Cả nhà cho mình hỏi là có cách nào dùng VBA lấy được link của các tab đang mở không ạ?hoặc là thông qua tên miền mà có thể lấy được địa chỉ web mà tên miền đó trỏ tới không?
Cảm ơn mọi người nhiều!View attachment 279077
nhưng đường link mà mình muốn lấy và tên miền đó không giống nhau đó bác.ví như tên miền là 02015.com thì nó sẽ chạy đến trang web là https://www.0108915.com/ ,và cái mình muốn lấy là https://www.0108915.com/Từ ngữ chuyên ngành: Tên miền = địa chỉ web.
=> Không phải làm gì cả.
Ha ha ha.
cảm ơn góp ý của bácMấy cái sâu xa hơn thì em không biết nhưng em đề xuất bác nghiên cứu thử Sendkey để giả lập tự nhấn copy rồi paste xem sao:
- Thông tin thêm: Sửa thanh địa chỉ trên EDGE bằng F4, chuyển thẻ như chuyển sheet trên Excel (ctrl+Page Up/Down).
Còn cần làm gì nữa đâu bạn.Bác nói rõ hơn được không,có cách nào thông qua tên miền đó biết được địa chỉ đích mà tên miền trỏ tới không?
nhưng mình có nhiều tên miền ,và nó chạy tới các địa chỉ khác nhau,nên mình muốn lấy hàng loạt theo danh sách tên miền,hoặc theo thứ tự đang mở trên trình duyệt để thống kê lại ấy bácCòn cần làm gì nữa đâu bạn.
Bạn chỉ cần gõ tên miền vào thanh địa chỉ trình duyệt web và enter là tới đích luôn. Đơn giản thế thôi, đâu cần http hay https, với // hay www gì đâu.
Sub redirectUrl()
Dim XHR As Object
Set XHR = VBA.CreateObject("WinHttp.WinHttpRequest.5.1")
XHR.Open "HEAD", "http://02015.com/", False
XHR.Option(6) = False
XHR.send
Debug.Print XHR.Status, XHR.getResponseHeader("Location")
End Sub
thừa nhận là chưa hiểu ý của bác nói,nhưng hiện tại mình đang muốn một cách để tự động lấy địa chỉ đích của nhiều tên miền khác nhau chứ không phải là gõ tay từng tên miền vào thanh địa chỉ trình duyệt web,nếu như hiểu sai ý của bác thì thông cảm cho,có thể do kiến thức chưa được sâu rộng nên không hiểu.Nếu có thể thì bác có thể nói rõ hơn không?Có chỗ nào mình viết là 01 (một) à?
Bạn có hiểu bài mình viết gì không?
Bạn đã cho tay vào làm theo mình hướng dẫn chửa?
Cảm ơn bác,đã thử code và chạy ổn ạBạn muốn lấy Đường dẫn chuyển hướng?
JavaScript:Sub redirectUrl() Dim XHR As Object Set XHR = VBA.CreateObject("WinHttp.WinHttpRequest.5.1") XHR.Open "HEAD", "http://02015.com/", False XHR.Option(6) = False XHR.send Debug.Print XHR.Status, XHR.getResponseHeader("Location") End Sub
cảm ơn góp ý của bác nhiều
thừa nhận là chưa hiểu ý của bác nói,nhưng hiện tại mình đang muốn một cách để tự động lấy địa chỉ đích của nhiều tên miền khác nhau chứ không phải là gõ tay từng tên miền vào thanh địa chỉ trình duyệt web,nếu như hiểu sai ý của bác thì thông cảm cho,có thể do kiến thức chưa được sâu rộng nên không hiểu.Nếu có thể thì bác có thể nói rõ hơn không?
Thế bác hiểu sai ý rồi,bác nhìn rõ thì tên miền này 02015.com khi được mở bằng trình duyệt web thì sẽ ra cái đường link này https://www.0108915.com/ ,nghĩa là tên miền và link đó không hề giống nhau,chứ không phải khác ở chỗ thêm www hay không thêm,hiện tại mình có 6000 tên miền,và lúc mở bằng trình duyệt thì nó sẽ chạy để các trang web khác nhau,tên miền và cái link được chạy tới đó không hề giống nhau,nên mình muốn thống kê lại xem tên miền đó khi mở bằng trình duyệt thì nó sẽ chạy tới đường link nào,nếu như dùng thủ công bằng tay thì quá lâuBạn cần URL đầy đủ để làm gì? Tại sao không nói rõ ngay từ đầu luôn?
URL là để truy cập vào nó đúng không? Chắc chắn không phải để ngắm rồi.
Mà những người trên trái đất đã quy ước chung rằng là URLcó hay không có www không quan trọng, domain (tên miền, địa chỉ trang web) không bao gồm www.
Hiện tại trang web không có chứng chỉ bảo mật SSL rất ít, và không mấy ai tin tưởng mấy trang web không có SSL.
Vậy nên, bạn chỉ cần thêm cái "https://" vào trước cái domain đã có là xong luôn rồi.
Còn đơn giản, cứ dùng luôn cái chuỗi domain đó mà truy cập.
Chỉ có thế thôi.
tên miền này 02015.com khi được mở bằng trình duyệt web thì sẽ ra cái đường link này https://www.0108915.com/ ,nghĩa là tên miền và link đó không hề giống nhau
muốn thống kê lại xem tên miền đó khi mở bằng trình duyệt thì nó sẽ chạy tới đường link nào,nếu như dùng thủ công bằng tay thì quá lâu
vâng,vậy nên e mới muốn hỏi là e có một loạt các tên miền khác nhau,và muốn hỏi các để biết các tên miền đó chuyển hướng tới đâu,để tiện thống kê một cột tên miền và một cột là trang chuyển hướng của tên miền đó,Bác có thể chỉ dẫn không ạ?Chết dở.
Cái đó là 'redirect' - chuyển hướng trang web.
Có nhiều cách để chuyển hướng trang web (Bạn muốn biết thêm thì tự tìm hiểu theo từ khóa trên).
Từ " 02015.com" (1) nhảy sang "0108915.com" (2): Có thể trước kia họ mua domain là (1), nhưng sau một thời gian tâm sinh lý không ổn định, đi xem thầy bảo cần đổi phong thủy, họ mua domain (2) để thay thế. Khi đó, thay vì la làng, liên hệ từng người dùng thông báo thay đổi domain mới, thì người ta làm một động tác chuyển hướng trang web từ domain (1) sang (2). Hễ người dùng mà truy cập vào (1) thì nó cứ nhảy sang (2). Thế thôi.
Người ta có thể làm
gpe.com
nhảy tới trang xyz chấm cơm nào đó cũng được bạn à
Nhưng 'gpe.com' là tên miền duy nhất, là chính nó.
Còn xyz chấm cơm là tên miền khác, chứ không phải chạy tới gì đó như bạn mô tả.
Hoặc nếu bạn có khả năng, có thể chuyển hướng gú gồ.com nhảy tới trang web của riêng bạn.
Bạn hiểu vấn đề rồi chứ.
Sau 13 bài thì mới chịu lòi cái vấn đề ra. Mệt mỏi hết sức!
Khi mình chưa rõ gì đó, thay vì bắt người khác phải theo phương án của mình, thì đơn giản là mình chỉ cần mô tả lại đúng bản chất sự việc là được.
Người có chuyên môn, họ đọc sẽ hiểu vấn đề của mình là gì.
Bác cho hỏi nếu trong trường hợp tên miền là 2015tgpd.com thì gặp lỗi ở Debug.Print XHR.Status, XHR.getResponseHeader("Location")Bạn muốn lấy Đường dẫn chuyển hướng?
JavaScript:Sub redirectUrl() Dim XHR As Object Set XHR = VBA.CreateObject("WinHttp.WinHttpRequest.5.1") XHR.Open "HEAD", "http://02015.com/", False XHR.Option(6) = False XHR.send Debug.Print XHR.Status, XHR.getResponseHeader("Location") End Sub