Jump to content

Fully Resizable Mini Speed Test


ConsultingJoe
 Share

Recommended Posts

A good example of the use of resizing.

#include <GUIConstants.au3>
#include <IE.au3>
$data = 0
Global Const $PBS_MARQUEE = 0x00000008 
$Form1 = GUICreate("Mini Speed test", 451, 251, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_GROUP,$WS_CLIPSIBLINGS))
$Progress = GUICtrlCreateProgress( 450/4, 250/2, 450/2, 20, $PBS_MARQUEE )
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj( $ie, 0, 0 )
GUICtrlSetResizing ( -1, 34 );34 docks the IE to the top left.
GUISetState(@SW_SHOW)
AdlibEnable( "load", 100 )
_IENavigate( $ie, "http://www.speedtest.net/mini/speedtest.swf" )
AdlibDisable( )
GUICtrlSetPos( $ieobject, 0, 0, 450, 250 )

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func load()
    If $data = 100 Then
        $data = 0
    Else
        $data = $data + 5
    EndIf
    GUICtrlSetData( $Progress, $data )
EndFunc
Edited by CyberZeroCool

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

Nice, I love the way those swf files resize with vector graphics... Thanks for sharing..

yeah, its great, too bad it flickers though.

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

mine just does when you resize it.

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...