Code: Select all
SplitPath,a_scriptname, name, dir, ext, name_no_ext, drive
F1=%a_scriptdir%\%name_no_ext%.ini
I=15 ;- total checkboxes
Gui,2: Color, ControlColor, Black
Gui,2: Font, CDefault, Lucida Console
Loop,%i%
{
IniRead, Ch%A_Index%, %f1%, ss, Cb%A_Index% , 0
If (Ch%A_Index% = 1)
Cb%A_Index% = Checked
Else
Cb%A_Index% =
}
Gui,2: Show, x100 y5 w300 h600, ;%name_no_ext%
Gui,2: Add, Edit, x20 y5 w265 h20 cWhite vSearch,%src%
Gui,2: Add, CheckBox, x20 y295 vCh10 %cb10% cYellow, Delcampe
; Gui,2: Add, CheckBox, x20 y385 vCh97 cb
; Gui,2: Add, CheckBox, x20 y405 vCh98 gCheckAll cYellow, Select All
Gui,2: Add, CheckBox, x20 y495 vCh99 vBCB gToggle cYellow, Straine
Gui,2: Add, Button, x10 y515 w100 h26 gAA ,Start
; Gui,2: Add, Button, x150 y420 w100 h26 gAA ,Clear
GuiControl,2:Focus,search
return
Toggle:
Gui,2:Submit,NoHide
if(A_GuiControl="TCB")
Loop 9
GuiControl,2:,Button%A_Index%,% TCB
else
Loop 6
GuiControl,2:,% "Button" A_Index+9,% BCB
return
; CheckAll:
;Loop, %i%
; GuiControl,2:, Ch%A_Index%, 1
; GuiControl,2:, Ch99, 0
; Return
; UnCheckAll:
; Loop, %i%
; GuiControl,2:, Ch%A_Index%, 0
; GuiControl,2:, Ch98, 0
; Return
AA:
Gui,2: submit, nohide
search_spatiu=%search%
StringReplace,Search, Search, %A_space%, +, All
search=%search%
{
StringReplace,search_plus,search,%A_space%, +, All
}
FormatTime, time, A_Now, dd.MM.yyyy H:mm
FileAppend, %time% | %search_spatiu% `n, history.txt
if Ch10
run,https://www.delcampe.net/en_US/collectibles/search?term=%search_plus%&excluded_terms=&country=NET&is_searchable_in_translations=0&is_searchable_in_descriptions=0&search_mode=all&show_type=all&display_ongoing=ongoing&started_days=&ended_hours=&all-payment-methods=on&min_price=&max_price=&order=price_desc&seller_localisation=world&blacklisted_sellers_included=0
return
time:
2GuiClose:
Gui,2: Submit
Loop,%i%
{
e= % ch%a_index%
IniWrite, %e%, %f1%, ss, Cb%a_index%
}
ExitApp
;===========================================================================