Question

所以我有一个庞大的程序，并决定我应该在一个单独的线程中运行其中一个方法。所以我把方法放在一个单独的类中，在我的表单上激活它。它似乎只是我想要它的工作，直到它分开它给我这个错误：

由于应用程序，SendKeys无法在此应用程序内运行不处理Windows消息。将应用程序更改为处理消息，或使用SendKeys.SendWait方法。

我试着在线寻找答案。我想我看到了一些关于SendKeys如何只在Form或其他东西中工作的东西。

任何人都可以告诉我一种不使用SendKeys来模拟击键的方法，或者是一种让SendKeys在不同的非形式线程中工作的方法吗？

Answer 1

您的控制台应用程序需要一个消息循环。这是通过Application类完成的。您需要致电Application.Run(ApplicationContext)。

class MyApplicationContext : ApplicationContext 
{
    [STAThread]
    static void Main(string[] args) 
    {
        // Create the MyApplicationContext, that derives from ApplicationContext,
        // that manages when the application should exit.
        MyApplicationContext context = new MyApplicationContext();

        // Run the application with the specific context. It will exit when
        // the task completes and calls Exit().
        Application.Run(context);
    }

    Task backgroundTask;

    // This is the constructor of the ApplicationContext, we do not want to 
    // block here.
    private MyApplicationContext() 
    {
        backgroundTask = Task.Factory.StartNew(BackgroundTask);
        backgroundTask.ContinueWith(TaskComplete);
    }

    // This will allow the Application.Run(context) in the main function to 
    // unblock.
    private void TaskComplete(Task src)
    {
        this.ExitThread();
    }

    //Perform your actual work here.
    private void BackgroundTask()
    {
        //Stuff
        SendKeys.Send("{RIGHT}");
        //More stuff here
    }
}

Answer 2

我知道这不是答案，但这是我过去使用ActiveX和脚本的方式

Set ws = CreateObject("WScript.Shell")

str = "Hi there... ~ Dont click your mouse while i am typing." & _
" ~~This is a send key example, using which you can send your keystrokes"
ws.Run("notepad.exe")
WScript.Sleep(1000)

For c=1 To Len(str)
WScript.Sleep(100) 'Increase the value for longer delay
ws.SendKeys Mid(str,c,1)
Next

将此代码保存为file.vbs，然后双击以在Windows机器中执行。

如何在非表单应用程序中生成击键

2 个答案: