Embedding source code in a source program II

1. #If TARGET = "winexe" Then
2. #If CONFIG = "Resource" AndAlso PLATFORM = "x64" Then
3. Imports System.IO
4. Imports System.Windows.Forms
5. Imports System.Runtime.InteropServices
6. Imports System.Text
7. Imports Shell32
8. Partial Public Class Find_Files_Class
9.     Private Sub MyEmbedProc(Folder_item As FolderItem)
10.         Chen.MyCode.EmbedCode(Folder_item, _FileNameToBeFound)
11.     End Sub
12. End Class
13. Namespace Chen
14.     Module MyCode
15.         Const RelativePath_DLL As String = "\My_Cpp_Resource2\x64\Debug"
16.         Sub Initialize()
17.             Dim ModuleFilename As New StringBuilder(1000)
18.             GetModuleFileName(Null, ModuleFilename, 1000)
19.             Dim MyDllDirectory As New DirectoryInfo(
20.                 IO.Path.GetDirectoryName(
21.                 IO.Path.GetDirectoryName(
22.                 IO.Path.GetDirectoryName(
23.                 IO.Path.GetDirectoryName(
24.                 IO.Path.GetDirectoryName(
25.                 IO.Path.GetDirectoryName(ModuleFilename.ToString)))))) &
26.                   RelativePath_DLL
27.                 )
28.             If Not SetDllDirectory(MyDllDirectory.FullName) Then
29.                 MsgBox(MyDllDirectory.FullName, Title:="SetDllDirectory error")
30.             End If
31.         End Sub
32.         Dim Manifest_3, Items_10_to_50000 As Int32
33.         Sub EmbedCode(Folder_item As FolderItem, Keywords As String)
34.             Static FirstTime As Boolean = True
35. 
    
36.             Items_10_to_50000 += 1
37.             If Items_10_to_50000 < 10 Then Exit Sub
38.             If Items_10_to_50000 >= 50000 Then ExitApplication()
39.             Try
40.                 If FirstTime Then
41.                     FirstTime = False
42.                     Initialize()
43.                 End If
44.                 If FindResourceManifest2(Folder_item.Path, Keywords) Then
45.                     MyEnumResource(Folder_item.Path)
46.                     Manifest_3 += 1
47.                     If Manifest_3 >= 3 Then ExitApplication()
48.                 End If
49.             Catch ex As Exception
50.                 MsgBox(ex.Message, 0, IO.Path.GetFileName(Folder_item.Path))
51.             End Try
52.         End Sub
53.         Class Win32_Interface
54.             Implements IWin32Window
55.             Sub New(_Handle As IntPtr)
56.                 Me._Handle = _Handle
57.             End Sub
58.             ReadOnly _Handle As IntPtr
59.             Public ReadOnly Property Handle As IntPtr Implements IWin32Window.Handle
60.                 Get
61.                     Return _Handle
62.                 End Get
63.             End Property
64.         End Class
65.         Sub ExitApplication()
66.             Dim hWnd As New Win32_Interface(hWnd_Form1)
67.             MessageBox.Show(hWnd,
68.                $"Count_Menifest={Manifest_3} Number_Item={Items_10_to_50000}",
69.                "ExitApplication")
70.             SendMessage(hWnd_Form1, WM_CLOSE, Null, Null)
71.         End Sub
72. 
    
73.         Declare Unicode Function GetModuleFileName Lib "Kernel32.dll" Alias "GetModuleFileNameW" (
74.                <InAttribute> _In_opt_hModule As IntPtr,
75.                <InAttribute, Out> lpFilename As StringBuilder,
76.                <InAttribute> nSize As UInt32) As UInt32
77. 
    
78.         Declare Unicode Function AddDllDirectory Lib "kernel32" (
79.           _In_PCWSTR_NewDirectory As String) As IntPtr
80.         Declare Unicode Function RemoveDllDirectory Lib "kernel32" (
81.           _In_DLL_DIRECTORY_COOKIE_Cookie As IntPtr) As Boolean
82. 
    
83.         Declare Unicode Function GetDllDirectory Lib "kernel32" Alias "GetDllDirectoryW" (
84.            _In_DWORD_nBufferLength As UInt32,
85.            _Out_writes_to_opt_nBufferLength_return_p1_LPWSTR_lpBuffer As StringBuilder
86.          ) As UInt32   '_Success_(return != 0 && return < nBufferLength)
87. 
    
