未整理カテゴリのエントリ : wicked

カテゴリ未整理の最新配信
RSS
RDF
ATOM

オレの覚え書き - 未整理カテゴリのエントリ

XP起動　高速化

カテゴリ :: 未整理

執筆 :: waruwaru 2013/12/12 23:39

システムのプロパティから自分がいらないと思うものを外した。

コメント (0)
トラックバック (0)
閲覧 (793)

IPHONE アイフォン　電話が繋がらない、繋がっても切れない

カテゴリ :: 未整理

執筆 :: waruwaru 2012/2/2 10:30

今日、急にiPhoneで電話が出来なくなった。
繋がっても電話が繋がったままになる。
という現象が起こった。

メールは普通に出来るが電話が出来ないのは致命的だ。
色々調べると
モバイルデータ通信に問題があるようで
OFF→ON→OFFを繰り返すと直るとのことで、
そんなことで直るんか？
半信半疑ながらやってみると
「直った」
一発やった。

モバイルデータ通信は
「設定」->「一般」->「ネットワーク」の順に開けていくと
一番上にある。
もともと、モバイルデータ通信はOFFで利用しているので
OFF→ON→OFFをしたときにOFFに戻すのを忘れないように
しないと大変なことになるので注意。

コメント (0)
トラックバック (0)
閲覧 (963)

なぜかドラキュラ

カテゴリ :: 未整理

執筆 :: waruwaru 2011/11/23 13:42

