グルメ媒体のコース自動更新プログラム　|食べログ編

タイトルの通り組みあがりました。

まさか取り掛かりの宣言が最初のエントリだったとは。そこから2カ月かけて組みあげていった。時間にして15時間ぐらい。残りはぐるなびとhp。余裕があれば一休。（ヒトサラとrettyはおいおいかな）休みの合間にちょこちょこ作っていたら2カ月もかかった。

自分個人の力で解決できるからプログラムが好きだ。組みあがったものが使えるか、使えないの2択しかない。"言い訳"なんていう腑抜けたものが存在しない。自分もプログラムも常にバチバチだ、結果もたちまち返す。

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
'ShowWindowを使用する場合のお約束
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal Hwnd As LongPtr, ByVal nCmdShow As Long) As Long

Declare PtrSafe Sub mouse_event Lib "user32" ( _
  ByVal dwFlags As Long, _
Optional ByVal dx As Long, _
Optional ByVal dy As Long, _
Optional ByVal dwDate As Long, _
Optional ByVal dwExtraInfo As Long)

Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Const MOUSE_LEFTDOWN = 2
Const MOUSE_LEFTUP = 4

Const MOUSE_RIGHTDOWN = 8
Const MOUSE_RIGHTUP = 16
Const sw_showmaximized = 3