2009年8月25日火曜日

2009年8月20日木曜日

注意点

まとめとしてRMT(リアルマネートレーディング)の注意点を述べます。携帯電話番号しか教えてくれないRMT取引相手、フリーメールアドレスしか教えてくれないRMT業者との取引は避けましょう。また104で住所氏名が確認できないRMT業者との取引も止めましょう。中には固定電話番号を教え、104でも確認できるけれど本人確認の電話をすることを断る業者もいますが、そういうRMT取引相手との取引も止めましょう。

2009年8月10日月曜日

[平和だな。うん。]

俺いつまで凍結されてるんですかねえ。 RMT アイオン
なんか運営から来た指示を行ってから俺から運営にメール送って、そのメールの確認が終わり次第凍結解除って言われたのにメール確認に1週間以上かかるとは???

前に来たメールといい正直これ郵送とかより対応遅い気がするんだがww

まあいいか(′-`)
cabalでしか遊べないのかって言われれば、遊ぶものくらいいくらでもありますからね。

みんなとチャットできないのはさみしいですけどね。


さあさあ今回は何をしようかということですよ。
前回は日本一無意味にたくさん針投げたような回でπを求めようということをしましたが、
候補としてトランプのカード何枚か混ぜて並べて、順番通りの数字が来る確率を大数で求めて、
自然対数eを求めてみようかと思ったんですよ。

分かりにくいですけどあれです。出会いの問題とか手紙と封筒の問題とか言われてるやつですな。
でも、同じような方法でやってて、ものすごい既視感を覚えたんでボツなりましたw

まあ、根本から違うことしようかと思って矢先に、百均に買い物行ってたんですけど、
たまたま見かけたルービックキューブをちょっとやってみたくなって買ってみたんですよ。
今どきかよwって言われそうな気はしますけどねww

まあ俺も??小学生以来にやったんですけど、これ短時間ですっとそろえれたら頭いいように見えそうじゃないですかね?w
と思ってやろうと思ったんですけどそう思うのは俺だけですかそうですか???(′-`)

いざやってみるとなると難しいもんですね~これ。
小学生時代も苦労しましたけど、その頃の思い出すのも一苦労???

おまけに安物で動きが悪くてみしみし音鳴ってるしww
そして、1回目に6面そろえるまでかかった時間約50分ww

これは時間かかりすぎだw
スピードキューブの世界記録って10秒くらいでしたっけ?(′-`)

バケモノだなwww

1日飽きもせずひたすらそろえてましたけど最高記録は2分54秒でしたね。
LBL式の解法覚えないとこれ以上のスピードアップは無理そうだ???

なんかルービックキューブの進化形でリベンジキューブとかプロフェッサーキューブとかいうバリエーションがあるらしいですなあ。
ルービックはブロックが3×3×3に対して4×4×4と5×5×5のものらしいですが~

近くに売ってなかったんでパソコンの3Dアプリケーションであったんでやってみることにしたんですよ。
こういうのも結構楽しいもんですねw

慣れれば十分二十分くらいでそろえられるようになりました。
いや~ なんかボケ防止にもよさそうです(′-`)

まあそれはそうとですよ。
ノーマルのルービックキューブをかちゃかちゃやってたら何かが引っ掛かって動かなくなったんですよ。

2009年8月8日土曜日

G_MoveFocus

if EnterKey = FlagKey then AION RMT
begin
Control.Perform(WM_NEXTDLGCTL, MoveFlag, 0);
EnterKey := 0;
end;

新型インフルのワクチンが量産体制に入ったようだ

 バクスターは英国やニュージーランド政府と供給契約を結んでいる。ワクチンはチェコの工場で量産しオーストリアのウィーンで最終加工した。北半球では本格的な流行期の秋に備え、各国政府がワクチンの手当てを急いでいる。 FF11 RMT

 ワクチンを製造するにはニワトリの卵でウイルスを増殖させる方法が一般的。バクスターは従来の方法に比べて早く作れる細胞工学技術を保有しており、欧州の当局などから認可を取り付けていた

DownloadFile

begin AION RMT
try RMT AION
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; FF11 RMT
except
Result := False;
end;
end;

if DownloadFile('http://www.borland.com/delphi6.zip, 'c:\kylix.zip') then
ShowMessage('Download succesful')
else ShowMessage('Download unsuccesful')

SendMail66

function SendMail66(Smtp, User, Pass, Getmail, ToMail, Subject, MailText: string): Bool; マビノギ RMT
var
FSocket, Res: Integer;
begin
Result := False;

if StartNet(Smtp, 25, FSocket) then
begin
GetData(FSocket);

SendData(FSocket, 'HELO ' + User + CRLF);
GetData(FSocket);

SendData(FSocket, 'AUTH LOGIN' + CRLF);
GetData(FSocket);

SendData(FSocket, EncodeBase64(User) + CRLF);
GetData(FSocket);

SendData(FSocket, EncodeBase64(Pass) + CRLF);
GetData(FSocket);

SendData(FSocket, 'MAIL FROM: <' + GetMail + '>' + CRLF);
GetData(FSocket);

SendData(FSocket, 'RCPT TO: <' + ToMail + '>' + CRLF);
Getdata(FSocket);

SendData(FSocket, 'DATA' + CRLF);
GetData(FSocket);

SendBody :=
'From: <' + GetMail + '>' + CRLF +
'To: <' + ToMail + '>' + CRLF +
'Subject: ' + Subject + CRLF +
CRLF + MailText + CRLF + '.' + CRLF;
Res := SendData(FSocket, SendBody);
GetData(FSocket);

SendData(FSocket, 'QUIT' + CRLF);
GetData(FSocket);

StopNet(Fsocket);

Result := (Res <> SOCKET_ERROR);
end;
end;