DonationCoder.com Software > Post New Requests Here
Adapt emptytxtfile.ahk to windows 8.1
Contro:
I don't know why don't go now.
Work wonderfully under w7
Sure I have misunderstanding something .
The code i am trying is :
--- Code: Autohotkey ---#SingleInstance Force #if winactive("ahk_class CabinetWClass") { #y:: Gui, Destroy WinGet, WinID, ID, A Gui, +LastFound HWND := WinExist() ControlGetText, DesPath, Edit1, ahk_id %WinID% Gui, Add, ListView, r10 NoSort vChosenName h300 w400, File Name For A,B in {1:"Instrucciones.txt",2:"Instalar en mv.txt", 3:"Es mal portable. Instalar como no portable.txt", 4:"Instalado como portable.txt", 5:"Instalar cuando se pueda.txt", 6:"ReciboLLamadaAlas.proponer fecha hora.txt", 7:"Ver pantallazos.proponer fecha hora.txt", 8:"Ver grabaciones de la fecha.proponer fecha sistema.txt", 9:"password pegado del portapapeles.txt", 10:"Avira detecta virus. en parte a especificar.txt", 11:"File11.txt", 12:"Es un juego.txt", 13:"Es para entorno MAC Apple.txt", 14:"Tambien tienen versiones de pago.txt", 15:"No es buen portable.Instalado como portable.txt",16:"No funcione en xp. es para w7 o sup.txt", 17:"Nuevo Notepad++ Document.txt",18:"Script AutoIt.au3",19:"Script Autohotkey.ahk", 20:"es un trial de prueba.txt", 21:"ae.fecha.txt",22:"File22.txt", 23:"File23.txt", 24:"File24.txt",25:"File25.txt",26:"File26.txt"} LV_Add("",B) Gui, Add, Button, gChoose, Submit Gui, Show, h340 w420, Choose File Name Return } Choose: ControlGet, List, List, Selected, SysListView321, ahk_id %HWND% Gui, Destroy Loop, Parse, List, `n { If !FileExist(DesPath "\" A_LoopField) FileAppend,, %DesPath%\%A_LoopField% } Return
Launch well the selection windows but finally the files are not created.
Best Regards
Win+Y
KynloStephen66515:
And for those of you who don't want a headache reading the above code - here is an easier version :P
--- Code: Autohotkey ---#SingleInstance Force #if winactive("ahk_class CabinetWClass"){ ; quito la combinación hotkey control-alt-z ^!z:: , para poner la combinación win+y ; debido a que ctrl+alt+z la utilizamos junto con shift+ para volver al estado anterior #y:: Gui, Destroy WinGet, WinID, ID, A Gui, +LastFound HWND := WinExist() ControlGetText, DesPath, Edit1, ahk_id %WinID% ; añado w400 para aumentar el ancho de la ventana ; perfecto lo de h300 . Me funciona bien y ya tengo la ventana más grande y preparada ; compara con copia (2) de Emptytxtfile.ahk para ver estado anterior. ; quito en la línea de abajo h300 porque obtengo error a la segunda vez. Gui, Add, ListView, r10 NoSort vChosenName h300 w400, File Name For A,B in {1:"Instrucciones.txt",2:"Instalar en mv.txt", 3:"Es mal portable. Instalar como no portable.txt", 4:"Instalado como portable.txt", 5:"Instalar cuando se pueda.txt", 6:"ReciboLLamadaAlas.proponer fecha hora.txt", 7:"Ver pantallazos.proponer fecha hora.txt", 8:"Ver grabaciones de la fecha.proponer fecha sistema.txt", 9:"password pegado del portapapeles.txt", 10:"Avira detecta virus. en parte a especificar.txt", 11:"File11.txt", 12:"Es un juego.txt", 13:"Es para entorno MAC Apple.txt", 14:"Tambien tienen versiones de pago.txt", 15:"No es buen portable.Instalado como portable.txt",16:"No funcione en xp. es para w7 o sup.txt", 17:"Nuevo Notepad++ Document.txt",18:"Script AutoIt.au3",19:"Script Autohotkey.ahk", 20:"es un trial de prueba.txt", 21:"ae.fecha.txt",22:"File22.txt", 23:"File23.txt", 24:"File24.txt",25:"File25.txt",26:"File26.txt"} LV_Add("",B) Gui, Add, Button, gChoose, Submit ; añado w420 intercalado entre las comas para aumentar el ancho de la ventana opciones ; me comentan de poner h300 en alguna parte inicio pruebas de ponerlo al lado Gui, Show, h340 w420, Choose File Name Return} Choose:ControlGet, List, List, Selected, SysListView321, ahk_id %HWND%Gui, DestroyLoop, Parse, List, `n{ If !FileExist(DesPath "\" A_LoopField) FileAppend,, %DesPath%\%A_LoopField%}Return
Contro:
And for those of you who don't want a headache reading the above code - here is an easier version :P
--- Code: Autohotkey ---#SingleInstance Force #if winactive("ahk_class CabinetWClass"){ ; quito la combinación hotkey control-alt-z ^!z:: , para poner la combinación win+y ; debido a que ctrl+alt+z la utilizamos junto con shift+ para volver al estado anterior #y:: Gui, Destroy WinGet, WinID, ID, A Gui, +LastFound HWND := WinExist() ControlGetText, DesPath, Edit1, ahk_id %WinID% ; añado w400 para aumentar el ancho de la ventana ; perfecto lo de h300 . Me funciona bien y ya tengo la ventana más grande y preparada ; compara con copia (2) de Emptytxtfile.ahk para ver estado anterior. ; quito en la línea de abajo h300 porque obtengo error a la segunda vez. Gui, Add, ListView, r10 NoSort vChosenName h300 w400, File Name For A,B in {1:"Instrucciones.txt",2:"Instalar en mv.txt", 3:"Es mal portable. Instalar como no portable.txt", 4:"Instalado como portable.txt", 5:"Instalar cuando se pueda.txt", 6:"ReciboLLamadaAlas.proponer fecha hora.txt", 7:"Ver pantallazos.proponer fecha hora.txt", 8:"Ver grabaciones de la fecha.proponer fecha sistema.txt", 9:"password pegado del portapapeles.txt", 10:"Avira detecta virus. en parte a especificar.txt", 11:"File11.txt", 12:"Es un juego.txt", 13:"Es para entorno MAC Apple.txt", 14:"Tambien tienen versiones de pago.txt", 15:"No es buen portable.Instalado como portable.txt",16:"No funcione en xp. es para w7 o sup.txt", 17:"Nuevo Notepad++ Document.txt",18:"Script AutoIt.au3",19:"Script Autohotkey.ahk", 20:"es un trial de prueba.txt", 21:"ae.fecha.txt",22:"File22.txt", 23:"File23.txt", 24:"File24.txt",25:"File25.txt",26:"File26.txt"} LV_Add("",B) Gui, Add, Button, gChoose, Submit ; añado w420 intercalado entre las comas para aumentar el ancho de la ventana opciones ; me comentan de poner h300 en alguna parte inicio pruebas de ponerlo al lado Gui, Show, h340 w420, Choose File Name Return} Choose:ControlGet, List, List, Selected, SysListView321, ahk_id %HWND%Gui, DestroyLoop, Parse, List, `n{ If !FileExist(DesPath "\" A_LoopField) FileAppend,, %DesPath%\%A_LoopField%}Return-Stephen66515 (August 07, 2015, 09:32 PM)
--- End quote ---
Owwww. Running to try !!!!!!!!
Best Regards
:-*
Contro:
Don't go
Is the same version ?
Happen the same
What am i doing bad ?
tomos:
Don't go
Is the same version ?
-Contro (August 08, 2015, 09:19 PM)
--- End quote ---
Yes - he just wanted to make it easier to read
Navigation
[0] Message Index
[#] Next page
Go to full version