Sub CallHome(mode As String, additional As String)
Try
If(Common.InternetEnabled) Then
Dim final_string, params As String
params = createUserData(mode, additional)
final_string = Common.activation_link & params
Common.httpClient1.Initialize("httpClient1")
Common.httprequest1.InitializeGet(final_string)
Common.httprequest1.Timeout = 50000
If Common.HttpClient1.Execute(Common.httprequest1, 1) = False Then
Return False
End If
Else
Return False
End If
Catch
If(Common.debug_mode) Then
Common.LogT("Call Home: " & LastException, "")
End If
Return False
End Try
Return True
End Sub