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 |
|