topbanner_forum
  *

avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • Tuesday March 19, 2024, 4:55 am
  • Proudly celebrating 15+ years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Author Topic: SOLVED: Adapt to windows 7 64 bits  (Read 11136 times)

Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
SOLVED: Adapt to windows 7 64 bits
« on: October 26, 2012, 08:49 AM »
These two scripts are similar and goes well under windows xp pro sp3, but don't go under windows 7
How can I adapt to windows 7 ?
Best Regards

Code: Autohotkey [Select]
  1.  
  2. #if winactive("ahk_class CabinetWClass")
  3. {
  4.   #z::
  5.   WinGet, WinID, ID, A
  6.   Gui, +LastFound
  7.   HWND := WinExist()
  8.   ControlGetText, DesPath, Edit1, ahk_id %WinID%
  9.    Gui, Add, ListView, r10 NoSort vChosenName h300 w400, Folder Name
  10.      For A,B in {1:"Prg1",2:"Prg2", 3:"Prg3", 4:"Prg4", 5:"Prg5", 6:"2012", 7:"07.2012", 8:"folder8", 9:"password", 10:"Avira", 11:"Folder11", 12:"Es un juego", 13:"MACApple", 14:"pago", 15:"portable",16:"Nofunc", 17:"Nuevo",18:"Script",19:"Autohotkey", 20:"trial", 21:"ENVIADOS",22:"RECIBIDOS", 23:"Folder23", 24:"Folder24",25:"Folder25",26:"Folder26"}
  11.     LV_Add("",B)
  12.     Gui, Add, Button, gChoose, Submit
  13.    Gui, Show, h340 w420, Choose Folder Name
  14.   Return
  15. }
  16.  
  17. Choose:
  18. ControlGet, List, List, Selected, SysListView321, ahk_id %HWND%
  19. Loop, Parse, List, `n
  20. {
  21.    If !FileExist(DesPath "\" A_LoopField)
  22.       FileCreateDir, %DesPath%\%A_LoopField%
  23. }
  24. Return

Code: Autohotkey [Select]
  1.  
  2. #if winactive("ahk_class CabinetWClass")
  3. {
  4.   ; quito la combinación hotkey control-alt-z  ^!z:: , para poner la combinación win+y
  5.   ; debido a que ctrl+alt+z la utilizamos junto con shift+ para volver al estado anterior
  6.   #y::
  7.   WinGet, WinID, ID, A
  8.   Gui, +LastFound
  9.   HWND := WinExist()
  10.   ControlGetText, DesPath, Edit1, ahk_id %WinID%
  11.   ; añado w400 para aumentar el ancho de la ventana
  12.   ; perfecto lo de h300 . Me funciona bien y ya tengo la ventana más grande y preparada
  13.   ; compara con copia (2) de Emptytxtfile.ahk para ver estado anterior.
  14.   ; quito en la línea de abajo h300 porque obtengo error a la segunda vez.
  15.   Gui, Add, ListView, r10 NoSort vChosenName h300 w400, File Name
  16.      For A,B in {0:"Actividad Completada.txt", 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:"Es plantilla de expediente o proyecto.txt",22:"Ver Grabaciones en accesos directos. Fotos.Grabaciones.txt", 23:"Propongo como residente en Startup Delayer.txt", 24:"No logro password de archivo.txt",25:"Utilizar la apertura de multiples carpetas y CreateShortCutsIn para accesos directos compartidos.txt",26:"Enlazar en tiempo real.txt",27:"NO MOVER ARCHIVOS.txt",28:"File28.txt",29:"File29.txt",30:"001.txt",31:"002.txt",32:"003.txt",33:"004.txt",34:"005.txt",35:"006.txt",36:"007.txt",37:"008.txt",38:"009.txt",39:"010.txt",40:"011.txt",41:"012.txt",42:"013.txt",43:"014.txt",44:"015.txt",45:"016.txt",46:"017.txt",47:"018.txt",48:"019.txt",49:"020.txt",50:"021.txt",51:"022.txt",52:"023.txt",53:"024.txt",54:"025.txt",55:"026.txt",56:"027.txt",57:"028.txt",58:"029.txt",59:"030.txt",60:"031.txt",61:"032.txt",62:"033.txt",63:"034.txt",64:"035.txt",65:"036.txt",66:"037.txt"}
  17.     LV_Add("",B)
  18.     Gui, Add, Button, gChoose, Submit
  19.   ; añado w420 intercalado entre las comas para aumentar el ancho de la ventana opciones
  20.   ; me comentan de poner h300 en alguna parte inicio pruebas de ponerlo al lado
  21.   Gui, Show, h340 w420, Choose File Name
  22.   Return
  23. }
  24.  
  25. Choose:
  26. ControlGet, List, List, Selected, SysListView321, ahk_id %HWND%
  27. Loop, Parse, List, `n
  28. {
  29.    If !FileExist(DesPath "\" A_LoopField)
  30.       FileAppend,, %DesPath%\%A_LoopField%
  31. }
  32. Return


I am very used at the present moment to these scripts and would like to recover is possibles.

tomos

  • Charter Member
  • Joined in 2006
  • ***
  • Posts: 11,958
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #1 on: October 26, 2012, 03:14 PM »
Maybe you could help the people who might help you -
tell us what the scripts were for :)

