And same AutoHotkey version
I have restarted my computer but got same errors again when I run the script.
Please don't give up yet, I know you can do it
![Smile :)](./images/smilies/icon_e_smile.gif)
Code: Select all
ListLines ; displays the script lines most recently executed
Code: Select all
ListLines off
WinHide %A_ScriptFullPath% - AutoHotkey v%A_AhkVersion%
Code: Select all
#NoEnv
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
WinTitle := "Edit Model ‹ Agency — WordPress - Google Chrome:"
Keys := ["#","1","2","3","4","5","6","7","8","9","0"]
for each, key in Keys
Hotkey, !+%key%, Create_LV_Key, On
Loop, 26
Hotkey, % "!+" Chr(A_Index + 64), Create_LV_Key, On
ListLines off
WinHide %A_ScriptFullPath% - AutoHotkey v%A_AhkVersion%
return
Create_LV_Key:
key := SubStr(A_ThisHotkey, 0)
Gui, destroy
Index := ""
text := ""
Loop, Read, linkslist.txt
{
If ((StrLen(A_LoopReadLine) = 1) && (A_LoopReadLine == key))
{
Index := A_Index
break
}
}
Loop, Read, linkslist.txt
{
If (A_Index <= Index)
continue
If (A_LoopReadLine = "")
continue
If (StrLen(A_LoopReadLine) = 1) && (A_Index > Index)
break
text .= A_LoopReadLine "`r`n"
}
Gui, Add, ListView, r10 w400 gMyListView, domain|URL|notes
Loop, parse, text, `r`n
{
If (A_LoopField = "")
continue
If !InStr(A_LoopField, "://")
continue
If (SubStr(A_LoopField, 1, 2) = "- ")
{
domain := "- " . StrSplit(A_LoopField," ").2
URL := StrSplit(A_LoopField," ").3
}
else
{
domain := StrSplit(A_LoopField," ").1
URL := StrSplit(A_LoopField," ").2
}
If InStr(A_LoopField, "(")
{
note := "(" . StrSplit(A_LoopField,"(").2
LV_Add("", domain, URL, note)
}
else
LV_Add("", domain, URL)
}
LV_ModifyCol() ; auto-size each column to fit its contents.
Gui, Add, Button, Default, Send
Gui, Show,, Send domain+URL %key%
return
MyListView:
If (A_GuiEvent = "DoubleClick")
{
LV_GetText(domain, A_EventInfo, 1)
If SubStr(domain, 1, 2) = "- "
domain := SubStr(domain, 3)
else
domain := domain
LV_GetText(URL, A_EventInfo, 2)
; MsgBox, domain = "%domain%"`nURL = "%URL%"
WinActivate, %WinTitle%
WinWaitActive, %WinTitle%
SendInput, %domain%%A_Tab%%URL%
}
return
; https://autohotkey.com/docs/commands/ListView.htm#LV_GetNext
ButtonSend:
RowNumber = 0
Loop
{
RowNumber := LV_GetNext(RowNumber)
If (!RowNumber )
Break
LV_GetText(domain, RowNumber, 1)
If SubStr(domain, 1, 2) = "- "
domain := SubStr(domain, 3)
else
domain := domain
LV_GetText(URL, RowNumber, 2)
; MsgBox, domain = "%domain%"`nURL = "%URL%"
WinActivate, %WinTitle%
WinWaitActive, %WinTitle%
SendInput, %domain%%A_Tab%%URL%
}
Return
Esc::
GuiClose:
ExitApp
Code: Select all
ListLines off
#NoEnv
(...)
Script lines most recently executed (oldest first). Press [F5] to refresh. The seconds elapsed between a line and the one after it is in parentheses to the right (if not 0). The bottommost line's elapsed time is the number of seconds since it executed.
Press [F5] to refresh.
Code: Select all
#NoEnv
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
ListLines off
WinTitle := "Edit Model ‹ Agency — WordPress - Google Chrome:"
Keys := ["a","b","c","d"] ; ...
for each, key in Keys
Hotkey, !+%key%, Create_LV_Key, On
return
Code: Select all
#NoEnv
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
ListLines off
WinTitle := "Edit Model ‹ Agency — WordPress - Google Chrome:"
!+a::
!+b::
!+c::
!+d::
; ...
GoSub, Create_LV_Key
return
2nd option:Script lines most recently executed (oldest first). Press [F5] to refresh. The seconds elapsed between a line and the one after it is in parentheses to the right (if not 0). The bottommost line's elapsed time is the number of seconds since it executed.
---- C:\Users\bestl\Desktop\test.ahk
003: SetWorkingDir,%A_ScriptDir% (1.89)
Press [F5] to refresh.
I'm without luckScript lines most recently executed (oldest first). Press [F5] to refresh. The seconds elapsed between a line and the one after it is in parentheses to the right (if not 0). The bottommost line's elapsed time is the number of seconds since it executed.
---- C:\Users\bestl\Desktop\test.ahk
003: SetWorkingDir,%A_ScriptDir% (1.31)
Press [F5] to refresh.
TryDivvy wrote: Isn't there any other solution? The drop-down is not possible in GUI?
Code: Select all
#NoEnv
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
WinTitle := "Edit Model ‹ Agency — WordPress - Google Chrome:"
Keys := ["#","1","2","3","4","5","6","7","8","9","0"]
for each, key in Keys
DDL_key .= key "|"
Loop, 26
DDL_key .= Chr(A_Index + 64) "|"
DDL_key := SubStr(DDL_key, 1, -1)
Gui, 1: +ToolWindow +AlwaysOnTop
Gui, 1: Add, DropDownList, gCreate_LV_Key vkey Choose1,%DDL_key%
Gui, 1: Show, x0 y0, domains
return
Create_LV_Key:
Gui, 1: Submit, NoHide
GuiControlGet, key
Gui, 2: destroy
Index := ""
text := ""
Loop, Read, linkslist.txt
{
If ((StrLen(A_LoopReadLine) = 1) && (A_LoopReadLine == key))
{
Index := A_Index
break
}
}
Loop, Read, linkslist.txt
{
If (A_Index <= Index)
continue
If (A_LoopReadLine = "")
continue
If (StrLen(A_LoopReadLine) = 1) && (A_Index > Index)
break
text .= A_LoopReadLine "`r`n"
}
Gui, 2: Add, ListView, vLV r10 w400 gMyListView, domain|URL|notes
Gui, 2: default
Loop, parse, text, `r`n
{
If (A_LoopField = "")
continue
If !InStr(A_LoopField, "://")
continue
If (SubStr(A_LoopField, 1, 2) = "- ")
{
domain := "- " . StrSplit(A_LoopField," ").2
URL := StrSplit(A_LoopField," ").3
}
else
{
domain := StrSplit(A_LoopField," ").1
URL := StrSplit(A_LoopField," ").2
}
If InStr(A_LoopField, "(")
{
note := "(" . StrSplit(A_LoopField,"(").2
Gui, 2: ListView
LV_Add("", domain, URL, note)
}
else
{
Gui, 2: ListView
LV_Add("", domain, URL)
}
}
LV_ModifyCol() ; auto-size each column to fit its contents.
Gui, 2: Add, Button, Default, Send
Gui, 2: Show,, Send domain+URL %key%
return
MyListView:
If (A_GuiEvent = "DoubleClick")
{
LV_GetText(domain, A_EventInfo, 1)
If SubStr(domain, 1, 2) = "- "
domain := SubStr(domain, 3)
else
domain := domain
LV_GetText(URL, A_EventInfo, 2)
; MsgBox, domain = "%domain%"`nURL = "%URL%"
WinActivate, %WinTitle%
WinWaitActive, %WinTitle%
SendInput, %domain%%A_Tab%%URL%
}
return
; https://autohotkey.com/docs/commands/ListView.htm#LV_GetNext
ButtonSend:
RowNumber = 0
Loop
{
RowNumber := LV_GetNext(RowNumber)
If (!RowNumber )
Break
LV_GetText(domain, RowNumber, 1)
If SubStr(domain, 1, 2) = "- "
domain := SubStr(domain, 3)
else
domain := domain
LV_GetText(URL, RowNumber, 2)
MsgBox, domain = "%domain%"`nURL = "%URL%"
WinActivate, %WinTitle%
WinWaitActive, %WinTitle%
SendInput, %domain%%A_Tab%%URL%
}
Return
Esc::
GuiClose:
ExitApp
Code: Select all
Keys := ["#","1","2","3","4","5","6","7","8","9","0"]
Code: Select all
Keys := ["#"]
Thank you for your time and for trying to help me, mate!wolf_II wrote:May there be a mistaken ListLines for error?
I made also an attempt in the new thread.
Glad you like it, but unfortunately it doesn't quite work perfectly. You can't send the selected item by clicking on the default button Send or by pressing Enter.Divvy wrote:that option with drop-down menu is much better
If you list the numbers like the other letters (A,B...) in linkslist.txt, they are not shown in the #-domain.Divvy wrote:when I select #, is showing the domains starting with numbers too. Is that ok?
Is not a problem for me, double-click is working fine and is faster this way.GEV wrote:Glad you like it, but unfortunately it doesn't quite work perfectly. You can't send the selected item by clicking on the default button Send or by pressing Enter.
Maybe someone can fix it.
No, I use # for numbers (0-9). So is working fine for me.GEV wrote:when I select #, is showing the domains starting with numbers too. Is that ok?
If you list the numbers like the other letters (A,B...) in linkslist.txt, they are not shown in the #-domain.
You're probably right, but unfortunately, that solution didn't work for me because I couldn't open the GUI.GEV wrote:If you ask me, I like the shortcuts solution much better. Using a shortcut is much faster than manually mousing over a menu and clicking an item after searching for it and your attention isn't attracted away from the main window or task.
Users browsing this forum: Bing [Bot] and 250 guests