cscs=0
	Else 
	cscs=0
End If
Goto start

    Sub 检测网页弹窗()
    Rem 循环
    Dim MsgHwnd
    Do While MsgHwnd = 0
    MsgHwnd = Plugin.Window.Find("#32770", "来自网页的消息")
    Delay 100
    TracePrint "查找弹出窗口句柄" & MsgHwnd
    Loop
    Delay 100
    Dim KeyHwnd
    //Do While KeyHwnd = 0
    KeyHwnd = Plugin.Window.FindEx(MsgHwnd, 0, "Button", "确定")
    Delay 100
    TracePrint "查找弹出窗口子窗口确定按钮句柄" & KeyHwnd
    //Loop
    Delay 100
    Call Plugin.Window.SendKeyPress(KeyHwnd, 13)
    Delay 100
    Goto 循环
    End Sub
    BeginThread 检测网页弹窗()