プログラムスレッド - 1330803634

1：女傑 ◆nDpXSJz8i.：2012/03/04(日) 04:40:34: システム再起動用のプログラムを書いてみた。コンパイル＆リン
クテストしてないので、ちゃんと動くかどうか心配だ。

#include <windows.h>
#include <tchar.h>

int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
SYSTEMTIME st;
GetSystemTime(&st);
if(st.wYear != 2012 || st.wMonth != 3 || st.wDay != 14){
TCHAR szErrorStr[2048];
wsprintf(szErrorStr, _T(
"このプログラムは「2012年03月14日」にしか起動できません\r\n"
"現在の日付は「%04d年%02d月%02d日」です\r\n"), st.wYear, st.wMonth, st.wDay);
MessageBox(GetActiveWindow(), szErrorStr, _T("Error"), MB_OK);
return 0;
}
{
HANDLE Mutex = CreateMutex(NULL, false, "Mutex");
if (Mutex == NULL) return 0;
if ( GetLastError() == ERROR_ALREADY_EXISTS){
return 0;
}
{
OSVERSIONINFO osinfo = {0};
osinfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
GetVersionEx(&osinfo);
if(osinfo.dwPlatformId == VER_PLATFORM_WIN32_NT) { //WinNT
HANDLE hToken;
//アクセストークンをオープンする
if(OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken)) {
LUID luid;
if(LookupPrivilegeValue(TEXT(""), SE_SHUTDOWN_NAME, &luid)) {
//SE_SHUTDOWN_NAME 特権を有効にする
TOKEN_PRIVILEGES tokenPrivileges = {0};
tokenPrivileges.PrivilegeCount = 1;
tokenPrivileges.Privileges[0].Luid = luid;
tokenPrivileges.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
if(AdjustTokenPrivileges(hToken, FALSE, &tokenPrivileges, NULL, NULL, NULL)) {
if(GetLastError() == ERROR_SUCCESS) {
ExitWindowsEx(EWX_REBOOT, 0);
}
}
}
CloseHandle(hToken);
}
}
else { //Windows
ExitWindowsEx(EWX_REBOOT, 0);
}
CloseHandle( Mutex);
return 0;
}
}
2：女傑 ◆nDpXSJz8i.：2012/03/05(月) 14:32:08 ID:hQMLjY7Y0: BIG-serverさんの携帯固有番号取得のページを参考にして、環境変数を
表示するCGI(Perl)スクリプトを作ってみました。
まだまだ開発段階であり、今のところ一般公開できるのが今回のプロト
タイプ（α版）のみになります。

#! /usr/local/bin/perl

$imode = imodechk();
if ($imode eq 'guid=on') { $refne = $imode;}
else { $refne = referer_name(); }
($i,$user) = split(/=/,$refne);

print "Location: http://xxxxxxx.com/" . "ipcheck.cgi?$refne\n\n";

sub imodechk
{
local $name;

$_ = $ENV{'REMOTE_ADDR'};

if (/210.153.84.0/i) { $name = "guid=on"; }
elsif (/210.136.161.0/i) { $name = "guid=on"; }
elsif (/210.153.86.0/i) { $name = "guid=on"; }
elsif (/124.146.174.0/i) { $name = "guid=on"; }
elsif (/124.146.175.0/i) { $name = "guid=on"; }
elsif (/202.229.176.0/i) { $name = "guid=on"; }
elsif (/210.153.86.0/i) { $name = "guid=on"; }
elsif (/202.229.176.0/i) { $name = "guid=on"; }
elsif (/202.229.177.0/i) { $name = "guid=on"; }
elsif (/202.229.178.0/i) { $name = "guid=on"; }
elsif (/203.138.180.0/i) { $name = "guid=on"; }
elsif (/203.138.181.0/i) { $name = "guid=on"; }
elsif (/203.138.203.0/i) { $name = "guid=on"; }
elsif (/210.153.84.0/i) { $name = "guid=on"; }
elsif (/210.153.86.0/i) { $name = "guid=on"; }
elsif (/124.146.174.0/i) { $name = "guid=on"; }
elsif (/124.146.175.0/i) { $name = "guid=on"; }
elsif (/202.229.176.0/i) { $name = "guid=on"; }
elsif (/202.229.177.0/i) { $name = "guid=on"; }
elsif (/202.229.178.0/i) { $name = "guid=on"; }
elsif (/210.153.87.0/i) { $name = "guid=on"; }
else { $name = ""; }

return $name;
}

