Hi
I am using newer version of Google.Api.Ads.AdWords.v201109. but I am
getting error on red code line . would you please help to resolve this.
Error :
T*he SoapListenerExtension class is not loaded. The most possible cause for
this error is that you haven't registered
Google.Api.Ads.Common.Lib.SoapListenerExtension as a soap extension under
configuration/system.web/webServices/soapExtensionTypes in your your
App.config or Web.config.*
Below is my code.
Imports Google.Api.Ads.AdWords.Lib
Imports Google.Api.Ads.AdWords.v13
Imports Google.Api.Ads.AdWords.v201109
Public Function getUser() As AdWordsUser
Dim headers As New Dictionary(Of String, String)
Dim SearchEngineDBObj As New SearchEngineDB(SQLConn)
Dim SearchEngineObj As SearchEngine
Dim emailObj As New
FusionLibrary.Fusion.Campaign.eMail("192.168.2.205")
SearchEngineObj = SearchEngineDBObj.populate("Google")
If SearchEngineObj Is Nothing Then
SearchID = 0
Return Nothing
End If
SearchID = SearchEngineObj.SearchID
headers.Add("email", "XXXXX")
headers.Add("password", "XXXX")
headers.Add("useragent", "XXXXX")
headers.Add("developerToken", "XXXXXX")
headers.Add("applicationToken", "XXXXXX")
headers.Add("clientCustomerId", "XXXXXX"
'headers.Add("AuthorizationMethod", "ClientLogin")
Try
Dim AdWordsUserObj As New AdWordsUser(headers)
Return AdWordsUserObj
Catch ex As Exception
Return Nothing
End Try
End Function
Public Function updateCampaigns() As Integer
Dim user As AdWordsUser
user = getUser()
If user Is Nothing Then
Return 0
End If
Dim CampaignServiceObj As CampaignService
Dim page As CampaignPage
Dim SearchEngineeCampaignDBObj As New
SearchEngineCampaignDB(SQLConn)
Dim secObj As SearchEngineCampaign
Dim rtn As String
CampaignServiceObj =
user.GetService(AdWordsService.v201109.CampaignService)
Try
Dim selector As New Selector()
selector.fields = New String() {"Id", "Name", "Status"}
Dim orderByName As New OrderBy()
orderByName.field = "Name"
orderByName.sortOrder = SortOrder.ASCENDING
Dim emailObj As New
FusionLibrary.Fusion.Campaign.eMail("XXXXXX")
Dim SearchEngineDBObj As New SearchEngineDB(SQLConn)
Dim SearchEngineObj As SearchEngine
SearchEngineObj = SearchEngineDBObj.populate("Google")
If SearchEngineObj Is Nothing Then
SearchID = 0
Return Nothing
End If
selector.ordering = New OrderBy() {orderByName}
TryCast(user.Config, AdWordsAppConfig).ClientCustomerId =
SearchEngineObj.UserName
*page = CampaignServiceObj.get(selector)*
Catch ex As Exception
Return 0
End Try
If page Is Nothing Then
Return 0
End If
If page.entries.Length = 0 Then
Return 0
End If
For Each CampaignObj As Google.Api.Ads.AdWords.v201109.Campaign
In page.entries
secObj = New SearchEngineCampaign
secObj.SearchID = SearchID
secObj.CampaignName = CampaignObj.name
secObj.BudgetAmount = CampaignObj.budget.amount.microAmount
/ 1000000
secObj.Status = CampaignObj.status.ToString
secObj.ID = CampaignObj.id
rtn = SearchEngineeCampaignDBObj.findAdd(secObj)
Next
Return page.entries.Length - 1
End Function
Thanks
--
=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~
Also find us on our blog and discussion group:
http://adwordsapi.blogspot.com
http://groups.google.com/group/adwords-api
=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~=~
You received this message because you are subscribed to the Google
Groups "AdWords API Forum" group.
To post to this group, send email to adwords-api@googlegroups.com
To unsubscribe from this group, send email to
adwords-api+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/adwords-api?hl=en
