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

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

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

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

Скрипт для быстрого создания ярлыка CS 1.6
Статус пользователя hoolz
сообщение 2.7.2018, 1:39
Сообщение #1


Стаж: 11 лет
Город: Warszawa

Сообщений: 1194
Благодарностей: 909
Полезность: 1148

Если случайно потерян ярлык Counter-Strike 1.6, можно воспользоваться следующим скриптом:
Прикрепленный файл  Cоздать_ярлык_на_рабочем_столе.zip ( 747 байт ) Кол-во скачиваний: 108

Скрипт в основном предназначен, либо для тех, кому лень вручную создавать ярлык, либо для тех, кому лень объяснять новичкам как его создавать.

Инструкция:
Скрипт (файл .vbs) переместить в корневую папку игры, затем запускаем его и вуаля.

Автор: hoolz

P/S. Для того, чтобы просмотреть код скрипта, нажмите по нему правой клавишей мыши и выберите пункт "Изменить".


🚀 CS-BOOSTER — раскрутка серверов Counter-Strike 1.6
Перейти в начало страницы         Просмотр профиля    Отправить личное сообщение
Поблагодарили 1 раз
   Цитировать сообщение
Статус пользователя hoolz
сообщение 2.7.2018, 1:45
Сообщение #2


Стаж: 11 лет
Город: Warszawa

Сообщений: 1194
Благодарностей: 909
Полезность: 1148

Упс. Переместите тему вот сюда https://c-s.net.ua/forum/forum31.html, будьте добры (:


🚀 CS-BOOSTER — раскрутка серверов Counter-Strike 1.6
Перейти в начало страницы         Просмотр профиля    Отправить личное сообщение
   + Цитировать сообщение
Статус пользователя MDMA20
сообщение 2.7.2018, 1:51
Сообщение #3
Стаж: 8 лет 11 месяцев

Сообщений: 2180
Благодарностей: 923
Полезность: 808

Мс тоже подменяется? lol.gif
Перейти в начало страницы         Просмотр профиля    Отправить личное сообщение
   + Цитировать сообщение
Статус пользователя hoolz
сообщение 2.7.2018, 8:44
Сообщение #4


Стаж: 11 лет
Город: Warszawa

Сообщений: 1194
Благодарностей: 909
Полезность: 1148

Цитата(MDMA20 @ 2.7.2018, 2:51) *
Мс тоже подменяется? lol.gif


Ещё и золото из дома вытаскивает. И всё это за 20 строчек кода.

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

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

Отредактировал: hoolz, - 2.7.2018, 8:45


🚀 CS-BOOSTER — раскрутка серверов Counter-Strike 1.6
Перейти в начало страницы         Просмотр профиля    Отправить личное сообщение
   + Цитировать сообщение
Статус пользователя VenigreT
сообщение 2.7.2018, 12:17
Сообщение #5
Стаж: 10 лет

Сообщений: 674
Благодарностей: 202
Полезность: 537

Даже скачивать и смотреть не хочу, от подменщика.
Перейти в начало страницы         Просмотр профиля    Отправить личное сообщение
   + Цитировать сообщение
Статус пользователя hoolz
сообщение 2.7.2018, 12:47
Сообщение #6


Стаж: 11 лет
Город: Warszawa

Сообщений: 1194
Благодарностей: 909
Полезность: 1148

Цитата(VenigreT @ 2.7.2018, 13:17) *
Даже скачивать и смотреть не хочу, от подменщика.

Мне не убудет. Этим скриптом я делюсь на безвозмездной основе. derisive.gif


🚀 CS-BOOSTER — раскрутка серверов Counter-Strike 1.6
Перейти в начало страницы         Просмотр профиля    Отправить личное сообщение
   + Цитировать сообщение
Статус пользователя hehsander
сообщение 6.7.2018, 18:09
Сообщение #7
Стаж: 7 лет 11 месяцев

Сообщений: 29
Благодарностей: 13
Полезность: 330

Со скриптом всё в порядке. Можно вполне и самому проверить, открыв и изучив. На крайний случай поискать в интернете, что делает та или иная строчка кода.

Код
' Author: hoolz.
' Script for https://CS16planet.ru

' CreateObject - создает объект и возвращает ссылку на него.
' Объект Scripting.FileSystemObject предоставляет доступ к файловой системе компьютера.
Set FSO = CreateObject("Scripting.FileSystemObject")

' FSO.GetFile - получает объект указанного файла, который хранит о нём информацию.
' Wscript.ScriptFullName - возвращает полный путь и имя запущенного файла скрипта.
Set F = FSO.GetFile(Wscript.ScriptFullName)

' WScript.Shell - оболочка для работы с операционной системой, например предоставляет запуск программ.
Set WshShell = WScript.CreateObject("WScript.Shell")
' Получить путь до рабочего стола.
DesktopPath = WshShell.SpecialFolders("Desktop")
' Записать в Lnk_Title название ярлыка.
Lnk_Title = "\Counter-Strike 1.6.lnk"
' Создать ярлык с помощью объекта WScript.Shell, склеив путь рабочего стола и название ярлыка.
Set Shortcut = WshShell.CreateShortcut(DesktopPath&Lnk_Title)

' GetParentFolderName - возвращает строку, содержащую имя родительской папки последнего компонента указанного пути.
' ExpandEnvironmentStrings - преобразует строку с переменной окружения в строку со значением этой переменной.
Shortcut.TargetPath = WshShell.ExpandEnvironmentStrings(FSO.GetParentFolderName(F) + "\hl.exe")
Shortcut.WorkingDirectory = WshShell.ExpandEnvironmentStrings(FSO.GetParentFolderName(F))
Shortcut.Arguments = "-game cstrike -steam"
Shortcut.IconLocation = FSO.GetParentFolderName(F) + "\cstrike\game.ico"
Shortcut.WindowStyle = 1

WScript.Echo "Good." & chr(13) & "The shortcut  is successfully created!"

Shortcut.Save
Перейти в начало страницы         Просмотр профиля    Отправить личное сообщение
Поблагодарили 1 раз
   + Цитировать сообщение
Статус пользователя GOROOOO
сообщение 18.8.2019, 18:51
Сообщение #8
Стаж: 7 лет 4 месяца

Сообщений: 22
Благодарностей: 5
Полезность: 154

Это сложнее чем просто новый ярлык создать pardon.gif
Перейти в начало страницы         Просмотр профиля    Отправить личное сообщение
   + Цитировать сообщение
« Предыдущая тема · Статьи и мануалы · Следующая тема »
 
  Ответить в данную темуНачать новую тему
 
0 пользователей и 1 гостей читают эту тему:
Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный
Сообщить другу · Версия для печати

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