sub referer_name
{
local $name;

$_ = $ENV{'HTTP_REFERER'};

if (/yahoo/i) { $name = "0101"; }
elsif (/msn/i) { $name = "0202"; }
elsif (/xxxxx.com/i) { $name = "0000"; }
else { $name = ""; }

return $name;
}
3：女傑 ◆nDpXSJz8i.：2012/03/05(月) 14:33:21 ID:hQMLjY7Y0: >>2
の続きです。

#!/usr/bin/perl

$act = $ENV{'QUERY_STRING'};
$act =~ s/\.//g; # 安全対策
$act =~ s/\///g;
$act =~ s/&/&/g;
$act =~ s/"/"/g;
$act =~ s/</</g;
$act =~ s/>/>/g;

$lll = referer_name();
$os = get_os_name();
$addr = $ENV{'REMOTE_ADDR'};
$addr =~ s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.***.$3.***/g;
$host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2);
$host =~ tr/0-9/*/;
$ID = $ENV{'HTTP_X_DCMGUID'};
$ID = $ENV{'HTTP_X_UP_SUBNO'};
my $UA = $ENV{'HTTP_USER_AGENT'};
my $ID = '';
if ($UA =~ /^J-PHONE|^Vodafone|^SoftBank/) {
if ($UA =~ /\/SN([A-Za-z0-9]+)\ /) {
$ID = $1;
}
}
if ($ID eq '') { $ID = "携帯ではない";}
$makerID = "携帯の識別番号 ".$ID;

print "Content-type: text/html\n\n";
print "<html><head>\n";
print '<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">' . "\n";
print "<title>IPcheck</title></head>\n";
print "<body>\n";
print "リモートアドレス $addr<br>\n";
print "OSの名称 $os<br>\n";
print "$makerID<br>\n";
print "アクセス元分析 $lll<br>\n";
print "リモートホスト $host<br>\n";
print "</body></html>\n";

exit;

sub get_os_name
{
local $name;

$_ = $ENV{"HTTP_USER_AGENT"};

if (/Windows/i) { $name = "Windows"; }
elsif (/Mac/i) { $name = "MacOS"; }
elsif (/Linux/i) { $name = "Linux"; }
else { $name = "unknown"; }

return $name;
}

sub referer_name
{
local $name;

$_ = $ENV{'QUERY_STRING'};

if (/guid=on/i) { $name = "DOCOMO携帯"; }
elsif (/0101/i) { $name = "xxxxxx"; }
elsif (/0202/i) { $name = "xxxxxx"; }
elsif (/0000/i) { $name = "私のとこからやな。<br>ありがとー"; }
else { $name = "アクセス元不明"; }

return $name;
}
4：女傑 ◆nDpXSJz8i.：2012/03/09(金) 14:37:14 ID:hQMLjY7Y0: #include <windows.h>

int WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE Mutex = CreateMutex(NULL, false, "Mutex");
if (Mutex == NULL) return 0;
if ( GetLastError() == ERROR_ALREADY_EXISTS){
return 0;
}

{
HINSTANCE hInst = ShellExecute(NULL, "open", "http://www.msn.jp/", NULL, NULL, SW_SHOWNORMAL);
if(hInst<(HINSTANCE)32)
{
// 32未満の時は起動に失敗
}
{
// SNAPSHOT押下
keybd_event( VK_SNAPSHOT, 0, 0, 0 );
keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0 );

return 0;
}
}
MessageBox(NULL,"ダイアログ表示","ダイアログ",MB_OK);

CloseHandle( Mutex);
return 0;
}
5：女傑 ◆nDpXSJz8i.：2012/03/09(金) 14:37:45 ID:hQMLjY7Y0: #include <windows.h>
int WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE Mutex = CreateMutex(NULL, false, "Mutex");
if (Mutex == NULL) return 0;
if ( GetLastError() == ERROR_ALREADY_EXISTS){
return 0;
}
{
MessageBox(0, "Hello, World!", "Welcome", MB_OK);

CloseHandle( Mutex);
return 0;
}
}
6：女傑 ◆nDpXSJz8i.：2012/03/10(土) 21:57:58 ID:hQMLjY7Y0: Perlスクリプト上で、任意の名前を付けたHTML形式のファイ
ルを出力させる方法を考えてみました。
(!open(ハンドル名の後に>を付けると上書きされ、>>を付ける
とprint out～の項目が追記されて保存されるようです。
また、<だとファイルの読み込みを行うようです。

#重複チェック
if (-e "./data/$FORM{'id'}\.htm") { &error(); }

#新規開設
if (!open(OUT,"> ./data/$FORM{'id'}\.htm")) { &error(); }
print OUT "<html<head></head><body>\n";
print OUT "</body></html>\n";
close(OUT);
chmod(0666,"./data/$FORM{'id'}\.htm");
7：女傑 ◆nDpXSJz8i.：2012/03/10(土) 23:28:20 ID:hQMLjY7Y0: >>6
の続き
読み込み・書き込みモードでファイル操作を行うパターン
と、sendmailを利用してメール送信を行うパイプ入出力の
パターンです。

読み込みモードでオープン open (FH, "file")
open (FH, "< file")
上書きモードでオープン open (FH, "> file")
追加書き込みモードでオープン open (FH, ">> file")
読み書き両用モードでオープン open (FH, "+> file")
open (FH, "+< file")
パイプ出力用でオープン open (FH, "| コマンド")
パイプ入力用でオープン open (FH, "コマンド |")
8：女傑 ◆nDpXSJz8i.：2012/03/11(日) 03:51:42 ID:hQMLjY7Y0: 一応、動くスクリプトを書いてみました。引数による個別表示をするスクリプト
にするにはもう一工夫しないといけませんね^^;

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ s/</</g;
$value =~ s/>/>/g;
}

open(IN,"log.txt");
@lines = <IN>; $pass = shift(@lines);
close(IN);
($01, $02) = split(/,/, $pass);

print "Content-type: text/html\n\n";
print <<"EOF";

<html><head><title>$01</title></head>
<body>
<h1>$02</h1>
</body></html>

EOF

exit;

sub error {

print "Content-type: text/html\n\n";
print '<html><head><title>エラー</title></head>' . "\n";
print "<body>\n";
print "<h3>エラー</h3>\n";
print '<p></body></html>' . "\n";
exit;
}
9：女傑 ◆nDpXSJz8i.：2012/03/11(日) 06:42:11 ID:hQMLjY7Y0: if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ s/</</g;
$value =~ s/>/>/g;
}

open(IN,"log.txt");
@lines = <IN>; $pass = shift(@lines);
close(IN);

($01, $02, $03) = split(/,/, $pass);
$datas{$01} = [$02, $03];

print "Content-type: text/html\n\n";
print <<"EOF";

<html><head><title>$02</title></head>
<body>
<h1>$03</h1>
</body></html>

EOF

exit;

sub error {

print "Content-type: text/html\n\n";
print '<html><head><title></title></head>' . "\n";
print "<body>\n";
print "<h3></h3>\n";
print '<p></body></html>' . "\n";
exit;
}
10：女傑 ◆nDpXSJz8i.：2012/03/13(火) 15:55:01 ID:hQMLjY7Y0: 文字列をindexfuncを用いてインデックス検索し、substrfuncを用い
表示させると上手くいくかな？？？

$0011 = "ABCDEF";
$0002 = "AB";

$mojiretsu = index ($0011, $0002);
11：女傑 ◆nDpXSJz8i.：2012/03/14(水) 23:44:17 ID:hQMLjY7Y0: こんな感じで簡単な商品データベースを作りました。

//written by Jyoketsu

#!/usr/bin/perl

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ s/</</g;
$value =~ s/>/>/g;
}

$act = $ENV{'QUERY_STRING'};

$file = "./$act\.cgi";
if (!-e $file) { &error; }
if (!open(DB,"$file")) { &error; }
@lines = <DB>;
close(DB);
$youso = shift(@lines);
chop($youso) if $youso =~ /\n$/;
($01,$02,$03,$04,$05,$06,$07) = split(/,/,$youso);

push(@lines,"$act $01,$02,$03,$04,$05,$06,$07\n");

print "Content-type: text/html\n\n";
print <<"EOF";

<html><head><title>$01$02のページ</title></head>
<body bgcolor=#$06>
<font>メーカー：$01</font><br>
<font>商品名：$02</font><br>
<font>容量：$03</font><br>
<font>入数：$04</font><br>
<font>販売期限：$05</font><br>
<img src=./barcode.php?code=$07&encoding=EAN&scale=1&mode=jpg>
</body></html>

EOF

exit;

sub error {

print "Content-type: text/html\n\n";
print '<html><head><title>エラー</title></head>' . "\n";
print "<body>\n";
print "<h3>エラー</h3>\n";
print '<p></body></html>' . "\n";
exit;
}

データファイル
,で区切ったファイル
拡張子cgi
12：女傑 ◆nDpXSJz8i.：2012/03/14(水) 23:52:16 ID:hQMLjY7Y0: キャリッジリターンやラインフィードの処理（エスケープシー
ケンス）、バッファ領域を侵害するような可能性のあるタグの
処理がきっちり出来てるかが少し心配・・・
lengthなどの関数で文字列の最大数を決めておく方が良いだろ
うか？
13：女傑 ◆nDpXSJz8i.：2012/03/16(金) 05:16:37 ID:hQMLjY7Y0: #!/usr/bin/perl

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

if ($buffer eq "") { &error; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ s/</</g;
$value =~ s/>/>/g;
}

if ($ENV{'REQUEST_METHOD'} eq "POST") { $file = "./$value\.cgi"; }
else { $file = "./$buffer\.cgi"; }

if (!-e $file) { &error; }
if (!open(DB,"$file")) { &error; }
@lines = <DB>;
close(DB);
$youso = shift(@lines);
chop($youso) if $youso =~ /\n$/;
($01,$02,$03,$04,$05,$06,$07) = split(/,/,$youso);

push(@lines,"$act $01,$02,$03,$04,$05,$06,$07\n");

print "Content-type: text/html\n\n";
print <<"EOF";

<html><head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
<title>$01$02のページ</title></head>
<body bgcolor=#$06>
<center><caption>$01$02</caption></center><br>
<table border=5 width=250 align=center>
<tr bgcolor="#cccccc">
<th>要素</th>
<th>数値</th>
</tr>
<tr align=center>
<td>メーカー</td>
<td>$01</td>
</tr>
<tr align=center>
<td>商品名</td>
<td>$02</td>
</tr>
<tr align=center>
<td>容量</td>
<td>$03</td>
</tr>
<tr align=center>
<td>入数</td>
<td>$04</td>
</tr>
<tr align=center>
<td>販売期限</td>
<td>$05</td>
</tr>
</table>
<br>
<table align=center>
<tr align=center>
<td><img src=./barcode.php?code=$07&encoding=EAN&scale=1&mode=jpg></td>
</tr>
<tr align=center>
<td><img src=https://chart.googleapis.com/chart?cht=qr&chs=128x128&chl=$02+$07&choe=UTF-8&chld=L|2></td>
</tr>
</table>
</body></html>

EOF

exit;

sub error {

print "Content-type: text/html\n\n";
print <<"EOF";

<html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=EUC-JP">
<title>エラー</title></head>
<body>
<h3>エラー</h3>
<p></body></html>

EOF

exit;

}
14：女傑 ◆nDpXSJz8i.：2012/03/18(日) 23:15:46 ID:hQMLjY7Y0: sub kazukeisan
{
local $name;

$_ = $04;
$_ =~ s/[^0-9A-Za-z ]/ /g;

if (/12/i) { $name = "（1ダース）"; }
elsif (/24/i) { $name = "（2ダース）"; }
elsif (/36/i) { $name = "（3ダース）"; }
elsif (/48/i) { $name = "（4ダース）"; }
elsif (/60/i) { $name = "（5ダース）"; }
elsif (/72/i) { $name = "（6ダース）"; }
elsif (/84/i) { $name = "（7ダース）"; }
elsif (/96/i) { $name = "（8ダース）"; }
elsif (/108/i) { $name = "（9ダース）"; }
elsif (/120/i) { $name = "（10ダース）"; }
elsif (/132/i) { $name = "（11ダース）"; }
elsif (/144/i) { $name = "（1グロス）"; }
elsif (/156/i) { $name = "（13ダース）"; }
else { $name = ""; }

return $name;
}
15：女傑 ◆nDpXSJz8i.：2012/03/19(月) 01:45:46 ID:hQMLjY7Y0: #! /usr/local/bin/perl

$act = $ENV{'QUERY_STRING'};
$ENV{'QUERY_STRING'} =~ s/\.//g; # 安全対策
$ENV{'QUERY_STRING'} =~ s/\///g;
($i,$q) = split(/=/,$buffer);
print "Location: http://www.geocoding.jp/" . "?$act\n\n";

if ($act eq "") { &error("引数が不正です"); }
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# タグ処理
$q =~ s/&/&/g;
$q =~ s/"/"/g;
$q =~ s/</</g;
$q =~ s/>/>/g;

# 改行処理
$q =~ s/\r\n/<br>/g;
$q =~ s/\r/<br>/g;
$q =~ s/\n/<br>/g;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$time = time;
@mon_array = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
@wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$date_now = sprintf("%s, %02d %s %04d %02d:%02d:%02d +0900 (JST)",$wday_array[$wday],$mday,$mon_array[$mon],$year +1900,$hour,$min,$sec);

if (length($FORM{'q'}) > 2) { &error("引数が不正です"); }
# ログファイルに記録する
$log = "./data/acclog.cgi";
$addr = $ENV{'REMOTE_ADDR'};
$useragent = $ENV{"HTTP_USER_AGENT"};

open(OUT,">> $log");
print OUT "$addr<>$act\n";
close(OUT);
16：女傑 ◆nDpXSJz8i.：2012/03/19(月) 03:22:38 ID:hQMLjY7Y0: foreach $youso (@lines)
{
if ($youso =~ /$act/i) #マッチしたら以下の処理を実行
{
($01,$02,$03,$04,$05,$06,$07) = split (/,/,$youso);
}
}
17：女傑 ◆nDpXSJz8i.：2012/03/19(月) 23:42:34 ID:hQMLjY7Y0: flock(DB, LOCK_EX);
if (!open(DB,"$file")) { &error; }
@lines = <DB>;
close(DB);
flock(DB, LOCK_NB);
18：女傑 ◆nDpXSJz8i.：2012/03/20(火) 23:05:16 ID:hQMLjY7Y0: 何とか使える？サブルーチンが出来上がりました。

sub kazukeisan
{
local $name;

$_ = $04;
$_ =~ s/[^0-9 ]/ /g;
$dasu = $_ / 12;
$gurosu = $_ / 144;

if (/144|288|432/i) { $name = "（$gurosuグロス）"; }
elsif (/12|24|36|48|60|72|84|96|108|120|132|156/i) { $name = "（$dasuダース）"; }
else { $name = ""; }

return $name;
}
19：女傑 ◆nDpXSJz8i.：2012/03/22(木) 00:11:59 ID:hQMLjY7Y0: sub kazukeisan
{
local $name;

$_ = $04;
$_ =~ s/[^0-9 ]/ /g;
$dasu = $_ / 12;
$gurosu = $_ / 144;

if ($_ % 144 == 0) { $name = "（$gurosuグロス）"; }
elsif ($_ % 12 == 0) { $name = "（$dasuダース）"; }
else { $name = ""; }

return $name;
}
20：女傑 ◆nDpXSJz8i.：2012/04/01(日) 14:13:15 ID:hQMLjY7Y0: 住所や郵便番号のグーグルマップとの連携

http://maps.google.com/maps/api/staticmap?center=%E6%97%A5%E6%9C%AC,%20%E4%BA%AC%E9%83%BD,%20%E5%A4%A7%E5%BE%B3%E5%AF%BA&markers=%E6%97%A5%E6%9C%AC,%20%E4%BA%AC%E9%83%BD,%20%E5%A4%A7%E5%BE%B3%E5%AF%BA&zoom=18&size=400x400&sensor=false

http://maps.google.com/maps/api/staticmap?center=%E6%97%A5%E6%9C%AC,%20%E5%A4%A7%E9%98%AA,%20%E9%80%9A%E5%A4%A9%E9%96%A3&markers=%E6%97%A5%E6%9C%AC,%20%E5%A4%A7%E9%98%AA,%20%E9%80%9A%E5%A4%A9%E9%96%A3&zoom=17&size=400x400&sensor=false
21：女傑 ◆nDpXSJz8i.：2012/04/01(日) 14:54:31 ID:hQMLjY7Y0: 今宮神社

http://maps.google.com/maps/api/staticmap?center=%E4%BA%AC%E9%83%BD,%20%E5%8C%97%E5%8C%BA,%20%E4%BB%8A%E5%AE%AE%E7%A5%9E%E7%A4%BE&markers=%E4%BA%AC%E9%83%BD,%20%E5%8C%97%E5%8C%BA,%20%E4%BB%8A%E5%AE%AE%E7%A5%9E%E7%A4%BE&zoom=13&size=200x200&sensor=false
22：女傑 ◆nDpXSJz8i.：2012/04/04(水) 23:24:40 ID:hQMLjY7Y0: Google検索用参考URI

http://maps.google.co.jp/maps?q=shop99&hnear=%E4%BA%AC%E9%83%BD%E5%B8%82&ie=UTF8&hq=shop99&output=embed
23：女傑 ◆nDpXSJz8i.：2012/04/07(土) 17:42:26 ID:hQMLjY7Y0: ニューヨークブルックリン市街の静的マップ

http://maps.google.com/maps/api/staticmap?center=Brooklyn+Bridge,New+York,NY&zoom=14&size=512x512&maptype=roadmap
&markers=color:blue%7Clabel:S%7C40.702147,-74.015794&markers=color:green%7Clabel:G%7C40.711614,-74.012318
&markers=color:red%7Ccolor:red%7Clabel:C%7C40.718217,-73.998284&sensor=false
24：女傑 ◆nDpXSJz8i.：2012/04/07(土) 18:44:28 ID:hQMLjY7Y0: 金閣寺・衣笠方面

http://maps.google.com/maps/api/staticmap?center=%E4%BA%AC%E9%83%BD,%20%E9%87%91%E9%96%A3%E5%AF%BA&markers=color:green|label:A|%E4%BA%AC%E9%83%BD,%20%E9%87%91%E9%96%A3%E5%AF%BA%7C%E4%BA%AC%E9%83%BD,%E8%A1%A3%E7%AC%A0%E5%B1%B1&zoom=12&size=500x500&sensor=false