Grab Transaction Info From Paypal!

Im making a program that grabs order information from paypal and uploads the info to an FTP server.
I already know how to auto login to paypal, and how to write files / upload them to an FTP server, but im having problems with the stuff inbetween.

I thought something like this would work (given i made the variables correctly);

Code:

web.Document.GetElementById("dateInfo").GetAttribute(d1)
        web.Document.GetElementById("emailInfo").GetAttribute(n1)
        'web.Document.GetElementById("paymentStatus").GetAttribute(s1)
        web.Document.GetElementById("gross").GetAttribute(a1)

but it doesn't, it returns the error with;

Now an explanation of what i want it to do;
I want it to goto the history page (https://history.paypal.com/us/cgi-bi...r?cmd=_history), and grab the date, name, status (completed or not), and amount values. Then transfers the said values to the variables in the syntax above (d1 / n1 / s1 / a1). After it grabs the values of the new orders, then it goes to the description of everyone, and grabs the text in the subject.

Does anyone know how to do that?

What's d1, n1, etc? You probably declared them with no value. Perhaps you should replace them with "value" and see what you get.

I think you're confused about GetAttribute does lol. It's a function, with a return type, the only parameter it accepts is the name of the attribute of whose value you want to get. i.e:

<input id="vbexample" type="text" name="example" value="lalala" />

The attributes of this HTML element are

type
name
value
id

So you would use

[highlight=vb.net]
Dim value As String = WebBrowser1.Document.GetElementById("vbexample").G etAttribute("value") 'to get the value attribute
Dim name As String = WebBrowser1.Document.GetElementById("vbexample").G etAttribute("name") 'to get the name attribute
'....etc
[/highlight]

@Jason
thank you so much for those examples,
but could you tell me what "vbexample" "value" and "name" mean?
cuz i dun get that part of the syntax

also, do you know how to use PDT?
for paypal?

op nvm, i read your whole post now, for whaat value / name / ect means,
thanks again

So....solved then?

Originally Posted by Jason

So....solved then?

nope,
doesn't work
which is why i VM'd you

aff ok how do i decipher what goes were from this element?
cuz theres no ID, and i dunno if ID so header are interchangable

Try this, it should work:
[highlight=vb.net] Private Function GetPaypalInformation(ByRef wb As WebBrowser, ByVal className As String) As String
Try
Dim elem As HtmlElementCollection = wb.Document.GetElementsByTagName("td")
Return elem(Enumerable.Range(0, elem.Count).First(Function(i) elem(i).GetAttribute("className") = className)).InnerText
Catch
Return String.Empty
End Try
End Function[/highlight]

Usage:
Dim grossValue As String = GetPaypalInformation(web, "cur_val") 'You put the class name as the 2nd argument
MsgBox(grossValue) 'Display the value in a messagebox
It should display $0.01 USD if it works properly.

Originally Posted by master131

I don't see the point in the enumerable range tbh.

[highlight=vb.net]
Private Function GetPaypalInfo(ByVal page As HtmlDocument, ByVal cName As String) As String
Dim elemEnum As IEnumerable(Of HtmlElement) = page.GetElementsByTagName("td").Cast(Of HtmlElement)()
elemEnum = elemEnum.Where(Function(h As HtmlElement) h.GetAttribute("className") = cName)
Return If(elemEnum.Count() = 1, elemEnum.First().InnerText, String.Empty)
End Function
[/highlight]

Or even more succinct, but less readable:

[highlight=vb.net]
Private Function GetPaypalInfo(ByVal page As HtmlDocument, ByVal cName As String) As String
Dim elemEnum As IEnumerable(Of HtmlElement) = page.GetElementsByTagName("td").Cast(Of HtmlElement)().Where(Function(h As HtmlElement) h.GetAttribute("className") = cName)
Return If(elemEnum.Count() = 1, elemEnum.First().InnerText, String.Empty)
End Function
[/highlight]

Originally Posted by master131

Try this, it should work:

Usage:
Dim grossValue As String = GetPaypalInformation(web, "cur_val") 'You put the class name as the 2nd argument
MsgBox(grossValue) 'Display the value in a messagebox
It should display $0.01 USD if it works properly.

well it says i need to Generate a method sub or a property sub for "web"

and since i don't understand the syntax fully, i dunno how to fix it.. lol.

jason or master, can you help me..?
:/

We already did! can you please stpp double posting.

Originally Posted by Jason

We already did! can you please stpp double posting.

well what you guys gave me doesn't work

If you're using my code try:

[highlight=vb.net]
MessageBox.Show(GetPaypalInfo(WebBrowser1.Document , "paymentStatusInfo"))
[/highlight]

Originally Posted by Jason

If you're using my code try:

[highlight=vb.net]
MessageBox.Show(GetPaypalInfo(WebBrowser1.Document , "paymentStatusInfo"))
[/highlight]

that solved the problem with the first argument,
but now it doesn't do anything,
doesn't throw an error or anything

How can wloadval equal to 5 and then change to 14 straight away? O_o There's something wrong with your logic there. Also, wouldn't it be smarter to add the code to the DocumentCompleted Event of the WebBrowser?

@Jason

A WebBrowser control has a DocumentCompleted event as Master says.

Looking at your code
[highlight=vb.net]
If wLoadVal = 5
'...NO CHANGE TO wLoadVal in here
If wLoadVal = 14
'..this will never execute. wLoadVal can't increase from 5 to 14 with no code telling it to increase
End If
End If
[/highlight]

Think about your logic.

Grab Transaction Info From Paypal!

Post a Reply

Similar Threads

Tags for this Thread