请问VB如何才能自动点击 其它程序的询问框的“确认”按钮!
例如:
其它正运行的某个程序弹出“询问框”“!工作已经完成请确定是否继续”----窗体内有“确定”和“取消”两个按钮。我要点击“确定”按钮。
(说明:每次弹出的“询问框”句柄都不一样,只有标题”“!工作已经完成请确定是否继续”等字每次相同)
求一个小程序的VB代码!启动后每3分钟查找一次这个“询问框”。然后自动点击“确定”按钮。谢谢!!
晕了哦!!
==================================按cang 2009大哥的去试了!窗口消失了!!但是没达到“确认”的效果。我再看看是否点错了“取消”按钮!谢谢你!!
再这样瞪眼看着-----窗体代码如下
’=================================
Private mn As Integer '声明分
Private Sub Command1_Click()
EnumChildWindows GetDesktopWindow, AddressOf EnumChildProc, ByVal 0&
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000 '自动点击一次“确定”按钮的时间
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
mn = mn + 1
Text3.Text = mn
If mn > 10 Then
'===================开始点击确定按钮
EnumChildWindows GetDesktopWindow, AddressOf EnumChildProc, ByVal 0&
Label1.Caption = "运行正常"
mn = 0
End If
End Sub
'===================
我用无招胜有招搞定了
我用:
hpwnd = FindWindow(vbNullString, "工作已经完成请确定是否继续")'找出变换的句柄hpwnd
再用:
PostMessage hpwnd, WM_KEYDOWN, vbKeyReturn, 0 '向目标句柄发送回车键
顺利通过了!可能弹出的窗口默认是“确定”吧
谢谢 cang 2009!!!