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

Работает Autoaim by sae

Регистрация
2 Апр 2026
Сообщения
3
Репутация
0
Спасибо
1
Монет
0
18,1 проверено. Криво, но работает. До завтра будет работать.
Че то ставлю с замененным файлом, мод не появляется в игре. Куда копать? Правда перед этим лоханулся и установил с запущеной игрой.
 
Последнее редактирование:
Регистрация
25 Мар 2016
Сообщения
14
Репутация
0
Спасибо
4
Монет
0
Восстановил таки World of Tanks EU.Там вроде моды работают.После WG дизайн Лесты ужос.
 

Вложения

  • Screenshot_1.jpg
    Screenshot_1.jpg
    149.5 KB · Просмотры: 21
  • Screenshot_2.jpg
    Screenshot_2.jpg
    195.1 KB · Просмотры: 21
Регистрация
13 Апр 2026
Сообщения
4
Репутация
0
Спасибо
0
Монет
0
нифига не работает, стоит платка, за что платил? вылетает и все!!!
 
Регистрация
13 Апр 2026
Сообщения
4
Репутация
0
Спасибо
0
Монет
0
Регистрация
13 Апр 2026
Сообщения
4
Репутация
0
Спасибо
0
Монет
0
Регистрация
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
 
Сверху Снизу