What happens under XP?
What happens under Win.7?
Tom

Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #2 on: October 26, 2012, 04:12 PM »
Excuse me. I was supposing things.

The first script open a window for select folders names previosly created.
Then the folders selected are created.

The second script open a window for select file names previosly created.
Then the names selected are created as txt files.

These scripts goes well under windows xp pro. I use windows explorer configuration with the alternative : see path of the archive and folders in the windows title.

Under windows 7 I don't get any result.
The folders are not created
The files are not created

 :-[

First script to create empty folders inside the selected one
Second script to create empty txt files inside a selected folder

« Last Edit: October 26, 2012, 04:30 PM by Contro »

Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #3 on: October 27, 2012, 11:49 AM »
I try to put now a screenshot of the normal functionality of the program :

This first one is the window with the folder list names to be selected.

http://lh4.ggpht.com/-dGDwaR4Uj-o/UIwQOkoZz8I/AAAAAAAAAWQ/gn4ekNKoRUY/s0/imge7d3b85844d548ef5a690764f7d21924.jpg
SOLVED: Adapt to windows 7 64 bits
 

But I select to create (submit), but finally are not created under windows 7.

Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #4 on: October 27, 2012, 11:55 AM »
The second script is similar and used to create empty txt files with the given names in the list that are selected. In the screenshot I select several ones, but when submit are not created.
I think originally the scripts for windows xp pro were created with the explorer option active :
Show complete path in the window title (or similar is said in english...)

http://lh3.ggpht.com/-NwqGHNEMHiY/UIwRTu2AWbI/AAAAAAAAAWg/PwHw5jFSZss/s0/img7a1d0872930a2bbb4f25eaf2c1a6fd76.jpg
SOLVED: Adapt to windows 7 64 bits
 

Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #5 on: October 27, 2012, 12:11 PM »
I received a little help I can't understand.
I put here also if may be useful.

"Not sure but I think the class names may have changed for win7 - check these with the windows spy (right click ahk script icon in systray) and adjust accordingly. You can create a group so the same script will work on your older XP/Vista PC as well if you still have it / use it "


Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #6 on: October 27, 2012, 12:13 PM »
I insert the scripts if someone wants examine.


Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #7 on: October 27, 2012, 12:15 PM »
Scripts are attached


Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #8 on: October 28, 2012, 08:13 PM »
I would like to recover these scripts under windows 7

 :)

hollowlife1987

  • Honorary Member
  • Joined in 2006
  • **
  • default avatar
  • Posts: 92
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #9 on: October 28, 2012, 08:59 PM »
Replace the line

Code: Autohotkey [Select]
  1. ControlGetText, DesPath, Edit1, ahk_id %WinID%

with

Code: Autohotkey [Select]
  1. WinGetTitle, DesPath, ahk_id %WinID%

I do not know if it will still work on XP or not with that change but it works on my install of windows 7 x64

Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #10 on: October 28, 2012, 09:07 PM »
Running
I will comment anything

http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits

Contro

  • Supporting Member
  • Joined in 2007
  • **
  • Posts: 3,940
    • View Profile
    • Donate to Member
Re: SOLVED: Adapt to windows 7 64 bits
« Reply #11 on: October 28, 2012, 09:19 PM »
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits
http://img101.imageshack.us/img101/7251/besotene2.gif
SOLVED: Adapt to windows 7 64 bits


Works wonderful now.
A simple lineeeeeeeeeeeeee !!!!!!!!!!!!!!!!!!!!!!

 :-*