Slam ошибка missing file

Imports NAudio ‘Modified Version which does not write «extraSize»

Imports NAudio.Wave

Imports System.IO

Imports System.Text.RegularExpressions

Imports System.Threading

Imports SLAM.XmlSerialization

Imports SLAM.SourceGame

Imports System.Management

Imports System.Net.Http

Imports NReco.VideoConverter

Public Class Form1

Dim Games As New List(Of SourceGame)

Dim running As Boolean = False

Dim ClosePending As Boolean = False

Dim SteamAppsPath As String

Dim status As Integer = IDLE

Const IDLE = —1

Const SEARCHING = —2

Const WORKING = —3

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

RefreshPlayKey()

If My.Settings.PlayKey = My.Settings.RelayKey Then

My.Settings.RelayKey = «=»

My.Settings.Save()

End If

If My.Settings.UpdateCheck Then

CheckForUpdate()

End If

Dim csgo As New SourceGame

csgo.name = «Counter-Strike: Global Offensive»

csgo.id = 730

csgo.directory = «commonCounter-Strike Global Offensive»

csgo.ToCfg = «csgocfg»

csgo.libraryname = «csgo»

csgo.exename = «csgo»

csgo.samplerate = 22050

csgo.blacklist.AddRange({«attack», «attack2», «autobuy», «back», «buy», «buyammo1», «buyammo2», «buymenu», «callvote», «cancelselect», «cheer», «compliment», «coverme», «drop», «duck», «enemydown», «enemyspot», «fallback», «followme», «forward», «getout», «go», «holdpos», «inposition», «invnext», «invprev», «jump», «lastinv», «messagemode», «messagemode2», «moveleft», «moveright», «mute», «negative», «quit», «radio1», «radio2», «radio3», «rebuy», «regroup», «reload», «report», «reportingin», «roger», «sectorclear», «showscores», «slot1», «slot10», «slot2», «slot3», «slot4», «slot5», «slot6», «slot7», «slot8», «slot9», «speed», «sticktog», «takepoint», «takingfire», «teammenu», «thanks», «toggleconsole», «use», «voicerecord»})

csgo.VoiceFadeOut = False

Games.Add(csgo)

Dim css As New SourceGame

css.name = «Counter-Strike: Source»

css.directory = «commonCounter-Strike Source»

css.ToCfg = «cstrikecfg»

css.libraryname = «css»

css.blacklist.AddRange({«attack», «attack2», «back», «boom», «buyammo1», «buyammo2», «buyequip», «buymenu», «cancelselect», «cheer», «chooseteam», «commandmenu», «disconnect», «drop», «duck», «forward», «invnext», «invprev», «jump», «messagemode», «messagemode2», «moveleft», «moveright», «pause», «reload», «showbriefing», «showscores», «slot1», «slot10», «slot2», «slot3», «slot4», «slot5», «slot6», «slot7», «slot8», «slot9», «speed», «toggleconsole», «use»})

Games.Add(css)

Dim tf2 As New SourceGame

tf2.name = «Team Fortress 2»

tf2.directory = «commonTeam Fortress 2»

tf2.ToCfg = «tfcfg»

tf2.libraryname = «tf2»

tf2.samplerate = 22050

tf2.blacklist.AddRange({«attack», «attack2», «attack3», «back», «build», «cancelselect», «centerview», «changeclass», «changeteam», «disguiseteam», «duck», «forward», «grab», «invnext», «invprev», «jump», «kill», «klook», «lastdisguise», «lookdown», «lookup», «moveleft», «moveright», «moveup», «pause», «quit», «reload», «say», «screenshot», «showmapinfo», «showroundinfo», «showscores», «slot1», «slot10», «slot2», «slot3», «slot4», «slot5», «slot6», «slot7», «slot8», «slot9», «strafe», «toggleconsole», «voicerecord»})

Games.Add(tf2)

Dim gmod As New SourceGame

gmod.name = «Garry’s Mod»

gmod.directory = «commonGarrysMod»

gmod.ToCfg = «garrysmodcfg»

gmod.libraryname = «gmod»

Games.Add(gmod)

Dim hl2dm As New SourceGame

hl2dm.name = «Half-Life 2 Deathmatch»

hl2dm.directory = «commonhalf-life 2 deathmatch»

hl2dm.ToCfg = «hl2mpcfg»

hl2dm.libraryname = «hl2dm»

Games.Add(hl2dm)

Dim l4d As New SourceGame

l4d.name = «Left 4 Dead»

l4d.directory = «commonLeft 4 Dead»

l4d.ToCfg = «left4deadcfg»

l4d.libraryname = «l4d»

l4d.exename = «left4dead»

Games.Add(l4d)

Dim l4d2 As New SourceGame

l4d2.name = «Left 4 Dead 2»

l4d2.directory = «commonLeft 4 Dead 2»

l4d2.ToCfg = «left4dead2cfg»

l4d2.libraryname = «l4d2»

l4d2.exename = «left4dead2»

l4d2.VoiceFadeOut = False

Games.Add(l4d2)

Dim dods As New SourceGame

dods.name = «Day of Defeat Source»

dods.directory = «commonday of defeat source»

dods.ToCfg = «dodcfg»

dods.libraryname = «dods»

Games.Add(dods)

‘NEEDS EXENAME!!!

‘Dim goldeye As New SourceGame

‘goldeye.name = «Goldeneye Source»

‘goldeye.directory = «sourcemods»

‘goldeye.ToCfg = «gesourcecfg»

‘goldeye.libraryname = «goldeye»

‘Games.Add(goldeye)

Dim insurg As New SourceGame

insurg.name = «Insurgency»

insurg.directory = «commoninsurgency2»

insurg.ToCfg = «insurgencycfg»

insurg.libraryname = «insurgen»

insurg.exename = «insurgency»

Games.Add(insurg)

For Each Game In Games

GameSelector.Items.Add(Game.name)

Next

If GameSelector.Items.Contains(My.Settings.LastGame) Then

GameSelector.Text = GameSelector.Items(GameSelector.Items.IndexOf(My.Settings.LastGame)).ToString

Else

GameSelector.Text = GameSelector.Items(0).ToString

End If

ReloadTracks(GetCurrentGame)

RefreshTrackList()

If My.Settings.StartEnabled Then

StartPoll()

End If

If My.Settings.StartMinimized Then

WindowState = FormWindowState.Minimized

End If

End Sub

Private Sub WaveCreator(File As String, outputFile As String, Game As SourceGame)

Dim reader As New MediaFoundationReader(File)

Dim outFormat = New WaveFormat(Game.samplerate, Game.bits, Game.channels)

Dim resampler = New MediaFoundationResampler(reader, outFormat)

resampler.ResamplerQuality = 60

WaveFileWriter.CreateWaveFile(outputFile, resampler)

resampler.Dispose()

End Sub

Private Sub FFMPEG_WaveCreator(File As String, outputFile As String, Game As SourceGame)

Dim convert As New FFMpegConverter()

convert.ExtractFFmpeg()

Dim command As String = String.Format(«-i «»{0}»» -n -f wav -flags bitexact -map_metadata -1 -vn -acodec pcm_s16le -ar {1} -ac {2} «»{3}»»», Path.GetFullPath(File), Game.samplerate, Game.channels, Path.GetFullPath(outputFile))

convert.Invoke(command)

End Sub

Private Sub FFMPEG_ConvertAndTrim(inpath As String, outpath As String, samplerate As Integer, channels As Integer, starttrim As Double, length As Double, volume As Double)

Dim convert As New FFMpegConverter()

convert.ExtractFFmpeg()

Dim trimstring As String

If length > 0 Then

