Announcement

Collapse
No announcement yet.

Help with google map script

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Help with google map script

    hello , i try to send key for zoom in and zoom out , but i dont know where is my error , anyone can help me , thanks
    Code:
    ; ; *******************************************************
    ; SCRIPT PARA ABRIR GOOGLE TRAFFICO
    ;               
    ;               
    ; *******************************************************
    
    
    
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    
    Global Const $StructDef_COPYDATA = "ptr;dword;ptr"
    ;Global Const $WM_COPYDATA = 0x4A
    ;Global Const $WM_CLOSE = 0x10
    Global Const $STRUCTDEF_AU3MESSAGE = "char[255]"
    
    $rr = ObjCreate("RoadRunner.SDK")
    
    _IEErrorHandlerRegister()
    
    Local $oIE = _IECreateEmbedded()
    GUICreate("GOOGLE TRAFFIC", 810, 580, _
    		(@DesktopWidth - 1020) / 2, (@DesktopHeight - 665) / 2, _
    		$WS_POPUP)
    GUICtrlCreateObj($oIE, 0, 0, 820, 510)
    WinWait("GOOGLE TRAFFIC")
    WinMove("GOOGLE TRAFFIC", "", 0, 0, 800, 510)
    
    
    
    
    
    
    
    GUISetState() ;Show GUI
    
    _IENavigate($oIE, @ScriptDir & "\google map.html")
    
    
    
    ; Waiting for user to close the window
    ; Register Windows Messages
    GUIRegisterMsg($WM_COPYDATA, "_GUIRegisterMsgProc")
    GUIRegisterMsg($WM_CLOSE, "_GUIRegisterMsgProc")
    Dim $cmd
    While 1
    	Local $msg = GUIGetMsg()
    	Select
    	Case $msg = $GUI_EVENT_CLOSE
    	   
    	   ExitLoop
    	    
    		 EndSelect
    		 
    		 If $cmd = "Zoom In" Then;command called by RR with "SENDMSG;GOOGLEMAP;ZoomIn"
    	  $cmd = ""
    		cmdZoomIn_Click()
    		_IEAction($oIE, "Zoom In")
    		  ;MouseClick("primary", 50, 440, 1,0) 
    	
    	    Send("{-}")
    		
    		EndIf
    		
    		If $cmd = "Zoom Out" Then;command called by RR with "SENDMSG;GOOGLEMAP;ZoomOut"
    	  $cmd = ""
    		cmdZoomOut_Click()
    		_IEAction($oIE, "Zoom Out")
    		  ;MouseClick("primary", 50, 440, 1,0) 
    	
    	    Send("{+}")
    		
    		EndIf
    		 
    WEnd
    
    GUIDelete()
    
    ; Message Handler
    Func _GUIRegisterMsgProc($hWnd, $MsgID, $WParam, $LParam)
    	If $MsgID = $WM_COPYDATA Then
    		; We Recived a WM_COPYDATA Message
    		; $LParam = Poiter to a COPYDATA Struct
    		$vs_cds = DllStructCreate($StructDef_COPYDATA, $LParam)
    		; Member No. 3 of COPYDATA Struct (PVOID lpData;) = Pointer to Costum Struct
    		$vs_msg = DllStructCreate($STRUCTDEF_AU3MESSAGE, DllStructGetData($vs_cds, 3))
    
    		$SciTECmdLen = DllStructGetData($vs_cds, 2)
    		$cmd = StringLeft(DllStructGetData($vs_msg, 1), $SciTECmdLen)
    
    		; Display what we have recived
    		;MsgBox(0, "Test String", $cmd)
    
    	ElseIf $MsgID = $WM_CLOSE Then
    	; We Recived a WM_CLOSE Message
    		Exit
    	EndIf
    EndFunc ;==>_GUIRegisterMsgProc
    
    Exit
Working...
X