Đăng nhập tự động vào diễn dàn với trình duyệt Chrome bằng VBA

bui_kiem · 24/5/20

Chào các bạn.
Tôi muốn đăng nhập vào GPE bằng VBA nhưng không biết điền tên và mật khẩu tự động, nhờ các bạn giúp đở.
Cám ơn các bạn

Mã:

Sub LoginGPE()
Dim chromePath As String
Const strUserName As String = "abcdb"
Const strpw As String = "#123456"
Const strweb As String = "https://www...."

    chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""

    Shell (chromePath & " -url " & strweb)
   '... code đăng nhập
End Sub

VetMini · 24/5/20

Táo tợn thật. Vào diễn đàn để hỏi code tấn công diễn đàn.

bui_kiem · 24/5/20

VetMini đã viết:
Táo tợn thật. Vào diễn đàn để hỏi code tấn công diễn đàn.

Một số code trên google chỉ cách đăng nhập bằng trình duyệt InternetExplorer , nhưng chưa thấy cách đăng nhập bằng Chrome
như:

Login to a website using VBA

Im a fresher to Excel Macros (VBA) and looking for a way to automate IE to login to a website and proceed to a certain page. website URL : https://www.mast-technicalservices.com/ecp/index2.jsp and ...

stackoverflow.com

Trying to log in to web page from Excel VBA but username and password grayed out

I'm trying to automate logging in to a web page using VBA code in Excel. I can set the username value and password value, but it appears greyed out and the web page doesn't seem to recognise it. Wh...

stackoverflow.com

login to website using VBA

I have been trying to go to this website and login. I get to the website but unable to login. http://www.servicechannel.com/sc/login/client_login.asp login is ABCOFA

www.mrexcel.com

Mình muốn học cách đăng nhập bằng Chrome, cám ơn bạn.

HeSanbi · 24/5/20

Tôi đã từng viết Form đăng nhập GPE để viết bài, nhưng tôi thấy quá vô ích, nên không sử dụng.

Để sử dụng được Chrome bạn phải tải về SeleniumBasic và ChromeDriver

Nếu có thời gian thì tôi có thể cập nhật lại ứng dụng và chia sẻ nó.

AutoReply · 24/5/20

Diễn đàn Giải pháp Excel đăng nhập bằng cách gửi POST đến địa chỉ
https://giaiphapexcel.com/diendan/login/login

Trong đó có 2 parameter quan trọng: login và password.
1 điều vô lý và rất nguy hiểm là diễn đàn này gửi nguyên đoạn mật khẩu KHÔNG MÃ HÓA lên đường dẫn ở trên.
Đây là điều tôi rất không hài lòng ở diễn đàn này, tôi đã từng ý kiến lên BQT rồi nhưng không ai quan tâm.
1 lần nữa ở đây tôi nhắc lại điều này. Nếu BQT có nhìn thấy chủ đề này, tôi đề nghị Admin nào phụ trách kỹ thuật cần sửa ngay trang đăng nhập, mã hóa mật khẩu trước khi gửi vào trang login, để bảo đảm quyền lợi cho các thành viên chúng tôi.
Trân trọng.

bui_kiem · 25/5/20

HeSanbi đã viết:
Tôi đã từng viết Form đăng nhập GPE để viết bài, nhưng tôi thấy quá vô ích, nên không sử dụng.
Để sử dụng được Chrome bạn phải tải về SeleniumBasic và ChromeDriver
Nếu có thời gian thì tôi có thể cập nhật lại ứng dụng và chia sẻ nó.

Sau khi chạy code thì trang web này đóng luôn, tôi muốn giữ nó trên màn hình, bạn có thể sửa lỗi giùm?
Cám ơn bạn.

Mã:

Sub AutoLogin1()

Dim obj As New WebDriver
obj.Start "Chrome", ""
obj.Get "https://www....."
obj.FindElementByName("userid").SendKeys ("abcdef")
obj.FindElementByName("password").SendKeys ("12345678")
obj.FindElementByClass("butn").Click
End Sub

befaint · 25/5/20

Phát hiện website diễn đàn xảy ra hiện tượng không lưu cookie phiên làm việc của tài khoản đã đăng nhập trên trình duyệt Edge.
Không biết lỗi do website hay tại trình duyệt.

Tức là đã đăng nhập thành công vào diễn đàn nhưng mở tab mới và nhập link: https://giaiphapexcel.com/diendan/login
mà vẫn cho đăng nhập mới.

bui_kiem · 25/5/20

Đã có người làm trước rồi.

getElementsByTagName("td").Item(n)

Khi muốn lấy data từ 1 trang web em sử dụng đoạn code tương tự như dươi, để lấy giá trị 1 cell : Set Datas = ieDoc.getElementById("formMain:sheet_tbl").getElementsByTagName("td")(n) Range("A5").Value = Datas.innerText Nhưng em muốn upload dữ liệu lên cell đó và em thử làm: Set Datas =...

www.giaiphapexcel.com

HeSanbi · 25/5/20

bui_kiem đã viết:
Sau khi chạy code thì trang web này đóng luôn, tôi muốn giữ nó trên màn hình, bạn có thể sửa lỗi giùm?
Cám ơn bạn.

Mã:

Sub AutoLogin1() Dim obj As New WebDriver obj.Start "Chrome", "" obj.Get "https://www....." obj.FindElementByName("userid").SendKeys ("abcdef") obj.FindElementByName("password").SendKeys ("12345678") obj.FindElementByClass("butn").Click End Sub

------------------------------------

