You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Public Class FreenomDNS
Public UserName, Password As String
Public EdgeFunc As System.Func(Of Object, System.Threading.Tasks.Task(Of Object))
Public Freenom As Object
Public Function Authorize(UserName As String, Password As String)
EdgeFunc = EdgeJs.Edge.Func("
var Freenom;
/*
ReturnValueFunc=function()
{
return Freenom;
}
*/
EdgeFunc=function (data, callback)
{
var UserName=data[0];
var Password=data[1];
Freenom = require(""freenom-dns"").init(UserName, Password);
callback(null, Freenom);
};
return EdgeFunc;
")
Freenom = EdgeFunc({UserName, Password}).WaitResult().dns
End Function
Function ListRecords(ForDomain As String)
Dim FreenomFunc As System.Func(Of Object, System.Threading.Tasks.Task(Of Object)) =
Freenom.listRecords 'listDomains
ListRecords = FreenomFunc(ForDomain).WaitResult(5000)
End Function
End Class
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim TestDNS As New FreenomDNS
TestDNS.Authorize(UserNameConst, PasswordConst)
Debug.Print(TestDNS.ListRecords(DomainNameConst).ToString())
The text was updated successfully, but these errors were encountered:
The text was updated successfully, but these errors were encountered: