天体の回転について 小林泰三

SF短編集です。

表紙のかわいらしさに、つられると、ひどい目に会います。

全篇ラストで「えっ」とか「はぁ」「ほぉ」って感じですね。

１、天体の回転について

軌道エレベーターの壮大なお話。これは、いい発想。

２、灰色の車輪

タイトルとは違って、アンドロイド（ロボット）話ですが、私はあまり好みじゃなかった。

３、あの日

意味不明、未来教室？じぇぇんじぇん理解できません。

４、○交体験者

あえてタイトル伏字（○）にしました。未来女性刑事ものかと思ったら、かまきり話でした。

描写が怖いし、これ中学生ぐらいでよんだら、トラウマになりそう。

５、銀の船

例の星の人面岩の話。ラストがそうくるかと！最初何を書いてるのかと思った。じわじわ来ますｗ

６、３００万

えぇっと、たぶん映画のスリーハンドレッドとかウルトラマンとかをもじったタイトルだと思います。

内容的には、え〜っと、肉弾宇宙人？読むぶんには楽しいけど、嫌だこんなのｗ

７、盗まれた昨日

読み始めは、某国XXX実験がとかで、はじまるのに、殺人もの？です。

まぁ記憶ものですかねぇ。正直、気味が悪い。

８、時空争奪

これは・・・・、ある意味すごい発想です。途中まで、一体全体何の話をしているのか分かりません。

後半で語られる宇宙感がすごい。

--

半分は好みじゃないので、６５点。

天体の回転について (ハヤカワ文庫 JA コ 3-3) 著者：小林 泰三 販売元：早川書房 Amazon.co.jpで詳細を確認する

画像自動クリック

UWSCを使ったスクリプト晒してみる。自動検索はやばそうなので、やめておく。

画像サイズを調べて、クリックしていくだけ。

動作中は他の作業は、ほぼ出来ないです。IEが開きまくるから┐(´-｀)┌

一応、ポップしたIEは閉じるし、ダイアログもいくつかは閉じる。

表示待ちの処理が、なんかおかしいけどしらん。動くからよしｗ

他のサイトとかも、やってみるが、取りこぼし多い。

ほんとは、サイトデータ別ファイルから読み込むとかすればいいんだろうけど、よくわからないし、面倒なんで配列で。

HASHTBL hash = HASH_SORT

//csite[][] = クリックサイトurl, 画像横幅, 画像高さ, スキップ数,クリック数(0はmax)
dim csite[][4] = _
"http://www.chobirich.com/", 234, 60, 0, 4,_
"http://www.chobirich.com/", 120, 60, 0, 4,

// IE起動
IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.ToolBar =  False

//クリック開始 -------------------------------------------------------

for ieroop = 0 to (RESIZE(csite) / 5) -1

//サイトデータ入力
curl = csite[ieroop][0]
cgx = csite[ieroop][1]
cgy = csite[ieroop][2]
cskip = csite[ieroop][3]
mck = csite[ieroop][4]
//カウント用クリア
ia = 0
ccg = 0

COM_ERR_IGN　　//COMエラー無視

//指定ＨＰを開く
print curl
IE.Navigate(curl)
BusyWait(IE)
MainAW = GETID("Internet Explorer") //アクティブウィンドウを名前を得る

for　i　=　ia　to　IE.document.Images.length-1 //　画像枚数分ループ

  wkx = IE.document.Images[i].width //横幅　画像サイズ読み取り
  wky = IE.document.Images[i].height //高さ

　　     ifb cgx = wkx and cgy = wky then //サイズチェック
   ccg = ccg + 1  //サイズの合った画像カウント
   
   ifb ccg > cskip then  //スキップ数確認
   
    IE.Document.Images[i].Click() //画像クリック
    BusyWait(IE)  //表示待ち
    sleep(0.2)
    BCLOSE(MainAW)  //ポップしたIEを閉じる

    IE.Navigate(curl)  //ＨＰ開き直し
    BusyWait(IE)  //表示待ち

   endif

   ifb (ccg - cskip) > mck and mck > 0 then //最大クリック回数、越えたら終了
   break
   endif

   ifb COM_ERR_FLG
   print curl
　　　　   print　"エラーが起こってるみたい"　
   sleep(2)
   COM_ERR_RET
　　　　   break
   endif

  ia = i + 1 //検索位置修正
  endif
next

sleep(0.5)
next

//終了-------------------------------
ifb MsgBox("終了しました。",BTN_OK) = BTN_OK
COM_ERR_RET　　//エラー処理復帰
endif

//表示待ち- busywait ---------------------
Procedure BusyWait(ie)
  Sleep(0.5)  // Wait
  Const TIME_OUT = 90
  tm = Gettime()
  tmc = 0
repeat
dialog()
    Sleep(0.2)
    ifb Gettime() - tm > TIME_OUT
    IE.Refresh //再読み込み
    tmc = tmc +1
      ifb tmc  = 3 //3回失敗したらメッセージ表示
        //if MsgBox("Time Out:BusyWait",BTN_ABORT or BTN_IGNORE) = BTN_ABORT then ExitExit
        exit
      endif
    tm = 0
    endif
  until (! ie.busy) and (ie.readyState=4)
  Sleep(0.5)
Fend

//------
//ポップしたIEを閉じる
Procedure BCLOSE(MainAW)
wcount = 0
for ip =0 to GETALLWIN( ) -1
if POS("Internet Explorer",STATUS(ALL_WIN_ID[ip],ST_TITLE)) > 1 and ( ALL_WIN_ID[ip]  <> MainAW ) then CTRLWIN(ALL_WIN_ID[ip],CLOSE)
next
sleep(1)
FEND

//ダイアログ対処
Procedure dialog()
id = getid( "セキュリティ", "#32770")
if id > 0 then sckey( id, vk_n) //nキーを押す

id = getid( "Internet Expplorer Unhandled Exception", "#32770")
if id > 0 then sckey( id, vk_enter) //enterキーを押す

id = getid( "Internet Explorer スクリプト","#32770",0.1)
if id > 0 then sckey( id, vk_n) //nキーを押す
Fend