You need to change the different titles in the source code
(remember that they must be 100% correct and there are 3
titles you need to look up). And maybe you need to change
the start of defragment.. look for ALT+A in the source code
and compare it with the italian command for reaching the
menu.
Then you need to compile it and then you got an italian
version of the autodefrag. Good luck!
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
I've got the same problem and I've found and tested a
solution who works fine!
So copy this script on notepad and give him the name
autodefrag c.vbs and use the task scheduler to start it at the
time you want.
The script for disk C is:
------------------------------------------------------------
'This script launches defrag and sends keys to the UI in order
to automate the defrag
'process.
set WshShell = CreateObject("WScript.Shell")
'Launch Defrag from the command line and wait for a second
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'Bring the application to the foreground
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
'Send an ALT-A key to bring down the degrag menu
WshShell.SendKeys "%A"
WScript.Sleep 200
'Send a D to start the defrag
WshShell.SendKeys "D"
'Wait until the defrag is completed - Check for window every
5 seconds
While WshShell.AppActivate("Defragmentation Complete") =
FALSE
wscript.sleep 5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
'Send a tab key to move the focus from View Report button
to the Close Button
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'Send and ALT-F4 to Close the Defrag program
WshShell.Sendkeys "%{F4}"
'Ce script lance la dfragmentation du disque C sous windows
2000
'par l'envoi de combinaison de touches l'interface utilisateur.
set WshShell = CreateObject("WScript.Shell")
'Lancement du dfragmenteur et attente de 1 seconde
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'Passage de la fentre du dfragmenteur en avant plan
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
'Envoi de la touche TAB pour passer dans la zone slection de
disque du dfragmenteur
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
'Envoi de la touche Fleche vers le bas pour slectionner le 2e
disque dur dfragmenter
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
'Envoi de la combinaison de touches ALT+A pour ouvrir le
menu Action
WshShell.SendKeys "%A"
WScript.Sleep 200
'Envoi de la touche D pour lancer la dfragmentation du 2e
disque
WshShell.SendKeys "D"
'Wait until the defrag is completed - Check for window every
5 seconds
While WshShell.AppActivate("Defragmentation Complete") =
FALSE
wscript.sleep 5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
'Send a tab key to move the focus from View Report button
to the Close Button
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'Send and ALT-F4 to Close the Defrag program
WshShell.Sendkeys "%{F4}"
'Ce script lance la dfragmentation du disque C sous windows
2000
'par l'envoi de combinaison de touches l'interface utilisateur.
set WshShell = CreateObject("WScript.Shell")
'Lancement du dfragmenteur et attente de 1 seconde
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'Passage de la fentre du dfragmenteur en avant plan
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
'Envoi de la touche TAB pour passer dans la zone slection de
disque du dfragmenteur
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
'Envoi de la touche Fleche vers le bas pour slectionner le 2e
disque dur dfragmenter
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
'Envoi de la combinaison de touches ALT+A pour ouvrir le
menu Action
WshShell.SendKeys "%A"
WScript.Sleep 200
'Envoi de la touche D pour lancer la dfragmentation du 2e
disque
WshShell.SendKeys "D"
'Wait until the defrag is completed - Check for window every
5 seconds
While WshShell.AppActivate("Defragmentation Complete") =
FALSE
wscript.sleep 5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
'Send a tab key to move the focus from View Report button
to the Close Button
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'Send and ALT-F4 to Close the Defrag program
WshShell.Sendkeys "%{F4}"
-----------------------------------------------------------
You can change or adapt these script to launch another
application by sending command key to the UI. Take a look on
this link for the command keys:
Logged In: YES
user_id=797868
You need to change the different titles in the source code
(remember that they must be 100% correct and there are 3
titles you need to look up). And maybe you need to change
the start of defragment.. look for ALT+A in the source code
and compare it with the italian command for reaching the
menu.
Then you need to compile it and then you got an italian
version of the autodefrag. Good luck!
Logged In: YES
user_id=797868
Btw, All you need to change is in the file AutoDefragUtil.cpp.
(If I remember correctly)
Logged In: YES
user_id=161806
Well, is there an italian version of this utility?
Logged In: NO
I've got the same problem and I've found and tested a
solution who works fine!
So copy this script on notepad and give him the name
autodefrag c.vbs and use the task scheduler to start it at the
time you want.
The script for disk C is:
------------------------------------------------------------
'This script launches defrag and sends keys to the UI in order
to automate the defrag
'process.
set WshShell = CreateObject("WScript.Shell")
'Launch Defrag from the command line and wait for a second
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'Bring the application to the foreground
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
'Send an ALT-A key to bring down the degrag menu
WshShell.SendKeys "%A"
WScript.Sleep 200
'Send a D to start the defrag
WshShell.SendKeys "D"
'Wait until the defrag is completed - Check for window every
5 seconds
While WshShell.AppActivate("Defragmentation Complete") =
FALSE
wscript.sleep 5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
'Send a tab key to move the focus from View Report button
to the Close Button
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'Send and ALT-F4 to Close the Defrag program
WshShell.Sendkeys "%{F4}"
------------------------------------------------------------
The script for disk D: is:
------------------------------------------------------------
'Ce script lance la dfragmentation du disque C sous windows
2000
'par l'envoi de combinaison de touches l'interface utilisateur.
set WshShell = CreateObject("WScript.Shell")
'Lancement du dfragmenteur et attente de 1 seconde
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'Passage de la fentre du dfragmenteur en avant plan
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
'Envoi de la touche TAB pour passer dans la zone slection de
disque du dfragmenteur
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
'Envoi de la touche Fleche vers le bas pour slectionner le 2e
disque dur dfragmenter
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
'Envoi de la combinaison de touches ALT+A pour ouvrir le
menu Action
WshShell.SendKeys "%A"
WScript.Sleep 200
'Envoi de la touche D pour lancer la dfragmentation du 2e
disque
WshShell.SendKeys "D"
'Wait until the defrag is completed - Check for window every
5 seconds
While WshShell.AppActivate("Defragmentation Complete") =
FALSE
wscript.sleep 5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
'Send a tab key to move the focus from View Report button
to the Close Button
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'Send and ALT-F4 to Close the Defrag program
WshShell.Sendkeys "%{F4}"
'Ce script lance la dfragmentation du disque C sous windows
2000
'par l'envoi de combinaison de touches l'interface utilisateur.
set WshShell = CreateObject("WScript.Shell")
'Lancement du dfragmenteur et attente de 1 seconde
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
'Passage de la fentre du dfragmenteur en avant plan
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
'Envoi de la touche TAB pour passer dans la zone slection de
disque du dfragmenteur
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
'Envoi de la touche Fleche vers le bas pour slectionner le 2e
disque dur dfragmenter
WshShell.SendKeys "{DOWN}"
WScript.Sleep 200
'Envoi de la combinaison de touches ALT+A pour ouvrir le
menu Action
WshShell.SendKeys "%A"
WScript.Sleep 200
'Envoi de la touche D pour lancer la dfragmentation du 2e
disque
WshShell.SendKeys "D"
'Wait until the defrag is completed - Check for window every
5 seconds
While WshShell.AppActivate("Defragmentation Complete") =
FALSE
wscript.sleep 5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
'Send a tab key to move the focus from View Report button
to the Close Button
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
'Send and ALT-F4 to Close the Defrag program
WshShell.Sendkeys "%{F4}"
-----------------------------------------------------------
You can change or adapt these script to launch another
application by sending command key to the UI. Take a look on
this link for the command keys:
http://www.devguru.com/Technologies/wsh/quickref/wshshell_
SendKeys.html