Jump to content
Sign in to follow this  
tes5884

Progressbar not updating properly

Recommended Posts

tes5884

Hi Guys,

I made a script that runs a loop through an excel sheet, extracts info, fills in a web page, submits. Then it extracts the results and puts it back into the spreadsheet.

I tried adding a progress bar, and it seems to update only through 100.

Meaning, if I input 5 rows, it will only show ~5% of the progress bar. If I do 300 rows, it fills the bar and continues working.

Seems like I didn't give GUICtrlSetData the right parameters.

Any suggestions is greatly appreciated.

#Obfuscator_Parameters=/mergeonly
#include <Excel.au3>
#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ProgressConstants.au3>

$Form1 = GUICreate("TaxCodes", 316, 200, -1, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel("Tax Code Retriever", 16, 16, 283, 20)
GUICtrlSetFont(-1, 12, 800, 4, "MingLiU")
$file = GUICtrlCreateInput("", 16, 56, 225, 21)
$Input2 = GUICtrlCreateInput("", 16, 107, 49, 21)
$Label2 = GUICtrlCreateLabel("Source file", 16, 39, 54, 17)
$Label3 = GUICtrlCreateLabel("Amount of rows", 17, 88, 77, 17)
$Button1 = GUICtrlCreateButton("Browse", 256, 56, 49, 25)
$Button2 = GUICtrlCreateButton("Process", 113, 105, 89, 25)
$prgrs = GUICtrlCreateProgress(20, 138, 275, 20, $PBS_SMOOTH)
$Label4 = GUICtrlCreateLabel("Tzvi Spitz - v1 - July '12", 100, 178, 115, 17)
GUICtrlSetFont(-1, 5, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
   ;Browse to select excel sheet
  Case $Button1
   $sfile = FileOpenDialog("Select enrollment file..", @WindowsDir & "\", "Excel File (*.csv;*.xlsx)", 1 + 4)
   GUICtrlSetData($file, $sfile)

  Case $Button2
   FileCopy($sfile, $sfile & ".bak", 1)
   $oIE = _IECreate(0, 0, 0)
   If $sfile = "" Then
    MsgBox(0, "", "Error!" & @CRLF & "You need to input the proper info!")
    Exit
   Else
    ;open sheet read info to vars
    Local $oExcel = _ExcelBookOpen($sfile, 0)
    For $row = 2 To GUICtrlRead($Input2)
     GUICtrlSetData($prgrs, $row)
     Local $strt = _ExcelReadCell($oExcel, $row, 3)
     Local $zip = _ExcelReadCell($oExcel, $row, 6)
     Local $type = _ExcelReadCell($oExcel, $row, 16)
     ;Open IE instance, get elements
     _IENavigate($oIE, "http://www8.tax.ny.gov/UTLR/utlrHome")
     $o_form = _IEFormGetObjByName($oIE, "UTLRForm")
     $o_addr = _IEFormElementGetObjByName($o_form, "UTLR_STREETADDRESS_KEY")
     $o_zip = _IEFormElementGetObjByName($o_form, "UTLR_ZIPCODE_KEY")
     $o_type = _IEFormElementGetObjByName($o_form, "UTLR_SERVICETYPE_KEY")

     ; Set IE field values and submit the form
     _IEFormElementSetValue($o_addr, $strt)
     _IEFormElementSetValue($o_zip, $zip)
     If $type = "Commercial" Then
      _IEFormElementSetValue($o_type, "Commercial energy services")
     Else
      _IEFormElementSetValue($o_type, "Residential energy services")
     EndIf
     _IEFormSubmit($o_form)
     _IELoadWait($oIE)
     ;if not successfull
     If StringRegExp(_IEBodyReadText($oIE), 'No matches were found for the address you entered.') Then
      _ExcelWriteCell($oExcel, "ERROR", $row, 23)
     Else ;if succesfull write output to excel
      $aJurisdictionCodes = StringRegExp(_IEBodyReadText($oIE), 'Jurisdiction code:(.*)', 1)
      _ExcelWriteArray($oExcel, $row, 23, $aJurisdictionCodes, 1, 0)
      $o_form2 = _IEFormGetObjByName($oIE, "utlrHome")
      _IEFormSubmit($o_form2)
     EndIf
    Next
    _ExcelBookSave($oExcel)
    _ExcelBookClose($oExcel)
    _IEQuit($oIE)
   EndIf
   MsgBox(0, "yawn", "All done here, G'nite!")
   Exit
EndSwitch
WEnd

Share this post


Link to post
Share on other sites
BrewManNH

You need to use a percentage and not an absolute value. Try this change

Local $Percent = ($row / GUICtrlRead($Input2)) * 100 ; add this line
     GUICtrlSetData($prgrs, $Percent) ; change this line
  • Like 1

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
tes5884

You need to use a percentage and not an absolute value. Try this change

Local $Percent = ($row / GUICtrlRead($Input2)) * 100 ; add this line
     GUICtrlSetData($prgrs, $Percent) ; change this line

Thanks BrewManNH that fixed it!

By now you probably know my project better then myself :):ILA3::guitar:

Share this post


Link to post
Share on other sites
Zedna

This is antiflicker optimization important especially when there are many rows (loops)

In such case there should be done updating of progressbar only when percent (round to 0) is changed:

Global $Percent, $Percent_prev
...

                 $Percent = Round(($row / GUICtrlRead($Input2)) * 100, 0)
                    If $Percent <> $Percent_prev Then
                        GUICtrlSetData($prgrs, $Percent)
                        $Percent_prev = $Percent
                    EndIf

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.
       
×