#AutoGMnavi.mscr v.07/20/2007################
#GoogleMaps.exeとgmm_navi.exeを使って現在位置近隣の地図を表示する作業を
#自動化するMortScript
#Google Maps 日本語版 v1.2.0.9 ＆ gmm_navi 20070713版　対応版
#
#W-ZERO3 WS003SHで動作確認
#for MortScript 4.0 Public Release
#
#by モバイル板MortScriptスレの１
#ref. to http://pc11.2ch.net/test/read.cgi/mobile/1172140262/l50
#
#【更新】SetWSIM 3.1 に合わせて更新しました。
#
#　Google Maps 日本語版 v1.2.0.9 ＆ gmm_navi 20070713版に対応しています。
#　旧版同士の組み合わせでも使用できます。
#
#・以下の作業を自動化します。
#　
#　 GoogleMapsを立ち上げる
#　→ スタートアップ画面にOKを送る
#　→ gmm_naviを起動させる
#　→ いちいち小縮尺で表示される地図をズームインする
#　→座標マーカーのポップアップメッセージを消す
#
#＜別途必要なファイル＞ 
#・GoogleMaps.exe v1.2.0.9 & gmm_navi.exe 新版
#          - or -
#・GoogleMaps.exe v1.2.0.4 (or lower) &  gmm_navi.exe 新旧版
#
#保存ディレクトリが異なる場合は、適宜書き換えて下さい。
######################################

Gm = "\Program Files\GoogleMaps\GoogleMaps.exe"
Nv = "\Program Files\gmm_navi.exe"

GmW = "Google Maps"
GmWj = "Googleマップ"
GmflW = "Find Location"
GmflWj = "モバイル Google マップ"

msec = 200
title = "AutoGMnavi"

#SetWSIM.exeを使っている人は、以下のブロックを有効にして下さい。#########
#
#SetWSIM = "\Program Files\SetWSIM.exe"
#x = RegRead( "HKCU", "Software\Sharp\ShPhoneLib", "RFStrength" )
#If ( x = 0 || x = 7 )
# RunWait( SetWSIM, "/on" )
# i = 0
# While( RegRead( "HKCU", "Software\Sharp\ShPhoneLib", "RFStrength" ) < 2 && i < 50 )
#  Sleep( msec )
#  i = i + 1
# EndWhile
# If ( i >= 50 )
#  Message( "Wave strength is too weak!", title )
#  Exit
# EndIf
#EndIf
#
######ここまで#################################


#Google Mapsを立ち上げる
If ( NOT ProcExists( "GoogleMaps.exe" ))
 Run( Gm )
 
 i = 0
 While ( WndActive( GmW ) = 0 && WndActive( GmWj ) = 0 && i < 50 )
  Sleep( msec )
 EndWhile
 
 If ( WndActive( GmW ) = 0 && WndActive( GmWj ) = 0)
  Message( "Couldn't run Google Maps!", title )
  Exit
 EndIf
 Sleep( msec )
 #スタートアップ画面にOKを送る
 Switch( 1 )
 Case ( WndActive( GmW ))
  activeGmW = GmW
  activeflGmW = GmW  
 Case ( WndActive( GmWj))
  activeGmW = GmWj
  activeflGmW = GmflWj
 EndSwitch
 SendLeftSoft( activeGmW )

EndIf
Sleep( 1000 )

#gmm_naviを起動させる
RunWait( Nv )

WaitForActive( activeflGmW, 10 )
If ( WndActive( activeflGmW ) = 0 )
 Message( "Couldn't open Google Maps!", title )
 Exit
EndIf

#インターネット接続が完了するまで待つ

i = 0
While( InternetConnected( "http://google.com") < 1 && i < 50 )
 Sleep( msec )
 i = i + 1
EndWhile

Sleep( 2000 )

#６段階ズームインする
SendKeys( activeGmflW, "++++++" )
Sleep( msec )
#座標マーカーのポップアップメッセージを消す
MouseClick( 100, 100 )

#End of script####################