ForunsBB

' Coded by whitehatg@gmail.com
' 11/03/2007

    q$=chr$(34)
    nowPath$=DefaultDir$

    nomainwin
    WindowWidth = 380
    WindowHeight = 200
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)


    statictext #main.statictext, "Move mouse gives life to your mouse every 10 seconds, so that you can go away from your computer and you're never called as being away" , 12, 86, 348, 60


    button #main.button1,"mini",[mini], UL, -400,  -400,  0,  0
    button #main.button2,"max",[max], UL, -400,  -400,  0,  0
    button #main.button3,"close",[quit.main], UL, -400,  -400,  0,  0
    button #main.button4,"exit",[quit.main], UL, -400,  -400,  0,  0

    bmpbutton #main.arrow, "bmp\titlebar.bmp", [arrowClicked], UL, 23, -1
    bmpbutton #main.icon, "bmp\icon.bmp", [iconpopup], UL, 0, -1

    OPEN "SuperButton.dll" for DLL as #hSuperButton

    Calldll #hSuperButton, "InitSB", inresult As long

    ForegroundColor$ = "white"
    BackgroundColor$ = "black"

    open "style vista" for window_popup as #main
    print #main, "font ms_sans_serif 10"
    print #main, "trapclose [quit.main]"
    #main  "font verdana 8"

timer 130, [1]
wait
[1]
timer 0

    LOADBMP "Bitmap1", "bmp\a_1.bmp"
    LOADBMP "Mask1", "bmp\a_2.bmp"

    LOADBMP "Bitmap2", "bmp\b_1.bmp"
    LOADBMP "Mask2", "bmp\b_2.bmp"

    LOADBMP "Bitmap3", "bmp\c_1.bmp"
    LOADBMP "Mask3", "bmp\c_2.bmp"

    LOADBMP "Bitmap4", "bmp\aa_1.bmp"
    LOADBMP "Mask4", "bmp\aa_2.bmp"

    hBitmap1 = hbmp("Bitmap1")
    hMask1 = hbmp("Mask1")

    hBitmap2 = hbmp("Bitmap2")
    hMask2 = hbmp("Mask2")

    hBitmap3 = hbmp("Bitmap3")
    hMask3 = hbmp("Mask3")

    hBitmap4 = hbmp("Bitmap4")
    hMask4 = hbmp("Mask4")

    hWndParent = hwnd(#main)

    calldll #user32, "GetWindowLongA", _
        hWndParent As Long, _
        _GWL_HINSTANCE As Long, _
         hInstance As Long


    dwStyle = _WS_CHILD OR _WS_VISIBLE

    hButton1 = hWnd(#main.button1)
    hButton2 = hWnd(#main.button2)
    hButton3 = hWnd(#main.button3)
    hButton4 = hWnd(#main.button4)


    calldll #user32, "GetWindowLongA", _
         hButton1 As Long, _
        _GWL_ID As Long, _
         hId1 As Long

    calldll #user32, "GetWindowLongA", _
         hButton2 As Long, _
        _GWL_ID As Long, _
         hId2 As Long

    calldll #user32, "GetWindowLongA", _
         hButton3 As Long, _
        _GWL_ID As Long, _
         hId3 As Long

    calldll #user32, "GetWindowLongA", _
         hButton4 As Long, _
        _GWL_ID As Long, _
         hId4 As Long



    calldll #user32, "CreateWindowExA", _
        0 As long, _
        "SuperButton" As PTR, _
        "mini" As PTR, _
        dwStyle As Long, _
        262 As Long, _
        -9 As Long, _
        45 As Long, _
        25 As Long, _
        hWndParent As Long, _
        hId1 As Long, _
        hInstance As Long, _
        0 As Long, _
         hChild1 As Long

    calldll #user32, "CreateWindowExA", _
        0 As long, _
        "SuperButton" As PTR, _
        "maxi" As PTR, _
        dwStyle As Long, _
        294 As Long, _
        -9 As Long, _
        45 As Long, _
        25 As Long, _
        hWndParent As Long, _
        hId2 As Long, _
        hInstance As Long, _
        0 As Long, _
         hChild2 As Long

     calldll #user32, "CreateWindowExA", _
        0 As long, _
        "SuperButton" As PTR, _
        "close" As PTR, _
        dwStyle As Long, _
        326 As Long, _
        -9 As Long, _
        45 As Long, _
        25 As Long, _
        hWndParent As Long, _
        hId3 As Long, _
        hInstance As Long, _
        0 As Long, _
         hChild3 As Long

calldll #user32, "CreateWindowExA", _
        0 As long, _
        "SuperButton" As PTR, _
        "exit" As PTR, _
        dwStyle As Long, _
        279 As Long, _
        160 As Long, _
        90 As Long, _
        25 As Long, _
        hWndParent As Long, _
        hId4 As Long, _
        hInstance As Long, _
        0 As Long, _
         hChild4 As Long

    calldll #user32, "SendMessageA", _
        hChild1 As Long, _
        1025 As Long, _
        hBitmap1 As Long, _
        hMask1 As Long, _
         result As Long

    calldll #user32, "SendMessageA", _
        hChild2 As Long, _
        1025 As Long, _
        hBitmap2 As Long, _
        hMask2 As Long, _
         result As Long

    calldll #user32, "SendMessageA", _
        hChild3 As Long, _
        1025 As Long, _
        hBitmap3 As Long, _
        hMask3 As Long, _
         result As Long

    calldll #user32, "SendMessageA", _
        hChild4 As Long, _
        1025 As Long, _
        hBitmap4 As Long, _
        hMask4 As Long, _
         result As Long

print #main.arrow, "disable"

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

    CallDLL #user32, "mouse_event", _
        dwFlags as Long, _
        dx as Long, _
        dy as Long, _
        cButtons as Long, _
        dwExtraInfo as Long, _
        result as Void

    wait

[mini]

hWnd = hWnd(#main)

stateflag = 2
CallDLL #user32, "ShowWindow", _
hWnd As long, _
stateflag As long, _
result As boolean

Wait

[max]
'hWnd = hWnd(#main)

'stateflag = 3 'SW_MAXIMIZE
'CallDLL #user32, "ShowWindow", _
'hWnd As long, _
'stateflag As long, _
'result As boolean

wait

[iconpopup]
    popupmenu "&Exit", [quit.main]',|,"&About", [about]
wait

[about]

wait

[quit.main]
   calldll #user32, "DestroyWindow", _
        hChild1 As Long, _
         result As Long


   calldll #user32, "DestroyWindow", _
        hChild2 As Long, _
         result As Long


   calldll #user32, "DestroyWindow", _
        hChild3 As Long, _
         result As Long


   calldll #user32, "DestroyWindow", _
        hChild4 As Long, _
         result As Long


    calldll #user32, "DestroyWindow", _
        hProg As Long, _
         result As Long

    CallDll #hSuperButton, "UnInitSB", uninresult As long
    close #hSuperButton
    close #main
    end