製造年 シリアルナンバー 製造年 シリアルナンバー 製造年 シリアルナンバー
1970年 2952600~ 1984年 8338000~ 1993年 S000001~
1971年 3215500~ 1985年 8614000~ 1994/5年 W000001~
1972年 3478400~ 1986年 9290000~ 1996年 T000001~
1973年 3741300~ 1987年 9766000~ 1997年 U000001~
1974年 4004200~ 1987年 9999999~ 1998/9年 A000001~ 
1975年 4267100~ 1987年 R000000~ 2000年 P000001~
1976年 4538000~ 1988年 R999999~ 2001年 K000001~
1977年 5008000~ 1989年 L000001~ 2002年 Y000001~
1978年 5482000~ 1990年 L999999~ 2003/4年 F000001~
1979年 5958000~ 1990年 E000001~ 2005年 D000001~
1980年 6434000~ 1991年 E999999~ 2006年 Z000001~
1981年 6910000~ 1991年 X000001~ 2007年 M000001~
1982年 7386000~ 1991年 N000001~
1983年 7862000~ 1992年 C000001~

2000.01.28 Fri l 備忘録 l COM(0) TB(0) l top ▲

自サイトの、キーワード URLが存在するかどうか?


佐伯宝飾 inurl:re396.com

佐伯宝飾 site:re396.com
2000.01.28 Fri l 備忘録 l COM(0) TB(0) l top ▲
Sub ie_test() 'IEの表示をテストする。

Dim objIE As InternetExplorer '変数を定義します。
Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
objIE.Visible = True '可視、Trueで見えるようにします。

objIE.Toolbar = True 'タブの切り替えで必要なので、ツールバーを表示にする
objIE.MenuBar = False 'メニューは非表示にする
objIE.AddressBar = True 'URLなど アドレスバーは確認のため、表示する
objIE.StatusBar = True '一番下のステータスバーを表示。

objIE.navigate "http://www.google.co.jp/" '.Navigate メソッドで Yahooを表示する。
'Navigate と Navigate2 の 違いが私もイマイチわかってませんが

While objIE.readyState <> READYSTATE_COMPLETE Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents '重いので嫌いな人居るけど。
objIE.document.all.q.Value = Worksheets("Sheet1").Range("A1")

If MsgBox("IEを閉じますか?", vbYesNo) = vbYes Then '終了確認
objIE.Quit '.Quitで閉じる
End If

Set objIE = Nothing '使用したオブジェクト変数もキレイにしてね。

End Sub
2000.01.28 Fri l 備忘録 l COM(0) TB(0) l top ▲

What is Google PageRank?
PageRank is a numeric value that represents how important a page is on the web. It is Google's way of measuring the importance of web site.

Here is how Google explains PageRank:
PageRank relies on the uniquely democratic nature of the web by using its vast link structure as an indicator of an individual page's value. Google interprets a link from page A to page B as a vote, by page A, for page B. But Google looks at more than the sheer volume of votes, or links a page receives; it also analyzes the page that casts the vote. Votes cast by pages that are themselves "important" weigh more heavily and help to make other pages "important."
Google PageRank is mostly discussed by SEO's but also webmasters, web advertisers and publishers. For example, webmasters will not exchange links with websites whose PageRank is less then 4 or 5. Often, web publishers will pay less money for ads on websites with lower PageRanks. So how do you know what a PageRank of a website is? Simplest way to do it is to install Google toolbar.

Below is modified version of that script. I used the code to create a PHP class that can be easily implemented with your projects.