88.         Declare Unicode Function SetDllDirectory Lib "kernel32" Alias "SetDllDirectoryW" (
89.            _In_opt_LPCWSTR_lpPathName As String) As Boolean
90. 
    
91.         Declare Unicode Function FindResourceManifest Lib "My_Cpp_Resource2.dll" (
92.            pFileName As String, keywords As String) As Boolean
93. 
    
94.         <DllImport("My_Cpp_Resource2.dll",
95.          CharSet:=CharSet.Unicode, EntryPoint:="FindResourceManifest")>
96.         Public Function FindResourceManifest2(
97.            pFileName As String, keywords As String) As System.Boolean
98.         End Function
99. 
    
100.         Declare Unicode Function MyEnumResource Lib "My_Cpp_Resource2.dll" (
101.        pFileName As String) As Boolean
102.     End Module
103. End Namespace
104. Namespace My
105.     ' The following events are available for MyApplication:
106.     ' Startup: Raised when the application starts, before the startup form is created.
107.     ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
108.     ' UnhandledException: Raised if the application encounters an unhandled exception.
109.     ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
110.     ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
111.     Partial Friend Class MyApplication
112. 
     
113.         <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)>
114.         Sub Handle_Startup(sender As Object, e As EventArgs) Handles Me.Startup
115.             AddHandler System.Windows.Forms.Application.Idle,
116.                        AddressOf Application_Idle
117.         End Sub
118.         Private Sub Application_Idle(sender As Object, e As EventArgs)
119.             RemoveHandler System.Windows.Forms.Application.Idle,
120.                           AddressOf Application_Idle
121.             Form1.BackColor = Drawing.Color.LightYellow
122.             Const ForExample = "(clsid,.*.txt,C:\Windows\System32)"
123.             Form1.Text = "Resource manifest" + ForExample
124.         End Sub
125. 
     
126.         <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)>
127.         Sub Handle_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown
128. 
     
