I have this code into a Sub.
Code: Select all
Try
im = iMacrosControl.Create(My.Settings.LicenciaIMACROS)
t = "CODE: CLEAR"
im.Play(t)
t = "CODE: URL GOTO=https://accounts.google.com/ServiceLogin?service=adsense&rm=hide&nui=15&alwf=true<mpl=adsense&passive=false&continue=https://www.google.com/adsense/gaiaauth2?hl%3Des%26subid%3Dww-es-et-nelson_adsense&followup=https://www.google.com/adsense/gaiaauth2?hl%3Des%26subid%3Dww-es-et-nelson_adsense%26sourceid%3Daso&hl=es"
im.Play(t)
t = "CODE: TAG POS=1 TYPE=INPUT:TEXT FORM=ACTION:https://accounts.google.com/ServiceLoginAuth ATTR=NAME:Email CONTENT=xxxxxx@xxxxxxxx.com"
im.Play(t)
t = "CODE: SET !ENCRYPTION NO"
im.Play(t)
t = "CODE: TAG POS=1 TYPE=INPUT:PASSWORD FORM=ACTION:https://accounts.google.com/ServiceLoginAuth ATTR=NAME:Passwd CONTENT=xxxxxxxx"
im.Play(t)
t = "CODE: TAG POS=1 TYPE=INPUT:SUBMIT FORM=ACTION:https://accounts.google.com/ServiceLoginAuth ATTR=NAME:signIn"
im.Play(t)
t = "CODE: TAG POS=1 TYPE=DIV ATTR=CLASS:earnings-value EXTRACT=TXT"
im.Play(t)
t = "CODE: TAG POS=2 TYPE=DIV ATTR=CLASS:earnings-value EXTRACT=TXT"
im.Play(t)
t = "CODE: TAG POS=3 TYPE=DIV ATTR=CLASS:earnings-value EXTRACT=TXT"
im.Play(t)
t = "CODE: TAG POS=4 TYPE=DIV ATTR=CLASS:earnings-value EXTRACT=TXT"
im.Play(t)
Dim extract = String.Empty
If im.ExtractedValues.Count > 0 Then
extract = String.Join("[sep]", im.ExtractedValues.ToArray())
End If
Catch ex As Exception
MsgBox(Err.Number.ToString + " " + Err.Description)
End Try
What's Wrong ?
Thanks in advance