define('GOOGLE_MAGIC', 0xE6359A60);
class pageRank{
var $pr;
function zeroFill($a, $b){
$z = hexdec(80000000);
if ($z & $a){
$a = ($a>>1);
$a &= (~$z);
$a |= 0x40000000;
$a = ($a>>($b-1));
$a = ($a>>$b);
return $a;

function mix($a,$b,$c) {
$a -= $b; $a -= $c; $a ^= ($this->zeroFill($c,13));
$b -= $c; $b -= $a; $b ^= ($a<<8);
$c -= $a; $c -= $b; $c ^= ($this->zeroFill($b,13));
$a -= $b; $a -= $c; $a ^= ($this->zeroFill($c,12));
$b -= $c; $b -= $a; $b ^= ($a<<16);
$c -= $a; $c -= $b; $c ^= ($this->zeroFill($b,5));
$a -= $b; $a -= $c; $a ^= ($this->zeroFill($c,3));
$b -= $c; $b -= $a; $b ^= ($a<<10);
$c -= $a; $c -= $b; $c ^= ($this->zeroFill($b,15));
return array($a,$b,$c);

function GoogleCH($url, $length=null, $init=GOOGLE_MAGIC) {
if(is_null($length)) {
$length = sizeof($url);
$a = $b = 0x9E3779B9;
$c = $init;
$k = 0;
$len = $length;
while($len >= 12) {
$a += ($url[$k+0] +($url[$k+1]<<8) +($url[$k+2]<<16) +($url[$k+3]<<24));
$b += ($url[$k+4] +($url[$k+5]<<8) +($url[$k+6]<<16) +($url[$k+7]<<24));
$c += ($url[$k+8] +($url[$k+9]<<8) +($url[$k+10]<<16)+($url[$k+11]<<24));
$mix = $this->mix($a,$b,$c);
$a = $mix[0]; $b = $mix[1]; $c = $mix[2];
$k += 12;
$len -= 12;
$c += $length;
case 11: $c+=($url[$k+10]<<24);
case 10: $c+=($url[$k+9]<<16);
case 9 : $c+=($url[$k+8]<<8);
/* the first byte of c is reserved for the length */
case 8 : $b+=($url[$k+7]<<24);
case 7 : $b+=($url[$k+6]<<16);
case 6 : $b+=($url[$k+5]<<8);
case 5 : $b+=($url[$k+4]);
case 4 : $a+=($url[$k+3]<<24);
case 3 : $a+=($url[$k+2]<<16);
case 2 : $a+=($url[$k+1]<<8);
case 1 : $a+=($url[$k+0]);
$mix = $this->mix($a,$b,$c);
/* report the result */
return $mix[2];

//converts a string into an array of integers containing the numeric value of the char

function strord($string) {
for($i=0;$i$result[$i] = ord($string{$i});
return $result;

function printrank($url){
$ch = "6".$this->GoogleCH($this->strord("info:" . $url));

$fp = fsockopen("www.google.com", 80, $errno, $errstr, 30);
if (!$fp) {
echo "$errstr ($errno)
} else {
$out = "GET /search?client=navclient-auto&ch=" . $ch . "&features=Rank&q=info:" . $url . " HTTP/1.1\r\n" ;
$out .= "Host: www.google.com\r\n" ;
$out .= "Connection: Close\r\n\r\n" ;
fwrite($fp, $out);
while (!feof($fp)) {
$data = fgets($fp, 128);
$pos = strpos($data, "Rank_");
if($pos === false){
$pagerank = substr($data, $pos + 9);
//display pagerank image. Create some images for the script. If you make your own make sure to call them pr0.gif, pr1.gif, pr2.gif etc.
function pr_image($pagerank){
$this->pr = "\"PageRank" ;
function get_pr(){
return $this->pr;

Do following:
1:Save the code above as pagerank.php.
2:Download or create your own images to display each rank.
3:Create a directory "images" containing all page rank images.
4:See code below on how to use the class.

$gpr = new pageRank();
//display image
echo $gpr->get_pr();

Some servers calculate the checksum differently which makes the script unusable. If the script doesn't work for you test the script on a server that does it correctly and get the result that way.

Also see our free scripts section, where we have a number of free ready made scripts for displaying Pagerank, Backlinks, Alexa, Yahoo & MSN results.

Plus if you just want to display your sites current PR to your visitors, we also have a simple piece of code you can add to your webpage which will display a small graphic with the PR. Whenever Google updates it's PR, the graphic will automatically update as well meaning you never have to do anything again as the PR displayed will always be current.
2000.01.05 Wed l 備忘録 l COM(0) TB(0) l top ▲