时间戳

首页 > 解决方案 > 3秒后在消息框上自动发送回车键

vb.net - 3秒后在消息框上自动发送回车键

问题描述

如何Enter在 3 秒后自动在消息框中发送密钥？在消息框中按 OK。

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

不工作见下文

我已经尝试过这段代码，它不起作用，不要因此而扣分！ 看 ！我认为这段代码不起作用，因为我在我的 vs2017 上测试过不起作用。CreateObject("WScript.Shell").Popup("Welcome", 1, "Title") 消息框保持固定

标签： vb.net

解决方案

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

在此处输入图像描述

代码：

Public Class Form1 Private Declare Sub keybd_event Lib "user32" _ (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Byte, ByVal dwExtraInfo As Byte)

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

结束类

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

ty F0r3v3r-A-N00b 的想法！

第 1 部分，详见

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


               entrada_log_mensagem.Show()

End Sub

第 2 部分，有关计时器的详细信息，请参阅

Private Sub entrada_log_mensagem_Load(sender As Object, e As EventArgs) Handles MyBase.Load PRINCIPAL.Show() Timer.Start() End Sub

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

我希望我也用这段代码帮助了社区，因为我遇到了一个问题并且无法解决它。Ahmed Abdelhameed 的建议并没有真正奏效，但我感谢他的关注。无论如何，现在一切正常

再次感谢所有愿意为此付出时间的人。

推荐阅读