trimstring = String.Format(«-ss {0} -t {1} «, starttrim.ToString(«F5», Globalization.CultureInfo.InvariantCulture), length.ToString(«F5», Globalization.CultureInfo.InvariantCulture))

End If

Dim command As String = String.Format(«-i «»{0}»» -n -f wav -flags bitexact -map_metadata -1 -vn -acodec pcm_s16le -ar {1} -ac {2} {3}-af «»volume={4}»» «»{5}»»», Path.GetFullPath(inpath), samplerate, channels, trimstring, volume.ToString(«F5», Globalization.CultureInfo.InvariantCulture), Path.GetFullPath(outpath))

convert.Invoke(command)

End Sub

Private Sub GameSelector_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GameSelector.SelectedIndexChanged

ReloadTracks(GetCurrentGame)

RefreshTrackList()

My.Settings.LastGame = GameSelector.Text

My.Settings.Save()

End Sub

Private Sub ImportButton_Click(sender As Object, e As EventArgs) Handles ImportButton.Click

If (My.Settings.UseFFMPEG = True And File.Exists(«NReco.VideoConverter.dll»)) Or (My.Settings.UseFFMPEG = False And File.Exists(«NAudio.dll»)) Then

DisableInterface()

If ImportDialog.ShowDialog() = DialogResult.OK Then

ProgressBar1.Maximum = ImportDialog.FileNames.Count

Dim WorkerPassthrough() As Object = {GetCurrentGame(), ImportDialog.FileNames, False}

WavWorker.RunWorkerAsync(WorkerPassthrough)

Else

EnableInterface()

End If

Else

