B4X

Google Search Console API - Add

See more Google Search Console Examples

Demonstrates how to add a site to the set of the user's sites in Search Console. B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  This example uses a previously obtained access token having permission for the 
'  Google Search Console scope.

'  In this example, Get a Google Search Console OAuth2 Access Token, the access
'  token was saved to a JSON file.  This example fetches the access token from the file..
Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
success = jsonToken.LoadFile("qa_data/tokens/googleSearchConsole.json")
If jsonToken.HasMember("access_token") = False Then
    Log("No access token found.")
    Return
End If

Dim http As ChilkatHttp
http.Initialize("http")
http.AuthToken = jsonToken.StringOf("access_token")

Dim sbUrlToAdd As ChilkatStringBuilder
sbUrlToAdd.Initialize
sbUrlToAdd.Append("https://www.example.com/")
sbUrlToAdd.Encode("url", "utf-8")

Dim sbUrl As ChilkatStringBuilder
sbUrl.Initialize
sbUrl.Append("https://www.googleapis.com/webmasters/v3/sites/")
sbUrl.AppendSb(sbUrlToAdd)

'  Our URL looks like this:  https://www.googleapis.com/webmasters/v3/sites/https%3A%2F%2Fwww.example.com%2F
Log(sbUrl.GetAsString)

Dim url As String = sbUrl.GetAsString
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpNoBody("PUT", url, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim statusCode As Int = resp.StatusCode
Log("Response Status Code: " & statusCode)

If statusCode >= 400 Then
    Log(resp.BodyStr)
    Log("Failed.")
End If


Log("Success")