Code chỉ với một đoạn như vậy thì sao có thể giữ phiên Chrome.
Bạn vào trong thư mục cài đặt của SeleniumBasic để học cách sử dụng.
Trong thư mục đấy cần cập nhật ChromeDriver đúng phiên bản chrome

Dưới đây là một đoạn ví dụ cho bạn tham khảo cách kết nối lại phiên trước.
-------------------------------------

PHP:

Dim Driver As Selenium.WebDriver

Function ConnectChrome() As Boolean
  Const Chrome = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
  If <Chrome Đã mở thì> Then
    ConnectChrome = True
  Else
    ConnectChrome = False
    'Mở Chrome ở Port 9222 / 9333/ 9444/ 9555'
    'Tạo thư mục phiên chrome ở bất kỳ đâu: C:\Temp\remote-profile-cr'
    VBA.CreateObject("WScript.Shell").Run Chrome & " --remote-debugging-port=9222 --user-data-dir=C:\Temp\remote-profile-cr --lang=vi"
  End If
  Set Driver = New Selenium.ChromeDriver
  Driver.SetCapability "debuggerAddress", "127.0.0.1:9222"
  Driver.start "chrome"
End Function

bui_kiem · 25/5/20

HeSanbi đã viết:
Dưới đây là một đoạn ví dụ cho bạn tham khảo cách kết nối lại phiên trước.
-------------------------------------

If <Chrome Đã mở thì> Then

Bạn có thể viết giùm câu lệnh kiểm tra Chrome đã mở hay chưa không?

Cám ơn bạn.

befaint · 25/5/20

@Chủ thớt:
Bạn muốn lấy dữ liệu từ trang web nào thì cứ nêu cụ thể ra đi.
Đoán chắc 101.99% là không phải muốn đăng nhập vào GPE.

nguoiconxunui · 25/5/20

AutoReply đã viết:
Diễn đàn Giải pháp Excel đăng nhập bằng cách gửi POST đến địa chỉ
https://giaiphapexcel.com/diendan/login/login

Trong đó có 2 parameter quan trọng: login và password.
1 điều vô lý và rất nguy hiểm là diễn đàn này gửi nguyên đoạn mật khẩu KHÔNG MÃ HÓA lên đường dẫn ở trên.
Đây là điều tôi rất không hài lòng ở diễn đàn này, tôi đã từng ý kiến lên BQT rồi nhưng không ai quan tâm.
1 lần nữa ở đây tôi nhắc lại điều này. Nếu BQT có nhìn thấy chủ đề này, tôi đề nghị Admin nào phụ trách kỹ thuật cần sửa ngay trang đăng nhập, mã hóa mật khẩu trước khi gửi vào trang login, để bảo đảm quyền lợi cho các thành viên chúng tôi.
Trân trọng.

HeSanbi · 25/5/20

bui_kiem đã viết:
Bạn có thể viết giùm câu lệnh kiểm tra Chrome đã mở hay chưa không?

Cám ơn bạn.

getElementsByTagName("td").Item(n)

Khi muốn lấy data từ 1 trang web em sử dụng đoạn code tương tự như dươi, để lấy giá trị 1 cell : Set Datas = ieDoc.getElementById("formMain:sheet_tbl").getElementsByTagName("td")(n) Range("A5").Value = Datas.innerText Nhưng em muốn upload dữ liệu lên cell đó và em thử làm: Set Datas =...

www.giaiphapexcel.com

bui_kiem · 25/5/20

befaint đã viết:
@Chủ thớt:
Bạn muốn lấy dữ liệu từ trang web nào thì cứ nêu cụ thể ra đi.
Đoán chắc 101.99% là không phải muốn đăng nhập vào GPE.

Chào anh,
Tôi chỉ muốn học cách đăng nhập. trên một web có mã cho nút đăng nhập:

Mã:

<a href="javascript:document.forms[0].submit()"><img height="16" border="0" width="63" src="/images/nav_login2.gif"></a>

Với InternetExplorer câu lệnh:

Mã:

.document.forms(0).Submit

thì nó cho đăng nhập

Nhưng với Selenium.WebDriver thì không biết viết như thế nào. Mong các bạn giúp đỡ.

befaint · 25/5/20

bui_kiem đã viết:
Chào anh,
Tôi chỉ muốn học cách đăng nhập. trên một web có mã cho nút đăng nhập:

Mã:

<a href="javascript:document.forms[0].submit()"><img height="16" border="0" width="63" src="/images/nav_login2.gif"></a>

Với InternetExplorer câu lệnh:

Mã:

.document.forms(0).Submit

thì nó cho đăng nhập

Nhưng với Selenium.WebDriver thì không biết viết như thế nào. Mong các bạn giúp đỡ.

Bạn có vẻ lòng vòng khúc đăng nhập làm gì. Đăng nhập rồi làm tiếp, đang quan tâm tới cái mục đích CUỐI CÙNG đó.

---
Xem mã nguồn người ta như nào thì viết theo vậy.
nếu .submit() thì mình cũng Submit
nếu click button thì mình cũng click button.

bui_kiem · 25/5/20

Đã đăng nhập được. :wallbash:

MỹHạnhCB · 13/5/22

bui_kiem đã viết:
Đã đăng nhập được.

Cho em xin mã chương trình để tham khảo đi anh. Cám ơn anh.

Đăng nhập tự động vào diễn dàn với trình duyệt Chrome bằng VBA

Thành viên hoạt động

Ăn cùng góc phố

Thành viên hoạt động

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên tiêu biểu

Thành viên hoạt động

|||||||||||||

Thành viên hoạt động

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên hoạt động

|||||||||||||

Thành viên thường trực

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên hoạt động

|||||||||||||

Thành viên hoạt động

Đi mây, về gió. !!!