Pahuchiy1
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| upload_video("F:\\1.mp4","F:\\maxresdefault.jpg","my video", "super", "add",tTags,"myfuncat","myfuncat2") |
В глобальных:
Цитата:
function upload_video(path_video,path_prev, sHead, sOpis, tagType_add_repl_not,tTags,login,pass)
open_url("https://www.youtube.com/upload",login,pass)
Application.Sleep(1000)
ace("main\\upload_video.aip",path_video,path_prev, sHead, sOpis, tagType_add_repl_not,tTags)
end
function open_url(url,login,pass)
if nb_process("Mozilla")== nil then
File.Run("C:\\Program Files (x86)\\Mozilla Firefox\\firefox.exe", "", "", SW_SHOWNORMAL, false);
end
Window.Restore(nb_process("Mozilla"))
Window.SetOrder(nb_process("Mozilla"), HWND_TOP)
Window.Maximize(nb_process("Mozilla"))
ace("main\\open_firefox.aip",url,login,pass)
end
-------------------------------------------------------------------------------------------------------------------------------------------------------
function ace(...)
for i=1, 10 do
Application.Sleep(500)
TextFile.WriteFromString("C:\\ace_temp\\to_ace\\"..i..".txt", "empty", false)
end
tKeys ={}
for i, v in ipairs(arg) do
tKeys[i] =v
end
ace_file=tKeys[1]
if #tKeys>1 then --åñëè ÿ ïåðåäàþ àðãóìåíòû â ÀÑÅ
for i=1, #tKeys-1 do
if type(tKeys[i+1])=="table" then --åñëè òàáëèöà (äîïóñêàþòñÿ òîëüêî 1-óðîâíåâûå)
TextFile.WriteFromTable("C:\\ace_temp\\to_ace\\"..i..".txt", tKeys[i+1], false)
Application.Sleep(1000)
TextFile.WriteFromString("C:\\ace_temp\\to_ace\\"..i..".txt", "\r\nend", true)--óêàçàíèå êîíöà ñïèñêà
else
TextFile.WriteFromString("C:\\ace_temp\\to_ace\\"..i..".txt", tKeys[i+1], false)
end
Application.Sleep(1000);
end
end
File.Delete("C:\\ace_temp\\from_ace\\*.*", false, false, false, nil);
File.Run("C:\\AutoClickExtreme\\AutoClicker.exe", "-play ".._SourceFolder.."\\AutoPlay\\Docs\\_distr\\DATA_ACE\\"..ace_file, "C:\\AutoClickExtreme\\", SW_SHOWNORMAL, false)
repeat Application.Sleep(1000)
repeat Application.Sleep(1000)
repeat Application.Sleep(1000)
until nb_process("Clicker")==nil
until nb_process("Clicker")==nil
until nb_process("Clicker")==nil
tRet={}
tNames={}
tFiles=File.Find("C:\\ace_temp\\from_ace\\", "*.*", false, false, nil, nil)
if tFiles~=nil then --åñëè ÀÑÅ ñîçäàëà ôàéëû
for i=1, #tFiles do
tNames[i]=file_name(tFiles[i])
end
for i=1, #tNames do
tRet[tNames[i]] = TextFile.ReadToString("C:\\ace_temp\\from_ace\\"..tNames[i]..".txt");
end
--File.Run("C:\\AutoClickExtreme\\AutoClicker.exe", "-play F:\\tray_menu_3\\CD_Root\\AutoPlay\\Docs\\_distr\\DATA_ACE\\main\\empty.aip", "", SW_SHOWNORMAL, true)
return tRet
end
end
|
мешают они тем что первая функция (действия автокликера) обрываются. Во второй функции автокликер начинает выполнять свои действия с середины. Экспериментировал я и с Shell.Execute и с File.Run и с ихними настройками ожидания окончания ...
nb_process - функция определяющая запущен ли процесс |
Всего записей: 168 | Зарегистр. 11-01-2015 | Отправлено: 17:14 26-01-2016 | Исправлено: Pahuchiy1, 18:03 26-01-2016 |
|
Дружественная тема в Варезнике
