Jump to content
Sign in to follow this  
Lemmens Peter

Progress Bar with changing color

Recommended Posts

Lemmens Peter

The progressbar starts counting down when the autoit-window has NO focus. (The autoit-window is not active, another window is active)

When the autoit-window get the focus (Window is activated) the progressbar start all over (Starts from 100% again)

The progressbar changes color when :

higher than 66% : green

between 33% and 66% : yellow

lower than 33% : red

The window flashes 3 times when passing 66% and 33%

The autoit-window closes when it reaches 0 %

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.4.0
Author:      myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------

; #include <GUIConstantsEx.au3>
Global Const $GUI_HIDE = 32
Global Const $GUI_SHOW = 16
Global Const $GUI_EVENT_CLOSE = -3
; #include <ProgressConstants.au3>
Global Const $PBS_VERTICAL = 0x04
Global Const $PBM_SETSTATE = 0x0410
; #Include <WinAPI.au3>
Global Const $tagFLASHWINFO = "uint Size;hwnd hWnd;dword Flags;uint Count;dword TimeOut"
Global Const $__WINAPICONSTANT_FLASHW_CAPTION = 0x00000001
Global Const $__WINAPICONSTANT_FLASHW_TRAY  = 0x00000002
Global Const $__WINAPICONSTANT_FLASHW_TIMER  = 0x00000004
Global Const $__WINAPICONSTANT_FLASHW_TIMERNOFG = 0x0000000C

Dim $o_Percentage

