CT83

How to add Watermark or ProgressBar GUI takes too long to load

5 posts in this topic

#1 ·  Posted (edited)

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.  o:)

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. :)  

Edited by CT83

Share this post


Link to post
Share on other sites



I use a splash screen in my script.

Hopefully, this is will work with you're trying to do:

#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Global $g_sAppFullTitle = "My App"
Global $hSplash
Global $hProgressSplash = _Splash("Loading...")
Sleep(1000)

GUICtrlSetData($hProgressSplash, "Step 1...")
; Do Something

Sleep(1000)
GUICtrlSetData($hProgressSplash, "Step 2...")
; Do Something

Sleep(1000)
GUICtrlSetData($hProgressSplash, "Step 3...")
; Do Something

Sleep(1000)

; All Done
GUIDelete($hSplash)
Exit



Func _Splash($sText)
    Local $iProgressBar, $iMsg

    SplashOff()
    $hSplash = GUICreate("", 500, 150, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE, $WS_EX_TOOLWINDOW))
    GUISetBkColor(0x00007F, $hSplash)

    GUICtrlCreateLabel($g_sAppFullTitle, 0, 10, 500, 100, $SS_CENTER)
    GUICtrlSetFont(-1, 16, 700, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFFFF)

    $iProgressBar = GUICtrlCreateProgress(100, 75, 300, 15, $PBS_MARQUEE)
    GUICtrlSendMsg($iProgressBar, $PBM_SETMARQUEE, 1, 25)

    $iMsg = GUICtrlCreateLabel($sText, 0, 125, 500, -1, $SS_CENTER)
    GUICtrlSetFont($iMsg, 8, 700, 0, "Arial")
    GUICtrlSetColor($iMsg, 0xFFFFFF)

    GUISetState(@SW_SHOW)

    Return SetExtended($iProgressBar, $iMsg)

EndFunc

 

Share this post


Link to post
Share on other sites

CT83,

Post your code for better help, otherwise we are just guessing.

kylomas


Forum Rules         Procedure for posting code

Share this post


Link to post
Share on other sites
3 hours ago, kylomas said:

CT83,

Post your code for better help, otherwise we are just guessing.

kylomas

added :)

Share this post


Link to post
Share on other sites
8 hours ago, Surf243 said:

I use a splash screen in my script.

Hopefully, this is will work with you're trying to do:

#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Global $g_sAppFullTitle = "My App"
Global $hSplash
Global $hProgressSplash = _Splash("Loading...")
Sleep(1000)

GUICtrlSetData($hProgressSplash, "Step 1...")
; Do Something

Sleep(1000)
GUICtrlSetData($hProgressSplash, "Step 2...")
; Do Something

Sleep(1000)
GUICtrlSetData($hProgressSplash, "Step 3...")
; Do Something

Sleep(1000)

; All Done
GUIDelete($hSplash)
Exit



Func _Splash($sText)
    Local $iProgressBar, $iMsg

    SplashOff()
    $hSplash = GUICreate("", 500, 150, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE, $WS_EX_TOOLWINDOW))
    GUISetBkColor(0x00007F, $hSplash)

    GUICtrlCreateLabel($g_sAppFullTitle, 0, 10, 500, 100, $SS_CENTER)
    GUICtrlSetFont(-1, 16, 700, 0, "Arial")
    GUICtrlSetColor(-1, 0xFFFFFF)

    $iProgressBar = GUICtrlCreateProgress(100, 75, 300, 15, $PBS_MARQUEE)
    GUICtrlSendMsg($iProgressBar, $PBM_SETMARQUEE, 1, 25)

    $iMsg = GUICtrlCreateLabel($sText, 0, 125, 500, -1, $SS_CENTER)
    GUICtrlSetFont($iMsg, 8, 700, 0, "Arial")
    GUICtrlSetColor($iMsg, 0xFFFFFF)

    GUISetState(@SW_SHOW)

    Return SetExtended($iProgressBar, $iMsg)

EndFunc

 

