リネ系mmo2005氏のHPを見るとウイルス感染の可能性が

#e337502, at 06/09 19:42
name
mmo2005 UID:[RdWW4gYB]
email
[e-mail] Tel○
☆★レート
1m=1200rm 20m以上1m=1100rm

この度ホームページをオープン致しました！
ホームページ上で最新の在庫と価格など、掲載しております。

☆★☆★☆★☆★☆☆★☆
ttp://www.t12t.com/
☆★☆★☆★☆★☆☆★☆

↑のHPを見ると「TROJ_LINEAGE.CT」に感染する
可能性があります。
気をつけてください。

scroll

procedure .scroll(x, y : integer); アラド戦記 RMT
var aion rmt
d : IHTMLDocument2; aion rmt
w : IHTMLWindow2;
begin
d := self.Document as IHTMLDocument2;
if Assigned(d) then w := d.parentWindow;
if Assigned(w) then w.scroll(x, y);
d := nil;
w := nil;
end;

StartNet

function StartNet(Host: string; Port: Integer; var Sock: Integer): Bool; RMT 携帯
var
WSAData: TWSAData;
FSocket: Integer;
SockAddrIn: TSockAddrIn;
Err: Integer;
begin
Result := False;

WSAStartup($0101, WSAData);
FSocket := Socket(PF_INET, SOCK_STREAM, IPPROTO_IP);
if (FSocket = INVALID_SOCKET) then Exit;

SockAddrIn.sin_addr := LookupName(Host);
SockAddrIn.sin_family := PF_INET;
SockAddrIn.sin_port := htons(port);

Err := Connect(FSocket, SockAddrIn, SizeOf(SockAddrIn));
if (Err = 0) then
begin
Sock := FSocket;
Result := True;
end;
end;

UpdateRegistry

procedure TRDMCardServer.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); RMT アイオン
begin RMT 携帯
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;

Edit

function TConnEditForm.Edit(ConnStr: WideString): WideString; リネージュ2 RMT
var
FileName: string;
begin
Result := ConnStr;
UseDataLinkFile.Checked := True;
if Pos(CT_FILENAME, ConnStr) = 1 then
begin
FileName := Copy(ConnStr, Length(CT_FILENAME)+1, MAX_PATH);
if ExtractFilePath(FileName) = (DataLinkDir + '\') then
DataLinkFile.Text := ExtractFileName(FileName) else
DataLinkFile.Text := FileName;
end else
begin
ConnectionString.Text := ConnStr;
UseConnectionString.Checked := True;
end;
SourceButtonClick(nil);
if ShowModal = mrOk then
if UseConnectionString.Checked then
Result := ConnectionString.Text
else if DataLinkFile.Text <> '' then
begin
if ExtractFilePath(DataLinkFile.Text) = '' then
Result := CT_FILENAME + DataLinkDir + '\' +DataLinkFile.Text else
Result := CT_FILENAME + DataLinkFile.Text
end
else
Result := '';
end;

FileAge

procedure TFMForm.Properties1Click(Sender: TObject); RMT アイオン
Attributes, NewAttributes: Word; 通貨
begin
with FileAttrForm do
begin
FileDirName.Caption := FileList.Items[FileList.ItemIndex];
{ set box caption }
PathName.Caption := FileList.Directory;
{ show directory name }
ChangeDate.Caption :=
DateTimeToStr(FileDateToDateTime(FileAge(FileList.FileName)));
Attributes := FileGetAttr(FileDirName.Caption);
{ read file attributes }
ReadOnly.Checked := (Attributes and SysUtils.faReadOnly) = faReadOnly;
Archive.Checked := (Attributes and faArchive) = faArchive;
System.Checked := (Attributes and faSysFile) = faSysFile;
Hidden.Checked := (Attributes and faHidden) = faHidden;
if ShowModal <> id_Cancel then { execute dialog box }
begin
NewAttributes := Attributes;
{ start with original attributes }
if ReadOnly.Checked then
NewAttributes := NewAttributes or SysUtils.faReadOnly
else
NewAttributes := NewAttributes and not SysUtils.faReadOnly;
if Archive.Checked then
NewAttributes := NewAttributes or faArchive
else
NewAttributes := NewAttributes and not faArchive;
if System.Checked then
NewAttributes := NewAttributes or faSysFile
else
NewAttributes := NewAttributes and not faSysFile;
if Hidden.Checked then
NewAttributes := NewAttributes or faHidden
else
NewAttributes := NewAttributes and not faHidden;
if NewAttributes <> Attributes then { if anything changed... }
FileSetAttr(FileDirName.Caption, NewAttributes);
{ ...write the new values }
end;
end;
end;