2023년 10월 — [S.R.IS] Windows COM 서버 사용하기

void Main() { // 전체 API는 https://learn.microsoft.com/en-us/windows/win32/shell/shell에서 확인 가능 dynamic shell = Activator.CreateInstance( Type.GetTypeFromCLSID(Guid.Parse(CLSID_Shell))); // ShellObject에서 특수 폴더 상수를 가리킬 때 Environment.SpecialFolder 열거형을 바로 사용할 수 있음. // 별도로 ssf 계열 상수를 C++이나 IDL 헤더에서 번역해서 가져올 필요 없음. var isSvcRunning = (bool)shell.IsServiceRunning("Audiosrv"); $"Windows Audio Service is {(isSvcRunning ? "running" : "not running")}.".Dump(); var folderObj = shell.NameSpace(Environment.SpecialFolder.CommonAdminTools); var title = (string)folderObj.Title; IEnumerable items = (IEnumerable)folderObj.Items(); foreach (dynamic eachItem in items) { var path = (string)eachItem.Type; path.Dump(); } //shell.Explore(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)); //shell.Help(); //shell.FileRun(); } const string CLSID_Shell = "13709620-C279-11CE-A49E-444553540000";

void Main() { // 전체 API는 https://learn.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa752084(v=vs.85) 에서 확인 가능 dynamic iexplore = Activator.CreateInstance( Type.GetTypeFromCLSID(Guid.Parse(CLSID_InternetExplorer))); iexplore.Visible = true; var icpc = (IConnectionPointContainer)iexplore; var guidRef = typeof(DWebBrowserEvents2).GUID; icpc.FindConnectionPoint( ref guidRef, out IConnectionPoint point); var handler = new WebBrowserEventHandler(); handler.DocumentCompleted += (sender, args) => { // IHTMLDocument는 자바스크립트에서 사용하는 것과 동일한 기능 집합을 제공함. // 정확히 Internet Explorer가 제공하는 명세는 https://learn.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa752052(v=vs.85) 에서 확인 가능. IEnumerable headerTags = iexplore.Document.getElementsByTagName("h1"); foreach (dynamic eachTag in headerTags) { var text = (string)eachTag.innerText; $"{text}".Dump(); } }; point.Advise(handler, out int cookie); iexplore.Navigate("https://www.example.com/"); Console.ReadLine(); point.Unadvise(cookie); } const string CLSID_InternetExplorer = "0002DF01-0000-0000-C000-000000000046"; // 필요한 인터페이스 멤버만 정의해서 활용 가능 [ComImport, SuppressUnmanagedCodeSecurity, InterfaceType(ComInterfaceType.InterfaceIsIDispatch), Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D")] public interface DWebBrowserEvents2 { [DispId(0x103)] void DocumentComplete([MarshalAs(UnmanagedType.IDispatch)] object pDisp, [In] ref object URL); } public class WebBrowserEventHandler : DWebBrowserEvents2 { public event EventHandler<DocumentCompleteEventArgs> DocumentCompleted; public void DocumentComplete([MarshalAs(UnmanagedType.IDispatch)] object pDisp, [In] ref object URL) { this.DocumentCompleted?.Invoke( pDisp, new DocumentCompleteEventArgs((string)URL)); } } public sealed class DocumentCompleteEventArgs : EventArgs { public DocumentCompleteEventArgs(string url) { Url = url; } public string Url { get; private set; } }

void Main() { var currentDirecory = Path.GetDirectoryName(Util.CurrentQueryPath); var loremIpsum = new LoremIpsumGenerator( Path.Combine(currentDirecory, "guunmong.txt"), Path.Combine(currentDirecory, "guunmong-dot.txt")); var content = loremIpsum.GetLoremIpsum( paragraphCount: 1, sentenceCount: 10, wordCount: 100, chickenize: false); dynamic word = Activator.CreateInstance(Type.GetTypeFromProgID("Word.Application")); word.Visible = true; dynamic newDoc = word.Documents.Add(); newDoc.Content.Text = content; newDoc.SaveAs2(Path.Combine(currentDirecory, "Lipsum.docx")); newDoc.ExportAsFixedFormat(Path.Combine(currentDirecory, "Lipsum.pdf"), wdExportFormatPDF); newDoc.Close(); word.Quit(); var psi = new ProcessStartInfo(Path.Combine(currentDirecory, "Lipsum.pdf")) { UseShellExecute = true, }; using var proc = Process.Start(psi); } // https://learn.microsoft.com/en-us/office/vba/api/word.wdexportformat public const int wdExportFormatPDF = 17;