MessageBox.Show(«You are missing NAudio.dll or NReco.VideoConverter.dll! Cannot import without it!», «Missing File», MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

End Sub

Private Sub YTButton_Click(sender As Object, e As EventArgs) Handles YTButton.Click

If File.Exists(«NAudio.dll») AndAlso File.Exists(«Newtonsoft.Json.dll») AndAlso File.Exists(«NReco.VideoConverter.dll») AndAlso File.Exists(«YoutubeExtractor.dll») Then

DisableInterface()

Dim YTImporter As New YTImport

If YTImporter.ShowDialog() = DialogResult.OK Then

ProgressBar1.Maximum = 1

Dim WorkerPassthrough() As Object = {GetCurrentGame(), New String() {YTImporter.file}, True}

WavWorker.RunWorkerAsync(WorkerPassthrough)

Else

EnableInterface()

End If

Else

MessageBox.Show(«You are missing either NAudio.dll, Newtonsoft.Json.dll, NReco.VideoConverter.dll, or YoutubeExtractor.dll! Cannot import from YouTube without them!», «Missing File(s)», MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

End Sub

Private Sub WavWorker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles WavWorker.DoWork

Dim Game As SourceGame = e.Argument(0)

Dim Files() As String = e.Argument(1)

Dim DeleteSource As Boolean = e.Argument(2)

Dim FailedFiles As New List(Of String)

For Each File In Files

Try

Dim OutFile As String = Path.Combine(Game.libraryname, Path.GetFileNameWithoutExtension(File) & «.wav»)

If My.Settings.UseFFMPEG Then

FFMPEG_WaveCreator(File, OutFile, Game)

Else

WaveCreator(File, OutFile, Game)

End If

If DeleteSource Then

IO.File.Delete(File)

End If

Catch ex As Exception

LogError(ex)

FailedFiles.Add(File)

End Try

WavWorker.ReportProgress(0)

Next

e.Result = FailedFiles

End Sub

Private Sub WavWorker_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles WavWorker.ProgressChanged

ProgressBar1.PerformStep()

ReloadTracks(GetCurrentGame)

RefreshTrackList()

End Sub

Private Sub WavWorker_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles WavWorker.RunWorkerCompleted

ProgressBar1.Value = 0

Dim MsgBoxText As String = «Conversion complete!»

Dim FailedFiles As New List(Of String)

For Each FilePath In e.Result

FailedFiles.Add(Path.GetFileName(FilePath))

Next

If FailedFiles.Count > 0 Then

MsgBoxText = MsgBoxText & » However, the following files failed to convert: « & String.Join(«, «, FailedFiles)

End If

ReloadTracks(GetCurrentGame)

RefreshTrackList()

MsgBox(MsgBoxText)

EnableInterface()

End Sub

Private Function GetCurrentGame() As SourceGame

For Each Game In Games

If Game.name = GameSelector.SelectedItem.ToString Then

Return Game

End If

Next

Return Nothing ‘Null if nothing found

End Function

Private Sub ReloadTracks(Game As SourceGame)

If IO.Directory.Exists(Game.libraryname) Then

Game.tracks.Clear()

For Each File In System.IO.Directory.GetFiles(Game.libraryname)

If Game.FileExtension = Path.GetExtension(File) Then

Dim track As New track

track.name = Path.GetFileNameWithoutExtension(File)

Game.tracks.Add(track)

End If

Next

CreateTags(Game)

LoadTrackKeys(Game)

SaveTrackKeys(Game) ‘To prune hotkeys from non-existing tracks

Else

System.IO.Directory.CreateDirectory(Game.libraryname)

End If

End Sub

Private Sub RefreshTrackList()

TrackList.Items.Clear()

Dim Game As SourceGame = GetCurrentGame()

For Each Track In Game.tracks

Dim trimmed As String = «»

If Track.endpos > 0 Then

trimmed = «Yes»

End If

TrackList.Items.Add(New ListViewItem({«False», Track.name, Track.hotkey, Track.volume & «%», trimmed, «»»» & String.Join(«»», «»», Track.tags) & «»»»}))

Next

TrackList.AutoResizeColumn(0, ColumnHeaderAutoResizeStyle.HeaderSize)

TrackList.AutoResizeColumn(1, ColumnHeaderAutoResizeStyle.ColumnContent)

TrackList.AutoResizeColumn(2, ColumnHeaderAutoResizeStyle.HeaderSize)

TrackList.AutoResizeColumn(3, ColumnHeaderAutoResizeStyle.HeaderSize)

TrackList.AutoResizeColumn(4, ColumnHeaderAutoResizeStyle.HeaderSize)

TrackList.AutoResizeColumn(5, ColumnHeaderAutoResizeStyle.ColumnContent)

End Sub

Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click

If running Then

StopPoll()

Else

StartPoll()

If Not My.Settings.NoHint Then

If MessageBox.Show(«Don’t forget to type «»exec slam»» in console! Click «»Cancel»» if you don’t ever want to see this message again.», «SLAM», MessageBoxButtons.OKCancel) = Windows.Forms.DialogResult.Cancel Then

My.Settings.NoHint = True

My.Settings.Save()

End If

End If

End If

End Sub

Private Sub StartPoll()

running = True

StartButton.Text = «Stop»

SystemTrayMenu_StartStop.Text = «Stop»

DisableInterface()

StartButton.Enabled = True

TrackList.Enabled = True

SetVolumeToolStripMenuItem.Enabled = True

If PollRelayWorker.IsBusy <> True Then

PollRelayWorker.RunWorkerAsync(GetCurrentGame)

End If

End Sub

Private Sub StopPoll()

running = False

StartButton.Text = «Start»

SystemTrayMenu_StartStop.Text = «Start»

EnableInterface()

PollRelayWorker.CancelAsync()

End Sub

Private Sub CreateCfgFiles(Game As SourceGame, SteamappsPath As String)

Dim GameDir As String = Path.Combine(SteamappsPath, Game.directory)

Dim GameCfgFolder As String = Path.Combine(GameDir, Game.ToCfg)

If Not IO.Directory.Exists(GameCfgFolder) Then

Throw New System.Exception(«Steamapps folder is incorrect. Disable «»override folder detection»», or select a correct folder.»)

End If

‘slam.cfg

Using slam_cfg As StreamWriter = New StreamWriter(GameCfgFolder & «slam.cfg»)

slam_cfg.WriteLine(«alias slam_listtracks «»exec slam_tracklist.cfg»»»)

slam_cfg.WriteLine(«alias list slam_listtracks»)

slam_cfg.WriteLine(«alias tracks slam_listtracks»)

slam_cfg.WriteLine(«alias la slam_listtracks»)

slam_cfg.WriteLine(«alias slam_play slam_play_on»)

slam_cfg.WriteLine(«alias slam_play_on «»alias slam_play slam_play_off; voice_inputfromfile 1; voice_loopback 1; +voicerecord»»»)

slam_cfg.WriteLine(«alias slam_play_off «»-voicerecord; voice_inputfromfile 0; voice_loopback 0; alias slam_play slam_play_on»»»)

slam_cfg.WriteLine(«alias slam_updatecfg «»host_writeconfig slam_relay»»»)

If My.Settings.HoldToPlay Then

slam_cfg.WriteLine(«alias +slam_hold_play slam_play_on»)

slam_cfg.WriteLine(«alias -slam_hold_play slam_play_off»)

slam_cfg.WriteLine(«bind {0} +slam_hold_play», My.Settings.PlayKey)

Else

slam_cfg.WriteLine(«bind {0} slam_play», My.Settings.PlayKey)

End If

slam_cfg.WriteLine(«alias slam_curtrack «»exec slam_curtrack.cfg»»»)

slam_cfg.WriteLine(«alias slam_saycurtrack «»exec slam_saycurtrack.cfg»»»)

slam_cfg.WriteLine(«alias slam_sayteamcurtrack «»exec slam_sayteamcurtrack.cfg»»»)

For Each Track In Game.tracks

Dim index As String = Game.tracks.IndexOf(Track)

slam_cfg.WriteLine(«alias {0} «»bind {1} {0}; slam_updatecfg; echo Loaded: {2}»»», index + 1, My.Settings.RelayKey, Track.name)

For Each TrackTag In Track.tags

slam_cfg.WriteLine(«alias {0} «»bind {1} {2}; slam_updatecfg; echo Loaded: {3}»»», TrackTag, My.Settings.RelayKey, index + 1, Track.name)

Next

If Not String.IsNullOrEmpty(Track.hotkey) Then

slam_cfg.WriteLine(«bind {0} «»bind {1} {2}; slam_updatecfg; echo Loaded: {3}»»», Track.hotkey, My.Settings.RelayKey, index + 1, Track.name)

End If

Next

Dim CfgData As String

CfgData = «voice_enable 1; voice_modenable 1; voice_forcemicrecord 0; con_enable 1»

If Game.VoiceFadeOut Then

CfgData = CfgData + «; voice_fadeouttime 0.0»

End If

slam_cfg.WriteLine(CfgData)

End Using

‘slam_tracklist.cfg

Using slam_tracklist_cfg As StreamWriter = New StreamWriter(GameCfgFolder & «slam_tracklist.cfg»)

slam_tracklist_cfg.WriteLine(«echo «»You can select tracks either by typing a tag, or their track number.»»»)

slam_tracklist_cfg.WriteLine(«echo «»———————Tracks———————«»»)

For Each Track In Game.tracks

Dim index As String = Game.tracks.IndexOf(Track)

If My.Settings.WriteTags Then

slam_tracklist_cfg.WriteLine(«echo «»{0}. {1} [{2}]»»», index + 1, Track.name, «‘» & String.Join(«‘, ‘», Track.tags) & «‘»)

Else

slam_tracklist_cfg.WriteLine(«echo «»{0}. {1}»»», index + 1, Track.name)

End If

Next

slam_tracklist_cfg.WriteLine(«echo «»———————————————-«»»)

End Using

End Sub

Private Function LoadTrack(ByVal Game As SourceGame, ByVal index As Integer) As Boolean

Dim Track As track

If Game.tracks.Count > index Then

Track = Game.tracks(index)

Dim voicefile As String = Path.Combine(SteamAppsPath, Game.directory) & «voice_input.wav»

Try

If File.Exists(voicefile) Then

File.Delete(voicefile)

End If

Dim trackfile As String = Game.libraryname & Track.name & Game.FileExtension

If File.Exists(trackfile) Then

If Track.volume = 100 And Track.startpos <= 0 And Track.endpos <= 0 Then

File.Copy(trackfile, voicefile)

Else

If My.Settings.UseFFMPEG Then

FFMPEG_ConvertAndTrim(trackfile, voicefile, Game.samplerate, Game.channels, Track.startpos / Game.samplerate / 2, (Track.endpos — Track.startpos) / Game.samplerate / 2, (Track.volume / 100) ^ 6) ‘ /2 because SLAM stores Track.startpos and Track.endpos as # of bytes not sample. With 16-bit audio, there are 2 bytes per sample.

Else

Dim WaveFloat As New WaveChannel32(New WaveFileReader(trackfile))

If Not Track.volume = 100 Then

WaveFloat.Volume = (Track.volume / 100) ^ 6

End If

If Not Track.startpos = Track.endpos And Track.endpos > 0 Then

Dim bytes((Track.endpos — Track.startpos) * 4) As Byte

WaveFloat.Position = Track.startpos * 4

WaveFloat.Read(bytes, 0, (Track.endpos — Track.startpos) * 4)

WaveFloat = New WaveChannel32(New RawSourceWaveStream(New MemoryStream(bytes), WaveFloat.WaveFormat))

End If

WaveFloat.PadWithZeroes = False

Dim outFormat = New WaveFormat(Game.samplerate, Game.bits, Game.channels)

Dim resampler = New MediaFoundationResampler(WaveFloat, outFormat)

resampler.ResamplerQuality = 60

WaveFileWriter.CreateWaveFile(voicefile, resampler) ‘wav

resampler.Dispose()

WaveFloat.Dispose()

End If

End If

Dim GameCfgFolder As String = Path.Combine(SteamAppsPath, Game.directory, Game.ToCfg)

Using slam_curtrack As StreamWriter = New StreamWriter(GameCfgFolder & «slam_curtrack.cfg»)

slam_curtrack.WriteLine(«echo «»[SLAM] Track name: {0}»»», Track.name)

End Using

Using slam_saycurtrack As StreamWriter = New StreamWriter(GameCfgFolder & «slam_saycurtrack.cfg»)

slam_saycurtrack.WriteLine(«say «»[SLAM] Track name: {0}»»», Track.name)

End Using

Using slam_sayteamcurtrack As StreamWriter = New StreamWriter(GameCfgFolder & «slam_sayteamcurtrack.cfg»)

slam_sayteamcurtrack.WriteLine(«say_team «»[SLAM] Track name: {0}»»», Track.name)

End Using

End If

Catch ex As Exception

LogError(ex)

Return False

End Try

Else

Return False

End If

Return True

End Function

Private Function recog(ByVal str As String, ByVal reg As String) As String

Dim keyd As Match = Regex.Match(str, reg, RegexOptions.IgnoreCase) ‘RegexOptions.IgnoreCase because bind could be saved as lowercase

Return (keyd.Groups(1).ToString)

End Function

Private Sub PollRelayWorker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles PollRelayWorker.DoWork

PollRelayWorker.ReportProgress(SEARCHING) ‘Report that SLAM is searching.

Dim Game As SourceGame = e.Argument

Dim GameDir As String = Game.directory & Game.exename & «.exe»

SteamAppsPath = vbNullString

Dim UserDataPath As String = vbNullString

Try

If Not My.Settings.OverrideFolders Then

Do While Not PollRelayWorker.CancellationPending

Dim GameProcess As String = GetFilepath(Game.exename)

If Not String.IsNullOrEmpty(GameProcess) AndAlso GameProcess.EndsWith(GameDir) Then

SteamAppsPath = GameProcess.Remove(GameProcess.Length — GameDir.Length)

End If

Dim SteamProcess As String = GetFilepath(«Steam»)

If Not String.IsNullOrEmpty(SteamProcess) Then

UserDataPath = SteamProcess.Remove(SteamProcess.Length — «Steam.exe».Length) & «userdata»

End If

If IO.Directory.Exists(SteamAppsPath) Then

If Not Game.id = 0 Then

If IO.Directory.Exists(UserDataPath) Then

Exit Do

End If

Else

Exit Do

End If

End If

Thread.Sleep(Game.PollInterval)

Loop

Else

SteamAppsPath = My.Settings.steamapps

If IO.Directory.Exists(My.Settings.userdata) Then

UserDataPath = My.Settings.userdata

Else

Throw New System.Exception(«Userdata folder does not exist. Disable «»override folder detection»», or select a correct folder.»)

End If

End If

If Not String.IsNullOrEmpty(SteamAppsPath) Then

CreateCfgFiles(Game, SteamAppsPath)

End If

Catch ex As Exception

LogError(ex)

e.Result = ex

Return

End Try

PollRelayWorker.ReportProgress(WORKING) ‘Report that SLAM is working.

Do While Not PollRelayWorker.CancellationPending

Try

Dim GameFolder As String = Path.Combine(SteamAppsPath, Game.directory)

Dim GameCfg As String = Path.Combine(GameFolder, Game.ToCfg) & «slam_relay.cfg»

If Not Game.id = 0 Then

GameCfg = UserDataCFG(Game, UserDataPath)

End If

If File.Exists(GameCfg) Then

Dim RelayCfg As String

Using reader As StreamReader = New StreamReader(GameCfg)

RelayCfg = reader.ReadToEnd

End Using

Dim command As String = recog(RelayCfg, String.Format(«bind «»{0}»» «»(.*?)»»», My.Settings.RelayKey))

If Not String.IsNullOrEmpty(command) Then

‘load audiofile

If IsNumeric(command) Then

If LoadTrack(Game, Convert.ToInt32(command) — 1) Then

PollRelayWorker.ReportProgress(Convert.ToInt32(command) — 1)

End If

End If

File.Delete(GameCfg)

End If

End If

Thread.Sleep(Game.PollInterval)

Catch ex As Exception

If Not ex.HResult = —2147024864 Then ‘-2147024864 = «System.IO.IOException: The process cannot access the file because it is being used by another process.»

LogError(ex)

e.Result = ex

Return

End If

End Try

Loop

If Not String.IsNullOrEmpty(SteamAppsPath) Then

DeleteCFGs(Game, SteamAppsPath)

End If

End Sub

Public Function UserDataCFG(Game As SourceGame, UserdataPath As String) As String

If IO.Directory.Exists(UserdataPath) Then

For Each userdir As String In System.IO.Directory.GetDirectories(UserdataPath)

Dim CFGPath As String = Path.Combine(userdir, Game.id.ToString) & «localcfgslam_relay.cfg»

If File.Exists(CFGPath) Then

Return CFGPath

End If

Next

End If

Return vbNullString

End Function

Private Function GetFilepath(ProcessName As String) As String

Dim wmiQueryString As String = «Select * from Win32_Process Where Name = «»» & ProcessName & «.exe»»»

Using searcher = New ManagementObjectSearcher(wmiQueryString)

Using results = searcher.Get()

Dim Process As ManagementObject = results.Cast(Of ManagementObject)().FirstOrDefault()

If Process IsNot Nothing Then

Dim exePath = Process(«ExecutablePath»)

‘ Check Process(«ExecutablePath») for null before calling ToString.

‘ Fixes error that occurs if you start steam / csgo while SLAM is searching.

Dim procPath = If(exePath IsNot Nothing, exePath.ToString(), vbNullString)

If Not String.IsNullOrWhiteSpace(procPath) Then

Return Process(«ExecutablePath»).ToString

End If

End If

End Using

End Using

Return Nothing

End Function

Private Sub PollRelayWorker_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles PollRelayWorker.ProgressChanged

Select Case e.ProgressPercentage

Case SEARCHING

status = SEARCHING

StatusLabel.Text = «Status: Searching…»

Case WORKING

status = WORKING

StatusLabel.Text = «Status: Working.»

Case Else

DisplayLoaded(e.ProgressPercentage)

End Select

End Sub

Private Sub PollRelayWorker_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles PollRelayWorker.RunWorkerCompleted

If running Then

StopPoll()

End If

status = IDLE

StatusLabel.Text = «Status: Idle.»

RefreshTrackList()

If Not IsNothing(e.Result) Then ‘Result is always an exception

MessageBox.Show(e.Result.Message & » See errorlog.txt for more info.», «Error», MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

If ClosePending Then

Me.Close()

End If

End Sub

Private Sub CreateTags(ByVal Game As SourceGame)

Dim NameWords As New Dictionary(Of String, Integer)

Dim index As Integer

For Each Track In Game.tracks

Dim Words As List(Of String) = Track.name.Split({» «c, «.»c, «-«c, «_»c}).ToList

For Each Word In Words

If Not IsNumeric(Word) And Not Game.blacklist.Contains(Word.ToLower) And Word.Length < 32 Then

If NameWords.ContainsKey(Word) Then

NameWords.Remove(Word)

Else

NameWords.Add(Word, index)

End If

End If

Next

index += 1

Next

For Each Tag As KeyValuePair(Of String, Integer) In NameWords

Game.tracks(Tag.Value).tags.Add(Tag.Key)

Next

End Sub

Private Sub EnableInterface()

For Each Control In Me.Controls

Control.Enabled = True

Next

End Sub

Private Sub DisableInterface()

For Each Control In Me.Controls

Control.Enabled = False

Next

End Sub

Private Sub DisplayLoaded(ByVal track As Integer)

For i As Integer = 0 To TrackList.Items.Count — 1

TrackList.Items(i).SubItems(0).Text = «False»

Next

TrackList.Items(track).SubItems(0).Text = «True»

End Sub

Private Sub LoadTrackKeys(ByVal Game As SourceGame)

Dim SettingsList As New List(Of track)

Dim SettingsFile As String = Path.Combine(Game.libraryname, «TrackSettings.xml»)

If File.Exists(SettingsFile) Then

Dim XmlFile As String

Using reader As StreamReader = New StreamReader(SettingsFile)

XmlFile = reader.ReadToEnd

End Using

SettingsList = Deserialize(Of List(Of track))(XmlFile)

End If

For Each Track In Game.tracks

For Each SetTrack In SettingsList

If Track.name = SetTrack.name Then

‘Please tell me that there is a better way to do the following…

Track.hotkey = SetTrack.hotkey

Track.volume = SetTrack.volume

Track.startpos = SetTrack.startpos

Track.endpos = SetTrack.endpos

End If

Next

Next

End Sub

Private Sub SaveTrackKeys(ByVal Game As SourceGame)

Dim SettingsList As New List(Of track)

Dim SettingsFile As String = Path.Combine(Game.libraryname, «TrackSettings.xml»)

For Each Track In Game.tracks

If Not String.IsNullOrEmpty(Track.hotkey) Or Not Track.volume = 100 Or Track.endpos > 0 Then

SettingsList.Add(Track)

End If

Next

If SettingsList.Count > 0 Then

Using writer As StreamWriter = New StreamWriter(SettingsFile)

writer.Write(Serialize(SettingsList))

End Using

Else

If File.Exists(SettingsFile) Then

File.Delete(SettingsFile)

End If

End If

End Sub

Private Sub TrackList_MouseClick(sender As Object, e As MouseEventArgs) Handles TrackList.MouseClick

If e.Button = MouseButtons.Right Then

If TrackList.FocusedItem.Bounds.Contains(e.Location) Then

For Each Control In TrackContextMenu.Items ‘everything invisible

Control.visible = False

Next

SetVolumeToolStripMenuItem.Visible = True ‘always visible

ContextRefresh.Visible = True

If TrackList.SelectedItems.Count > 1 Then

If Not running Then ‘visible when multiple selected AND is not running

ContextDelete.Visible = True

End If

Else

If running Then

TrimToolStripMenuItem.Visible = True ‘visible when only one selected AND is running

If status = WORKING Then

LoadToolStripMenuItem.Visible = True

End If

Else

For Each Control In TrackContextMenu.Items ‘visible when only one selected AND is not running (all)

Control.visible = True

Next

LoadToolStripMenuItem.Visible = False

End If

End If

‘Maybe I should have used a case… Maybe…

End If

TrackContextMenu.Show(Cursor.Position)

End If

End Sub

Private Sub TrackList_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles TrackList.MouseDoubleClick

If TrackList.FocusedItem.Bounds.Contains(e.Location) AndAlso status = WORKING Then

LoadTrack(GetCurrentGame, TrackList.SelectedItems(0).Index)

DisplayLoaded(TrackList.SelectedItems(0).Index)

End If

End Sub

Private Sub ContextRefresh_Click(sender As Object, e As EventArgs) Handles ContextRefresh.Click

ReloadTracks(GetCurrentGame)

RefreshTrackList()

End Sub

Private Sub ContextDelete_Click(sender As Object, e As EventArgs) Handles ContextDelete.Click

Dim game As SourceGame = GetCurrentGame()

Dim SelectedNames As New List(Of String)

For Each item In TrackList.SelectedItems

SelectedNames.Add(item.SubItems(1).Text)

Next

If MessageBox.Show(String.Format(«Are you sure you want to delete {0}?», String.Join(«, «, SelectedNames)), «Delete Track?», MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

For Each item In SelectedNames

Dim FilePath As String = Path.Combine(game.libraryname, item & game.FileExtension)

If File.Exists(FilePath) Then

Try

File.Delete(FilePath)

Catch ex As Exception

LogError(ex)

MsgBox(String.Format(«Failed to delete {0}.», FilePath))

End Try

End If

Next

End If

ReloadTracks(GetCurrentGame)

RefreshTrackList()

End Sub

Private Sub ContextHotKey_Click(sender As Object, e As EventArgs) Handles ContextHotKey.Click

Dim SelectKeyDialog As New SelectKey

Dim SelectedIndex = TrackList.SelectedItems(0).Index

If SelectKeyDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim Game = GetCurrentGame()

Dim KeyIsFree As Boolean = True

For Each track In Game.tracks

If track.hotkey = SelectKeyDialog.ChosenKey Then ‘Checking to see if any other track is already using this key

KeyIsFree = False

End If

Next

If KeyIsFree Then

Game.tracks(SelectedIndex).hotkey = SelectKeyDialog.ChosenKey

SaveTrackKeys(GetCurrentGame)

ReloadTracks(GetCurrentGame)

RefreshTrackList()

Else

MessageBox.Show(String.Format(«»»{0}»» has already been assigned!», SelectKeyDialog.ChosenKey), «Invalid Key»)

End If

End If

End Sub

Private Sub RemoveHotkeyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RemoveHotkeyToolStripMenuItem.Click

For Each SelectedIndex In TrackList.SelectedItems

Dim Game = GetCurrentGame()

Game.tracks(SelectedIndex.index).hotkey = vbNullString

SaveTrackKeys(GetCurrentGame)

ReloadTracks(GetCurrentGame)

Next

RefreshTrackList()

End Sub

Private Sub GoToToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GoToToolStripMenuItem.Click

Dim Games As SourceGame = GetCurrentGame()

Dim FilePath As String = Path.Combine(Games.libraryname, Games.tracks(TrackList.SelectedItems(0).Index).name & Games.FileExtension)

Dim Args As String = String.Format(«/Select, «»{0}»»», FilePath)

Dim pfi As New ProcessStartInfo(«Explorer.exe», Args)

System.Diagnostics.Process.Start(pfi)

End Sub

Private Sub SetVolumeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SetVolumeToolStripMenuItem.Click

Dim SetVolumeDialog As New SetVolume

If SetVolumeDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

For Each index In TrackList.SelectedIndices

GetCurrentGame.tracks(index).volume = SetVolumeDialog.Volume

Next

SaveTrackKeys(GetCurrentGame)

ReloadTracks(GetCurrentGame)

RefreshTrackList()

End If

End Sub

Private Sub TrimToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TrimToolStripMenuItem.Click

If File.Exists(«NAudio.dll») Then

Dim Game As SourceGame = GetCurrentGame()

Dim TrimDialog As New TrimForm

TrimDialog.WavFile = Path.Combine(Game.libraryname, Game.tracks(TrackList.SelectedIndices(0)).name & Game.FileExtension)

TrimDialog.startpos = Game.tracks(TrackList.SelectedIndices(0)).startpos

TrimDialog.endpos = Game.tracks(TrackList.SelectedIndices(0)).endpos

If TrimDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

Game.tracks(TrackList.SelectedIndices(0)).startpos = TrimDialog.startpos

Game.tracks(TrackList.SelectedIndices(0)).endpos = TrimDialog.endpos

SaveTrackKeys(GetCurrentGame)

ReloadTracks(GetCurrentGame)

RefreshTrackList()

End If

Else

MessageBox.Show(«You are missing NAudio.dll! Cannot trim without it!», «Missing File», MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

End Sub

Private Sub RenameToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RenameToolStripMenuItem.Click

Dim Game As SourceGame = GetCurrentGame()

Dim RenameDialog As New RenameForm

Dim SelectedTrack As SourceGame.track = GetCurrentGame.tracks(TrackList.SelectedIndices(0))

RenameDialog.filename = SelectedTrack.name

If RenameDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

Try

FileSystem.Rename(Game.libraryname & SelectedTrack.name & Game.FileExtension, Game.libraryname & RenameDialog.filename & Game.FileExtension)

GetCurrentGame.tracks(TrackList.SelectedIndices(0)).name = RenameDialog.filename

SaveTrackKeys(GetCurrentGame)

ReloadTracks(GetCurrentGame)

RefreshTrackList()

Catch ex As Exception

Select Case ex.HResult

Case —2147024809

MessageBox.Show(«»»» & RenameDialog.filename & «»» contains invalid characters.», «Error», MessageBoxButtons.OK, MessageBoxIcon.Error)

Case —2146232800

MessageBox.Show(«A track with that name already exists.», «Error», MessageBoxButtons.OK, MessageBoxIcon.Error)

Case Else

MessageBox.Show(ex.Message & » See errorlog.txt for more info.», «Error», MessageBoxButtons.OK, MessageBoxIcon.Error)

End Select

End Try

End If

End Sub

Private Async Sub CheckForUpdate()

Dim UpdateText As String

Dim NeatVersion As String = My.Application.Info.Version.ToString.Remove(My.Application.Info.Version.ToString.LastIndexOf(«.»))

Try

Using client As New HttpClient

Dim UpdateTextTask As Task(Of String) = client.GetStringAsync(«http://slam.flankers.net/updates.php?version=» & NeatVersion)

UpdateText = Await UpdateTextTask

End Using

Catch ex As Exception

Return

End Try

Dim NewVersion As New Version(«0.0.0.0») ‘generic

Dim UpdateURL As String = UpdateText.Split()(1)

If Version.TryParse(UpdateText.Split()(0), NewVersion) Then

If My.Application.Info.Version.CompareTo(NewVersion) < 0 Then

If MessageBox.Show(String.Format(«An update ({0}) is available! Click «»OK»» to be taken to the download page.», NewVersion.ToString), «SLAM Update», MessageBoxButtons.OKCancel) = Windows.Forms.DialogResult.OK Then

Process.Start(UpdateURL)

End If

End If

End If

End Sub

Private Sub PlayKeyButton_Click(sender As Object, e As EventArgs) Handles PlayKeyButton.Click

Dim SelectKeyDialog As New SelectKey

If SelectKeyDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

If Not SelectKeyDialog.ChosenKey = My.Settings.RelayKey Then

My.Settings.PlayKey = SelectKeyDialog.ChosenKey

My.Settings.Save()

RefreshPlayKey()

Else

MessageBox.Show(«Play key and relay key can not be the same!», «Error», MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

End If

End Sub

Private Sub RefreshPlayKey()

PlayKeyButton.Text = String.Format(«Play key: «»{0}»» (change)», My.Settings.PlayKey)

End Sub

Public Sub LogError(ByVal ex As Exception)

If My.Settings.LogError Then

Using log As StreamWriter = New StreamWriter(«errorlog.txt», True)

log.WriteLine(«———————{0} UTC———————«, DateTime.Now.ToUniversalTime)

log.WriteLine(ex.ToString)

End Using

End If

End Sub

Private Sub ChangeDirButton_Click(sender As Object, e As EventArgs) Handles ChangeDirButton.Click

SettingsForm.ShowDialog()

End Sub

Private Sub DeleteCFGs(ByVal Game As SourceGame, ByVal SteamappsPath As String)

Dim GameDir As String = Path.Combine(SteamappsPath, Game.directory)

Dim GameCfgFolder As String = Path.Combine(GameDir, Game.ToCfg)

Dim SlamFiles() As String = {«slam.cfg», «slam_tracklist.cfg», «slam_relay.cfg», «slam_curtrack.cfg», «slam_saycurtrack.cfg», «slam_sayteamcurtrack.cfg»}

Dim voicefile As String = Path.Combine(SteamappsPath, Game.directory) & «voice_input.wav»

Try

If File.Exists(voicefile) Then

File.Delete(voicefile)

End If

For Each FileName In SlamFiles

If File.Exists(GameCfgFolder & FileName) Then

File.Delete(GameCfgFolder & FileName)

End If

Next

Catch ex As Exception

LogError(ex)

End Try

End Sub

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing

If running Then

StopPoll()

ClosePending = True

e.Cancel = True

End If

End Sub

Private Sub LoadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LoadToolStripMenuItem.Click

LoadTrack(GetCurrentGame, TrackList.SelectedItems(0).Index)

DisplayLoaded(TrackList.SelectedItems(0).Index)

End Sub

Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize

If My.Settings.MinimizeToSysTray Then

If WindowState = FormWindowState.Minimized Then

SystemTrayIcon.Visible = True

SystemTrayIcon.BalloonTipIcon = ToolTipIcon.Info

SystemTrayIcon.BalloonTipTitle = «SLAM»

SystemTrayIcon.BalloonTipText = «Minimized to tray»

SystemTrayIcon.ShowBalloonTip(50000)

Hide()

ShowInTaskbar = False

End If

End If

End Sub

Private Sub SystemTrayIcon_DoubleClick(sender As Object, e As EventArgs) Handles SystemTrayIcon.DoubleClick

Show()

ShowInTaskbar = True

WindowState = FormWindowState.Normal

SystemTrayIcon.Visible = False

End Sub

Private Sub SystemTrayMenu_OpenHandler(sender As Object, e As EventArgs) Handles SystemTrayMenu_Open.Click

Show()

ShowInTaskbar = True

WindowState = FormWindowState.Normal

SystemTrayIcon.Visible = False

End Sub

Private Sub SystemTrayMenu_StartStopHandler(sender As Object, e As EventArgs) Handles SystemTrayMenu_StartStop.Click

If running Then

StopPoll()

Else

StartPoll()

End If

End Sub

Private Sub SystemTrayMenu_ExitHandler(sender As Object, e As EventArgs) Handles SystemTrayMenu_Exit.Click

If running Then

StopPoll()

ClosePending = True

Else

Me.Close()

End If

End Sub

End Class

FAQs

Steam – популярная игровая платформа, которой пользуются миллионы игроков из разных стран. Однако, как и любой другой сервис для геймеров, Стим имеет свои недостатки. Например, многие пользователи сталкиваются со сбоями в работе системы облачного хранения данных (Steam Cloud). Одна из распространенных ошибок – «Steam не удалось синхронизировать ваши файлы». В этой статье мы расскажем, почему она появляется и как от нее избавиться.

Содержание:

• 1. Ошибка «Стим не смог синхронизировать ваши файлы»: основные причины
• 2. Проверка работы серверов Steam
• 3. Удаление папки с данными пользователя Steam
• 4. Проверка целостности файлов игры в Стиме
• 5. Восстановление папки библиотеки Steam
• 6. Отключение брандмауэра
• 7. Добавление Steam в исключения антивирусника
• 8. Включение синхронизации со Steam Cloud
• 9. Обновление файлов программы Стим

1. Ошибка «Стим не смог синхронизировать ваши файлы»: основные причины

В большинстве случаев данная ошибка связана со временными сбоями на серверах Steam. Если вы ранее уже пользовались облачным хранилищем и оно работало у вас без нареканий, но в какой-то определенный момент начали появляться уведомления о невозможности синхронизации файлов, то просто подождите некоторое время. С вероятностью в 90% эта проблема решится без вашего вмешательства.

Если же синхронизация со Steam Cloud у вас не работает изначально или прошло уже много времени, а сообщение о том, что Steam не смог синхронизировать файлы, все равно появляется, то стоит проверить, не связано ли это с настройками вашего компьютера или другими факторами. Ниже мы подробно расскажем, как избавиться от ошибки «Стим не удалось синхронизировать файлы».

Прежде чем начать копаться в настройках и файлах своего ПК обязательно проверьте, работают ли сервера Steam на данный момент. Проверить статус серверов Стим можно двумя способами:

• Первый вариант: войдите в приложение и проверьте работоспособность магазина, списка друзей и т. д. Если все функционирует как и раньше, значит, с серверами игровой платформы все нормально.
• Второй вариант: воспользуйтесь специальными сервисами для проверки статуса серверов Steam. Например, подробную информацию об этой игровой платформе предоставляет сайт steamstat.us.

В том случае, если сервера Steam работают нормально, но ошибка «Не удалось синхронизировать файлы» все равно появляется, попробуйте избавиться от нее с помощью рекомендаций из этой статьи.

3. Удаление папки с данными пользователя Steam

В большинстве случаев ошибка «Steam не смог синхронизировать ваши файлы» решается удалением папки с данными пользователя. Она называется userdata и находится по умолчанию здесь: C:Program Files (x86)Steamsteam. Если же приложение Стим у вас установлено на другой диск и вы не можете найти папку userdata вручную, воспользуйтесь службой поиска файлов на вашем компьютере:

1. Перейдите в «Этот компьютер»;
2. Выберите строку «Поиск» в верхнем правом углу;
3. Введите название папки – userdata и нажмите Enter;
4. Дождитесь результатов поиска и выберите в списке папку userdata Стима.

После этого завершите все процессы Steam в диспетчере задача и удалите userdata со своего компьютера. В том случае, если вы переживаете за сохранность каких-то важных данных, можете предварительно скопировать содержимое папки userdata и сохранить его в другом месте, а только потом удалить ее. Выполнив это действие, запустите приложение Стим и проверьте, исчезла ли ошибка «Не удалось синхронизировать файлы в Steam Cloud».

Что хранится в папке userdata Steam?

В папке userdata содержатся следующие сведения о пользователе:

• Данные учетной записи;
• Настройки облачного хранилища;
• Данные о синхронизации с Steam Cloud;
• Данные игр вашего аккаунта и т. д.

Если какие-либо файлы внутри этой папки повреждены, то появляется ошибка «Steam не смог синхронизировать ваши файлы». В этом случае избавиться от нее можно только полным удалением userdata.

4. Проверка целостности файлов игры в Стиме

Игровые файлы нередко повреждаются в процессе скачивания или во время автоматического/ручного обновления через Стим. Это одна из причин, по которой пользователь не может синхронизироваться с облачным хранилищем Steam Cloud. Если вы начали получать сообщения об ошибке при синхронизации файлов, мы рекомендуем вам проверить целостность файлов игры:

1. Запустите Steam и перейдите в библиотеку;
2. Выберите нужную игру в списке, кликните по ней правой кнопкой мышки и в выпадающем меню нажмите «Свойства»;
3. В разделе «Локальные файлы» нажмите «Проверить целостность игровых файлов…»;
4. Дождитесь завершения операции.

Теперь вы можете проверить, исчезла ли ошибка «Steam не удалось синхронизировать ваши файлы». Если проблема была в поврежденных файлах игры, то такое уведомление больше не появится.

5. Восстановление папки библиотеки Steam

В некоторых случаях невозможность синхронизации со Steam Cloud связана с повреждением содержимого папки SteamLibrary. Вы можете проверить целостность файлов, которые находятся в ней, с помощью программы Стим:

1. Запустите Steam и в верхнем левом углу кликните «Steam»;
2. В выпадающем меню выберите «Настройки»;
3. В новом окне выберите раздел «Загрузки», а потом нажмите на «Папки библиотеки Steam»;
4. В следующем окне выберите диск, где находится папка с играми, нажмите на три точки (…) справа и в выпадающем меню кликните по «Восстановить папку».

Обратите внимание! Если у вас папки SteamLibrary есть на нескольких разных дисках, восстановите их по очереди.

После того, как восстановление папки/папок SteamLibrary завершится, проверьте, исчезла ли ошибка «Стим не смог синхронизировать ваши файлы».

6. Отключение брандмауэра

Нередко программы, которые отвечают за защиту ПК, блокируют работу некоторых приложений или сервисов, связанных с ними. К примеру, брандмауэр Windows частенько конфликтует со Стимом, и это становится причиной появления ошибки «Steam не смог синхронизировать ваши файлы».

Дело в том, что Steam в фоновом режиме регулярно «перебирает» файлы установленных на ваш компьютер игр: обновляет их, догружает новые и т. д. Эти действия брандмауэр Windows расценивает как подозрительные, поэтому блокирует их, из-за чего связь с облачным хранилищем обрывается и синхронизация не происходит. В этом случае вам нужно отключить брандмауэр Windows:

1. Откройте «Панель управления»;
2. Выберите в списке «Брандмауэр Защитника Windows»;
3. Кликните по «Изменение параметров уведомлений»;
4. Выберите «Отключить Брандмауэр Защитника Windows» для Частной и Общественной сети.

Теперь синхронизация файлов с Steam Cloud должна пройти без ошибок.

7. Добавление Steam в исключения антивирусника

Как и брандмауэр Windows, стороннее антивирусное ПО так же может препятствовать нормальной работе Steam. Если у вас регулярно выскакивает ошибка «Стим не удалось синхронизировать файлы», то добавьте приложение в исключения вашего антивируса. Как это сделать, зависит от того, какой антивирус у вас стоит. Мы покажем на примере ESET NOD32:

1. Откройте программу и перейдите в раздел «Настройки». В правой части окна нажмите на «Защита компьютера»;
2. Рядом со строкой «Защита файловой системы в режиме реального времени» кликните по значку в виде шестеренки;
3. В выпадающем меню выберите «Изменить исключения…»;
4. В окне «Исключить из обнаружения» нажмите «Добавить»;
5. Выберите путь к папке Steam и добавьте ее.

После этого она появится в списке исключений. С этого момента антивирусник не будет проверять ее содержимое и как-либо влиять на работу приложения.

Если у вас на компьютере установлен другой антивирус (Kaspersky Internet Security, Avast и проч.), посетите официальный сайт разработчика и узнайте, как добавить приложения в исключения конкретного защитного ПО.

8. Включение синхронизации со Steam Cloud

Если недавно вы изменяли настройки Стима, то, вероятно, случайно отключили синхронизацию с системой облачного хранения игровых файлов. Из-за этого у вас начали появляется уведомления о том, что синхронизация завершилась неудачей. Чтобы избавиться от ошибки «Не удалось синхронизировать файлы», сделайте следующее:

1. Запустите программу и в верхнем левом углу кликните «Steam»;
2. В выпадающем меню выберите «Настройки»;
3. В новом окне выберите раздел «Cloud», а потом поставьте флажок напротив «Включить синхронизацию со Steam Cloud для поддерживаемых приложений».

Если в будущем вам потребуется отключить эту функцию, сделайте то же самое, только уберите флажок рядом с «Включить синхронизацию со Steam Cloud для поддерживаемых приложений».

9. Обновление файлов программы Стим

Если перечисленные выше способы не помогли вам исправить ошибку «Steam не смог синхронизировать ваши файлы», обновите программу. После этого все файлы конфигурации клиента Steam будут удалены и установлены заново. Как обновить Стим:

1. Откройте диспетчер задач с помощью комбинации клавиш Ctrl + Shift + Esc и завершите все процессы, связанные со Стимом.
2. Перейдите в проводник и найдите папку, куда установлен Steam.
3. Выберите все файлы и папки, кроме папки steamapps и Steam.exe.
4. Удалите все выбранные файлы.
5. Перезагрузите компьютер, а затем запустите программу Steam от имени администратора.
6. Подождите, пока Стим загрузит недостающие файлы.

После этого ошибка «Steam не смог синхронизировать ваши файлы» должна исчезнуть.

Пользователей Стим с каждым годом становится всё больше. Этому поспособствовали разработчики компьютерных игр, которые ограничивают доступ к сети пиратские копии. Есть ряд других причин, но в этой статье мы поговорим о проблемах клиента, с которыми мы часто сталкиваемся. Вы узнаете, как решить ошибку «Steam cannot run from a folder path with non-ASCII characters».

Причина ошибки в Steam

Данная проблема появляется у пользователей сразу после установки клиента популярной игровой библиотеки Steam. Как только мы выбираем иконку на рабочем столе — появляется системное сообщение. Часто в нём описана и причина, и даже решения ошибки. Но запутывает английский язык, который является родным для системы Windows. Есть и русскоязычная версия этого сообщения и оно выглядит приблизительно так: система не может запустить программу из папки, в имени которой есть символы не из английского языка.

Это значит, что при установке Стима вы указали папку для установки, имя которой на русском. Или по пути к Steam есть такая папка. Запомните — папки в компьютере нужно называть только английскими символами. При этом можно использовать транслитерацию: «Moja Papka» или «Stim». Не исключены и другие причины, которые могут нарушать работу системы и вызывать ошибки.

Это может быть полезным: Steam client not found Dota 2 — что делать?

Как исправить ошибку в Стим

Для того, чтобы исправить ошибку, вы можете попытаться просто переименовать папку на пути к Steam, в которой имя не соответствует требованиям. Есть способы, которые помогут вам быстро определить текущее расположение папки Steam.

1. Выберите иконку библиотеки на рабочем столе ПКМ;
2. Нажмите в окне пункт «Расположение файла»;
3. Откроется окно папки со Steam, в котором вы сможете определить его путь и найти нужную папку.

Этот путь находится в верхней строке окна. Запомните его или не закрывайте эту папку, чтобы видеть, где она расположена. Чтобы дать папке новое имя, нужно снова нажать ПКМ и выбрать «Переименовать». После этого попробуйте запустить Steam. Если ошибка «Cannot run from a folder path with non-ASCII characters» снова появляется, переходим к следующему способу.

Читайте также: Unable to initialize Steam API, как исправить?

Переустановка Steam

Чтобы вы смогли запустить Стим без ошибок, нужно переустановить клиент. Но сделать это правильно. Каждая система Windows имеет, как правило два локальных диска — один для системы (C), другой для файлов пользователя (D). Это удобно и позволяет не засорять раздел с Виндовс пользовательскими данными. Лучше всего установить новый Стим на не системный том. Но перед установкой нужно удалить старый клиент.

1. Нажмите вместе WIN+X и выберите «Панель управления»;
2. Затем нажмите «Удаление программ»;
3. В списке найдите клиент, выберите его мышью и вверху нажмите кнопку «Удалить»;
4. Теперь откройте сайт Стима https://store.steampowered.com/?l=russian и скачайте новый клиент;
5. Откройте диск D (или С, если он один) и создайте здесь папку «Steam». Только английскими буквами. И новая папка не должна размещаться в другой (должна быть в корне диска);
6. Запустите клиент, но не спешите нажимать кнопку установки. Дойдите до момента, когда вам предлагают путь для установки. Выберите кнопку «Обзор» и укажите папку, которую вы только что создали — «Steam»;
7. Теперь подтвердите установку и дождитесь её завершения.

После установки попробуйте запустить клиент. Ошибка не появится, так как в новом пути к файлам библиотеки нет непонятных для системы символов.

Узнайте, что делать, если система VAC не смогла проверить вашу игровую сессию в CS:GO.

Что делать, если ошибка в Steam всё равно появляется

Если решить проблему с запуском Стим не удалось вышеизложенными способами,значит причина не в имени папок. Скорее всего в системе появился вирус, который мешает нормальной работе вашего ПК. А это проблема уже серьёзнее той, которую мы пытались решить. Вам нужно вернуться в окно для удаления программ и просмотреть весь список приложений. Найдите здесь все игры и программы, которыми вы не пользуетесь. И удалите их. Почистите также свои папки с файлами: музыку, изображения, видео.

Ваш встроенный антивирус скорее всего уже бессилен. Так как он не реагирует на вирус, поселившийся в компьютере. Поэтому вам нужен сторонний защитник. В таких случаях многие более опытные пользователи применяют сканирующие утилиты от популярных разработчиков. Можем порекомендовать утилиту от Лаборатории Касперского — https://www.kaspersky.com/downloads/thank-you/free-virus-removal-tool. Или одноразовое средство по этой ссылке https://free.drweb.ru/download+cureit+free/ от Dr.WEB.

Предложенные программы являются бесплатными и портативными. Это значит, что их не нужно устанавливать. Загрузите файл утилиты и запустите её, согласившись с правилами использования. Через некоторое время сканирование завершится, и вы сможете узнать результаты. Если подозрение падёт на одну из ваших игр или программ — не задумываясь удаляйте её. Это источник ваших проблем. После чистки ПК от вирусов перегрузите компьютер и запустите Steam. Если ошибка «Steam cannot run from a folder path with non-ASCII characters» снова появляется — переустановите клиент.

На чтение 15 мин. Просмотров 1.1k. Опубликовано 21.04.2021

 C:  Program Files (x86)  Steam  steamapps  download  47890  EP11  Game. 

 C:/Program Files (x86)/Steam. 

Обновлено: 29.01.2023

Отдельные игроки жалуются на то, что в Red Dead Redemption 2 выскакивает ошибка «Ошибка: 0x99380000» после того, как какое-то время идет загрузка. Сущность ошибки — не удается подключиться к игровым cервисам Rockstar, а пользователю предлагается повторить попытку позже.

На данный момент известно, что практически все, кто столкнулся с такой проблемой, являются абонентами провайдера Ростелеком. Причиной этого является то, что этот самый провайдер по каким-то причинам заблокировал порты Rockstar, а потому у игрока остается не так много вариантов решить проблему: либо сменить провайдеру, либо попробовать позвонить в его службу поддержки, либо же просто использовать VPN, что и подойдет для большинства игроков.

5 дек. 2020 в 1:40

Купил игру, скачал, зашёл, нажал кнопку <<Играть>>. Идёт загрузка, после чего появляется ошибка: «ВНИМАНИЕ Не удалось подключиться к игровым cервисам Rockstar. Повторите попытку позже. [Ошибка: 0x99380000]».

Я весь интернет перерыл, в поиске решения данной проблемы. Я 1000 раз перезагружал роутер, запускал игру от им. Администратора. Всё напрасно. Как была ошибка, так и осталось.

7 mb/s, исходящая — 0,8 mb/s.

Может быть проблема в исходящей скорости интернета?
Заранее спасибо.

Я так понял у меня ростелеком и мне что бы не зависали легендарные преступники нужно произвести кучу манипуляций с роутором что за бред, как они игру делают, через одно место что ли

Девушка купила Red Dead Online в стиме, играла пол дня в покер и по какой то причине он теперь у нее недоступен. При этом у меня на RDR2 купленной в лаунчере Рокстаров, все работает нормально.

Продай, Решил. Написал в саппорт рокстар, через 2 дня подарили стол

А кто на ростелекоме играет, у кого есть баги с легендарными

привет привет, беда с листками навыка, получил 30 лвл охотника за головами, страницы в инвентаре, все плюхи разблокированы, но сам навык не выучивается, ни при перелистывании всех навыков, ни при прочтении, короче не как. такая же хрень была до обновления натуралиста, с другими навыками , при том что у товарища все нормально работает, играю на ПК, системник пушка, винда 10. навыки : бросок через плечо и бросок восьмеркой, в списке все остальные проставлены галками, а на этих двух галочки по ходу в запой ушли, подскажите кто сталкивался с такой херней и как решили проблему

Евгений Смирнов запись закреплена

Подскажите пожалуйста, на PS4 вчера установил RD online и даже чуть поиграл, сейчас запускаю и высвечивается ошибка, что Не удалось подключиться к игровым сервисам Rockstar. Повторите попытку позже (ошибка 0х99380000) может кто знает в чем проблема?

попробуй консоль из розетки на пару минут выдернуть, как не странно, но нередко помогает. Роутер для пущего эффекта тоже перезагрузи

Ничего не помогает..ни прописание днс адресом, ни перезагрузка роутера..не думал что и на ps4 я буду игры через танцы с бубнами запускать..первая игра такая дибильная

Елена Холод

Евгений, я так мучалась с прошлой обновой, тоже танцы с бубнами и все дела, а потом оно само прошло. Это же роки, они сначала сломали, а потом сделают

Читайте также:

• Как запустить авторыбалку в майнкрафт
• Ошибка при запуске for honor appdata folder detection error
• Pubg new state системные требования на ios
• Как включить jei майнкрафт
• Enclave вылетает вин 10

Содержание статьи