The account credentials are duplicated in each of
2.Add the following procedure to the Clickevent of the new button. This procedure will promptyou to specify which example you want to run. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button3.ClickDim intExample As Integer run the example specified by the userintExample = InputBox( Please enter example number (1-5): ) Select Case intExampleCase 1Call Example1() Case 2Call Example2() Case 3Call Example3() Case 4Call Example4() Case 5Call Example5() Case ElseMsgBox( Please enter a number from 1-5 ) End SelectEnd Sub3.Add the Example1procedure that calls the AddItemmethod to list a new item on eBay. Replacethe variables in the following code with your account information. Sub Example1() On Error GoTo handleerrorDim strToken As StringDim strDevId As StringDim strAppId As StringDim strCertId As String specify credentials required to access APIstrToken = Your Token Here strDevId = Your Dev Id Here strAppId = Your App Id Here strCertId = Your Cert Id Here Dim SOAPService As New ebay.eBayAPIInterfaceServiceSOAPService.Url = _ https://api.sandbox.ebay.com/wsapi?callname=AddItem&siteid=0&appid= & _ strAppId & version=383 SOAPService.RequesterCredentials = New ebay.CustomSecurityHeaderTypeSOAPService.RequesterCredentials.eBayAuthToken = strTokenSOAPService.RequesterCredentials.Credentials = New ebay.UserIdPasswordTypeSOAPService.RequesterCredentials.Credentials.AppId = strAppId134Chapter
Note: If you are looking for good and high quality web space to host and run your application check Lunarwebhost Mac Web Hosting services