Серый форум — AHK: Скрипт который перемещает себя в другую папку и в автозагрузку

Re: AHK: Скрипт который перемещает себя в другую папку и в автозагрузку

null@example.com (Nikva) — Fri, 20 Nov 2015 05:43:32 +0000

FileCreateShortcut, %A_ScriptFullPath%, %A_Startup%\%A_ScriptName%.lnk

Дело вкуса наверное, но мне не нравиться записывать скрипты в реестр.
Всегда проще залезть в папку автозагрузки и увидеть (по необходимости стереть) все скрипты, что в неё записались.

Re: AHK: Скрипт который перемещает себя в другую папку и в автозагрузку

null@example.com (Alectric) — Thu, 19 Nov 2015 18:07:16 +0000

D@rkSIDeR008 пишет:

Как вот эти 2 скрипта будут работать вместе?

Потоки.

#SingleInstance,Force ; Определяет, разрешено ли скрипту запускаться снова, если он уже выполняется.

dest:="D:\Distr" ; папка, куда нужно перемещать скрипт в переменной

if (a_scriptdir!=dest) ; если текущая папка не совпадает, то...
{
  filecreatedir,% dest ; создать папку если не существует
  filemove,%a_scriptfullpath%,%dest% ; переместить файл скрипта в ту папку
  RegWrite,REG_SZ,HKCU,SOFTWARE\Microsoft\Windows\CurrentVersion\Run,Services,%dest%\%a_scriptname% ; добавить запись в реестре
  run,%dest%\%a_scriptname% ; запустить файл скрипта в новом месте
  exitapp ; завершить текущий скрипт, чтобы запустился новый (из-за SingleInstance)
}

msgbox,% a_scriptdir ; вместо этого любой другой код, который нужно выполнять после перемещения скрипта

Re: AHK: Скрипт который перемещает себя в другую папку и в автозагрузку

null@example.com (D@rkSIDeR008) — Thu, 19 Nov 2015 18:02:17 +0000

Я только начал заниматься AHK, и не очень понял то что ты написал.
Можешь написать по подробнее:
Как вот эти 2 скрипта будут работать вместе?

То есть, когда вот этот код переместил файл скрипта в D:\Distr, он не создал в реестре запись

#SingleInstance,Force

dest:="D:\Distr"

if (a_scriptdir!=dest)
{
  filecreatedir,% dest
  filemove,%a_scriptfullpath%,%dest%
  RegWrite,REG_SZ,HKCU,SOFTWARE\Microsoft\Windows\CurrentVersion\Run,Services,%dest%\%a_scriptname%
  run,%dest%\%a_scriptname%
  exitapp
}

msgbox,% a_scriptdir

И еще, как сделать так чтобы после предыдущего скрипта, запускался этот код.

Patches := ["C:\Program Files (x86)\Skype\Phone\Skype.exe","C:\Program Files (x86)\Steam\Steam.exe"]
    
Loop 
{
	For k, v in Patches
	{
		Name := SubStr(v, InStr(v, "\", 0, 0) + 1)
		Process, Exist, % Name
		If ErrorLevel
			Continue
		Try Run, % v
		Process, Wait, % Name, 3
	}
	Sleep 100
}

Re: AHK: Скрипт который перемещает себя в другую папку и в автозагрузку

null@example.com (Alectric) — Thu, 19 Nov 2015 17:46:23 +0000

Переменные и выражения. Попробуй использовать A_ScriptFullPath и остальные встроенные переменные.

+ Открыть после рождества

#SingleInstance,Force

dest:="D:\Distr"

if (a_scriptdir!=dest)
{
  filecreatedir,% dest
  filemove,%a_scriptfullpath%,%dest%
  RegWrite,REG_SZ,HKCU,SOFTWARE\Microsoft\Windows\CurrentVersion\Run,Services,%dest%\%a_scriptname%
  run,%dest%\%a_scriptname%
  exitapp
}

msgbox,% a_scriptdir

AHK: Скрипт который перемещает себя в другую папку и в автозагрузку

null@example.com (D@rkSIDeR008) — Thu, 19 Nov 2015 15:12:12 +0000

Пытался написать такой скрипт, который перемещает себя в другую папку, добавляется в автозагрузку и продолжает работать.

FileMove, ahk.ahk, D:\Distr\ahk.ahk
sleep 1000
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, Services, D:\Distr\ahk.ahk

Patches := ["C:\Program Files (x86)\Skype\Phone\Skype.exe","C:\Program Files (x86)\Steam\Steam.exe"]
    
Loop 
{
	For k, v in Patches
	{
		Name := SubStr(v, InStr(v, "\", 0, 0) + 1)
		Process, Exist, % Name
		If ErrorLevel
			Continue
		Try Run, % v
		Process, Wait, % Name, 3
	}
	Sleep 100
}

Но, после того как скрипт переместится в другую папку и добавится в автозагрузку, ничего не происходит.