Autoaim by sae - Моды для Танков | Страница 234

Работает Autoaim by sae

Регистрация
3 Май 2014
Сообщения
1,386
Репутация
620
Спасибо
62
Монет
0
используй очистку только кэша
Старый уже не срабатывал в 11 винде и подправил его с помощью ЫЫ.
Код:
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")

' Получаем путь к AppData\Roaming
Set strFolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%APPDATA%"))

' Новый путь к кэшу Мир Танков
TempGameFolder = strFolder & "\Lesta\MirTankov"

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Проверяем существование папки
If objFSO.FolderExists(TempGameFolder) Then

    Set objFolder = objFSO.GetFolder(TempGameFolder)

    ' Удаление файлов кроме preferences
    For Each objFile In objFolder.Files
        If InStr(LCase(objFile.Name), LCase("preferences")) = 0 Then
            On Error Resume Next
            objFSO.DeleteFile objFile.Path, True
            On Error GoTo 0
        End If
    Next

    ' Удаление всех подпапок
    For Each objSubFolder In objFolder.SubFolders
        On Error Resume Next
        objFSO.DeleteFolder objSubFolder.Path, True
        On Error GoTo 0
    Next

    MsgBox "Кэш очищен с сохранением настроек игры:" & vbCrLf & _
           TempGameFolder, 64, "Мир Танков"

Else
    MsgBox "Папка кэша не найдена:" & vbCrLf & _
           TempGameFolder, 48, "Ошибка"
End If
 

lsn

Player

lsn

Player
Регистрация
15 Фев 2017
Сообщения
13
Репутация
-1
Спасибо
0
Монет
0
Товарищи подскажите . Работает как то криво мод. При движении цели прицел уходит выше башни. Цель остановилась- прицел в нее, двинулась- прицел выше- что то никогда ранее такого не было. 31.4 устанавливаю архивы сам без установщика
 
Регистрация
2 Фев 2017
Сообщения
1,161
Репутация
323
Спасибо
211
Монет
0
Товарищи подскажите .
Каждый участник игры это индивидум, как человек так и техническая составляющая. Кто и что тебе может подсказать, не зная ничего о тебе и о твоей матчасти? Никто не подскажет, не с чем сравнивать.
 
Регистрация
3 Май 2014
Сообщения
1,386
Репутация
620
Спасибо
62
Монет
0
В этом скрипте надо будет поменять в строке TempGameFolder = strFolder & "\Lesta\MirTankov" путь на подходящий.
Тоже какой нибудь ЫЫ спроси мол содержание этого скрипта для очистки кеша для мира танков по пути C:\Users\Admin\AppData\Roaming\Lesta\MirTankov, а для C:\Users\Admin\AppData\Roaming\ВГ\ВоТ как поменять? Имей ввиду что \ВГ\ВоТ от балды написал не зная точные имена папок.
 

lsn

Player

lsn

Player
Регистрация
15 Фев 2017
Сообщения
13
Репутация
-1
Спасибо
0
Монет
0
Каждый участник игры это индивидум, как человек так и техническая составляющая. Кто и что тебе может подсказать, не зная ничего о тебе и о твоей матчасти? Никто не подскажет, не с чем сравнивать.
Походу тогда мод в утиль и пока пока)
 
Сверху Снизу