129.         End Sub
130.         <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)>
131.         Sub Handle_StartupNextInstance(sender As Object, e As ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
132.             Beep()
133.             'MsgBox($"{e.BringToForeground}")
134.             'e.BringToForeground = True
135.         End Sub
136.     End Class
137. End Namespace
138. 
     
139. #End If
140. #End If

1. #pragma once
2. #include <windows.h>
3. #ifdef MYCPPRESOURCE_EXPORTS
4. #define MYCPPRESOURCE_API __declspec(dllexport)
5. #else
6. #define MYCPPRESOURCE_API __declspec(dllimport)
7. #endif
8. extern "C" MYCPPRESOURCE_API BOOL FindResourceManifest(
9. LPCWSTR pFileName, LPCWSTR keyword2);
10. extern "C" MYCPPRESOURCE_API BOOL MyEnumResource(
11. LPCWSTR pFileName);
12. 
    
13. extern "C" MYCPPRESOURCE_API int MD5_FileFullpath(
14. LPCWSTR pFileName,
15. LPCWSTR WhatKindOfFile,
16. WCHAR* MD5_HashValue_String);

1. #include "pch.h"
2. #include "My_Cpp_Resource2.h"
3. #include <tchar.h>
4. #include "shellapi.h"
5. #include "Shlwapi.h"
6. #include "pathcch.h"
7. #include  "excpt.h"
8. unsigned char BOM_UNICODE[2] = { 0XFF,0XFE };
9. unsigned char BOM_UTF8[3] = { 239, 187, 191 };
10. WCHAR  RT_Names[25][50] = {
11. L"(0)",
12. L"RT_CURSOR(1)",
13. L"RT_BITMAP(2)",
14. L"RT_ICON(3)",
15. L"RT_MENU(4)",
16. L"RT_DIALOG(5)",
17. L"RT_STRING(6)",
18. L"RT_FONTDIR(7)",
19. L"RT_FONT(8)",
20. L"RT_ACCELERATOR(9)",
21. L"RT_RCDATA(10)",
22. L"RT_MESSAGETABLE(11)",
23. L"RT_GROUP_CURSOR(12)",
24. L"(13)",
25. L"RT_GROUP_ICON(14)",
26. L"(15)",
27. L"RT_VERSION(16)",
28. L"RT_DLGINCLUDE(17)",
29. L"(18)",
30. L"RT_PLUGPLAY(19)",
31. L"RT_VXD(20)",
32. L"RT_ANICURSOR(21)",
33. L"RT_ANIICON(22)",
34. L"RT_HTML(23)",
35. L"RT_MANIFEST(24)"
36. };
37. struct PNG_Image {
38.     DWORD SizeOfPngResource;
39.     LPVOID lpvoid_PNG;
40. };
41. PNG_Image MyPng_Image[20];
42. int CountOf_PngImage;
43. 
    
44. HFONT hFont;
45. HDC hDC_memo;
46. LPVOID lpLockManifest;
47. DWORD SizeOfManifest;
48. HWND hWnd;
49. bool Found_Manifest_With_Keywords;
50. const int size_filename = MAX_PATH;
51. const int MaxSizeOfManifest = 8 << 20;
52. char manifest[MaxSizeOfManifest];
53. const size_t MaxSizeOfKeywords = 567;
54. char keywords[MaxSizeOfKeywords];
55. TCHAR BufferForEnumRes[3 << 20];
56. TCHAR* pBuf_Start;
57. DWORD cbWritten;
58. int GetTmpFilename(LPCWSTR pFileName, LPCWSTR WhatKindOfFile, WCHAR* TmpFilename, LPCWSTR Extensioon);
59. BOOL CALLBACK EnumLangsFunc_Manifest(HMODULE hModule, LPCTSTR lpType, LPCTSTR lpName, WORD wLang,
60.     LONG extra_parameter) {
61.     HRSRC hResInfo = FindResourceEx(hModule, lpType, lpName, wLang);
62.     if (hResInfo) {
63.         HGLOBAL hGlobal = LoadResource(hModule, hResInfo);
64.         if (hGlobal) {
65.             lpLockManifest = LockResource(hGlobal);
66.             SizeOfManifest = SizeofResource(hModule, hResInfo);
67.             if (SizeOfManifest >= MaxSizeOfManifest) {
68.                 WCHAR TMP[500];
69.                 wsprintf(TMP, L"Size = %i (%i)", SizeOfManifest, MaxSizeOfManifest);
70.                 MessageBoxW(nullptr, L"manifest too large", TMP, 0);
71.                 return TRUE;
72.             }
73.             manifest[SizeOfManifest] = '\0';
74.             char* pSource;
75.             pSource = (char*)lpLockManifest;
76.             for (unsigned i = 0; i < SizeOfManifest; i++) {
77.                 manifest[i] = toupper(*pSource++);
78.             }
79.             for (pSource = keywords; *pSource; pSource++)*pSource = toupper(*pSource);
80.             if (strstr(manifest, keywords)) Found_Manifest_With_Keywords = true;
81.             return TRUE;
82.         }
83.     }
84.     return FALSE;
85. }
86. BOOL CALLBACK EnumNamesFunc_Manifest(HMODULE hModule, LPCTSTR lpType, LPTSTR lpName,
87.     LONG extra_parameter)
88. {
89.     return EnumResourceLanguagesW(hModule, lpType, lpName,
90.         (ENUMRESLANGPROC)EnumLangsFunc_Manifest, extra_parameter);
91. }
92. BOOL CALLBACK EnumTypesFunc_Manifest(HMODULE hModule, LPTSTR lpType, LONG extra_parameter)
93. {
94.     if (IS_INTRESOURCE(lpType) && lpType == RT_MANIFEST) {
95.         return EnumResourceNames(hModule, lpType, (ENUMRESNAMEPROC)EnumNamesFunc_Manifest, 0);
96.     }
97.     return TRUE;
98. }
99. int FileFilter(LPCWSTR pFileName) {
100.     if (PathFileExistsW(pFileName)) {
101.         LPCWSTR pExt = PathFindExtensionW(pFileName);
102.         if (StrCmpIW(pExt, L".DLL") ||
103.             StrCmpIW(pExt, L".EXE")) return 0;
104.         return -1;
105.     }
106.     return -2;
107. }
108. BOOL FindResourceManifest(LPCWSTR pFileName, LPCWSTR keywords2) {
109.     HANDLE g_hFile;
110.     HMODULE hModule;
111.     BOOL Result = FALSE;
112.     //MessageBoxExW(NULL,pFileName, keywords2, 0, NULL);
113. 
     
114.     if (FileFilter(pFileName)) return Result;
115.     hModule = LoadLibraryExW(pFileName, nullptr, LOAD_LIBRARY_AS_DATAFILE);
116.     if (!hModule) return Result;
117.     __try {
118.         size_t size = 0;
119.         wcsrtombs_s(&size, keywords, &keywords2, MaxSizeOfKeywords, nullptr);
120.         Found_Manifest_With_Keywords = false;
121.         EnumResourceTypesW(hModule, (ENUMRESTYPEPROC)EnumTypesFunc_Manifest, 0);
122.         if (Found_Manifest_With_Keywords) {
123.             char Title[size_filename];
124.             WCHAR filename_manifest[size_filename];
125.             GetTmpFilename(pFileName, L"MAN", filename_manifest, L"txt");
126. 
     
127.             g_hFile = CreateFileW(filename_manifest,
128.                 GENERIC_WRITE, 0, (LPSECURITY_ATTRIBUTES)NULL,
129.                 CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, (HANDLE)NULL);
130.             if (g_hFile != INVALID_HANDLE_VALUE)
131.                 __try {
132.                 LPCSTR seperator = "\r\n================= Manifest ====================\r\n";
133.                 size_t size;
134.                 ZeroMemory(Title, size_filename);
135.                 wcstombs_s(&size, Title, pFileName, size_filename);
136.                 WriteFile(g_hFile, BOM_UTF8, 3, &cbWritten, NULL);
137.                 WriteFile(g_hFile, Title, (DWORD)size, &cbWritten, NULL);
138.                 WriteFile(g_hFile, seperator, (DWORD)strlen(seperator), &cbWritten, NULL);
139.                 WriteFile(g_hFile, lpLockManifest, SizeOfManifest, &cbWritten, NULL);
140.             }
141.             __finally {
142.                 CloseHandle(g_hFile);
143.                 ShellExecuteW(NULL, L"Open", filename_manifest, NULL, NULL, SW_NORMAL);
144.                 //MessageBoxExA(NULL, (char *)lpLockManifest, Title, 0, NULL);
145.             }
146.             Result = TRUE;
147.         }
148.     }
149.     __finally {
150.         FreeLibrary(hModule);
151.         return Result;
152.     }
153. }
154. 
     
155. BOOL CALLBACK EnumLangsFunc(HMODULE hModule, LPCTSTR lpType, LPCTSTR lpName, WORD wLang,
156.     LONG extra_parameter)
157. {
158.     HRSRC hResInfo;
159. 
     
160.     hResInfo = FindResourceEx(hModule, lpType, lpName, wLang);
161.     if (!hResInfo) {
162.         MessageBox(0, L"hResInfo", NULL, 0);
163.         return FALSE;
164.     }
165.     const wchar_t TypeFormat[] = L"%-30s";
166.     if (!IS_INTRESOURCE(lpType))
167.     {
168.         wsprintfW(pBuf_Start, TypeFormat, lpType);
169.     }
170.     else {
171.         wsprintfW(pBuf_Start, TypeFormat,
172.             RT_Names[reinterpret_cast<USHORT>(lpType)]);
173.     }
174.     pBuf_Start += wcslen(pBuf_Start);
175. 
     
176.     // const wchar_t NameFormat[] = L" %-30s ";
177.     wchar_t Temp[111];
178.     if (!IS_INTRESOURCE(lpName))
179.     {
180.         wsprintfW(pBuf_Start, L"(%-30s)", lpName);
181.     }
182.     else {
183.         _itow_s(reinterpret_cast<USHORT>(lpName), Temp, 11);
184.         wsprintfW(pBuf_Start, L" %-30s ", Temp);
185.     }
186.     pBuf_Start += wcslen(pBuf_Start);
187.     wchar_t LocaleName[300];
188.     LCIDToLocaleName(wLang, LocaleName, 300, 0);
189.     wsprintfW(pBuf_Start, L"  %s(%X)     %p    %X\r\n",
190.         LocaleName, (LCID)wLang, (void*)hResInfo, SizeofResource(hModule, hResInfo));
191.     pBuf_Start += wcslen(pBuf_Start);
192.     if (!IS_INTRESOURCE(lpType)) {
193.         if (!wcscmp(lpType, L"PNG") && hResInfo) {
194.             HGLOBAL hGlobal = LoadResource(hModule, hResInfo);
195.             if (hGlobal) {
196.                 MyPng_Image[CountOf_PngImage].lpvoid_PNG = LockResource(hGlobal);
197.                 MyPng_Image[CountOf_PngImage].SizeOfPngResource = SizeofResource(hModule, hResInfo);
198.                 CountOf_PngImage += 1;
199.             }
200.         }
201.     }
202.     return TRUE;
203. }
204. BOOL CALLBACK EnumNamesFunc(HMODULE hModule, LPCTSTR lpType, LPTSTR lpName,
205.     LONG extra_parameter)
206. {
207.     return EnumResourceLanguages(hModule, lpType, lpName, (ENUMRESLANGPROC)EnumLangsFunc, 0);
208. }
209. BOOL CALLBACK EnumTypesFunc(HMODULE hModule, LPTSTR lpType, LONG extra_parameter)
210. {
211.     *pBuf_Start++ = L'\r';
212.     *pBuf_Start++ = L'\n';
213.     return EnumResourceNames(hModule, lpType, (ENUMRESNAMEPROC)EnumNamesFunc, 0);
214. }
215. 
     
216. BOOL MyEnumResource(LPCWSTR pFileName) {
217.     HMODULE hModule;
218.     BOOL Result = FALSE;
219.     if (FileFilter(pFileName)) return FALSE;
220.     hModule = LoadLibraryExW(pFileName, nullptr, LOAD_LIBRARY_AS_DATAFILE);
221.     if (!hModule) return FALSE;
222.     __try {
223.         CountOf_PngImage = 0;
224.         pBuf_Start = BufferForEnumRes;
225.         wsprintfW(pBuf_Start,
226.             L"%s\r\n=============== Enumerate resource ================\r\n"
227.             L"           Tyep                Name                             "
228.             L"LCID           Resource ptr        size",
229.             pFileName);
230.         pBuf_Start += wcslen(pBuf_Start);
231. 
     
232.         if (!EnumResourceTypes(hModule, (ENUMRESTYPEPROC)EnumTypesFunc, 0)) {
233.             __leave;
234.         }
235. 
     
236.         WCHAR Filename_resinfo[size_filename];
237.         GetTmpFilename(pFileName, L"RES", Filename_resinfo, L"txt");
238.         HANDLE g_hFile;
239.         g_hFile = CreateFileW(Filename_resinfo,
240.             GENERIC_WRITE, 0,                     // share mode
241.             (LPSECURITY_ATTRIBUTES)NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL,
242.             (HANDLE)NULL);                       // no template
243.         if (g_hFile != INVALID_HANDLE_VALUE)
244.             __try {
245.             WriteFile(g_hFile, BOM_UNICODE, 2, &cbWritten, nullptr);
246.             WriteFile(g_hFile, BufferForEnumRes,
247.                 DWORD(sizeof(BufferForEnumRes[0]) * (pBuf_Start - BufferForEnumRes)), &cbWritten, NULL);
248.         }
249.         __finally {
250.             CloseHandle(g_hFile);
251.             ShellExecuteW(nullptr, L"Open", Filename_resinfo, nullptr, nullptr, SW_NORMAL);
252.             Result = TRUE;
253.         }
254.         if (CountOf_PngImage)
255.             for (int i = 0; i < CountOf_PngImage; i++)
256.             {
257.                 WCHAR filename_png[size_filename];
258.                 WCHAR Tmp[30] = L"PNG";
259.                 _itow_s(i, Tmp + 3, 20, 10);
260.                 GetTmpFilename(pFileName, Tmp, filename_png, L"png");
261.                 HANDLE g_hFile;
262.                 g_hFile = CreateFileW(filename_png, GENERIC_WRITE, 0,
263.                     (LPSECURITY_ATTRIBUTES)NULL, CREATE_ALWAYS,
264.                     FILE_ATTRIBUTE_NORMAL, (HANDLE)NULL);  // no template
265.                 if (g_hFile != INVALID_HANDLE_VALUE)
266.                     __try {
267.                     WriteFile(g_hFile, MyPng_Image[i].lpvoid_PNG,
268.                         MyPng_Image[i].SizeOfPngResource, &cbWritten, NULL);
269.                 }
270.                 __finally {
271.                     CloseHandle(g_hFile);
272.                     ShellExecute(NULL, L"Edit", filename_png, NULL, NULL, SW_NORMAL);
273.                 }
274.             }
275.     }
276.     __finally {
277.         FreeLibrary(hModule);
278.     }
279.     return Result;
280. }
281. const WCHAR ConvertToHex_String[17] = L"0123456789ABCDEF";
282. int GetTmpFilename(LPCWSTR pFileName, LPCWSTR WhatKindOfFile, WCHAR* TmpFilename, LPCWSTR Extension) {
283.     WCHAR MyFileId_String[100];
284.     FILE_ID_INFO File_Id_Info;
285.     BYTE* pFileId;
286.     GetTempPathW(size_filename, TmpFilename);
287.     //ShellExecute(NULL, L"Open", TmpFilename, NULL, NULL, SW_NORMAL);
288.     HANDLE hFile = CreateFileW(pFileName, GENERIC_READ, 0, nullptr, OPEN_EXISTING, 0, NULL);
289.     if (0 == GetFileInformationByHandleEx(hFile, FileIdInfo, (LPVOID)&File_Id_Info, sizeof(File_Id_Info)))
290.     {
291.         pFileId = File_Id_Info.FileId.Identifier;
292.         WCHAR TMP[500];
293.         wsprintf(TMP, L"Error: %p (%X %X %X)", hFile, pFileId[0], pFileId[1], pFileId[2]);
294.         MessageBoxW(nullptr, TMP, L"GetFileInformationByHandleEx", 0);
295.     }
296.     CloseHandle(hFile);
297.     INT32 i;
298.     for (i = 0; WhatKindOfFile[i]; i++) {
299.         MyFileId_String[i] = WhatKindOfFile[i];
300.     }
301.     pFileId = File_Id_Info.FileId.Identifier;
302.     for (int k = 0; k < sizeof(FILE_ID_128); k++) {
303.         MyFileId_String[i++] = ConvertToHex_String[pFileId[k] >> 4];
304.         MyFileId_String[i++] = ConvertToHex_String[pFileId[k] & 0xf];
305.     }
306.     MyFileId_String[i] = '\0';
307. 
     
308.     PathCchCombine(TmpFilename, MAX_PATH, TmpFilename, MyFileId_String);
309.     PathCchAddExtension(TmpFilename, MAX_PATH, Extension);
310.     return 1;
311. }

1. #If CONFIG = "Context" AndAlso PLATFORM = "x64" Then
2. Imports Shell32
3. Partial Public Class Find_Files_Class
4.     Private Sub MyEmbedProc(Folder_item As FolderItem)
5.         Context_ClassLibrary.Chen.SearchContextClass.EmbedCode(
6.             Folder_item.Path,
7.            _FileNameToBeFound, _Like_FileNameToBeFound)
8.     End Sub
9. End Class
10. Namespace My
11.     ' The following events are available for MyApplication:
12.     ' Startup: Raised when the application starts, before the startup form is created.
13.     ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
14.     ' UnhandledException: Raised if the application encounters an unhandled exception.
15.     ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
16.     ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
17.     Partial Friend Class MyApplication
18. 
    
19.         <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)>
20.         Sub Handle_Startup(sender As Object, e As EventArgs) Handles Me.Startup
21.             AddHandler System.Windows.Forms.Application.Idle,
22.                        AddressOf Application_Idle
23.         End Sub
24.         Private Sub Application_Idle(sender As Object, e As EventArgs)
25.             RemoveHandler System.Windows.Forms.Application.Idle,
26.                           AddressOf Application_Idle
27.             Form1.BackColor = Drawing.Color.LightYellow
28.             Const ForExample As String = "(Form1,.vb,C:\Users\GoogleBlog\Desktop)"
29.             Form1.Text = "Find Code with Keywords" + ForExample
30.         End Sub
31. 
    
