DonationCoder.com Software > Post New Requests Here

Adapt emptytxtfile.ahk to windows 8.1

(1/9) > >>

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