|
1 | | -Imports Newtonsoft.Json |
2 | | - |
3 | | -Module Program |
4 | | - Sub Main(args As String()) |
5 | | - Dim apikey = "PASTE_YOUR_API_KEY_HERE" |
6 | | - Dim email = "example@example.com" |
7 | | - Dim mbv As New MailboxValidator.SingleValidation(apikey) |
8 | | - |
9 | | - Dim mytask = mbv.ValidateEmailAsync(email) ' async API Call |
10 | | - Dim myobj = mytask.Result |
11 | | - |
12 | | - Console.WriteLine(JsonConvert.SerializeObject(myobj, Formatting.Indented)) ' to pretty-print the JSON |
13 | | - |
14 | | - Console.WriteLine("email_address:" & myobj("email_address").ToString) |
15 | | - Console.WriteLine("domain:" & myobj("domain").ToString) |
16 | | - Console.WriteLine("is_free:" & myobj("is_free").ToString) |
17 | | - Console.WriteLine("is_syntax:" & myobj("is_syntax").ToString) |
18 | | - Console.WriteLine("is_domain:" & myobj("is_domain").ToString) |
19 | | - Console.WriteLine("is_smtp:" & myobj("is_smtp").ToString) |
20 | | - Console.WriteLine("is_verified:" & myobj("is_verified").ToString) |
21 | | - Console.WriteLine("is_server_down:" & myobj("is_server_down").ToString) |
22 | | - Console.WriteLine("is_greylisted:" & myobj("is_greylisted").ToString) |
23 | | - Console.WriteLine("is_disposable:" & myobj("is_disposable").ToString) |
24 | | - Console.WriteLine("is_suppressed:" & myobj("is_suppressed").ToString) |
25 | | - Console.WriteLine("is_role:" & myobj("is_role").ToString) |
26 | | - Console.WriteLine("is_high_risk:" & myobj("is_high_risk").ToString) |
27 | | - Console.WriteLine("is_catchall:" & myobj("is_catchall").ToString) |
28 | | - Console.WriteLine("mailboxvalidator_score:" & myobj("mailboxvalidator_score").ToString) |
29 | | - Console.WriteLine("time_taken:" & myobj("time_taken").ToString) |
30 | | - Console.WriteLine("status:" & myobj("status").ToString) |
31 | | - Console.WriteLine("credits_available:" & myobj("credits_available").ToString) |
32 | | - |
33 | | - Dim mytask2 = mbv.DisposableEmailAsync(email) ' async API Call |
34 | | - Dim myobj2 = mytask2.Result |
35 | | - |
36 | | - Console.WriteLine(JsonConvert.SerializeObject(myobj2, Formatting.Indented)) ' to pretty-print the JSON |
37 | | - |
38 | | - Console.WriteLine("email_address:" & myobj2("email_address").ToString) |
39 | | - Console.WriteLine("is_disposable:" & myobj2("is_disposable").ToString) |
40 | | - Console.WriteLine("credits_available:" & myobj2("credits_available").ToString) |
41 | | - |
42 | | - Dim mytask3 = mbv.FreeEmailAsync(email) ' async API Call |
43 | | - Dim myobj3 = mytask3.Result |
44 | | - |
45 | | - Console.WriteLine(JsonConvert.SerializeObject(myobj3, Formatting.Indented)) ' to pretty-print the JSON |
46 | | - |
47 | | - Console.WriteLine("email_address:" & myobj3("email_address").ToString) |
48 | | - Console.WriteLine("is_free:" & myobj3("is_free").ToString) |
49 | | - Console.WriteLine("credits_available:" & myobj3("credits_available").ToString) |
50 | | - End Sub |
51 | | -End Module |
| 1 | +Imports Newtonsoft.Json |
| 2 | + |
| 3 | +Module Program |
| 4 | + Sub Main(args As String()) |
| 5 | + Dim apikey = "PASTE_YOUR_API_KEY_HERE" |
| 6 | + Dim email = "example@example.com" |
| 7 | + Dim mbv As New MailboxValidator.SingleValidation(apikey) |
| 8 | + |
| 9 | + Dim mytask = mbv.ValidateEmailAsync(email) ' async API Call |
| 10 | + Dim myobj = mytask.Result |
| 11 | + |
| 12 | + Console.WriteLine(JsonConvert.SerializeObject(myobj, Formatting.Indented)) ' to pretty-print the JSON |
| 13 | + |
| 14 | + Console.WriteLine("email_address:" & myobj("email_address").ToString) |
| 15 | + Console.WriteLine("domain:" & myobj("domain").ToString) |
| 16 | + Console.WriteLine("is_free:" & myobj("is_free").ToString) |
| 17 | + Console.WriteLine("is_syntax:" & myobj("is_syntax").ToString) |
| 18 | + Console.WriteLine("is_domain:" & myobj("is_domain").ToString) |
| 19 | + Console.WriteLine("is_smtp:" & myobj("is_smtp").ToString) |
| 20 | + Console.WriteLine("is_verified:" & myobj("is_verified").ToString) |
| 21 | + Console.WriteLine("is_server_down:" & myobj("is_server_down").ToString) |
| 22 | + Console.WriteLine("is_greylisted:" & myobj("is_greylisted").ToString) |
| 23 | + Console.WriteLine("is_disposable:" & myobj("is_disposable").ToString) |
| 24 | + Console.WriteLine("is_suppressed:" & myobj("is_suppressed").ToString) |
| 25 | + Console.WriteLine("is_role:" & myobj("is_role").ToString) |
| 26 | + Console.WriteLine("is_high_risk:" & myobj("is_high_risk").ToString) |
| 27 | + Console.WriteLine("is_catchall:" & myobj("is_catchall").ToString) |
| 28 | + Console.WriteLine("mailboxvalidator_score:" & myobj("mailboxvalidator_score").ToString) |
| 29 | + Console.WriteLine("time_taken:" & myobj("time_taken").ToString) |
| 30 | + Console.WriteLine("status:" & myobj("status").ToString) |
| 31 | + Console.WriteLine("credits_available:" & myobj("credits_available").ToString) |
| 32 | + |
| 33 | + Dim mytask2 = mbv.DisposableEmailAsync(email) ' async API Call |
| 34 | + Dim myobj2 = mytask2.Result |
| 35 | + |
| 36 | + Console.WriteLine(JsonConvert.SerializeObject(myobj2, Formatting.Indented)) ' to pretty-print the JSON |
| 37 | + |
| 38 | + Console.WriteLine("email_address:" & myobj2("email_address").ToString) |
| 39 | + Console.WriteLine("is_disposable:" & myobj2("is_disposable").ToString) |
| 40 | + Console.WriteLine("credits_available:" & myobj2("credits_available").ToString) |
| 41 | + |
| 42 | + Dim mytask3 = mbv.FreeEmailAsync(email) ' async API Call |
| 43 | + Dim myobj3 = mytask3.Result |
| 44 | + |
| 45 | + Console.WriteLine(JsonConvert.SerializeObject(myobj3, Formatting.Indented)) ' to pretty-print the JSON |
| 46 | + |
| 47 | + Console.WriteLine("email_address:" & myobj3("email_address").ToString) |
| 48 | + Console.WriteLine("is_free:" & myobj3("is_free").ToString) |
| 49 | + Console.WriteLine("credits_available:" & myobj3("credits_available").ToString) |
| 50 | + End Sub |
| 51 | +End Module |
0 commit comments