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

Работает Autoaim by sae

Регистрация
3 Май 2014
Сообщения
1,385
Репутация
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
Сообщения
12
Репутация
-1
Спасибо
0
Монет
0
Товарищи подскажите . Работает как то криво мод. При движении цели прицел уходит выше башни. Цель остановилась- прицел в нее, двинулась- прицел выше- что то никогда ранее такого не было. 31.4 устанавливаю архивы сам без установщика
 
Сверху Снизу