　このホームページでよくリンクして頂いているページが「なぜかドラキュラ」のページ。
　30年ほど昔に「吸血鬼物」が好きでビデオにとってあった。
最初の数話を間違って上書きしたため完全ではないが残りは全てあるはずだが未だ前半の1本しかビデオが見つかっていない。
　当時、テープも高く買うことも出来ずに3倍で取っていたため劣化も激しい。(見る分には問題ないが）
　
　マイナーであまり視聴率も良くなかったせいか最後の方は、簡単に終わらせてしまった感じがする。
　最初の方に出ていた小松（原田芳雄）も、トランシルバニアへ行ったままで終わってしまった。

　最終回はどうなるかは大体覚えているが、ビデオが見つかってから確認して「なぜかドラキュラ」の方に書きたいと思う。

コメント (0)
トラックバック (0)
閲覧 (799)

オレのデータベース

カテゴリ :: 未整理

執筆 :: waruwaru 2011/11/22 15:22

　不注意で「オレのデータベース」を壊してしまった。　今のところ復旧の見通しがない。　キャッシュから何とか復旧したい。 2011/11/23 　復旧完了　

コメント (0)
トラックバック (0)
閲覧 (682)

古本

カテゴリ :: 未整理

執筆 :: waruwaru 2011/6/4 15:57

久しぶりにちょっと古本を買ってみた。

家に帰って中を見ると
前の持ち主が書いたであろうメモが．．．

買った本はノウハウ本
その本のなかから自分の仕事に当てはまる部分を抜き出して
箇条書きにしている。

その本の中にはメモだけでなく
しおりとして使っていたと思われるカードも入っていた。

本を売る人、買うお店側がともに中身のチェックをしていなかったと思われる。

最近何度か古本を買ったが、
ノウハウ本などにはこうした
メモが入っていることが少なくない。

コメント (0)
トラックバック (0)
閲覧 (885)

拡張現実　AR

カテゴリ :: 未整理

執筆 :: waruwaru 2010/8/23 6:29

　何年か前にこの技術のことをテレビで見て、すごい技術だなと思っていたが
こんなに早く一般に広まってくるとは思わなかった。
　すでにARを使ったカタログなども出てきているらしい。
　実際に物がないところに物があるように見せることが出来るので
　自分の部屋にカタログの家具を置いたらどうなるかなど､視覚的に確認できる。
　ガーデニング、ファッション、コスメはもちろん、建設関係でも利用できそうだ。
　ARTOOLKITなるものもダウンロードできるのでc言語が使えれば誰でもこの技術を利用することが出来る。
　無限大の使い道があるこの技術が､今後どう展開していくか楽しみである。
　ソニーのサイトの動画がわかりやすい　URLは下
　http://www.sony.jp/hitokoto/ar-simulation/howtomovie.html

コメント (1)
トラックバック (0)
閲覧 (3590)

時間のむだだよこんなサイトにスパムコメントなんて

カテゴリ :: 未整理

執筆 :: waruwaru 2010/8/9 12:47

　ここ２、3日サイトを放置していたら、約700件のスパムコメントが書かれていた。　一つずつ削除するにはちょっときついので、ＤＢの方から削除。　それにしても、こんなサイトにスパムしても仕方ないと思うのだが．．．．．　ちなみにＩＰは213.5.70.184 　当然アクセス制御させていただきましたが、　これから、こんなスパムがいっぱい来るんでしょうな、きっと　こんなサイトスパムしても時間の無駄。あほちゃうかと思う。　　

コメント (0)
トラックバック (0)
閲覧 (1283)

アマゾンの予約商品リストからHTMLファイルを自動作成

カテゴリ :: 未整理

執筆 :: waruwaru 2010/7/14 8:22

アマゾンの予約商品リストからHTMLファイルを自動作成

アマゾンが毎週月曜日にアップしている予約商品リスト（PreOrder.xls）を使って
日付別にHTMLを作成するマクロを作ってみた。

まず最初に
１．アマゾンから「PreOrder.xls」をダウンロード
２．日付,カテゴリでエクセルデータを昇順に並び替えをする
３．アソシエイトIDの設定を変更
４．マクロを開ける
５．Module1を開ける
６．データ反映()を開けて変換処理マクロを「End Sub」の前にコピー
７．「End Sub」の後ろにPublic Function z1以下の内容をコピー
８．c:\dataのフォルダを作成
９．READMEのワークシートの反映をクリック（アソシエイトID確認しておく）
10．作成完了

メタデータやタイトルなど自分のホームページに合わせて変更が必要。
あくまでもサンプルなので実行後何があっても責任は負いません。
ソースは自由に改変してください。使う人がいればの話ですが・・・

ある程度はコメントを入れてわかる様にしています。
わからないところは自分で考えてみてください。
不備等があれば掲示板に書き込んでください。
こんなの使えるかー　というご意見も掲示板へどうぞ。
気が向いたら返事します。

あくまでもオレのページ　オレの手帳なので気ままにということで

以下が「End Sub」の前にコピーするソース

'**************************************************************************
    '* 　ここからHTML　作成処理                                               *
    '*　 処理をする前に日付,カテゴリでエクセルデータを並び替えをしておくこと  *
    '*   アソシエイトIDの設定が出来ているか確認                               *
    '*   データはc:\dataに作成される。あらかじめディレクトリ作成しておくこと　*
    '*　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2010/7/14 作成*
    '**************************************************************************
    
    Sheets("予約商品").Select                                                  '*　シートをセレクト
    
    i = 2                                                                      '*　1行目は　タイトル行なので2行目から処理
    date1 = Cells(i, 6)                                                        '*　日付ループ用ワークへ編集
    Do Until date1 = "0:00:00"                                                 '*　日付ループ用ワークが無くなるまでhtml命令に変換しTの列へ編集
       Cells(i, 20) = "<a href=""" & Cells(i, 8) & """>" & Cells(i, 3) & "　　" & Cells(i, 4) & "　　" & Cells(i, 5) & "</a><BR>"
       i = i + 1                                                               '*　カウントアップ　次の行へ
       date1 = Cells(i, 6)                                                     '*　日付ループ用ワークへ編集
    Loop                                                                       '*　変換ループ終了
    
    i = 2                                                                      '*　1行目は　タイトル行なので2行目から処理
    date1 = Cells(i, 6)                                                        '*　日付ループ用ワークへ編集
    kate = Cells(i, 1)                                                         '*　カテゴリループ用ワークへ編集
    Do Until date1 = "0:00:00"                                                 '*　日付ループ用ワークが無くなるまでHTMLファイルの出力を行う
       date2 = DatePart("yyyy", date1) & z1(DatePart("m", date1)) & z1(DatePart("d", date1))        '*　出力ファイル名に使う日付を取得
       
       
       Open "C:\date\" & date2 & ".html" For Output As #1                      '*　日付+．htmlでファイルを作成　output形式で開くことにより初期化
       
       '***********************************************************************
       '*　ここからがHTMLの作成　　　　　　　　　　　　　　           　　　　*
       '*　必要に応じてメタファイル等を変更削除　　　　　　 　　　　　　　　　*
       '*                                    　　　　　　　 　　2010/7/14 作成*
       '***********************************************************************
       
       Print #1, "<!DOCTYPE HTML PUBLIC """ & "-//W3C//DTD HTML 4.01 Transitional//EN""" & ">"
       Print #1, "<HTML xmlns=""" & "<a href="http://www.w3.org/1999/xhtml"""" rel="external">http://www.w3.org/1999/xhtml"""</a> & " xml:lang=""" & "ja" & """ lang=""" & "ja""" & ">"
       Print #1, "<head>"
       Print #1, "<META http-equiv=""" & "content-type""" & " content=""" & "text/html""" & "charset=Shift_JIS""" & ">"
       Print #1, "<meta http-equiv=""" & "Content - Language""" & " content=""" & " ja""" & " />"
       Print #1, "<meta name=""" & "robots""" & " content=""" & " Index, Follow""" & " />"
       Print #1, "<meta name=""" & "Keywords""" & " content=""" & " DVD, TVゲーム, おもちゃ&ホビー, ミュージック, 本, PCソフト, アマゾン""" & " />"
       Print #1, "<meta name=""" & "Description""" & " content=""" & "アマゾンの予約商品を一覧にして紹介""" & " />"
       Print #1, "<meta name=""" & "rating""" & " content=""" & "general""" & " />"
       Print #1, "<meta name=""" & "Author""" & " content=""" & "新発売""" & " />"
       Print #1, "<meta name=""" & "Copyright""" & " content=""" & "Copyright & Copy; 2001-2006""" & " />"
       Print #1, "<META http-equiv=""" & "Content-Style-Type""" & " Content = """ & "Text/css""" & " > "
       
       '***********************************************************************
       '*　タイトルの編集　　　　　　　　　　　　　　　　　           　　　　*
       '*　このサイトの場合発売日をタイトル名にしているのでこの処理を作成　 　*
       '***********************************************************************
       
       a$ = "平成" & StrConv(DatePart("yyyy", date1) - 1988, vbWide) & "年" & StrConv(DatePart("m", date1), vbWide) & "月" & StrConv(DatePart("d", date1), vbWide) & "日"
       
       Print #1, "<title>" & a$ & "　発売予定</title>"
       Print #1, "</HEAD>"
       Print #1, "<BODY>"
       
       '***********************************************************************
       '*　明細部の編集　　　　　　　　　　　　　　　　　           　　　　　*
       '*　出力は日付別におこなっている　　　　　　　　　　　　　　　　　　 　*
       '*　なおカテゴリについてはカテゴリ名を出力後　　　　　　　　　　　　 　*
       '*　明細を作成するようにした。　　　　　　　　　　　　　　　　　　　 　*
       '*　そのため、アダルト商品しか無い場合はカテゴリのみを出力　　 　　　　*
       '*　する場合があるので、注意が必要　　　　　　　　　　　　　　　　　 　*
       '*　今のところこれに関しては修正するつもりはない　　　　　　　　　　 　*
       '*　カテゴリのループの部分でカテゴリが同じで日付が変わる場合があるので *
       '*　日付の判定も終了条件としている。　　　　　　　　　　　　　　　　 　*
       '***********************************************************************
       
       Do Until date1 <> Cells(i, 6) Or date1 = "0:00:00"                      '*　日付が変わるかデータが無くなるまでループ

Print #1, kate & "<BR>"                                              '*　カテゴリを出力
          Do Until kate <> Cells(i, 1) Or IsNull(kate) = True Or date1 <> Cells(i, 6) '*　カテゴリが変わるかデータが無くなるまでまたは日付が変わるまでループ
             If Cells(i, 7) = "N" Then                                         '*　アダルト以外の場合　この処理が必要ない場合は　削除またはコメントに
               Print #1, Cells(i, 20)                                          '*　明細出力
             End If                                                            '*　アダルト判定　終了
             i = i + 1
          Loop                                                                 '*　カテゴリ判定ループ終了
          kate = Cells(i, 1)                                                   '*　カテゴリをカテゴリ判定ワークへ
       Loop                                                                    '*　日付判定ループ　終了
       
       '***********************************************************************
       '*　HTMLの終わりの部分の出力とファイルのクローズ　　　　　　　　　　　 *
       '***********************************************************************
       Print #1, "</BODY>"
       Print #1, "</HTML>"
       
       Close #1                                                                '*　ファイルのクローズ
       date1 = Cells(i, 6)                                                     '*　日付を日付判定ワークへ
       
    Loop                                                                       '*　処理ループ　終了

以下が「End Sub」の後ろコピーするソース

予約商品リスト（PreOrder.xls）はここのサイトの右側にリンクがあるのでそこからダウンロード

一部修正、画像の表示処理も追加してみた。サンプルは下記アドレスから http://waruwaru.net/shop/

コメント (2)
トラックバック (0)
閲覧 (2664)

アクセス制限について　.htaccessでの制御

カテゴリ :: 未整理

執筆 :: waruwaru 2010/7/14 2:03

アクセス制限について　.htaccessで制御

先日設定した下記の内容について

SetEnvIf User-Agent "Baiduspider" robo
SetEnvIf User-Agent "naver.com" robo
Order allow,deny
Allow from all
Deny from env=robo

1行目　Baiduspider　をroboという変数で設定
2行目　naver.com　　をroboという変数に設定

これでroboには　Baiduspiderとnaver.comが設定される

Order allow,deny

3行目以下の制御の順番。
まず許可して拒否。

4行目　すべてのアクセスを許可。
5行目　roboに設定されているユーザーエージェントのアクセスを拒否。

コメント (17)
トラックバック (0)
閲覧 (1602)

アクセスログを見ると・・・

カテゴリ :: 未整理

執筆 :: waruwaru 2010/7/12 8:25

　アクセスログを見ると　
　下のユーザエージェントからのアクセスが非常に多い
　「DoCoMo/2.0 P05A(c100;TB;W24H15) (compatible; BaiduMobaider/1.0;+http://www.baidu.jp/spider/) 」が90,400HIT
　Yeti/1.0 (NHN Corp.; http://help.naver.com/robots/)が56,016HIT
　
　上はDoCoMoからのアクセスかとおもったが、後ろの方を見ると「http://www.baidu.jp/spider/」とある。baiduのロボットのようだ。
　下はneverのロボット

　それにしてもbaiduはＨＩＴが多すぎる、これはたった11日間でのＨＩＴ数だ。　

　これらのアクセスが多いということは当然サーバーに負担をかけている。
　で、この対策だが

　サーバーのトップディレクトリに.htaccessをおいた。
　.htaccessの中身は
　
SetEnvIf User-Agent "Baiduspider" robo
SetEnvIf User-Agent "naver.com" robo
Order allow,deny
Allow from all
Deny from env=robo

しばらくはこれで様子を見る
　

コメント (3)
トラックバック (0)
閲覧 (3578)