Exactly what i needed! :) Just needed to Delete that "Exit" :D at the end, lol it exited after loading 

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

  • Similar Content

    • RyukShini
      Progress bar to show how long you are in a txt file
      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
      (SOLVED)ProgressBar problem with Nested For
      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.
       
    • wakillon
      TinyPicSharer
      By wakillon
      Capture Picture or window with Mouse Drag and upload it to 10 differents pic hosters.
       
      Or drop an Image on the little Frog for upload it directly !
       
      for more details see :
       
    • Rhazz
      How to configure a GUI Progress Bar by a double "for" loop
      By Rhazz
      Hello again, my second post in 24 hs!
      It's my first GUI... and my first progress bar also! Sorry if I make a newbie mistake.
      I want to configure a GUI Progress Bar by a double "for" loop.
      Here is my code with a specific annotation with what I want to do:
      Edit: new problem, I have no idea how can I continue with the next $a as if the current $a, I do not skip it because the line is an element less (I need help with both problems):
      #include <GUIConstantsEx.au3> #include <EditConstants.au3> #include <WinAPI.au3> #include <File.au3> #include <String.au3> #include <Array.au3> Local $idGUI = GUICreate("ProgressBar", 220, 130, 100, 200) Opt("GUIOnEventMode", 1) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton") Local $idInput = GUICtrlCreateInput("",80,20,60,20,$ES_NUMBER) Local $idProgressBar = GUICtrlCreateProgress(10, 60, 200, 20) Local $idButton1 = GUICtrlCreateButton("Start",85,100,50) GUICtrlSetOnEvent($idButton1, "StartProgressBar") Local $aFileOpen = _WinAPI_GetOpenFileName("Open a text file", "Text Files (*.txt)") Local $idCountLines = _FileCountLines($aFileOpen[2]) Local $idInputValue, $idSomething, $aFileResult, $idStringBetween GUISetState(@SW_SHOW, $idGUI) While 1 Sleep(20000) WEnd Func StartProgressBar() If StringInStr($aFileOpen[2], ".txt") = True Then $idInputValue = Int(GUICtrlRead($idInput)) If IsFloat($idCountLines/$idInputValue) = 1 Then $idStringBetween = _StringBetween(String($idCountLines/$idInputValue),"", ".") $idSomething = Number($idStringBetween[0]) + 1 Else $idSomething = $idCountLines/$idInputValue EndIf For $i = 1 To $idSomething $aFileResult = @ScriptDir & "\result-" & $i & ".txt" _FileCreate($aFileResult) FileOpen($aFileResult,2) For $a = ( ( ( $i - 1 ) * $idInputValue ) + 1 ) To ( $i * $idInputValue ) If FileReadLine($aFileOpen[2], $a) = "" Then ; Here I have no idea how can I continue with the next $a as if the current $a, I do not skip it because the line is an element less EndIf FileWrite($aFileResult,FileReadLine($aFileOpen[2], $a) & " - ") ;Here I want to set the progress bar value = current percentage (line that it is currently reading) of the 100% (total of lines in the file opened) Next FileClose($aFileResult) Next MsgBox(0,"Done","Done") GUICtrlSetData($idProgressBar,0) Else MsgBox(0,"Hello :)","Please open a file :D") EndIf EndFunc Func CLOSEButton() Exit EndFunc  
      Thanks in advance.
       
    • TheDcoder
      How to prevent a label hiding behind a progress bar when updating it
      By TheDcoder
      Hello ,
      I am using this code to make a nice progress bar which also tells what is going on:
      #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= GUICreate("GUI", 294, 69, 192, 124) $idProgressBar = GUICtrlCreateProgress(8, 24, 278, 17) $idLabel = GUICtrlCreateLabel("0", 8, 24, 276, 17, $SS_CENTER) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### For $i = 0 To 10 GUICtrlSetData($idProgressBar, CalcPercent($i, 10)) GUICtrlSetData($idLabel, $i) Sleep(1000) Next While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func CalcPercent($iPartDone, $iTotal, $iRoundToDecimalPlace = 1) Return Round(($iPartDone / $iTotal) * 100, $iRoundToDecimalPlace) EndFunc But the label hides behind the progress bar when I update it , How can I prevent this?
       
      Thanks in Advance, TD