madscientist
/
PKG-SNF-SDK-WIN
ウォッチ 1
スター 0
フォーク 0
コード 課題 0 プルリクエスト 0 リリース 0 Wiki アクティビティ
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。
45 コミット
1 ブランチ
ブランチ: master
ブランチ タグ
${ item.name }
ブランチ ${ searchTerm } を作成
'master' から
${ noResults }
PKG-SNF-SDK-WIN/VBSample/main.vb.html

main.vb.html 45KB
Raw パーマリンク 通常表示 履歴

Reset git-svn-id: https://svn.microneil.com/svn/PKG-SNF-SDK-WIN/trunk@5 7d91e7c8-5a61-404e-b06a-95855fde9112
13年前
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226 
  1. <html>

  2. <head>

  3. <title>C:\M\Projects\MessageSniffer\PKG-SNF-SDK-WIN_Work\PKG-SNF-SDK-WIN\VBSample\main.vb</title>

  4. <style>

  5. body { background-color: #ffffff; font-family: "Courier New"; font-size:10.0pt; font-style: normal; font-weight: normal; text-decoration: none; }

  6. .se2 { color: #000000; background-color: #ffffff; } /* Window Text */

  7. .se17 { color: #800080; background-color: #ffffff; } /* Keyword */

  8. .se19 { color: #000080; background-color: #ffffff; } /* Number */

  9. .se20 { color: #008080; background-color: #ffffff; } /* String */

  10. .se22 { color: #808000; background-color: #ffffff; } /* Preprocessor */

  11. .se23 { color: #800000; background-color: #ffffff; } /* Punctuation */

  12. .se24 { color: #c04000; background-color: #ffffff; } /* Library Symbol */

  13. .se25 { color: #000000; background-color: #ffffff; } /* Operator */

  14. .se49 { color: #008000; background-color: #ffffff; font-style: italic; } /* Comment */

  15. .se55 { color: #000000; background-color: #ffffff; } /* Window Text */

  16. .se57 { color: #000080; background-color: #ffffff; } /* Number */

  17. </style>

  18. </head>

  19. <body>

  20. <pre>

  21. <span class="se49">' main.vb SNF-SDK-WIN CPP OEM Demonstration Code</span>

  22. <span class="se49">' Copyright (C) 2009 ARM Research Labs, LLC</span>

  23. <span class="se49">'</span>

  24. <span class="se49">' This app simply exercises the API provided by snfmultidll.</span>

  25. 

  26. <span class="se17">Imports</span><span class="se2"> </span><span class="se24">System</span><span class="se2">.</span><span class="se55">Runtime</span><span class="se2">.</span><span class="se55">InteropServices</span>

  27. <span class="se17">Imports</span><span class="se2"> </span><span class="se24">System</span><span class="se2">.</span><span class="se24">Text</span>

  28. 

  29. <span class="se17">Module</span><span class="se2"> </span><span class="se55">SNFMultiDLLExample</span>

  30. 

  31. <span class="se22">#Region</span><span class="se2"> </span><span class="se20">&quot;DLL Imports&quot;</span>

  32. 

  33. <span class="se2">    </span><span class="se49">' Location of SNFMulti.dll.</span>

  34. <span class="se2">    </span><span class="se17">Const</span><span class="se2"> </span><span class="se55">SNFMULTI_DLL</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se20">&quot;..\..\..\..\64bitDll\SNFMulti.dll&quot;</span><span class="se2"> </span><span class="se49">' Set CPU type to &quot;Any CPU&quot;</span>

  35. <span class="se2">    </span><span class="se49">'Const SNFMULTI_DLL As String = &quot;..\..\..\..\..\64bitDll\SNFMulti.dll&quot; ' Set CPU type to &quot;x64&quot;</span>

  36. <span class="se2">    </span><span class="se49">'Const SNFMULTI_DLL As String = &quot;..\..\..\..\..\32bitDll\SNFMulti.dll&quot; ' Set CPU type to &quot;x86&quot;</span>

  37. 

  38. <span class="se2">    </span><span class="se49">'int setThrottle(int Threads);                                                   /* Set scan thread limit. */</span>

  39. <span class="se2">    </span><span class="se49">'int startupSNF(char* Path);                                                     /* Start SNF with configuration. */</span>

  40. <span class="se2">    </span><span class="se49">'int startupSNFAuthenticated(char* Path, char* Lic, char* Auth);                 /* Start SNF with conf &amp; auth. */</span>

  41. <span class="se2">    </span><span class="se49">'int shutdownSNF();                                                              /* Shutdown SNF. */</span>

  42. <span class="se2">    </span><span class="se49">'int testIP(unsigned long int IPToCheck);                                        /* Test the IP for a GBUdb range. */</span>

  43. <span class="se2">    </span><span class="se49">'double getIPReputation(unsigned long int IPToCheck);                            /* Get reputation figure for IP. */</span>

  44. <span class="se2">    </span><span class="se49">'int scanBuffer(unsigned char* Bfr, int Length, char* Name, int Setup);          /* Scan msgBuffer, name, setup time. */</span>

  45. <span class="se2">    </span><span class="se49">'int scanFile(char* FilePath, int Setup);                                        /* Scan msgFile, setup time. */</span>

  46. <span class="se2">    </span><span class="se49">'int getScanXHeaders(int ScanHandle, char** Bfr, int* Length);                   /* Get result &amp; XHeaders. */</span>

  47. <span class="se2">    </span><span class="se49">'int getScanXMLLog(int ScanHandle, char** Bfr, int* Length);                     /* Get result &amp; XML Log. */</span>

  48. <span class="se2">    </span><span class="se49">'int getScanClassicLog(int ScanHandle, char** Bfr, int* Length);                 /* Get result &amp; Classic Log. */</span>

  49. <span class="se2">    </span><span class="se49">'int getScanResult(int ScanHandle);                                              /* Get just the scan result. */</span>

  50. <span class="se2">    </span><span class="se49">'int closeScan(int ScanHandle);                                                  /* Close the scan result. */</span>

  51. 

  52. 

  53. <span class="se2">    </span><span class="se49">'Set scan thread limit</span>

  54. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;setThrottle&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  55. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">setThrottle</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">Threads</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  56. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  57. 

  58. <span class="se2">    </span><span class="se49">'Startup</span>

  59. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;startupSNF&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  60. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">startupSNF</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">PathToConfigurationFile</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  61. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  62. 

  63. <span class="se2">    </span><span class="se49">'Start SNF with conf &amp; auth.</span>

  64. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;startupSNFAuthenticated&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, _</span>

  65. <span class="se2">               </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  66. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">startupSNFAuthenticated</span><span class="se23">(</span><span class="se2"> _</span>

  67. <span class="se2">        </span><span class="se17">ByVal</span><span class="se2"> </span><span class="se24">Path</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se2">, _</span>

  68. <span class="se2">        </span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">Lic</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se2">, _</span>

  69. <span class="se2">        </span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">Auth</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  70. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  71. 

  72. <span class="se2">    </span><span class="se49">'Shutdown</span>

  73. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;shutdownSNF&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  74. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">shutdownSNF</span><span class="se23">()</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  75. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  76. 

  77. <span class="se2">    </span><span class="se49">'Test IP</span>

  78. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;testIP&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  79. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">testIP</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">IPToCheck</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">UInt32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  80. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  81. 

  82. <span class="se2">    </span><span class="se49">'getIPReputation</span>

  83. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;getIPReputation&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  84. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">getIPReputation</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">IPToCheck</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">UInt32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">Double</span>

  85. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  86. 

  87. <span class="se2">    </span><span class="se49">'ScanBuffer - returns scannerhandle</span>

  88. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;scanBuffer&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  89. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">scanBuffer</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">MsgBfr</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">StringBuilder</span><span class="se2">, </span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">MsgBfrLen</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se2">, </span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">MsgID</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se2">, </span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">SetupTime</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  90. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  91. 

  92. <span class="se2">    </span><span class="se49">'ScanFile</span>

  93. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;scanFile&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  94. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">scanFile</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">FilePath</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se2">, </span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">Setup</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  95. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  96. 

  97. <span class="se2">    </span><span class="se49">'GetScanXHeaders - use scannerhandle returned from previous - returns ScanResult Code</span>

  98. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;getScanXHeaders&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  99. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">getScanXHeaders</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">ScannerHandle</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se2">, </span><span class="se17">ByRef</span><span class="se2"> </span><span class="se55">HeadersPtr</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">IntPtr</span><span class="se2">, </span><span class="se17">ByRef</span><span class="se2"> </span><span class="se55">HeadersLength</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  100. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  101. 

  102. <span class="se2">    </span><span class="se49">'GetScanXMLLog - Get result &amp; XML Log</span>

  103. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;getScanXMLLog&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  104. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">getScanXMLLog</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">ScannerHandle</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se2">, </span><span class="se17">ByRef</span><span class="se2"> </span><span class="se55">LogPtr</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">IntPtr</span><span class="se2">, </span><span class="se17">ByRef</span><span class="se2"> </span><span class="se55">LogLength</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  105. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  106. 

  107. <span class="se2">    </span><span class="se49">'GetScanClassicLog - Get result &amp; Classic Log</span>

  108. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;getScanClassicLog&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  109. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">getScanClassicLog</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">ScannerHandle</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se2">, </span><span class="se17">ByRef</span><span class="se2"> </span><span class="se55">LogPtr</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">IntPtr</span><span class="se2">, </span><span class="se17">ByRef</span><span class="se2"> </span><span class="se55">LogLength</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  110. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  111. 

  112. <span class="se2">    </span><span class="se49">'GetScanResult - Get just the scan result</span>

  113. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;getScanResult&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  114. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">getScanResult</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">ScannerHandle</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  115. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  116. 

  117. <span class="se2">    </span><span class="se49">'Close Scan</span>

  118. <span class="se2">    </span><span class="se25">&lt;</span><span class="se55">DllImport</span><span class="se23">(</span><span class="se55">SNFMULTI_DLL</span><span class="se2">, </span><span class="se55">EntryPoint</span><span class="se2">:</span><span class="se25">=</span><span class="se20">&quot;closeScan&quot;</span><span class="se2">, </span><span class="se55">CharSet</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CharSet</span><span class="se2">.</span><span class="se17">Ansi</span><span class="se2">, </span><span class="se55">CallingConvention</span><span class="se2">:</span><span class="se25">=</span><span class="se55">CallingConvention</span><span class="se2">.</span><span class="se55">Winapi</span><span class="se23">)</span><span class="se25">&gt;</span><span class="se2"> _</span>

  119. <span class="se2">    </span><span class="se17">Public</span><span class="se2"> </span><span class="se17">Function</span><span class="se2"> </span><span class="se55">closeScan</span><span class="se23">(</span><span class="se17">ByVal</span><span class="se2"> </span><span class="se55">ScannerHandle</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span><span class="se23">)</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  120. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Function</span>

  121. 

  122. <span class="se22">#End</span><span class="se2"> </span><span class="se22">Region</span>

  123. 

  124. <span class="se2">    </span><span class="se17">Sub</span><span class="se2"> </span><span class="se55">Main</span><span class="se23">()</span>

  125. 

  126. <span class="se2">        </span><span class="se49">' Setup the basics we need to run this test.</span>

  127. 

  128. <span class="se2">        </span><span class="se49">'Const LicenseID As String = &quot;licensid&quot;                                 ' SNF License ID can be passed</span>

  129. <span class="se2">        </span><span class="se49">'Const Authentication As String = &quot;authentication&quot;                      ' directly or read from the</span>

  130. <span class="se2">                                                                                </span><span class="se49">' configuration. OEMs go direct!</span>

  131. <span class="se2">        </span><span class="se17">Const</span><span class="se2"> </span><span class="se55">ConfigurationPath</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se20">&quot;..\..\..\snf_engine.xml&quot;</span><span class="se2">           </span><span class="se49">' For &quot;Any CPU&quot; platform.</span>

  132. <span class="se2">        </span><span class="se49">'Const ConfigurationPath As String = &quot;..\..\..\..\snf_engine.xml&quot;        ' For &quot;x86&quot; or &quot;x64&quot; platforms.</span>

  133. 

  134. 

  135. <span class="se2">        </span><span class="se17">Const</span><span class="se2"> </span><span class="se55">IPToTest</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">UInt32</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se57">&amp;HC22384E</span><span class="se2">                                   </span><span class="se49">' Same as IP 12.34.56.78</span>

  136. 

  137. <span class="se2">        </span><span class="se17">Const</span><span class="se2"> </span><span class="se55">SampleMessage</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> _</span>

  138. <span class="se2">            </span><span class="se20">&quot;Received: from mx-out.example.com [12.34.56.78] (HELO Somebody)\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  139. <span class="se2">            </span><span class="se20">&quot;  by mx-in.example.com (nosuchserver v1.0) for nobody@example.com\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  140. <span class="se2">            </span><span class="se20">&quot;From: &lt;somebody@example.com&gt;\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  141. <span class="se2">            </span><span class="se20">&quot;To: &lt;nobody@example.com&gt;\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  142. <span class="se2">            </span><span class="se20">&quot;Subject: Nothing to see here\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  143. <span class="se2">            </span><span class="se20">&quot;\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  144. <span class="se2">            </span><span class="se20">&quot;So this is the big thing that's not here to see.\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  145. <span class="se2">            </span><span class="se20">&quot;I thought it would be more interesting than this.\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  146. <span class="se2">            </span><span class="se20">&quot;\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  147. <span class="se2">            </span><span class="se20">&quot;_M\r\n&quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> _</span>

  148. <span class="se2">            </span><span class="se20">&quot;.\r\n&quot;</span>

  149. 

  150. <span class="se2">        </span><span class="se49">'' Here is a simple example. Startup, exercise the API, shut down.</span>

  151. <span class="se2">        </span><span class="se49">'' Note that we're doing this in a very &quot;C&quot; style becuase the DLL API is C</span>

  152. 

  153. <span class="se2">        </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">Result</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">Integer</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se19">0</span>

  154. 

  155. <span class="se2">        </span><span class="se55">Result</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">startupSNF</span><span class="se23">(</span><span class="se55">ConfigurationPath</span><span class="se23">)</span>

  156. 

  157. <span class="se2">        </span><span class="se49">'Result = startupSNFAuthenticated( _</span>

  158. <span class="se2">        </span><span class="se49">'    ConfigurationPath, _</span>

  159. <span class="se2">        </span><span class="se49">'    LicenseID, _</span>

  160. <span class="se2">        </span><span class="se49">'    Authentication)</span>

  161. 

  162. <span class="se2">        </span><span class="se55">Console</span><span class="se2">.</span><span class="se24">WriteLine</span><span class="se23">(</span><span class="se20">&quot;Started with config &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">ConfigurationPath</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se20">&quot; Result: &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">Result</span><span class="se2">.</span><span class="se55">ToString</span><span class="se23">(</span><span class="se20">&quot;D&quot;</span><span class="se23">))</span>

  163. 

  164. <span class="se2">        </span><span class="se49">' IP tests can be done asynchrounously - they do not have to be part of any particular scan.</span>

  165. 

  166. <span class="se2">        </span><span class="se55">Result</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">testIP</span><span class="se23">(</span><span class="se55">IPToTest</span><span class="se23">)</span>

  167. <span class="se2">        </span><span class="se55">Console</span><span class="se2">.</span><span class="se24">WriteLine</span><span class="se23">(</span><span class="se20">&quot;IP test result: &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">Result</span><span class="se2">.</span><span class="se55">ToString</span><span class="se23">(</span><span class="se20">&quot;D&quot;</span><span class="se23">))</span>

  168. 

  169. <span class="se2">        </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">IPReputation</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">Double</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">getIPReputation</span><span class="se23">(</span><span class="se55">IPToTest</span><span class="se23">)</span>

  170. <span class="se2">        </span><span class="se55">Console</span><span class="se2">.</span><span class="se24">WriteLine</span><span class="se23">(</span><span class="se20">&quot;IP Reputation: &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">IPReputation</span><span class="se2">.</span><span class="se55">ToString</span><span class="se23">())</span>

  171. 

  172. <span class="se2">        </span><span class="se49">' Messgae scans happen in a scan, read, close cycle as shown inside this loop.</span>

  173. 

  174. <span class="se2">        </span><span class="se17">Const</span><span class="se2"> </span><span class="se55">NumberOfScans</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">Integer</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se19">10</span>

  175. <span class="se2">        </span><span class="se17">For</span><span class="se2"> </span><span class="se55">i</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">Integer</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se19">0</span><span class="se2"> </span><span class="se17">To</span><span class="se2"> </span><span class="se55">NumberOfScans</span>

  176. 

  177. <span class="se2">            </span><span class="se49">' Show how the IP reputation changes over time.</span>

  178. 

  179. <span class="se2">            </span><span class="se55">IPReputation</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">getIPReputation</span><span class="se23">(</span><span class="se55">IPToTest</span><span class="se23">)</span>

  180. <span class="se2">            </span><span class="se55">Console</span><span class="se2">.</span><span class="se24">WriteLine</span><span class="se23">(</span><span class="se20">&quot;IP Reputation: &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">IPReputation</span><span class="se2">.</span><span class="se55">ToString</span><span class="se23">())</span>

  181. 

  182. <span class="se2">            </span><span class="se49">' Scan a message from a buffer.</span>

  183. 

  184. <span class="se2">            </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">SetupTime</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">Integer</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se19">12</span>

  185. <span class="se2">            </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">ScanHandle</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">Integer</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se19">0</span>

  186. <span class="se2">            </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">MsgBuffer</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">New</span><span class="se2"> </span><span class="se55">StringBuilder</span>

  187. <span class="se2">            </span><span class="se55">MsgBuffer</span><span class="se2">.</span><span class="se24">Append</span><span class="se23">(</span><span class="se55">SampleMessage</span><span class="se23">)</span>

  188. <span class="se2">            </span><span class="se55">ScanHandle</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">scanBuffer</span><span class="se23">(</span><span class="se55">MsgBuffer</span><span class="se2">, </span><span class="se55">MsgBuffer</span><span class="se2">.</span><span class="se55">Length</span><span class="se23">()</span><span class="se2">, </span><span class="se20">&quot;TestMessage&quot;</span><span class="se2">, </span><span class="se55">SetupTime</span><span class="se23">)</span>

  189. 

  190. 

  191. <span class="se2">            </span><span class="se55">Console</span><span class="se2">.</span><span class="se24">WriteLine</span><span class="se23">(</span><span class="se20">&quot;Scan Handle: &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">ScanHandle</span><span class="se2">.</span><span class="se55">ToString</span><span class="se23">(</span><span class="se20">&quot;D&quot;</span><span class="se23">))</span>

  192. 

  193. <span class="se2">            </span><span class="se49">' Retrieve the X-Headers for the scan.</span>

  194. 

  195. <span class="se2">            </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">XHeadersBuffer</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">IntPtr</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">IntPtr</span><span class="se2">.</span><span class="se55">Zero</span>

  196. <span class="se2">            </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">XHeadersLength</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se55">Int32</span>

  197. <span class="se2">            </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">XHeaders</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">String</span>

  198. 

  199. <span class="se2">            </span><span class="se17">Dim</span><span class="se2"> </span><span class="se55">ScanResult</span><span class="se2"> </span><span class="se17">As</span><span class="se2"> </span><span class="se17">Integer</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se19">0</span>

  200. <span class="se2">            </span><span class="se55">ScanResult</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">getScanXHeaders</span><span class="se23">(</span><span class="se55">ScanHandle</span><span class="se2">, </span><span class="se55">XHeadersBuffer</span><span class="se2">, </span><span class="se55">XHeadersLength</span><span class="se23">)</span>

  201. <span class="se2">            </span><span class="se55">XHeaders</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se24">System</span><span class="se2">.</span><span class="se55">Runtime</span><span class="se2">.</span><span class="se55">InteropServices</span><span class="se2">.</span><span class="se55">Marshal</span><span class="se2">.</span><span class="se55">PtrToStringAnsi</span><span class="se23">(</span><span class="se55">XHeadersBuffer</span><span class="se2">, </span><span class="se55">XHeadersLength</span><span class="se23">)</span>

  202. 

  203. <span class="se2">            </span><span class="se49">' Close the scan.</span>

  204. 

  205. <span class="se2">            </span><span class="se55">Result</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">closeScan</span><span class="se23">(</span><span class="se55">ScanHandle</span><span class="se23">)</span>

  206. 

  207. <span class="se2">            </span><span class="se55">Console</span><span class="se2">.</span><span class="se24">WriteLine</span><span class="se23">(</span><span class="se20">&quot;Scan Close Result: &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">Result</span><span class="se2">.</span><span class="se55">ToString</span><span class="se23">(</span><span class="se20">&quot;D&quot;</span><span class="se23">))</span>

  208. 

  209. <span class="se2">            </span><span class="se49">' X- headers were captured in a string BEFORE closing the scan so we can</span>

  210. <span class="se2">            </span><span class="se49">' use them here.</span>

  211. 

  212. <span class="se2">            </span><span class="se55">Console</span><span class="se2">.</span><span class="se24">WriteLine</span><span class="se23">(</span><span class="se20">&quot;Scan result code: &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">ScanResult</span><span class="se2">.</span><span class="se55">ToString</span><span class="se23">(</span><span class="se20">&quot;D&quot;</span><span class="se23">))</span>

  213. <span class="se2">            </span><span class="se55">Console</span><span class="se2">.</span><span class="se24">WriteLine</span><span class="se23">(</span><span class="se20">&quot;Scan X- headers: &quot;</span><span class="se2"> </span><span class="se25">+</span><span class="se2"> </span><span class="se55">XHeaders</span><span class="se23">)</span>

  214. 

  215. <span class="se2">        </span><span class="se17">Next</span><span class="se2"> </span><span class="se55">i</span>

  216. 

  217. <span class="se2">        </span><span class="se49">' Now that all scanning is done we shut down.</span>

  218. 

  219. <span class="se2">        </span><span class="se55">Result</span><span class="se2"> </span><span class="se25">=</span><span class="se2"> </span><span class="se55">shutdownSNF</span><span class="se23">()</span>

  220. 

  221. <span class="se2">    </span><span class="se17">End</span><span class="se2"> </span><span class="se17">Sub</span>

  222. 

  223. <span class="se17">End</span><span class="se2"> </span><span class="se17">Module</span>

  224. </pre>

  225. </body>

  226. </html>