Code: Select all
Gui, 1: New
Gui, 1: Add, Edit, vLink
Gui, 1: Add, Button, gSearch, Search
Gui, 1: show
Search:
GuiControlGet, Link,,1
Run, Brave.exe "https://www.quran.com/%Link%?font=indopak"
Return
Code: Select all
Gui, 1: New
Gui, 1: Add, Edit, vLink
Gui, 1: Add, Button, gSearch, Search
Gui, 1: show
Search:
GuiControlGet, Link,,1
Run, Brave.exe "https://www.quran.com/%Link%?font=indopak"
Return
Code: Select all
Gui, Font, s10
Gui, Add, Text,, Enter a search term (press F3 to show this dialog again):
Gui, Add, Edit, w350 vlink gCheck
Gui, Add, Button, Default, Search
Gosub, F3
F3::
Gosub, Check
Gui, Show,, Search
Return
Check:
Gui, Submit, NoHide
GuiControl, % link > "" ? "Enable" : "Disable", Search
Return
ButtonSearch:
Gui, Submit
url := "https://www.quran.com/" fix(link) "?font=indopak"
MsgBox, 64, URL for %link%, %url%
Run, %url%
Return
GuiEscape:
Gui, Hide
Return
fix(url) {
RegExMatch(url, "^(https?://)?(.+?)(/)?$", part)
Loop, Parse, part2
text .= A_LoopField ~= "[$&+,/:;=?@""<>#`%{}|\\^~[\] `]" ? Format("%{:X}", Asc(A_LoopField)) : A_LoopField
Return part1 text part3
}
Code: Select all
Gui, 1: New
Gui, 1: Add, Edit, vLink
Gui, 1: Add, Button, gSearch, Search
Gui, 1: show
Return
Search:
;GuiControlGet, Link,,1
Gui, 1: Submit
Run, Brave.exe "https://www.quran.com/%Link%?font=indopak"
Return