ForunsBB

Open "WinInet" For DLL As #wininet
    Struct pdw, Flags As ULong
    CallDLL #wininet, "InternetGetConnectedState", _
        pdw As Struct, _
        0 As Long, _
        bConnExists As Long
    If bConnExists Then
        goto [start]
    Else
        notice "Fastcam Traffic- Internet connection                               "+chr$(13)+"No Internet connection found." +_
                   CHR$(13)+  "Try to connect first."
    End If
    Close #wininet
    End

[start]

nomainwin
WindowWidth=500
WindowHeight=489
UpperLeftX=int((DisplayWidth-WindowWidth)/2)

    options$(0) = "Coina"
    options$(1) = "Fogueteiro"
    options$(2) = "Corroios"
    options$(3) = "Almada"
    options$(4) = "P. 25 Abril Sul"
    options$(5) = "P. 25 Abril Norte"
    options$(6) = "12"
    options$(6) = "Eixo N/S 2ª C"

    listbox #1.list, options$(), [selectionMade], -1, -1, 103, 327
    Stylebits #1.list, 0, _LBS_DISABLENOSCROLL, 0, 0

menu #1, "&Menu", "&Exit          ALT +F4", [quit]
menu #1, "&Help",  "&Official site", [site], "&About", [about]

open "Fastcam Traffic BETA" for window_nf as #1
#1 "trapclose [quit]"

    calldll #comctl32, "InitCommonControls", _
    re as void

    struct prt, end1 as long, end2 as long
    prt.end1.struct=390
    prt.end2.struct=-1
    numberOfParts=2

    hW=hwnd(#1)
    style=_WS_VISIBLE or _WS_CHILD

    CallDLL #comctl32, "CreateStatusWindow",_
    style as long, msg$ as ptr, hW as long,_
    id as long, hStatus as long

    SB.SETPARTS=1028
    SB.SETTEXT=1025

    CallDLL #user32, "SendMessageA",_
    hStatus as long,_
    SB.SETPARTS as long,_
    numberOfParts as long,_
    prt as struct,_
    ret as long

    txt$=" Ready"
    id=0
    Call FillPart hStatus, SB.SETTEXT, id, txt$
    txt1$=" Date: ";date$("yyyy/mm/dd")
    id=1
    Call FillPart hStatus, SB.SETTEXT, id, txt1$

open "browser.dll" for dll as #b

hMain = hwnd(#1)
    url$=DefaultDir$+"\bd\img.htm"
    calldll #b, "CreateBrowser", hMain as ulong, 103 as long, _
        0 as long, 415 as long,324 as long,_
        url$ as ptr, 0 as long, result as ulong
    if result<>0 then
        notice "Fastcam - error"+chr$(13)+"Unable to load browser control."
        end
    end if
calldll #b, "EnableBrowser", 0 as long, re as void
calldll #b, "ShowStatusbar", 0 as long, re as void
open "browser1.dll" for dll as #c

hMain1 = hwnd(#1)
    url1$ = "http://clientes.netvisao.pt/whitehat/fastcam/1.html"
    calldll #c, "CreateBrowser", hMain1 as ulong, 1 as long, _
        335 as long, 520 as long,81 as long,_
        url1$ as ptr, 0 as long, result as ulong
    if result<>0 then

        notice "Fastcam - error"+chr$(13)+"Unable to load browser control."
        end
    end if
calldll #c, "ShowStatusbar", 0 as long, re as void
wait


[selectionMade]
#1.list "selection? sel1$"
if sel1$ = "Coina" goto [co]
if sel1$ = "Fogueteiro" goto [f]
if sel1$ = "Corroios" goto [c]
if sel1$ = "Almada" goto [a]
if sel1$ = "P. 25 Abril Sul" goto [ps]
if sel1$ = "P. 25 Abril Norte" goto [pn]
if sel1$ = "12" goto [12]
if sel1$ = "Eixo N/S 2ª C" goto [ens]

[co]
url$ = "http://www.estradasdeportugal.pt/trafego/get_image2.aspx?camara=Coina"
  if url$="" then wait
    calldll #b, "Navigate", url$ as ptr, ret as void

[cor]
timer 15000, [cor1]
wait
[cor1]
calldll #b, "Refresh", re as void
goto [cor]
wait


[f]
url$ = "http://www.estradasdeportugal.pt/trafego/get_image2.aspx?camara=Fogueteiro"
  if url$="" then wait
    calldll #b, "Navigate", url$ as ptr, ret as void

[fr]
timer 15000, [fr1]
wait
[fr1]
calldll #b, "Refresh", re as void
goto [fr]
wait

[c]
url$ = "http://www.estradasdeportugal.pt/trafego/get_image2.aspx?camara=A2-Km-12"
  if url$="" then wait
    calldll #b, "Navigate", url$ as ptr, ret as void

[cr]
timer 15000, [cr1]
wait
[cr1]
calldll #b, "Refresh", re as void
goto [cr]
wait

[a]
url$ = "http://www.estradasdeportugal.pt/trafego/get_image2.aspx?camara=Almada"
  if url$="" then wait
    calldll #b, "Navigate", url$ as ptr, ret as void

[ar]
timer 15000, [ar1]
wait
[ar1]
calldll #b, "Refresh", re as void
goto [ar]
wait

[ps]
url$ = "http://www.estradasdeportugal.pt/trafego/get_image2.aspx?camara=P-25-Abril-Sul"
  if url$="" then wait
    calldll #b, "Navigate", url$ as ptr, ret as void

[psr]
timer 15000, [psr1]
wait
[psr1]
calldll #b, "Refresh", re as void
goto [psr]
wait

[pn]
   url$ = "http://www.estradasdeportugal.pt/trafego/get_image2.aspx?camara=P-25-Abril-Norte"
  if url$="" then wait
    calldll #b, "Navigate", url$ as ptr, ret as void

[pnr]
timer 15000, [pnr1]
wait
[pnr1]
calldll #b, "Refresh", re as void
goto [pnr]
wait

[ens]
   url$ = "http://www.estradasdeportugal.pt/trafego/get_image2.aspx?camara=Eixo-NS-2a-Circular"
  if url$="" then wait
    calldll #b, "Navigate", url$ as ptr, ret as void

[ensr]
timer 15000, [ensr1]
wait
[ensr1]
calldll #b, "Refresh", re as void
goto [ensr]
wait

[about]
           t$=CHR$(13)+  "Fastcam Traffic BETA" +_
           CHR$(13)+_
           CHR$(13)+  "Rui Branco (whitehatg@gmail.com) - code" +_
           CHR$(13)+_
           CHR$(13)+  "Pictures taken online each 15 seconds by estradas de portugal http://www.estradasdeportugal.pt" +_
           CHR$(13)+ "Visit our official http://clientes.netvisao.pt/whitehat/fastcam/"+_
           CHR$(13)+_
           CHR$(13)+ "(c) Copyright Portuguese team 2006-2007. All rights reserved."

   calldll #user32, "MessageBeep", _MB_ICONINFORMATION  as long, beepResult as boolean

    mbflags = _MB_ICONINFORMATION OR _MB_OK

    calldll #user32, "MessageBoxA", _
    0 as long, _
    t$ as ptr, _
    "Fastcam Traffic - About" as ptr, _
    mbflags as long, _
    mbResult as long
wait

[site]
    run "explorer http://clientes.netvisao.pt/whitehat/fastcam/"
wait
[quit]
    close #wininet

calldll #user32, "SendMessageA",_
    hStatus as word,_WM_DESTROY as word,_
    0 as word,0 as long,re as long

    calldll #b, "DestroyBrowser",  re as void
    calldll #c, "DestroyBrowser",  re as void
    close #b
    close #c
    close #1
    end

Sub FillPart hW, cons, param1, txt$
    CallDLL #user32, "SendMessageA",_
        hW as long, cons as long,_
        param1 as long, txt$ as ptr,_
        FillPart as long
End Sub