Post by Helmut2 » 17 Jul 2023, 12:50
Hallo zusammen,
im Jahre 2013 hatte ich ein Script für Autohotkey v1, mit Hilfe von Mitgliedern aus dem alten Forum und vielem Ausprobieren hinbekommen.
Damals hatte ich noch Windows7.
Nun habe ich gedacht, nachdem die Version V2.04 herausgekommen ist und zu meinem 10 jährigen Scriptjubiläum, einfach mal umsatteln auf die neue Version v2.
Ist leider nicht so einfach, wie gedacht.
Dann habe ich es mit dem Scriptconverter probiert der hier auch im Forum genannt wurde:
AHK-v2-script-converter-master
Das funktioniert leider auch nicht.
Beispiele für Version 2 die ähnlich sind, habe ich auch nicht gefunden.
Wäre es möglich mir auf die Sprünge zu helfen und dieses Grundgerüst auf der Version 2.04 zum Laufen zu bringen.
Das Script läuft, mit der alten Version v1 auf Windows 10, es gibt also keine Not, aber die Version v2 würde ich damit trotzdem gerne zum Laufen bringen.
hier noch mal das Script:
SpoilerCode: Select all
window1 = no
window2 = no
return
f7:: ;Hotkeytaste F7
If window1 = yes
{
gui 8:default
guiControlGet, EigeneListBox
if EigeneListBox = text5
send {home}
else
send {Down}
return
}
Else
{
IfWinExist, Fenstername2
WinKill ; verwendet das oben gefundene Fenster mit dem Namen Fenstername2
window1 = yes
Gui, 8:Add, ListBox, vEigeneListBox gEigeneListBox h100 r7 w180 choose1, Text1|Text2|Text3|Text4|Text5
Gui, 8:Add, Button, Default, input
Gui, 8:Show, , Fenstername1
return
8GuiEscape: ;schließt die Listbox mit Escape durch Gui , Destroy
8GuiClose:
window1 = on
Gui , 8:Destroy
return
}
EigeneListBox:
if A_GuiControlEvent <> DoubleClick
return
8ButtonInput:
window1 = no
guiControlGet, EigeneListBox
Gui , Destroy ;schließe das Auswahlfenster
gosub %EigeneListBox% ;gehe zum ausgewählten Label:
return
Text1:
msgbox Text1 gewählt
return
Text2:
msgbox Text2 gewählt
return
Text3:
msgbox Text3 gewählt
return
Text4:
msgbox Text4 gewählt
return
Text5:
msgbox Text5 gewählt
return
window1 = no
return
f8:: ;Hotkeytaste F7
If window2 = yes
{
gui 9:default
guiControlGet, EigeneListBox2
if EigeneListBox2 = text10
send {home}
else
send {Down}
return
}
Else
{
IfWinExist, Fenstername1
WinKill ; verwendet das oben gefundene Fenster mit dem Namen Fenstername2
window2 = yes
Gui, 9:Add, ListBox, vEigeneListBox2 gEigeneListBox2 h100 r7 w180 choose1, Text6|Text7|Text8|Text9|Text10
Gui, 9:Add, Button, Default, input
Gui, 9:Show, , Fenstername2
return
9GuiEscape: ;schließt die Listbox mit Escape durch Gui , Destroy
9GuiClose:
window2 = on
Gui , 9:Destroy
return
}
EigeneListBox2:
if A_GuiControlEvent <> DoubleClick
return
9ButtonInput:
window2 = no
guiControlGet, EigeneListBox2
Gui , Destroy ;schließe das Auswahlfenster
gosub %EigeneListBox2% ;gehe zum ausgewählten Label:
return
Text6:
msgbox Text6 gewählt
return
Text7:
msgbox Text7 gewählt
return
Text8:
msgbox Text8 gewählt
return
Text9:
msgbox Text9 gewählt
return
Text10:
msgbox Text10 gewählt
return
und hier der Link zum alten Forum:
https://www.autohotkey.com/board/topic/97706-aus-2-mach-1-listbox-mit-hotkey-weiterbl%C3%A4ttern/
Für eine Hilfe und die Mühe im Voraus vielen Dank
Gruß
Helmut
Hallo zusammen,
im Jahre 2013 hatte ich ein Script für Autohotkey v1, mit Hilfe von Mitgliedern aus dem alten Forum und vielem Ausprobieren hinbekommen.
Damals hatte ich noch Windows7.
Nun habe ich gedacht, nachdem die Version V2.04 herausgekommen ist und zu meinem 10 jährigen Scriptjubiläum, einfach mal umsatteln auf die neue Version v2.
Ist leider nicht so einfach, wie gedacht.
Dann habe ich es mit dem Scriptconverter probiert der hier auch im Forum genannt wurde:
AHK-v2-script-converter-master
Das funktioniert leider auch nicht.
Beispiele für Version 2 die ähnlich sind, habe ich auch nicht gefunden.
Wäre es möglich mir auf die Sprünge zu helfen und dieses Grundgerüst auf der Version 2.04 zum Laufen zu bringen.
Das Script läuft, mit der alten Version v1 auf Windows 10, es gibt also keine Not, aber die Version v2 würde ich damit trotzdem gerne zum Laufen bringen.
hier noch mal das Script:
[spoiler][code]
window1 = no
window2 = no
return
f7:: ;Hotkeytaste F7
If window1 = yes
{
gui 8:default
guiControlGet, EigeneListBox
if EigeneListBox = text5
send {home}
else
send {Down}
return
}
Else
{
IfWinExist, Fenstername2
WinKill ; verwendet das oben gefundene Fenster mit dem Namen Fenstername2
window1 = yes
Gui, 8:Add, ListBox, vEigeneListBox gEigeneListBox h100 r7 w180 choose1, Text1|Text2|Text3|Text4|Text5
Gui, 8:Add, Button, Default, input
Gui, 8:Show, , Fenstername1
return
8GuiEscape: ;schließt die Listbox mit Escape durch Gui , Destroy
8GuiClose:
window1 = on
Gui , 8:Destroy
return
}
EigeneListBox:
if A_GuiControlEvent <> DoubleClick
return
8ButtonInput:
window1 = no
guiControlGet, EigeneListBox
Gui , Destroy ;schließe das Auswahlfenster
gosub %EigeneListBox% ;gehe zum ausgewählten Label:
return
Text1:
msgbox Text1 gewählt
return
Text2:
msgbox Text2 gewählt
return
Text3:
msgbox Text3 gewählt
return
Text4:
msgbox Text4 gewählt
return
Text5:
msgbox Text5 gewählt
return
window1 = no
return
f8:: ;Hotkeytaste F7
If window2 = yes
{
gui 9:default
guiControlGet, EigeneListBox2
if EigeneListBox2 = text10
send {home}
else
send {Down}
return
}
Else
{
IfWinExist, Fenstername1
WinKill ; verwendet das oben gefundene Fenster mit dem Namen Fenstername2
window2 = yes
Gui, 9:Add, ListBox, vEigeneListBox2 gEigeneListBox2 h100 r7 w180 choose1, Text6|Text7|Text8|Text9|Text10
Gui, 9:Add, Button, Default, input
Gui, 9:Show, , Fenstername2
return
9GuiEscape: ;schließt die Listbox mit Escape durch Gui , Destroy
9GuiClose:
window2 = on
Gui , 9:Destroy
return
}
EigeneListBox2:
if A_GuiControlEvent <> DoubleClick
return
9ButtonInput:
window2 = no
guiControlGet, EigeneListBox2
Gui , Destroy ;schließe das Auswahlfenster
gosub %EigeneListBox2% ;gehe zum ausgewählten Label:
return
Text6:
msgbox Text6 gewählt
return
Text7:
msgbox Text7 gewählt
return
Text8:
msgbox Text8 gewählt
return
Text9:
msgbox Text9 gewählt
return
Text10:
msgbox Text10 gewählt
return
[/code][/spoiler]
und hier der Link zum alten Forum:
https://www.autohotkey.com/board/topic/97706-aus-2-mach-1-listbox-mit-hotkey-weiterbl%C3%A4ttern/
Für eine Hilfe und die Mühe im Voraus vielen Dank
Gruß
Helmut