$Form1 = GUICreate("Progress Bar Exemple", 150, 450, -1, -1)
$Progress1 = GUICtrlCreateProgress(10, 10, 10, 400, $PBS_VERTICAL)
$Label1 = GUICtrlCreateLabel ( "---------------", 50, 225)
GUICtrlSetFont ($Label1, 12, 600)
GUISetState(@SW_SHOW)
GUICtrlSetState($Progress1, $GUI_HIDE)
$Start_Time = TimerInit()
$Time_To_Wait = 30000 ; miliseconden
GUICtrlSetData($Progress1, 100)
Sleep(500)
GUICtrlSetState($Progress1, $GUI_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
Sleep(10)
If WinActive($Form1) Then
  $Start_Time = TimerInit()
EndIf
$Current_Time_Difference = TimerDiff($Start_Time)
If $Current_Time_Difference > $Time_To_Wait Then
  ;ProgressSet(100, "Done!")
  Sleep(750)
  ;ProgressOff()
  Exit
Else
  $Percentage = 100 - Round((100/$Time_To_Wait) * $Current_Time_Difference)
  GuiCtrlSetData($Label1, String($Percentage) & " %")
  GUICtrlSetData($Progress1, $Percentage)
  If $o_Percentage >= 100 Then
   _SendMessage(GUICtrlGetHandle($Progress1), $PBM_SETSTATE, 1) ; green
  EndIf
  If $o_Percentage >= 66 and $Percentage < 66 Then
   _SendMessage(GUICtrlGetHandle($Progress1), $PBM_SETSTATE, 3) ; yellow
   _WinAPI_FlashWindowEx($Form1, 3, 3, 200)
  EndIf
  If $o_Percentage >= 33 and $Percentage < 33 Then
   _SendMessage(GUICtrlGetHandle($Progress1), $PBM_SETSTATE, 2) ; red
   _WinAPI_FlashWindowEx($Form1, 3, 3, 100)
  EndIf
  $o_Percentage = $Percentage
EndIf
WEnd

Func _SendMessage($hWnd, $iMsg, $wParam = 0, $lParam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lresult")
Local $aResult = DllCall("user32.dll", $sReturnType, "SendMessageW", "hwnd", $hWnd, "uint", $iMsg, $wParamType, $wParam, $lParamType, $lParam)
If @error Then Return SetError(@error, @extended, "")
If $iReturn >= 0 And $iReturn <= 4 Then Return $aResult[$iReturn]
Return $aResult
EndFunc   ;==>_SendMessage
; #FUNCTION# ====================================================================================================================
; Name...........: _WinAPI_FlashWindowEx
; Description ...: Flashes the specified window
; Syntax.........: _WinAPI_FlashWindowEx($hWnd[, $iFlags = 3[, $iCount = 3[, $iTimeout = 0]]])
; Parameters ....: $hWnd        - Handle to the window to be flashed. The window can be either open or minimized.
;                 $iFlags     - The flash status. Can be one or more of the following values:
;                 |0 - Stop flashing. The system restores the window to its original state.
;                 |1 - Flash the window caption
;                 |2 - Flash the taskbar button
;                 |4 - Flash continuously until stopped
;                 |8 - Flash continuously until the window comes to the foreground
;                 $iCount     - The number of times to flash the window
;                 $iTimeout - The rate at which the window is to be flashed, in  milliseconds.  If 0, the function  uses  the
;                 +default cursor blink rate.
; Return values .: Success    - True
;                 Failure     - False
; Author ........: Yoan Roblet (arcker)
; Modified.......:
; Remarks .......: Typically, you flash a window to inform the user that the window requires attention  but  does  not  currently
;                 have the keyboard focus.  When a window flashes, it appears to change  from  inactive  to  active  status.  An
;                 inactive caption bar changes to an active caption bar; an active caption bar changes to  an  inactive  caption
;                 bar.
; Related .......: _WinAPI_FlashWindow
; Link ..........: @@MsdnLink@@ FlashWindowEx
; Example .......: Yes
; ===============================================================================================================================
Func _WinAPI_FlashWindowEx($hWnd, $iFlags = 3, $iCount = 3, $iTimeout = 0)
Local $tFlash = DllStructCreate($tagFLASHWINFO)
Local $pFlash = DllStructGetPtr($tFlash)
Local $iFlash = DllStructGetSize($tFlash)
Local $iMode = 0
If BitAND($iFlags, 1) <> 0 Then $iMode = BitOR($iMode, $__WINAPICONSTANT_FLASHW_CAPTION)
If BitAND($iFlags, 2) <> 0 Then $iMode = BitOR($iMode, $__WINAPICONSTANT_FLASHW_TRAY)
If BitAND($iFlags, 4) <> 0 Then $iMode = BitOR($iMode, $__WINAPICONSTANT_FLASHW_TIMER)
If BitAND($iFlags, 8) <> 0 Then $iMode = BitOR($iMode, $__WINAPICONSTANT_FLASHW_TIMERNOFG)
DllStructSetData($tFlash, "Size", $iFlash)
DllStructSetData($tFlash, "hWnd", $hWnd)
DllStructSetData($tFlash, "Flags", $iMode)
DllStructSetData($tFlash, "Count", $iCount)
DllStructSetData($tFlash, "Timeout", $iTimeout)
Local $aResult = DllCall("user32.dll", "bool", "FlashWindowEx", "ptr", $pFlash)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0]
EndFunc   ;==>_WinAPI_FlashWindowEx

I use indeed Windows 7 and the progressbar changes color !

@fett8802 and wakillon : Which OS do you use ?

Edited by Lemmens Peter

Share this post


Link to post
Share on other sites
fett8802

I have no color change...


[sub]My UDF[/sub][sub] - Basics and Time extensions. Great for those new at AutoIt, also contains some powerful time extensions for pros.[/sub][sub]ScrabbleIt[/sub][sub] - Scrabble done in pure AutoIt. (In Progress)[/sub][sub]Nerd Party Extreme | My Portfolio | [email="fett8802@gmail.com"]Contact Me[/email][/sub]

Share this post


Link to post
Share on other sites
BrewManNH

The SendMessage message used only works on Vista and above, I don't think it works on XP


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

Share this post


Link to post
Share on other sites
wakillon

I use indeed Windows 7 and the progressbar changes color !

@fett8802 and wakillon : Which OS do you use ?

Take a look to my Signature ! :oops:


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites
ValeryVal

To view three color of PB you have to displace the TimerInit from While loop:

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.4.0
Author:   myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; #include <GUIConstantsEx.au3>
Global Const $GUI_HIDE = 32
Global Const $GUI_SHOW = 16
Global Const $GUI_EVENT_CLOSE = -3
; #include <ProgressConstants.au3>
Global Const $PBS_VERTICAL = 0x04
Global Const $PBM_SETSTATE = 0x0410
; #Include <WinAPI.au3>
Global Const $tagFLASHWINFO = "uint Size;hwnd hWnd;dword Flags;uint Count;dword TimeOut"
Global Const $__WINAPICONSTANT_FLASHW_CAPTION = 0x00000001
Global Const $__WINAPICONSTANT_FLASHW_TRAY  = 0x00000002
Global Const $__WINAPICONSTANT_FLASHW_TIMER  = 0x00000004
Global Const $__WINAPICONSTANT_FLASHW_TIMERNOFG = 0x0000000C
Dim $o_Percentage
$Form1 = GUICreate("Progress Bar Exemple", 150, 450, -1, -1)
$Progress1 = GUICtrlCreateProgress(10, 10, 10, 400, $PBS_VERTICAL)
$Label1 = GUICtrlCreateLabel ( "---------------", 50, 225)
GUICtrlSetFont ($Label1, 12, 600)
GUISetState(@SW_SHOW)
GUICtrlSetState($Progress1, $GUI_HIDE)
$Start_Time = TimerInit()
$Time_To_Wait = 30000 ; miliseconden
GUICtrlSetData($Progress1, 100)
Sleep(500)
GUICtrlSetState($Progress1, $GUI_SHOW)
If WinActive($Form1) Then
  $Start_Time = TimerInit()
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
Sleep(10)
;If WinActive($Form1) Then
;  $Start_Time = TimerInit()
;EndIf
$Current_Time_Difference = TimerDiff($Start_Time)
If $Current_Time_Difference > $Time_To_Wait Then
  ;ProgressSet(100, "Done!")
  Sleep(750)
  ;ProgressOff()
  Exit
Else
  $Percentage = 100 - Round((100/$Time_To_Wait) * $Current_Time_Difference)
  GuiCtrlSetData($Label1, String($Percentage) & " %")
  GUICtrlSetData($Progress1, $Percentage)
  If $o_Percentage >= 100 Then
   _SendMessage(GUICtrlGetHandle($Progress1), $PBM_SETSTATE, 1) ; green
  EndIf
  If $o_Percentage >= 66 and $Percentage < 66 Then
   _SendMessage(GUICtrlGetHandle($Progress1), $PBM_SETSTATE, 3) ; yellow
   _WinAPI_FlashWindowEx($Form1, 3, 3, 200)
  EndIf
  If $o_Percentage >= 33 and $Percentage < 33 Then
   _SendMessage(GUICtrlGetHandle($Progress1), $PBM_SETSTATE, 2) ; red
   _WinAPI_FlashWindowEx($Form1, 3, 3, 100)
  EndIf
  $o_Percentage = $Percentage
EndIf
WEnd
Func _SendMessage($hWnd, $iMsg, $wParam = 0, $lParam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lresult")
Local $aResult = DllCall("user32.dll", $sReturnType, "SendMessageW", "hwnd", $hWnd, "uint", $iMsg, $wParamType, $wParam, $lParamType, $lParam)
If @error Then Return SetError(@error, @extended, "")
If $iReturn >= 0 And $iReturn <= 4 Then Return $aResult[$iReturn]
Return $aResult
EndFunc   ;==>_SendMessage
; #FUNCTION# ====================================================================================================================
; Name...........: _WinAPI_FlashWindowEx
; Description ...: Flashes the specified window
; Syntax.........: _WinAPI_FlashWindowEx($hWnd[, $iFlags = 3[, $iCount = 3[, $iTimeout = 0]]])
; Parameters ....: $hWnd        - Handle to the window to be flashed. The window can be either open or minimized.
;                $iFlags     - The flash status. Can be one or more of the following values:
;                |0 - Stop flashing. The system restores the window to its original state.
;                |1 - Flash the window caption
;                |2 - Flash the taskbar button
;                |4 - Flash continuously until stopped
;                |8 - Flash continuously until the window comes to the foreground
;                $iCount     - The number of times to flash the window
;                $iTimeout - The rate at which the window is to be flashed, in  milliseconds.  If 0, the function  uses  the
;                +default cursor blink rate.
; Return values .: Success    - True
;                Failure     - False
; Author ........: Yoan Roblet (arcker)
; Modified.......:
; Remarks .......: Typically, you flash a window to inform the user that the window requires attention  but  does  not  currently
;                have the keyboard focus.  When a window flashes, it appears to change  from  inactive  to  active  status.  An
;                inactive caption bar changes to an active caption bar; an active caption bar changes to  an  inactive  caption
;                bar.
; Related .......: _WinAPI_FlashWindow
; Link ..........: @@MsdnLink@@ FlashWindowEx
; Example .......: Yes
; ===============================================================================================================================
Func _WinAPI_FlashWindowEx($hWnd, $iFlags = 3, $iCount = 3, $iTimeout = 0)
Local $tFlash = DllStructCreate($tagFLASHWINFO)
Local $pFlash = DllStructGetPtr($tFlash)
Local $iFlash = DllStructGetSize($tFlash)
Local $iMode = 0
If BitAND($iFlags, 1) <> 0 Then $iMode = BitOR($iMode, $__WINAPICONSTANT_FLASHW_CAPTION)
If BitAND($iFlags, 2) <> 0 Then $iMode = BitOR($iMode, $__WINAPICONSTANT_FLASHW_TRAY)
If BitAND($iFlags, 4) <> 0 Then $iMode = BitOR($iMode, $__WINAPICONSTANT_FLASHW_TIMER)
If BitAND($iFlags, 8) <> 0 Then $iMode = BitOR($iMode, $__WINAPICONSTANT_FLASHW_TIMERNOFG)
DllStructSetData($tFlash, "Size", $iFlash)
DllStructSetData($tFlash, "hWnd", $hWnd)
DllStructSetData($tFlash, "Flags", $iMode)
DllStructSetData($tFlash, "Count", $iCount)
DllStructSetData($tFlash, "Timeout", $iTimeout)
Local $aResult = DllCall("user32.dll", "bool", "FlashWindowEx", "ptr", $pFlash)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0]
EndFunc   ;==>_WinAPI_FlashWindowEx

The point of world view

Share this post


Link to post
Share on other sites
BrewManNH

The whole point of having the WinActive in the While/Wend loop was so that it would reset the timer if the window gets focus. The progress bar would only change if the windows DOESN'T have focus in the original script, which was the author's original concept.


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

Share this post


Link to post
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
Sign in to follow this  

  • Similar Content

    • VollachR
      By VollachR
      Hi,
      I'd like to show a progress bar for an operation performed by an external program my script is running silently, I want to show it in a GUI I created using the GUICtrlCreateProgress but I have no idea how to do it.
      The important thing to point out is that there's no way of knowing how long the external program will run, as it is a file splitter and it depends on the size of file it splits and the split parts size.
      Can someone point me in the right direction or give me an example how to do so?
      This is my RunWait command:
      RunWait($MYFILES1 & '\fsplit.exe -split ' & $Size & ' mb ' & $File & " -f " & $File & "." & $extension) It uses multiple variables declared and set earlier in the script, how will I got about having the progress of that command shown using GUICtrlCreateProgress ? Is it possible?
      Thank you.
    • BrewManNH
      By BrewManNH
      I have created a UDF that will allow you to easily create a customizable GUI with either a standard progress bar or a marquee style progress bar. You can change the size and back ground color of the GUI, as well as the font, font size, and color of the text. The function doesn't require any parameters to operate, but the default text is very generic so you probably would want to set that at the very least.
    • CT83
      By CT83
      I am currently working on a script which contains a cpu intensive GUI with too many tabs, and groups and so i would like to add something like a progress bar or a watermark which would load before the GUI  and provide user with the information that the gui is loading and that he needs to wait. I tried adding Progress() function before the GUI Region but that failed to provide any significant improvement in my condition as the progressbar too takes more or less the same time to load.  
      This is my GUI code 
      #Region ### START Koda GUI section ### Form=\\desktop-dvg37gp\primary\sync\megasync\languages\autoit\programs\30second\final - copy\form\form1.kxf $MainMenu = GUICreate("Video Viewing Automator", 496, 592, -1, -1) GUISetIcon("", -1) $LogTab = GUICtrlCreateTab(0, 0, 489, 537, $WS_BORDER, BitOR($TCS_EX_FLATSEPARATORS,$WS_EX_STATICEDGE)) GUICtrlSetFont(-1, 10, 800, 0, "Default") $TabSheet1 = GUICtrlCreateTabItem("Log") $Log = GUICtrlCreateEdit("", 8, 26, 473, 465, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL)) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Open_Log = GUICtrlCreateButton("Open Current Log in NotePad", 69, 501, 153, 25) $Open_LogF = GUICtrlCreateButton("Open Log Folder", 272, 501, 153, 25) $Options = GUICtrlCreateTabItem("Options") $Group1 = GUICtrlCreateGroup("LogIn", 284, 371, 110, 57, BitOR($GUI_SS_DEFAULT_GROUP,$BS_LEFT,$BS_FLAT)) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $LoginID = GUICtrlCreateInput("", 348, 379, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Password = GUICtrlCreateInput("", 348, 403, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $LogID = GUICtrlCreateLabel("LogInID", 288, 384, 49, 17) $Pass = GUICtrlCreateLabel("Password", 288, 408, 58, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetCursor (-1, 0) $Group2 = GUICtrlCreateGroup("Push Updates", 4, 371, 150, 137, BitOR($GUI_SS_DEFAULT_GROUP,$BS_LEFT,$BS_FLAT)) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Psh_Tk1 = GUICtrlCreateInput("", 85, 403, 65, 21, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Label6 = GUICtrlCreateLabel("Token", 8, 408, 40, 17) $Psh_Chk = GUICtrlCreateCheckbox("Enable", 8, 485, 65, 17) GUICtrlSetCursor (-1, 0) $Label18 = GUICtrlCreateLabel("Send After Cycles", 8, 387, 105, 17) $Psh_AftCyc = GUICtrlCreateInput("", 116, 383, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Label45 = GUICtrlCreateLabel("Token", 8, 425, 40, 17) $Psh_Tk2 = GUICtrlCreateInput("", 85, 422, 65, 21, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Psh_Tk3 = GUICtrlCreateInput("", 85, 441, 65, 21, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Psh_Tk4 = GUICtrlCreateInput("", 85, 459, 65, 21, BitOR($GUI_SS_DEFAULT_INPUT,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Label46 = GUICtrlCreateLabel("Token", 8, 442, 40, 17) $Label47 = GUICtrlCreateLabel("Token", 7, 459, 40, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetCursor (-1, 0) $AutoStart = GUICtrlCreateGroup("Misc.", 157, 371, 126, 137) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label22 = GUICtrlCreateLabel("", 167, 391, 4, 4) $autostartcheck = GUICtrlCreateCheckbox("Enable AutoStart ", 162, 386, 113, 17) GUICtrlSetCursor (-1, 0) $Label28 = GUICtrlCreateLabel("CIAP Limit", 197, 408, 62, 17) $CIAP = GUICtrlCreateInput("", 162, 406, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Label23 = GUICtrlCreateLabel("CustomerID", 197, 430, 69, 17) $NickName_Edit = GUICtrlCreateInput("", 162, 428, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Label8 = GUICtrlCreateLabel(" Zero Limit", 197, 450, 64, 17) $Z_Lim = GUICtrlCreateInput("", 162, 449, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetCursor (-1, 0) $Label14 = GUICtrlCreateLabel("Load Limit", 197, 479, 62, 17) $L_Lim = GUICtrlCreateInput("", 162, 473, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group13 = GUICtrlCreateGroup("", 5, 26, 390, 345, BitOR($GUI_SS_DEFAULT_GROUP,$BS_LEFT,$BS_FLAT)) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Group3 = GUICtrlCreateGroup("Setting Scheme 1", 13, 34, 121, 313) $S1_Chk = GUICtrlCreateCheckbox("Enable", 18, 321, 65, 17) GUICtrlSetCursor (-1, 0) $Group7 = GUICtrlCreateGroup("Hustle", 21, 128, 105, 105) $S1_HusChk = GUICtrlCreateCheckbox("Enable", 28, 212, 65, 17) GUICtrlSetCursor (-1, 0) $Label30 = GUICtrlCreateLabel("Limit", 31, 144, 30, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S1_HusLim = GUICtrlCreateInput("000", 73, 142, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label31 = GUICtrlCreateLabel("Before", 31, 169, 41, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S1_HusBef = GUICtrlCreateInput("000", 73, 166, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label59 = GUICtrlCreateLabel("Thres.", 31, 193, 40, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S1_HusThres = GUICtrlCreateInput("000", 73, 188, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group8 = GUICtrlCreateGroup("Target", 21, 47, 105, 81) $Label19 = GUICtrlCreateLabel("Today", 30, 62, 39, 17) $S1_TarToday = GUICtrlCreateInput("000", 80, 60, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label20 = GUICtrlCreateLabel("In Hours", 30, 87, 52, 17) GUICtrlSetFont(-1, 1, 800, 0, "MS Sans Serif") $S1_TarHours = GUICtrlCreateInput("000", 81, 82, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $S1_TarChk = GUICtrlCreateCheckbox("Enable", 27, 107, 65, 17) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group9 = GUICtrlCreateGroup("Randomization", 21, 234, 105, 81) $Label24 = GUICtrlCreateLabel("Target", 27, 252, 41, 17) $S1_RandTar = GUICtrlCreateInput("000", 79, 249, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label29 = GUICtrlCreateLabel("Hustle", 27, 277, 40, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S1_RandHus = GUICtrlCreateInput("000", 79, 272, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $S1_RandChk = GUICtrlCreateCheckbox("Enable", 25, 294, 65, 17) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group15 = GUICtrlCreateGroup("Setting Scheme 1", 138, 40, 121, 305) $S2_Chk = GUICtrlCreateCheckbox("Enable", 143, 327, 65, 17) GUICtrlSetCursor (-1, 0) $Group16 = GUICtrlCreateGroup("Hustle", 146, 134, 105, 105) $S2_HusChk = GUICtrlCreateCheckbox("Enable", 153, 218, 65, 17) GUICtrlSetCursor (-1, 0) $Label33 = GUICtrlCreateLabel("Limit", 156, 150, 30, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S2_HusLim = GUICtrlCreateInput("000", 198, 148, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label34 = GUICtrlCreateLabel("Before", 156, 175, 41, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S2_HusBef = GUICtrlCreateInput("000", 198, 172, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label60 = GUICtrlCreateLabel("Thres.", 156, 199, 40, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S2_HusThres = GUICtrlCreateInput("000", 198, 194, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group17 = GUICtrlCreateGroup("Target", 146, 53, 105, 81) $Label35 = GUICtrlCreateLabel("Today", 155, 68, 39, 17) $S2_TarToday = GUICtrlCreateInput("000", 205, 66, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label36 = GUICtrlCreateLabel("In Hours", 155, 93, 52, 17) GUICtrlSetFont(-1, 1, 800, 0, "MS Sans Serif") $S2_TarHours = GUICtrlCreateInput("000", 206, 88, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $S2_TarChk = GUICtrlCreateCheckbox("Enable", 152, 113, 65, 17) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group18 = GUICtrlCreateGroup("Randomization", 146, 240, 105, 81) $Label37 = GUICtrlCreateLabel("Target", 152, 258, 41, 17) $S2_RandTar = GUICtrlCreateInput("000", 204, 255, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label38 = GUICtrlCreateLabel("Hustle", 152, 283, 40, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S2_RandHus = GUICtrlCreateInput("000", 204, 278, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $S2_RandChk = GUICtrlCreateCheckbox("Enable", 150, 300, 65, 17) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group19 = GUICtrlCreateGroup("Setting Scheme 1", 264, 40, 121, 305) $Group20 = GUICtrlCreateGroup("Hustle", 272, 134, 105, 105) $S3_HusChk = GUICtrlCreateCheckbox("Enable", 279, 218, 65, 17) GUICtrlSetCursor (-1, 0) $Label39 = GUICtrlCreateLabel("Limit", 282, 150, 30, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S3_HusLim = GUICtrlCreateInput("000", 324, 148, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label40 = GUICtrlCreateLabel("Before", 282, 175, 41, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S3_HusBef = GUICtrlCreateInput("000", 324, 172, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label61 = GUICtrlCreateLabel("Thres.", 282, 199, 40, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S3_HusThres = GUICtrlCreateInput("000", 324, 194, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group21 = GUICtrlCreateGroup("Target", 272, 53, 105, 81) $Label41 = GUICtrlCreateLabel("Today", 281, 68, 39, 17) $S3_TarToday = GUICtrlCreateInput("000", 331, 66, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label42 = GUICtrlCreateLabel("In Hours", 281, 93, 52, 17) GUICtrlSetFont(-1, 1, 800, 0, "MS Sans Serif") $S3_TarHours = GUICtrlCreateInput("000", 332, 88, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $S3_TarChk = GUICtrlCreateCheckbox("Enable", 278, 113, 65, 17) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group22 = GUICtrlCreateGroup("Randomization", 272, 240, 105, 81) $Label43 = GUICtrlCreateLabel("Target", 278, 258, 41, 17) $S3_RandTar = GUICtrlCreateInput("000", 330, 255, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label44 = GUICtrlCreateLabel("Hustle", 278, 283, 40, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $S3_RandHus = GUICtrlCreateInput("000", 330, 278, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $S3_RandChk = GUICtrlCreateCheckbox("Enable", 276, 300, 65, 17) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $S3_Chk = GUICtrlCreateCheckbox("Enable", 269, 327, 65, 17) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Chk_SRand = GUICtrlCreateCheckbox("Enable Scheme Randomization", 14, 351, 193, 17) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlSetCursor (-1, 0) $Group23 = GUICtrlCreateGroup("Screenshots", 397, 31, 81, 108) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $ScrSht_FChk = GUICtrlCreateCheckbox("Fail", 402, 51, 41, 17) GUICtrlSetCursor (-1, 0) $ScrSht_SChk = GUICtrlCreateCheckbox("Success", 402, 74, 65, 17) GUICtrlSetCursor (-1, 0) $ScrSht_OpnFld = GUICtrlCreateButton("Open Folder", 401, 95, 73, 17) $ScrSht_DelAll = GUICtrlCreateButton("Delete All", 401, 115, 73, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group24 = GUICtrlCreateGroup("Log", 397, 140, 81, 65) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Log_OpnFld = GUICtrlCreateButton("Open Folder", 401, 154, 73, 17) $Log_DelAll = GUICtrlCreateButton("Delete All", 401, 180, 73, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group25 = GUICtrlCreateGroup("Coordinates", 397, 206, 81, 65) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label48 = GUICtrlCreateLabel("X +/-", 407, 228, 33, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $Label49 = GUICtrlCreateLabel("Y +/-", 407, 249, 33, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $Coord_x = GUICtrlCreateInput("00", 444, 221, 25, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Coord_y = GUICtrlCreateInput("00", 443, 242, 25, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Save_All = GUICtrlCreateButton("Save All", 203, 509, 83, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Group36 = GUICtrlCreateGroup("Calibration", 397, 273, 81, 97) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button5 = GUICtrlCreateButton("Delete All", 401, 333, 73, 17) $Button6 = GUICtrlCreateButton("Calibrate", 401, 302, 73, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group37 = GUICtrlCreateGroup("Initial Setup", 395, 371, 81, 57) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button8 = GUICtrlCreateButton("Start", 399, 400, 73, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group38 = GUICtrlCreateGroup("Settings Profile", 285, 428, 193, 41) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button7 = GUICtrlCreateButton("Save Current", 292, 446, 81, 17) $Button9 = GUICtrlCreateButton("Load New ", 387, 446, 81, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group39 = GUICtrlCreateGroup("Minimum Internet Speed", 285, 469, 193, 41) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label57 = GUICtrlCreateLabel("Google Ping", 292, 487, 73, 17) $G_Ping = GUICtrlCreateInput("", 426, 484, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$WS_BORDER)) GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet2 = GUICtrlCreateTabItem("Stats") GUICtrlSetState(-1,$GUI_SHOW) $Group4 = GUICtrlCreateGroup("Errors", 5, 397, 473, 57) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $pauses = GUICtrlCreateLabel("Video Auto Pause", 16, 413, 105, 17) $VAPE = GUICtrlCreateEdit("", 128, 408, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label2 = GUICtrlCreateLabel("Private Videos", 16, 432, 86, 17) $ChkZeroErrGUI = GUICtrlCreateEdit("", 278, 430, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label3 = GUICtrlCreateLabel("Restarts", 367, 432, 51, 17) $Rsrt = GUICtrlCreateEdit("", 430, 430, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label9 = GUICtrlCreateLabel("Check Zero", 199, 432, 70, 17) $PrivVideoGUI = GUICtrlCreateEdit("", 128, 430, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label10 = GUICtrlCreateLabel("Session Expired", 335, 408, 94, 17) $Session_Expired_Counter_GUI = GUICtrlCreateEdit("", 430, 408, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label11 = GUICtrlCreateLabel("Video Loading", 527, 388, 85, 17) $videoloaderr = GUICtrlCreateEdit("", 278, 408, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label21 = GUICtrlCreateLabel("", 16, 451, 4, 4) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Label13 = GUICtrlCreateLabel("VideoViewer", 203, 408, 74, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $basicstarts = GUICtrlCreateGroup("Time", 126, 30, 230, 145) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $RunTime = GUICtrlCreateLabel("Runtime", 132, 44, 50, 17) $Runtimefrm = GUICtrlCreateEdit("", 182, 42, 57, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00:00:00") GUICtrlSetCursor (-1, 2) $Group26 = GUICtrlCreateGroup("Cycles", 133, 61, 89, 105) $lstcycle = GUICtrlCreateEdit("", 137, 79, 81, 81, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL)) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group27 = GUICtrlCreateGroup("Avg.", 241, 38, 110, 57) $Group28 = GUICtrlCreateGroup("Neces", 297, 50, 49, 41) $Edit6 = GUICtrlCreateEdit("", 301, 63, 41, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00:00") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group29 = GUICtrlCreateGroup("Curr.", 245, 50, 49, 41) $Cycle_Avg = GUICtrlCreateEdit("", 249, 63, 41, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00:00") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("", -99, -99, 1, 1) $dwntime = GUICtrlCreateEdit("", 292, 147, 57, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $internetdwn = GUICtrlCreateLabel("Downtime", 230, 148, 59, 17) $Label56 = GUICtrlCreateLabel("Uptime", 230, 114, 43, 17) $UPtime = GUICtrlCreateEdit("", 292, 113, 57, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) $Mini = GUICtrlCreateGroup("Mini-Log", 5, 453, 473, 73) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Log2 = GUICtrlCreateEdit("", 9, 471, 465, 49, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL,$WS_BORDER)) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group5 = GUICtrlCreateGroup("Economics", 359, 30, 117, 145) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Label4 = GUICtrlCreateLabel("Total ", 364, 89, 37, 17) $Eco_Total = GUICtrlCreateEdit("", 410, 85, 38, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label5 = GUICtrlCreateLabel("Rate", 364, 57, 31, 17) $Eco_Rate = GUICtrlCreateEdit("", 409, 57, 38, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label16 = GUICtrlCreateLabel("Rs.", 451, 57, 23, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $Label17 = GUICtrlCreateLabel("Rs.", 451, 86, 23, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $Label54 = GUICtrlCreateLabel("Target", 364, 124, 41, 17) $Eco_Tar = GUICtrlCreateEdit("", 410, 121, 38, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label55 = GUICtrlCreateLabel("Rs.", 451, 125, 23, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group6 = GUICtrlCreateGroup("Target", 5, 173, 241, 105) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Group10 = GUICtrlCreateGroup("Hour", 15, 189, 110, 57) $Group30 = GUICtrlCreateGroup("Neces", 71, 201, 49, 41) $Tar_Hr_Nece = GUICtrlCreateEdit("", 83, 219, 25, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group31 = GUICtrlCreateGroup("Done", 19, 201, 49, 41) $Tar_Hr_Done = GUICtrlCreateEdit("", 31, 219, 25, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group11 = GUICtrlCreateGroup("Today", 130, 188, 110, 57) $Group32 = GUICtrlCreateGroup("Neces", 186, 200, 49, 41) $Tar_Today_Nece = GUICtrlCreateEdit("", 198, 218, 25, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group33 = GUICtrlCreateGroup("Done", 134, 200, 49, 41) $Tar_Today_Done = GUICtrlCreateEdit("", 146, 218, 25, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("", -99, -99, 1, 1) $Label1 = GUICtrlCreateLabel("Achieving Possible Today?", 13, 258, 157, 17) GUICtrlSetFont(-1, 7, 800, 0, "MS Sans Serif") $Tar_AchPos = GUICtrlCreateEdit("", 190, 254, 41, 17, BitOR($ES_CENTER,$ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "Yes") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group14 = GUICtrlCreateGroup("Views", 5, 29, 119, 145) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Label50 = GUICtrlCreateLabel("Successful", 10, 45, 66, 17) $Label51 = GUICtrlCreateLabel("Attempted", 10, 67, 61, 17) $S_View = GUICtrlCreateEdit("", 85, 44, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00") GUICtrlSetCursor (-1, 2) $A_View = GUICtrlCreateEdit("", 85, 61, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00") GUICtrlSetCursor (-1, 2) $Group12 = GUICtrlCreateGroup("S. Rate", 43, 116, 57, 49) $S_Rate = GUICtrlCreateEdit("", 48, 137, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) $Label15 = GUICtrlCreateLabel("%", 85, 137, 13, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $Label7 = GUICtrlCreateLabel("Hustled", 10, 85, 47, 17) $Edit12 = GUICtrlCreateEdit("", 85, 84, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "00") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group35 = GUICtrlCreateGroup("Randomization", 5, 278, 145, 120) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Label26 = GUICtrlCreateLabel("Target", 11, 296, 41, 17) $Rand_Tar = GUICtrlCreateInput("000", 111, 293, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$ES_READONLY,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label52 = GUICtrlCreateLabel("Hustle", 11, 329, 40, 17) GUICtrlSetFont(-1, 2, 800, 0, "MS Sans Serif") $Rand_Hus = GUICtrlCreateInput("000", 111, 324, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$ES_READONLY,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) $Label53 = GUICtrlCreateLabel("Setting Scheme", 11, 361, 93, 17) $Rand_Setting = GUICtrlCreateInput("000", 112, 355, 33, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LOWERCASE,$ES_READONLY,$WS_BORDER)) GUICtrlSetFont(-1, 5, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group40 = GUICtrlCreateGroup("Expiry", 249, 221, 229, 57) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Label58 = GUICtrlCreateLabel("Days left for License to Expire", 259, 244, 175, 17) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") $Expirydate_gui = GUICtrlCreateEdit("", 439, 244, 25, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group34 = GUICtrlCreateGroup("Expiry", 249, 175, 229, 47) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Label12 = GUICtrlCreateLabel("PushBullet Alerts Sent", 267, 198, 130, 17) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") $Psh_Sent = GUICtrlCreateEdit("", 431, 196, 33, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, "0") GUICtrlSetCursor (-1, 2) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group41 = GUICtrlCreateGroup("Coming Soon!", 154, 285, 325, 111) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Label62 = GUICtrlCreateLabel("Coming Soon! :)", 269, 344, 94, 17) GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet3 = GUICtrlCreateTabItem("About") $Credits = GUICtrlCreateLabel("Developer - Rohan Sawant", 173, 74, 157, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Contact = GUICtrlCreateLabel("Email- rohansawantct83@gmail.com", 148, 53, 207, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Label32 = GUICtrlCreateLabel("© 2016 Rohan Sawant All Rights Reserved", 78, 29, 347, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlCreateTabItem("") GUICtrlSetCursor (-1, 0) $Start = GUICtrlCreateButton("Start ", 0, 560, 97, 25, $BS_PUSHLIKE) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) GUICtrlSetCursor (-1, 0) $Label25 = GUICtrlCreateLabel("© 2016 Rohan Sawant All Rights Reserved", 234, 560, 249, 17) GUICtrlSetFont(-1, 7, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xC0C0C0) $Label27 = GUICtrlCreateLabel("Today", 384, 4, 49, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $TotalViews = GUICtrlCreateEdit("", 440, 4, 41, 17, BitOR($ES_NOHIDESEL,$ES_READONLY,$ES_WANTRETURN)) $N_Name = GUICtrlCreateEdit("", 280, 7, 73, 17, BitOR($ES_NOHIDESEL,$ES_READONLY,$ES_WANTRETURN)) $Edit1 = GUICtrlCreateEdit("", 104, 568, 65, 17, BitOR($ES_READONLY,$ES_WANTRETURN)) GUICtrlSetData(-1, ""&Chr(39)&"Esc"&Chr(39)&" to Stop") GUICtrlSetFont(-1, 2, 400, 0, "MS Sans Serif") $PrgBar1 = GUICtrlCreateProgress(0, 536, 489, 17) Dim $MainMenu_AccelTable[1][2] = [["{INS}", $Start]] GUISetAccelerators($MainMenu_AccelTable) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### I am a newbie to programming, so the only thing i can think of to solve this problem is write another script. and have it ...
      ShellExecute("Script1.exe") ProgressOn("Loading...") ProgressSet(50,"Loading....") WinWait("Script1.exe) ProgressOff() is this the right way? if not what is ?
      Please let me know if my GUI region code is really needed here.   
    • RyukShini
      By RyukShini
      #include <ColorConstants.au3>; Including required files #include <GUIConstantsEx.au3> #include <file.au3> #include <Array.au3> #include <string.au3> Example() Func Example() Local $hash Local $hashes = "hash.txt" _FileReadToArray($hashes, $hash) For $i = 1 To UBound($hash) - 500 $hashcheck = $hash[$i] $PDenc = "hash=" & $hashcheck & "&decrypt=Decrypt" $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") $oHTTP.Open("POST", "http://myurl/", False) ; Post url $oHTTP.SetRequestHeader("Host", "myurl") $oHTTP.SetRequestHeader("Connection", "keep-aliveContent-Length: 29") $oHTTP.SetRequestHeader("Cache-Control", "max-age=0") $oHTTP.SetRequestHeader("Origin", "http://myurl") $oHTTP.SetRequestHeader("Upgrade-Insecure-Requests", "1") $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.84 Safari/537.36") $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") $oHTTP.SetRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8") $oHTTP.SetRequestHeader("Referer", "http://myurl") $oHTTP.SetRequestHeader("Accept-Language", "en-US,en;q=0.8") $oHTTP.Send($PDenc) $oReceived = $oHTTP.ResponseText $oStatusCode = $oHTTP.Status sleep(2000) If $oStatusCode = 503 then MsgBox(4096, "Response code", $oStatusCode) ExitLoop EndIf ; Saves the body response regardless of the Response code $file = FileOpen("Received.html", 2) ; The value of 2 overwrites the file if it already exists FileWrite($file, $oReceived) $read = FileRead("Received.html") ;read file if StringInStr($read, "not found") Then ContinueLoop Else ContinueLoop $Datastring = ('</script></div><br/>') $newreadamount = _StringBetween($read, $Datastring, "</b><br/><br/>") ;read title from file $newreadamount[0] = StringReplace($newreadamount[0], '<b>', "") ; taking out the X makes it easier to compare value If @error Then ContinueLoop EndIf $file = FileOpen("decrypted.txt", 1) FileWrite($file, $newreadamount[0] & @CRLF) EndIf Next sleep(2000) EndFunc ;==>Example As you can read my script loads 500 lines of text, lets say I have a list with 10.000 lines
      Is there a way to show a progressbar GUI to show how long in a text file I am?
      I may not know how long a particular .txt file is always so I am thinking I need some sort of algorythm?
      Thanks in advance.
      ( I just got unclear if I actually read 500 lines each attempt or if I start with 500 and add 1 to it each time? )
       
      For $i = 1 To UBound($hash) - 500 ; LIke that ^ For $i = 500 To UBound($hash) - 500 ; or like this^ Thanks a lot.
    • alien4u
      By alien4u
      I was having some problems with Progressbar with  nested "FOR" Loop but I was using it unnecessarily so I end up with only one "FOR" Loop.

      Here I'm sharing with you two ways of solve the progressbar problem, this is not for advanced users, this is for reference and newbies like me.
      And about the progressbar using GUICtrlSetData() with one FOR Loop and variable cicles(for example cicles base of elements on Array with variable size) you can do it as fallow:
      Note: Does not matter if the Array size is 50 or 5000 the progressbar will work properly.
      $progress = GUICtrlCreateProgress() Local $count = UBound($Array) Local $imove = ((1 / $count) * 100) ; One is because you will SetData to Progress each 1 cicle. Local $itemp = 0 For $i = 0 To UBound($Array) - 1 ; Your Code could be here $itemp += $imove GUICtrlSetData($progress, $itemp) ; Or your code could be here. Next  
      Another way to do it and I think is more elegant or fancy is like this:
      $progress = GUICtrlCreateProgress() Local $itemp = 0 Local $count = 0 Local $intcount = Floor(Ubound($Array)/100) For $i = 0 To UBound($Array) - 1 ; Your Code could be here If Mod($i, $intcount) == 0 Then $count = $count+1 GUICtrlSetData($progress, $count) EndIf ; Or your code could be here. Next
      Kind Regards
      Alien.
       
×