DimEnv hwnd,sText,sClass,RtColor,ux,uy,ux2,uy2,sRect,sRect2,x_env,y_env，ScreenW，ScreenH，Dev
Event Form1.Timer1.Timer
    hwnd = Plugin.Window.MousePoint()	
    sText = Plugin.Window.GetText(Hwnd)
    sClass = Plugin.Window.GetClass(Hwnd)
    Form1.InputBox1.text = stext
    Form1.InputBox2.text = hwnd
    Form1.InputBox3.text = sClass
    GetCursorPos x, y
    x_env = x:y_env = y
    RtColor=Plugin.Color.GetPixelColor(x,y,0)
    Form1.InputBox4.text = "【BGR】"&RtColor
    Form1.InputBox5.text = x&","&y   
    sRect = Plugin.Window.GetClientRect(Hwnd)
    aa = split(sRect, "|")
    ux = aa(0) : uy = aa(1)   
    Form1.Label18.Caption = aa(0) & "," & aa(1)
    Form1.Label19.Caption = aa(2) & "," & aa(3)
    Form1.Label21.Caption = aa(2) - aa(0) & " X " & aa(3) - aa(1)        
    Form1.InputBox6.text = x - ux & "," & y - uy
    sRect2 = Plugin.Window.GetwindowRect(Hwnd)
    aa2 = split(sRect2, "|")
    ux2 = aa2(0) : uy2 = aa2(1)
    Form1.Label12.Caption = aa2(0) & "," & aa2(1)
    Form1.Label13.Caption = aa2(2) & "," & aa2(3)
    Form1.Label15.Caption = aa2(2)-aa2(0)&" X "&aa2(3)-aa2(1)
    Form1.InputBox7.text = x - ux2 & "," & y - uy2
    ScreenW = Plugin.Sys.GetScRX()
	ScreenH = Plugin.Sys.GetScRY()
	Dev = Plugin.Sys.GetScDep()
	Form1.Label22.Caption = "分辨率："&ScreenW & " X " & ScreenH & vblf&"颜色质量："&Dev	
End Event
Event Form1.Load
    form1.Timer1.Enabled = false
    form1.timer1.Interval = 100
    form1.timer2.Interval = 100
End Event
Event Form1.Timer2.Timer
    Form1.Label9.Caption = "欢迎使用沧海制作的小工具!"&vblf&"现在时间为："&now
    aj = GetLastKey()
    If aj = 17 Then 
        If i mod 2 = 0 Then 
            form1.Timer1.Enabled = true
            i=i+1
        Else 
            form1.Timer1.Enabled = false
            i=i+1
        End If	
    End If	
End Event
Event Form1.InputBox1.GotFocus
	Call Plugin.Sys.SetCLB(sText)
End Event
Event Form1.InputBox2.GotFocus
	Call Plugin.Sys.SetCLB(hwnd)
End Event
Event Form1.InputBox3.GotFocus
	Call Plugin.Sys.SetCLB(sClass)
End Event
Event Form1.InputBox4.GotFocus
	Call Plugin.Sys.SetCLB(RtColor)
End Event
Event Form1.InputBox5.GotFocus
	Call Plugin.Sys.SetCLB(x_env&","&y_env)
End Event
Event Form1.InputBox7.GotFocus
	Call Plugin.Sys.SetCLB(x_env - ux2 & "," & y_env - uy2)
End Event
Event Form1.InputBox6.GotFocus
	Call Plugin.Sys.SetCLB(x_env - ux & "," & y_env - uy)
End Event
Event Form1.Label12.Click
	Call Plugin.Sys.SetCLB(split(sRect2, "|")(0) & "," & split(sRect2, "|")(1))
End Event
Event Form1.Label13.Click
	Call Plugin.Sys.SetCLB(split(sRect2, "|")(2) & "," & split(sRect2, "|")(3))
End Event
Event Form1.Label15.Click
	Call Plugin.Sys.SetCLB(split(sRect2, "|")(2)-split(sRect2, "|")(0) & "," & split(sRect2, "|")(3)-split(sRect2, "|")(1))
End Event	
Event Form1.Label18.Click
	Call Plugin.Sys.SetCLB(split(sRect, "|")(0) & "," & split(sRect, "|")(1))
End Event
Event Form1.Label19.Click
	Call Plugin.Sys.SetCLB(split(sRect, "|")(2) & "," & split(sRect, "|")(3))
End Event
Event Form1.Label21.Click
	Call Plugin.Sys.SetCLB(split(sRect, "|")(2)-split(sRect, "|")(0) & "," & split(sRect, "|")(3)-split(sRect, "|")(1))
End Event
Event Form1.Label22.Click
	Call Plugin.Sys.SetCLB("分辨率："&ScreenW & " X " & ScreenH & vblf&"颜色质量："&Dev)	
End Event