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;