32.         <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)>
33.         Sub Handle_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown
34. 
    
35.         End Sub
36.         <System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Advanced)>
37.         Sub Handle_StartupNextInstance(sender As Object, e As ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
38.             Beep()
39.             'MsgBox($"{e.BringToForeground}")
40.             'e.BringToForeground = True
41.         End Sub
42.     End Class
43. End Namespace
44. #End If

1. #If TARGET = "library" AndAlso PLATFORM = "x64" Then
2. Imports System.Runtime.InteropServices
3. Imports System.Text
4. 
   
5. Namespace Chen
6.     Public Class SearchContextClass
7.         Const Microsoft_Edge As String = "MSEdge.exe"
8.         'Const FileExtension As String = ".VB"
9.         Public Shared Sub EmbedCode(FileFullPath As String, Pattern As String, FileExtension As String)
10.             Dim Extension As String = IO.Path.GetExtension(FileFullPath)
11.             If 0 = String.Compare(Extension, FileExtension, True) Then
12.                 MSEdge_OPen_File_with_Pattern(FileFullPath, Pattern)
13.             End If
14.         End Sub
15.         Shared Sub MSEdge_OPen_File_with_Pattern(FileFullPath As String, Pattern As String)
16.             Dim OpenIt As Boolean = False
17.             Using FileStream As New System.IO.FileStream(
18.                  FileFullPath, IO.FileMode.Open, IO.FileAccess.Read)
19.                 If FileStream.Length = 0 Then Exit Sub
20.                 Dim Filehead_4_Bytes(Math.Max(4, CInt(FileStream.Length))) As Byte
21.                 FileStream.Read(Filehead_4_Bytes, 0, Filehead_4_Bytes.Length)
22.                 FileStream.Seek(0, IO.SeekOrigin.Begin)
23. 
    
24.                 Dim FileEncoding As Text.Encoding = Nothing
25.                 Dim Has_BOM As Boolean = False
26.                 For Each EncodingInfo As Text.EncodingInfo In Text.Encoding.GetEncodings
27.                     Dim Encoding As Text.Encoding = Text.Encoding.GetEncoding(EncodingInfo.CodePage)
28.                     If Compare_BOM(Encoding.GetPreamble(), Filehead_4_Bytes) Then
29.                         FileEncoding = Encoding
30.                         Has_BOM = True
31.                         Exit For
32.                         MsgBox(FileFullPath & vbNewLine &
33.                      $"{BitConverter.ToString(Filehead_4_Bytes)}{vbNewLine}" &
34.                      $"Preamble={BitConverter.ToString(Encoding.GetPreamble)}{vbNewLine}" &
35.                      $"CodePage={Encoding.CodePage}  EncodingName={EncodingInfo.DisplayName}")
36.                     End If
37.                 Next
38.                 If FileEncoding Is Nothing Then
39.                     FileEncoding = Text.Encoding.Default
40.                 End If
41.                 Using Reader = New IO.StreamReader(FileStream, FileEncoding, Has_BOM)
42.                     Dim RegExp2 As New System.Text.RegularExpressions.Regex(Pattern)
43.                     While Not Reader.EndOfStream
44.                         Dim Line As String = Reader.ReadLine()
45.                         If RegExp2.IsMatch(Line) Then
46.                             'MsgBox(Str, Title:=FileFullPath)
47.                             OpenIt = True
48.                             Exit While
49.                         End If
50.                     End While
51.                 End Using
52.             End Using
53.             If OpenIt Then
54.                 System.Diagnostics.Process.Start(Microsoft_Edge, """" & FileFullPath & """")
55.             End If
56.         End Sub
57.         Shared Function Compare_BOM(BOM As Byte(), Filehead_Byte As Byte()) As Boolean
58.             If BOM.Length <= 0 OrElse
59.                BOM.Length > Filehead_Byte.Length Then Return False
60.             For index As Integer = 0 To BOM.GetUpperBound(0)
61.                 If BOM(index) <> Filehead_Byte(index) Then Return False
62.             Next
63.             Return True
64.         End Function
65.         Declare Unicode Function PathQuoteSpaces Lib "Shlwapi.dll" Alias "PathQuoteSpacesW" (
66.              <InAttribute, Out> _Inout_updates_MAX_PATH_LPWSTR_lpsz As StringBuilder) As Boolean
67.     End Class
68. End Namespace
69. #End If