Sevakunj Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору set service = GetObject ("winmgmts:")   dim i   i = 0     do   for each Process in Service.InstancesOf ("Win32_Process")       If Process.Name = "Maxthon.exe" then           i = 1       End If   next     If i = 0 then       Dim FSO       Set FSO = CreateObject("Scripting.FileSystemObject")       FSO.CopyFile "I:\_soft\Programs\Maxthon 2\Plugin\Rbm\_bm.txt", "f:\_MaxthonBackUp\"       FSO.CopyFile "I:\_soft\Programs\Maxthon 2\SharedAccount\Data\mbookmark.xml", "f:\_MaxthonBackUp\"           wscript.quit   End if   i = 0   WScript.Sleep 20 * 1000   loop Всего записей: 951 | Зарегистр. 16-06-2003 | Отправлено: 10:39 03-03-2011

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Maxthon 2.x (Часть 6)

Maz (06-03-2017 18:50): Maxthon 2.x (Часть 7)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование