#SingleInstance force
#NoTrayIcon
#NoEnv
Process,Exist,iexplore.exe
If ErrorLevel
{
 MsgBox,16,Typed URLs, 
 (LTrim
  Internet Explorer is running: PID %ErrorLevel%.
  Close all instances of Internet Explorer to use this program.
 )
 ExitApp
}
Loop,HKCU,Software\Microsoft\Internet Explorer\TypedURLs
 i++
If i=
{
 MsgBox,16,Typed URLs, Internet Explorer has no typed URLs stored.
 ExitApp
}
Gui,Font,s10
Loop,%i%
{
 RegRead, value, HKCU,Software\Microsoft\Internet Explorer\TypedURLs, url%A_Index%
 Gui, Add, Edit, xm y+ w40 Number Limit2
 Gui, Add, UpDown, Left Range1-25, %A_Index%
 Gui, Add, Edit, x+ yp w500, %value%
}
Gui, Add, Button, w70 xm y+1 gOK, OK
Gui, Add, Button, w70 x+10 yp gGuiClose, Cancel
Gui, Add, Button, w70 x+10 yp gClear, Clear All
Gui, Show,,Typed URLs
return
Clear:
Loop,%i%
 GuiControl,,% "Edit" A_Index*2
return
OK:
Loop,%i%
{
 GuiControlGet, url,,% "Edit" A_Index*2
 If url=
 {
  blank++
  RegDelete,HKCU,Software\Microsoft\Internet Explorer\TypedURLs,% "url" i+1-blank
  continue
 }
 GuiControlGet, num,,% "Edit" A_Index*2-1
 If (num < 1) OR (num > 25)
  num := A_Index
 var .= num A_Space url "`n"
}
If blank = %i%
 GoTo, Msg
Sort, var, N
Loop, Parse, var, `n,`r
{
 If A_LoopField=
  break
 StringTrimLeft, trim, A_LoopField, 2
 StringReplace, trim, trim, %A_Space%
 RegWrite, REG_SZ, HKCU, Software\Microsoft\Internet Explorer\TypedURLs, url%A_Index%, %trim%
}
Msg:
Gui, +OwnDialogs
MsgBox,64,Typed URLs, Changes saved.`nRun Internet Explorer to see the changes.
GuiClose:
ExitApp