I have this script code created by the member GEV:
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
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
Any idea how to solve this code, please?> 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\myuser\Desktop\test.ahk
> 003: SetWorkingDir,%A_ScriptDir%
> 005: WinTitle := "Edit Model ‹ Agency — WordPress - Google Chrome:"
> 007: Keys := ["#","1","2","3","4","5","6","7","8","9","0"]
> 008: For each,key in Keys
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On (0.03)
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 009: Hotkey,!+%key%,Create_LV_Key,On
> 011: Loop,26
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 012: Hotkey,"!+" Chr(A_Index + 64),Create_LV_Key,On
> 013: Return (1.25)
>
> Press [F5] to refresh.
If I close the window manually, it appears again. I can't make the script run.
Initial / Related topic: https://autohotkey.com/boards/viewtopic.php?f=5&t=52385
Thank you in advance!