Форум программистов [Powered by Invision Power Board]

Код

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

using System.Runtime.InteropServices;

namespace WinTest
{

    public partial class MainForm : Form
    {
        [MarshalAs(UnmanagedType.LPStr)] string str;

        static IntPtr hWnd; 

        const int WM_CLOSE = 0x0010;

        const int WM_SETTEXT = 0xC;

        [DllImport("user32.dll", SetLastError = true)]
        public static extern IntPtr FindWindow(string className, string windowTitle);
        [DllImport("user32.dll", SetLastError = true)]
        public static extern IntPtr FindWindowEx(IntPtr parentHandle, IntPtr childAfter, string className, IntPtr windowTitle);
        [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
        static extern int GetWindowText(int hWnd, StringBuilder lpString, int nMaxCount);
        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        static extern int RegisterWindowMessage(string lpString);

        [DllImport("User32.DLL", EntryPoint = "SendMessageA", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        static extern IntPtr SendMessage(IntPtr hWnd, int Msg, [MarshalAs(UnmanagedType.LPStr)] string wParam, IntPtr lParam);
        [DllImport("User32.DLL", EntryPoint = "SendMessageA", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        static extern IntPtr SendMessage(IntPtr hWnd, int Msg, IntPtr wParam, [MarshalAs(UnmanagedType.LPStr)] string lParam);
        [DllImport("User32.DLL", EntryPoint = "SendMessageA", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        static extern IntPtr SendMessage(IntPtr hWnd, int Msg, IntPtr wParam, IntPtr lParam);
        [DllImport("user32.dll", SetLastError = true)]
        static extern IntPtr SendMessage(IntPtr hWnd, int Msg, [MarshalAs(UnmanagedType.LPStr)] string wParam, [MarshalAs(UnmanagedType.LPStr)] string lParam);

        public static class MsgId
        {
            public static int ModHandle =    RegisterWindowMessage("WM_WINPOST_MODWNDHANDLE");
            public static int SQLFree =        RegisterWindowMessage("WM_WINPOST_SQLEXEC");
            public static int SetProp =        RegisterWindowMessage("WM_WINPOST_SETPROP");
            public static int GetProp =        RegisterWindowMessage("WM_WINPOST_GETPROP");
            public static int Detach =        RegisterWindowMessage("WM_WINPOST_DETACH");
            public static int Post =        RegisterWindowMessage("WM_WINPOST_POST");
            public static int WinPostOk =    RegisterWindowMessage("WM_WINPOST_OK");
            public static int PrintReport = RegisterWindowMessage("WM_WINPOST_PRINTREPORT");
        }

        

        public MainForm()
        {
            InitializeComponent();
            hWnd = FindWindow("TfmSession", null);
            textBoxHWND.Text = hWnd.ToString("x");
            while (textBoxHWND.Text.Length < 8)
            {
                textBoxHWND.Text = "0" + textBoxHWND.Text;
            }
            textBoxHWND.Text = "0x" + textBoxHWND.Text;

            IntPtr hMyWnd = this.Handle;

            textBoxMyHWND.Text = hMyWnd.ToString("x");

            while (textBoxMyHWND.Text.Length < 8)
            {
                textBoxMyHWND.Text = "0" + textBoxMyHWND.Text;
            }
            textBoxMyHWND.Text = "0x" + textBoxMyHWND.Text;

            IntPtr result = SendMessage(hWnd, MsgId.ModHandle, hMyWnd, IntPtr.Zero);

            if (result.ToInt64() == 1)
            {
                textBoxType.Text = "Услуги";
            }
            if (result.ToInt64() == 2)
            {
                textBoxType.Text = "Просмотр";
            }
        }

        

        private void button1_Click(object sender, EventArgs e)
        {
            Close();
        }

        private void buttonPrintreport_Click(object sender, EventArgs e)
        {
            str = textBoxPrintreport.Text + '\0';

            IntPtr result = SendMessage(hWnd, MsgId.PrintReport, str, IntPtr.Zero);
            MessageBox.Show(result.ToString());
        }

        private void buttonCloseWinPost_Click(object sender, EventArgs e)
        {
            if (SendMessage(hWnd, WM_CLOSE, (string)null, null) == IntPtr.Zero)
            {
                textBoxHWND.Text = "0x00000000";
            }
        }

        private void buttonTitle_Click(object sender, EventArgs e)
        {
            str = textBoxTitle.Text + '\0';

            IntPtr result = SendMessage(hWnd, WM_SETTEXT, null, str);
            MessageBox.Show(result.ToString());
        }
    }
}