Jump to content

Yet another GIF display

taietel

By taietel
in AutoIt Example Scripts

 Share

Recommended Posts

  • Replies 47
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

guinness Universalist

guinness

Posted
Posted

This is why it works :) It the same as me using #AutoIt3Wrapper_UseX64=N! If have the possibility to compile and check on an x64 Machine then this will confirm on whether I am right or wrong.

UDF List:

 
_AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples...

Updated: 22/04/2018

  • 1 year later...
morrison0586 Seeker

morrison0586

Posted
Posted 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_Icon=Scripts\TEST.ico
#AutoIt3Wrapper_Outfile_x64=Restore.exe
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Region
#EndRegion ;**** CREATED BY Morrison0586 ****
#include
#include
#include
#include
#include

#include "ExtMsgBox.au3"



Func TEST()
Local $Button_1, $Button_2, $Button_3, $Button_4, $msg, $font
$Form1 = GUICreate("RESTORE", 400, 400, -1, -1)
$menu = GUICtrlCreateGraphic(0, 0, 400, 400,$WS_CLIPSIBLINGS)

GUICtrlSetBkColor(-1, 0x000000)
GUISetFont(14, 400, 2, $font)
GUICtrlSetColor(1, 0x000099)
$oObj = ObjCreate("Shell.Explorer.2")
$oObj_ctrl = GUICtrlCreateObj($oObj, 325, 325, 75, 75)
GUICtrlSetBkColor(-1, 0x000000)
;resize control when the window resizes
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
;restrict right click

GUICtrlSetBkColor(-1, 0x000000)
$sGIF = @ScriptDir&"\test.gif"
;show the gif
$URL = "about:[img]"&$sGIF&[/img]"
$oObj.Navigate($URL)
GUISetState(@SW_SHOW)


$font = "Arial" ;***Note Primary Partition will be considered the "D" drive while running WINPE recovery unless you change it***
$FreeofC = DriveSpaceFree("c:\") ;Total Free Space of Recovery Partition
$RestoreSize = FileGetSize ("c:\urecovery.gho") / 1048576 ;This is needed to find the size of the recovery image if it exists
$String = ($FreeofC + $RestoreSize) ; This is the total free space of the Recovery Partition plus the file size of the recovery if it exists.
$TotalofD = DriveSpaceTotal( "d:\" ) ;Total Drive Size of Primary Partition
$FreeofD = DriveSpaceFree( "d:\" ) ;Free Space on Primary Partition
$UsedofD = $TotalofD - $FreeofD ;Total Drive Space used by Primary Partition
$String2 = $UsedofD / 1.5 ;1.5 is the ratio for the ghost image being created to the total size of the image it is creating it from
$fAgain = True




Opt("GUICoordMode", 1)

GUISetFont(14, 400, 2, $font)
$Button_1 = GUICtrlCreateButton("FACTORY RESET ", 50, 70, 300, 40)
GUICtrlSetBkColor(-1, 0x000099)
GUICtrlSetColor (-1,0xFFCC33)
GUISetFont(14, 400, 2, $font)
$Button_2 = GUICtrlCreateButton("RESTORE USER IMAGE", 50, 136, 300, 40)
GUICtrlSetBkColor(-1, 0x000099)
GUICtrlSetColor (-1,0xFFCC33)
GUISetFont(14, 400, 2, $font)
$Button_3 = GUICtrlCreateButton("CREATE USER IMAGE", 50, 202, 300, 40)
GUICtrlSetBkColor(-1, 0x000099)
GUICtrlSetColor (-1,0xFFCC33)
GUISetFont(14, 400, 2, $font)
$Button_4 = GUICtrlCreateButton("EXIT AND RESTART", 50, 270, 300, 40)
GUICtrlSetBkColor(-1, 0x000099)
GUICtrlSetColor (-1,0xFFCC33)
GUISetFont(14, 400, 2, $font)
GUISetState()

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()

Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
_ExtMsgBoxSet(3, 0, 0x000099, 0xFFCC33, 13, $font)
$nTest = _ExtMsgBox(48, "Restore|&Cancel", "WARNING!!!", "ALL UNSAVED WORK WILL BE LOST ARE YOU SURE YOU WANT TO CONTINUE?", 0)
If $nTest = 1 Then Run ("restore.bat") ;Will launch bat to start ghost to restore the original image on the recovery partition
If $nTest = 1 Then _ExtMsgBox(0, "OK", "IMAGE RESTORE", "FACTORY IMAGE IS NOW BEING RESTORED", 0)
Case $msg = $Button_2
_ExtMsgBoxSet(3, 0, 0x000099, 0xFFCC33, 13, $font)
$test123 = _ExtMsgBox(48, "Restore|&Cancel", "WARNING!!!", "ALL UNSAVED WORK WILL BE LOST ARE YOU SURE YOU WANT TO CONTINUE?", 0)
If $test123 = 1 Then Run ('u_restore.bat') ;Will launch bat to start ghost to restore the user image
If $test123 = 1 Then _ExtMsgBox(0, "OK", 'IMAGE RESTORE', 'USER IMAGE IS NOW BEING RESTORED', 0)
Case $msg = $Button_3

_ExtMsgBoxSet(3, 0, 0x000099, 0xFFCC33, 13, $font)
$nTest = _ExtMsgBox(48, "Create|&Cancel", "***Warning***", "***Creating the user image is not intended as a back-up method. It is designed soley to create a point where Windows Updates do not need to be downloaded again. There is not enough space to create a user image if your Hard Drive is full. Do you wish to Continue?***", 0)
If $nTest = 1 Then
Local $String
Local $String2
If $String > $String2 Then
Run('u_create.bat') ; Will run bat to create user image
_ExtMsgBox(0, "OK", 'IMAGE CREATION', 'USER IMAGE IS NOW BEING CREATED', 0)
EndIf
If $String < $String2 Then
_ExtMsgBox (16, "OK", 'Warning', 'There is not enough free space', 0)
EndIf
EndIf
Case $msg = $Button_4
_ExtMsgBoxSet(3, 0, 0x000099, 0xFFCC33, 13, $font)
$test123 = _ExtMsgBox(48, "Restart|&Cancel", "RESTART", "WOULD YOU LIKE TO RESTART?", 0)
If $test123 = 1 Then Run ('restart.bat')

EndSelect
WEnd
EndFunc
@ taietel

I love this the GIF fits perfectly in my GUI however if I use this in my GUI I can no longer use the buttons with my keyboard, I know this is an old thread but if you are still there I would love some imput. Thanks.

BrewManNH Universalist

BrewManNH

Posted
Posted

You need to disable the picture before you can interact with controls on the GUI. See the original post and look for the line GUICtrlSetState.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

morrison0586 Seeker

morrison0586

Posted
Posted

BrewMan,

Thanks for the response but I am not sure where I should place that line to have the picture disabled. I have place GUICtrlSetState(-1,$GUI_DISABLE) under every line that has to do with the gif but still no control to the GUI through keyboard.

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
Go to topic listing

  • Recently Browsing   0 members

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