Question

如何在3秒钟后自动在消息框中发送 Enter 键？在消息框中按“确定”。

 MessageBox.Show("MESSAGE... ") '? AUTO ENTER in Windows AFTER 3 sec.

不会工作见下文

I've already tried this code, it does not work, do not penalize my points for it! 参见！我认为这段代码行不通，因为我在我的vs2017上测试过行不通。 CreateObject（“ WScript.Shell”）。Popup（“ Welcome”，1，“标题”）消息框保持不变

Answer 1

我使用此代码解决了我的问题。实际上，我设法通过两种方式解决了这个问题。第一个出现

enter image description here

代码：

公开课表格1 私有声明子keybd_event库“ user32” _ （以字节为单位的ByVal bVk， ByVal bScan为字节， ByVal dw标记为字节， ByVal dwExtraInfo为字节）

Private Const VK_RETURN As Byte = &HD
Private Const KEYEVENTF_KEYDOWN As Byte = &H0
Private Const KEYEVENTF_KEYUP As Byte = &H2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t As New Threading.Thread(AddressOf closeMsgbox)
    t.Start(3) '3 second delay
    MsgBox("message")

结束子

Private Sub closeMsgbox(ByVal delay As Object)
    Threading.Thread.Sleep(CInt(delay) * 1000)
    AppActivate(Me.Text)
    keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0)
    keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0)
End Sub

结束班级

我也解决了这个想法问题，基于用户想法F0r3v3r-A-N00b，我创建了一个新的窗体窗口，如消息框，并在SQL写入事件和信息中放置了一个x秒的计时器发送代码。

ty F0r3v3r-A-N00b表示想法！

PART - 1，有关详细信息，请参见

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


               entrada_log_mensagem.Show()

End Sub

PART - 2，有关计时器的详细信息，请参见

私有子entrada_log_mensagem_Load（发送者为对象，e作为EventArgs）处理MyBase.Load PRINCIPAL.Show（） Timer.Start（）结束

Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
    Me.Close()
End Sub

我希望我也为社区提供了此代码，因为我遇到了一个问题并且无法解决。艾哈迈德·阿卜杜勒·哈密德（Ahmed Abdelhameed）的建议实际上没有奏效，但我感谢他的关注。无论如何，现在一切都在正常进行

再次感谢所有可以为此付出时间的人。

3秒钟后自动发送消息框上的输入键

1 个答案: