7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command3_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
a = FindWindow("DFX_WINDOW", "DFX 7.5 Winamp")
SendMessage a, WM_CLOSE, 0, 0 ’发送关闭指令
b = FindWindow("#32770", "关闭") ‘这句是查找关闭窗体的句柄
c = FindWindowEx(b, 0, "Button", "确定") ‘关闭窗体时提示,弹出一关闭窗体,有“确认”和“取消”按钮
SendMessage c, WM_CLICK, 0, 0 ‘发送关闭指令
End Sub
Private Sub Command3_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
dim i
a = FindWindow("DFX_WINDOW", "DFX 7.5 Winamp")
SendMessage a, WM_CLOSE, 0, 0 '发送关闭指令
b = FindWindow("#32770", "关闭") '这句是查找关闭窗体的句柄
for i=1 to b
c = FindWindowEx(b, 0, "Button", "确定") '关闭窗体时提示,弹出一关闭窗体,有“确认”和“取消”按钮
SendMessage c, WM_CLICK, 0, 0 '发送关闭指令
next i
End Sub