Đăng nhập tự động vào GPE

[ALOAN]

Em muốn tìm 1 code giúp đăng nhập tự động vào web GPE thông qua excel.
E đã tìm tìm hiểu nhiều mà chưa ra. Mong cả nhà giúp cho ah.

Em cảm ơn nhiều!

 

[hoangdanh282vn]

Em muốn tìm 1 code giúp đăng nhập tự động vào web GPE thông qua excel.
E đã tìm tìm hiểu nhiều mà chưa ra. Mong cả nhà giúp cho ah.

Em cảm ơn nhiều!

Bạn xem file này thử nha :

 

[Po_Pikachu]

Còn cái đăng nhập đâu bác?
Code này chỉ dùng để lên trang GPE thôi.
Thân.

 

[hoangdanh282vn]

Còn cái đăng nhập đâu bác?
Code này chỉ dùng để lên trang GPE thôi.
Thân.

Thì mỗi lần thoát trình duyệt, ta lưu lại địa chỉ, lần sau nó vào thẳng như lúc save. Còn đang nhập tự động ấy à, nguy hiểm quá nếu ai cũng tự vào mà không có acount

 

[Po_Pikachu]

Thì bác phải đăng nhập bằng Acc của chính mình chứ? Chỉ là đừng khi gì vào 2 ô: Ví dụ:
[A1] là UserName:
[A2] là Pass:
Để người dùng tự nhập thông tin vào ô B1 và B2. Vậy là dùng 2 thông tin này để đăng nhập vào trong GPE là được.
Thân.

 

[ALOAN]

Dạ! Đúng như Anh Po_Pikachu đã đề cập.
Em mong muốn code sẽ tìm trên cell A1 và A2 để có UserName và Pass và đăng nhập tự động!

Đây là đoạn code em tìm được nhưng sao thấy không hiệu quả!
Cả nhà xem dùm em nha.

Public Declare Function ShowWindow& Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long)
Private Sub Yadda()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
On Error GoTo 1
With ie
.navigate "dia chi web"
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
With .document.Forms(2)
.vb_login_username.Value = " username"
.vb_login_password.Value = "password"
.submit.Click
End With
Do While Not CBool(InStrB(1, .document.body.innertext, _
"Edit Signature"))
DoEvents
Loop
Call ShowWindow(.hwnd, 3)
.Visible = True
End With
Set ie = Nothing
Exit Sub
1: MsgBox "Unexpected Error, sorry."
ie.Quit
Set ie = Nothing
End Sub

 

[Po_Pikachu]

