ForunsBB

    nomainwin

    WindowWidth = 233
    WindowHeight = 145

    UpperLeftX=int((DisplayWidth-WindowWidth)/20)
    UpperLeftY=int((DisplayHeight-WindowHeight)/5)

    statictext #main.text, "whitehatg@gmail.com", 50, 86, 150, 18

    groupbox #main.groupbox2, "",   5,   2, 215, 105
    button #main.button1,"Exit",[end], UL,  55,  42, 115,  25

    open "Move your mouse" for dialog_modal as #main '
    print #main, "font arial 9"
    print #main, "trapclose [end]

    timer 10000, [start]
       wait

[loop]
  timer 8000, [next]
     wait

[next]
cursor arrow
     x = 0

[start]

    CallDLL #user32, "SetCursorPos", _
        x as Long, _
          x as Long, _
            result as Void

        x = x + 1
    if x = 500 goto [loop]

   timer 10,[start]
      wait

[end]
   close #main
     end

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetWindowCapture().Save("c:\Teste.bmp")
    End Sub

    Public Function GetWindowCapture() As Image

        SendKeys.SendWait("%{PRTSC}")

        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        Return objClipboard.GetData(DataFormats.Bitmap)
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GetWindowCapture1().Save("c:\Teste.bmp")
    End Sub
    Public Function GetWindowCapture1() As Image

        SendKeys.SendWait("^{PRTSC}")

        Dim objClipboard As IDataObject = Clipboard.GetDataObject()
        Return objClipboard.GetData(DataFormats.Bitmap)
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class