Autoit.ES

Código: Seleccionar todo

#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <WindowsConstants.au3>

#include <ModernSplash.au3>
_ModernSplash_Create("Test Program","v1.0 Build 1243#rev64453","_exit",20)
_ModernSplash_Initiate("Load...")
Sleep(100)
_ModernSplash_AddText("Loading resources...")
_ModernSplash_AddText("Test Text 123 quite long... errm jup..")
_ModernSplash_AddText(Random(100000,1000000,1))
Sleep(100);do smth
_ModernSplash_AddText("Max rox!")
MsgBox(0,"","You can try to exit the Splash by clicking on the X on the right or push esc"&@CRLF&"It will close then after this messagebox dissappears")
Sleep(400);do smth
_ModernSplash_AddText(Random(100000,1000000,1))
Sleep(200);do smth
_ModernSplash_AddText("Ping Google 1...")
_ModernSplash_AddText("Returned: "&Ping("www.google.de")&"ms")
_ModernSplash_AddText("Ping Google 2...")
_ModernSplash_AddText("Returned: "&Ping("www.google.de")&"ms")
_ModernSplash_AddText("Ping Google 10 times")
$ms = 0
For $i = 1 To 10
$ms += Ping("www.google.de")
Next
_ModernSplash_AddText("Roundtrip: "&Round($ms/10)&"ms")
_ModernSplash_AddText("Mesagebox")
MsgBox(0,"","Click ok to continue or watch this beautiful animation. Hope you have enough time, its endless ;-)")
_ModernSplash_DeInitiate()
MsgBox(0,"","Programm succesfull loaded :)")
Func _exit()
    MsgBox(0,"","You abborted loading...script exit now!")
    Exit
EndFunc