[COLOR=#000000][COLOR=#0000bb][FONT=Courier New]Sub Yadda2[/FONT][/COLOR][FONT=Courier New][COLOR=#007700]()[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Dim ie [/COLOR][COLOR=#007700]As [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Object[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Set ie [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]CreateObject[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"InternetExplorer.Application"[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])[/FONT][/COLOR]
[FONT=Courier New][COLOR=#0000bb]On Error GoTo Loi[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]ie[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Visible [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]True[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]ie[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]navigate [/COLOR][/FONT][FONT=Courier New][COLOR=#dd0000]"http://www.giaiphapexcel.com/forum/search.php?do=getdaily"[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Wait Now [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]TimeValue[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"00:00:03"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]SendKeys [/COLOR][/FONT][FONT=Courier New][COLOR=#dd0000]"{Tab}{Tab}{Tab}"[/COLOR][/FONT]
[FONT=Courier New][B][U][COLOR=#0000bb]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]SendKeys [/COLOR][/U][/B][/FONT][FONT=Courier New][COLOR=#dd0000][B][U]"{Enter}"[/U][/B][/COLOR][/FONT]
[FONT=Courier New][COLOR=#007700]Exit [/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]Sub[/FONT][/COLOR][/COLOR]
 
[COLOR=#000000][FONT=Courier New][COLOR=#000000]Loi[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]:[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox [/COLOR][/FONT][FONT=Courier New][COLOR=#dd0000]"Unexpected Error, sorry."[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]ie[/COLOR][COLOR=#007700].[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Quit[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Set ie [/COLOR][COLOR=#007700]= [/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]Nothing[/FONT][/COLOR]
[FONT=Courier New][COLOR=#0000bb]End Sub[/COLOR][/FONT][/COLOR]

Tại sao dòng này hoặc Application.SendKeys "{BS}" không có tác dụng trên trang web vậy?
Thân.

 

[dohuuthuc]

Em thấy trong GPE có tới 2 chỗ để đăng nhập ( góc trái và phải ) _ công dụng ra sao ???
Tuy nhiên em không bao giờ xài đăng nhập tự động cả vì lý do " quốc phòng "

 

[cadafi]

[COLOR=#000000][COLOR=#0000bb][FONT=Courier New]Sub Yadda2[/FONT][/COLOR][FONT=Courier New][COLOR=#007700]()[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Dim ie [/COLOR][COLOR=#007700]As [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Object[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Set ie [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]CreateObject[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"InternetExplorer.Application"[/COLOR][/FONT][COLOR=#007700][FONT=Courier New])[/FONT][/COLOR]
[FONT=Courier New][COLOR=#0000bb]On Error GoTo Loi[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]ie[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Visible [/COLOR][COLOR=#007700]= [/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]True[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]ie[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]navigate [/COLOR][/FONT][FONT=Courier New][COLOR=#dd0000]"http://www.giaiphapexcel.com/forum/search.php?do=getdaily"[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Wait Now [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]TimeValue[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"00:00:03"[/COLOR][/FONT][FONT=Courier New][COLOR=#007700])[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]SendKeys [/COLOR][/FONT][FONT=Courier New][COLOR=#dd0000]"{Tab}{Tab}{Tab}"[/COLOR][/FONT]
[FONT=Courier New][B][U][COLOR=#0000bb]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]SendKeys [/COLOR][/U][/B][/FONT][FONT=Courier New][COLOR=#dd0000][B][U]"{Enter}"[/U][/B][/COLOR][/FONT]
[FONT=Courier New][COLOR=#007700]Exit [/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]Sub[/FONT][/COLOR][/COLOR]
 
[COLOR=#000000][FONT=Courier New][COLOR=#000000]Loi[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]:[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]MsgBox [/COLOR][/FONT][FONT=Courier New][COLOR=#dd0000]"Unexpected Error, sorry."[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]ie[/COLOR][COLOR=#007700].[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]Quit[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]Set ie [/COLOR][COLOR=#007700]= [/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]Nothing[/FONT][/COLOR]
[FONT=Courier New][COLOR=#0000bb]End Sub[/COLOR][/FONT][/COLOR]

Tại sao dòng này hoặc Application.SendKeys "{BS}" không có tác dụng trên trang web vậy?
Thân.

Cái Application lúc này theo Po_Pikachu là Excel hay InternetExplorer?

 

[Po_Pikachu]

Thì bác mở file Thu.xls ra rồi nghiệm tiếp đi!
Bác thử vài lần là sẽ hiểu thôi!
Mục đích là đăng nhập được vào GPE bằng User+Pass của ô D2 và D3 đó.
Thân.

 

[cadafi]

Thì bác mở file Thu.xls ra rồi nghiệm tiếp đi!
Bác thử vài lần là sẽ hiểu thôi!
Mục đích là đăng nhập được vào GPE bằng User+Pass của ô D2 và D3 đó.
Thân.

Mình hỏi câu đó, tưởng Po_Pikachu hiểu chứ! Mình khỏi cần thử cũng biết code đó không thực hiện được! Vì đoạn code đó viết trong Module Excel, và cái Application đó là của excel nên không có tác dụng trên IE là đúng rồi!

Để con trỏ ở Ô A1 rồi click nút Đăng nhập, sau đó xem con trỏ nó nằm chỗ nào sau khi chạy code!? Rồi suy ra, mấy cái {TAB} với {ENTER} nó tác dụng trên Activesheet của excel hay của IE!?

 

[Po_Pikachu]

Đúng là lệnh {Enter} tác dụng trên Excel. Vậy còn những cái {TAB} và việc dữ liệu nằm trên khung Login của trang web thì sao?
Thân.

 

[khongbietso]

Bản này đăng nhập xịn luôn nhớ add references

 

[amyadiot]

Cho mình hỏi có cách nào dùng webquery để login rồi import nội dung site vào file excel luôn được không?

 

[yeuthamhangxom]

Bạn xem file này thử nha :

anh ơi sao em ấn vào nút vào GPE nó toàn báo dòng mã code sau bị lỗi anh ạ
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
anh giúp em nha. Cám ơn anh. Chúc anh vui vẻ.

 

[Fedex]

Không biết sơ ơi. bạn có thể giải thích đoan code nay đươc không:

Public Enum IE_READYSTATE
Uninitialised = 0
Loading = 1
Loaded = 2
Interactive = 3
complete = 4
End Enum

Private Sub CommandButton1_Click()
Dim ie As InternetExplorer
Dim doc As HTMLDocument
Dim hwnd As Long
Dim oForm As Object
Dim Elem As IHTMLElement

Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://www.giaiphapexcel.com/forum/index.php"
ie.Visible = True
Do While ie.Busy Or Not ie.readyState = IE_READYSTATE.complete: DoEvents: Loop
Set doc = ie.document
On Error Resume Next
doc.all.Item("vb_login_username").Value = Cells(1, 1).Value
doc.all.Item("vb_login_password").Value = Cells(2, 1).Value
ie.document.forms(0).submit