Jump to content

Rectangle selector

myspacee

By myspacee,
in AutoIt GUI Help and Support

 Share

Recommended Posts

myspacee Universalist

myspacee

Posted
Posted

Hello to all,

in these days scripting about Google street view.

Now search for easy (for user) GUI to select destination.

(User has only 5 button up-down-left-right-enter)

I imagine this :

Posted Image

But i've no idea how realize it.

Anyone can help me with selector and button with images?

Thank you for any info and example.

m.

Link to comment
Share on other sites
Valuater Universalist

Valuater

Posted
Posted (edited)

By this time you should be well aware of making some effort and posting some script before asking for "that" kind of help

... any effort is generally rewarded

Try creating the "look" you want with Koda first...huh?

8)

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites
myspacee Universalist

myspacee

Posted
  • Author
Posted (edited)

Ok,

make this using GUICtrlSetOnHover_UDF :

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <array.au3>

#include <StaticConstants.au3>
#include <GUICtrlSetOnHover_UDF.au3>

dim $Graphic, $pillx = 1015, $pilly = 640
dim $image_01, $image_02, $image_03, $image_04, $image_05, $image_06, $image_07, $image_08, $image_09
Dim $F_go  = 1

dim $main_GUI_X,$main_GUI_Y,$main_GUI_X_old,$main_GUI_Y_old

Global $aSquere = 0

_gdiplus_startup()





While 1
    $msg = GUIGetMsg()
    Select
;__________________________________________________________________________ CLEAN on Exit
    Case $msg = $gui_event_close
        _GDIPlus_GraphicsDispose($Graphic)
        _GDIPlus_ImageDispose($image_01)
        _GDIPlus_ImageDispose($image_02)
        _GDIPlus_ImageDispose($image_03)
        
        _GDIPlus_ImageDispose($image_04)
        _GDIPlus_ImageDispose($image_05)
        _GDIPlus_ImageDispose($image_06)
        
        _GDIPlus_ImageDispose($image_07)
        _GDIPlus_ImageDispose($image_08)
        _GDIPlus_ImageDispose($image_09)
        _GDIPlus_ShutDown()
        Exit
    EndSelect

;__________________________________________________________________________ If flag = 1 redraw GUI
    if $F_go  = 1 Then; if FLAG = 1 GUI moves, redraw it !
        $main_GUI = GUICreate("Squid View",$pillx,$pilly,0,0)
        GUISetState(@SW_SHOW,$main_GUI)
        WinSetOnTop("Squid View", "", 1)

;__________________________________________________________________________ FAKE LABELS for rectangle selector
        $Label1 = GUICtrlCreateLabel("                                                                                                           ", 5, 5, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")
        $Label2 = GUICtrlCreateLabel("                                                                                                           ", 340, 5, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")
        $Label3 = GUICtrlCreateLabel("                                                                                                           ", 675, 5, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")

        $Label4 = GUICtrlCreateLabel("                                                                                                           ", 5, 217, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")
        $Label5 = GUICtrlCreateLabel("                                                                                                           ", 340, 217, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")
        $Label6 = GUICtrlCreateLabel("                                                                                                           ", 675, 217, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")

        $Label7 = GUICtrlCreateLabel("                                                                                                           ", 5, 430, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")
        $Label8 = GUICtrlCreateLabel("                                                                                                           ", 340, 430, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")
        $Label9 = GUICtrlCreateLabel("                                                                                                           ", 675, 430, -1, 206)
        _GUICtrl_SetOnHover(-1, "_Hover_Proc", "_Hover_Proc")

;__________________________________________________________________________ LOAD images on labels
        $graphic = _GDIPlus_GraphicsCreateFromHWND($main_GUI)
        $image_01 = _gdiplus_imageloadfromfile(@scriptdir & "\images\01.bmp")
        $image_02 = _gdiplus_imageloadfromfile(@scriptdir & "\images\02.bmp")
        $image_03 = _gdiplus_imageloadfromfile(@scriptdir & "\images\03.bmp")
        
        $image_04 = _gdiplus_imageloadfromfile(@scriptdir & "\images\01.bmp")
        $image_05 = _gdiplus_imageloadfromfile(@scriptdir & "\images\02.bmp")
        $image_06 = _gdiplus_imageloadfromfile(@scriptdir & "\images\03.bmp")
        
        $image_07 = _gdiplus_imageloadfromfile(@scriptdir & "\images\01.bmp")
        $image_08 = _gdiplus_imageloadfromfile(@scriptdir & "\images\02.bmp")
        $image_09 = _gdiplus_imageloadfromfile(@scriptdir & "\images\03.bmp")

        _GDIPlus_GraphicsDrawImageRect($graphic,$image_01,  10, 10,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_02, 345, 10,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_03, 680, 10,325,201)
        
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_04,  10, 221,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_05, 345, 221,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_06, 680, 221,325,201)
        
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_07,  10, 432,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_08, 345, 432,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_09, 680, 432,325,201)
        
;__________________________________________________________________________ record GUI position
        $GUIPOS = WinGetPos($main_GUI, "");Get pos of gui
        $main_GUI_X = $GUIPOS[0]
        $main_GUI_Y = $GUIPOS[1]

        $main_GUI_X_old = $main_GUI_X
        $main_GUI_Y_old = $main_GUI_Y

        
        $F_go = 0
    EndIf
    
    
;__________________________________________________________________________ If GUI MOVED flag order GUI redraw
    $GUIPOS = WinGetPos($main_GUI, "");Get pos of gui
    $main_GUI_X = $GUIPOS[0]
    $main_GUI_Y = $GUIPOS[1]
    
    if $main_GUI_X <> $main_GUI_X_old or  $main_GUI_Y <> $main_GUI_Y_old then 
        GUIDelete("Squid View")
        $F_go  = 1
    EndIf
    

    Sleep(10)

WEnd


Func _Hover_Proc($iCtrlID, $iParam)
    Switch $iParam
        Case 1
            Local $aCtrlPos = ControlGetPos($main_GUI, "", $iCtrlID)
            
            Switch $iCtrlID
                Case $Label1
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $Label2
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x00FF00)
                Case $Label3
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $Label4
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x00FF00)
                Case $Label5
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $Label6
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x00FF00)
                Case $Label7
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $Label8
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x00FF00)
                Case $Label9
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $List
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 5, 0xFF0000)
            EndSwitch
        Case 2
            If Not IsArray($aSquere) Then Return
            
            For $i = $aSquere[1] To $aSquere[$aSquere[0]]
                GUICtrlDelete($i)
            Next
            
            $aSquere = 0
    EndSwitch
EndFunc

Func _GUICtrlCreateSquere($iLeft, $iTop, $iWidth, $iHeight, $iLineWidth=3, $sColor=0)
    Local $aControlIDArray[5]
    
    $aControlIDArray[0] = 4
    
    $aControlIDArray[1] = GUICtrlCreateLabel("", $iLeft, $iTop, $iWidth, $iLineWidth, $SS_SUNKEN)
    GUICtrlSetBkColor(-1, $sColor)
    
    $aControlIDArray[2] = GUICtrlCreateLabel("", $iLeft, $iTop, $iLineWidth, $iHeight, $SS_SUNKEN)
    GUICtrlSetBkColor(-1, $sColor)
    
    $aControlIDArray[3] = GUICtrlCreateLabel("", ($iLeft+$iWidth)-1, $iTop, $iLineWidth, $iHeight+2, $SS_SUNKEN)
    GUICtrlSetBkColor(-1, $sColor)
    
    $aControlIDArray[4] = GUICtrlCreateLabel("", $iLeft, ($iTop+$iHeight)-1, $iWidth+1, $iLineWidth, $SS_SUNKEN)
    GUICtrlSetBkColor(-1, $sColor)
    
    Return $aControlIDArray
EndFunc

Load images on gui if you put them '\images\' folder

Anyone can teach me how use keyboard (up down left right) to emulate same effect ? [mouse hover]

thank you all for reading,

m.

Edited by myspacee
Link to comment
Share on other sites
myspacee Universalist

myspacee

Posted
  • Author
Posted

I must cheat with mousemove :

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <array.au3>

#include <StaticConstants.au3>
#include <GUICtrlSetOnHover_UDF.au3>

#Include <Misc.au3>
$dll = DllOpen("user32.dll")

dim $Graphic, $pillx = 1015, $pilly = 640
dim $image_01, $image_02, $image_03, $image_04, $image_05, $image_06, $image_07, $image_08, $image_09
Dim $F_go  = 1, $f_redraw = 1

dim $main_GUI_X,$main_GUI_Y,$main_GUI_X_old,$main_GUI_Y_old
dim $Square_selector_position_x = 10, $Square_selector_position_y = 1, $Square_selector_position = $Square_selector_position_x + $Square_selector_position_y


Global $aSquere = 0



_gdiplus_startup()

While 1
    $msg = GUIGetMsg()
    Select
;__________________________________________________________________________ CLEAN on Exit
    Case $msg = $gui_event_close
        _GDIPlus_GraphicsDispose($Graphic)
        _GDIPlus_ImageDispose($image_01)
        _GDIPlus_ImageDispose($image_02)
        _GDIPlus_ImageDispose($image_03)
        
        _GDIPlus_ImageDispose($image_04)
        _GDIPlus_ImageDispose($image_05)
        _GDIPlus_ImageDispose($image_06)
        
        _GDIPlus_ImageDispose($image_07)
        _GDIPlus_ImageDispose($image_08)
        _GDIPlus_ImageDispose($image_09)
        _GDIPlus_ShutDown()
        DllClose($dll)
        Exit
    EndSelect

;__________________________________________________________________________ If flag = 1 redraw GUI
    if $F_go  = 1 Then; if FLAG = 1 GUI moves, redraw it !
        $main_GUI = GUICreate("Squid View",$pillx,$pilly,0,0)
        GUISetState(@SW_SHOW,$main_GUI)
        WinSetOnTop("Squid View", "", 1)

;__________________________________________________________________________ FAKE LABELS for rectangle selector
        $Label1 = GUICtrlCreateLabel("                                                                                                           ", 5, 5, -1, 206)
        _GUICtrl_SetOnHover($Label1, "_Hover_Proc", "_Hover_Proc")
        $Label2 = GUICtrlCreateLabel("                                                                                                           ", 340, 5, -1, 206)
        _GUICtrl_SetOnHover($Label2, "_Hover_Proc", "_Hover_Proc")
        $Label3 = GUICtrlCreateLabel("                                                                                                           ", 675, 5, -1, 206)
        _GUICtrl_SetOnHover($Label3, "_Hover_Proc", "_Hover_Proc")

        $Label4 = GUICtrlCreateLabel("                                                                                                           ", 5, 217, -1, 206)
        _GUICtrl_SetOnHover($Label4, "_Hover_Proc", "_Hover_Proc")
        $Label5 = GUICtrlCreateLabel("                                                                                                           ", 340, 217, -1, 206)
        _GUICtrl_SetOnHover($Label5, "_Hover_Proc", "_Hover_Proc")
        $Label6 = GUICtrlCreateLabel("                                                                                                           ", 675, 217, -1, 206)
        _GUICtrl_SetOnHover($Label6, "_Hover_Proc", "_Hover_Proc")

        $Label7 = GUICtrlCreateLabel("                                                                                                           ", 5, 430, -1, 206)
        _GUICtrl_SetOnHover($Label7, "_Hover_Proc", "_Hover_Proc")
        $Label8 = GUICtrlCreateLabel("                                                                                                           ", 340, 430, -1, 206)
        _GUICtrl_SetOnHover($Label8, "_Hover_Proc", "_Hover_Proc")
        $Label9 = GUICtrlCreateLabel("                                                                                                           ", 675, 430, -1, 206)
        _GUICtrl_SetOnHover($Label9, "_Hover_Proc", "_Hover_Proc")

;__________________________________________________________________________ LOAD images on labels
        $graphic = _GDIPlus_GraphicsCreateFromHWND($main_GUI)
        $image_01 = _gdiplus_imageloadfromfile(@scriptdir & "\images\01.jpg")
        $image_02 = _gdiplus_imageloadfromfile(@scriptdir & "\images\02.jpg")
        $image_03 = _gdiplus_imageloadfromfile(@scriptdir & "\images\03.jpg")
        
        $image_04 = _gdiplus_imageloadfromfile(@scriptdir & "\images\04.jpg")
        $image_05 = _gdiplus_imageloadfromfile(@scriptdir & "\images\05.jpg")
        $image_06 = _gdiplus_imageloadfromfile(@scriptdir & "\images\01.jpg")
        
        $image_07 = _gdiplus_imageloadfromfile(@scriptdir & "\images\01.jpg")
        $image_08 = _gdiplus_imageloadfromfile(@scriptdir & "\images\02.jpg")
        $image_09 = _gdiplus_imageloadfromfile(@scriptdir & "\images\03.jpg")

        _GDIPlus_GraphicsDrawImageRect($graphic,$image_01,  10, 10,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_02, 345, 10,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_03, 680, 10,325,201)
        
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_04,  10, 221,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_05, 345, 221,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_06, 680, 221,325,201)
        
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_07,  10, 432,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_08, 345, 432,325,201)
        _GDIPlus_GraphicsDrawImageRect($graphic,$image_09, 680, 432,325,201)
        
;__________________________________________________________________________ record GUI position
        $GUIPOS = WinGetPos($main_GUI, "");Get pos of gui
        $main_GUI_X = $GUIPOS[0]
        $main_GUI_Y = $GUIPOS[1]

        $main_GUI_X_old = $main_GUI_X
        $main_GUI_Y_old = $main_GUI_Y

        
        $F_go = 0
    EndIf
    
    
;__________________________________________________________________________ If GUI MOVED flag order GUI redraw
    $GUIPOS = WinGetPos($main_GUI, "");Get pos of gui
    $main_GUI_X = $GUIPOS[0]
    $main_GUI_Y = $GUIPOS[1]
    
    if $main_GUI_X <> $main_GUI_X_old or  $main_GUI_Y <> $main_GUI_Y_old then 
        GUIDelete("Squid View")
        $F_go  = 1
    EndIf
    
;__________________________________________________________________________ Move Selector also with keyboard [triky with MouseMove]


    if _IsPressed("25") Then;left arrow x-10
        $f_redraw = 1
        $Square_selector_position_x = $Square_selector_position_x - 10
        if $Square_selector_position_x = 0 Then $Square_selector_position_x = 10
        Sleep(100)
    elseif _IsPressed("27") Then;left arrow x+10
        $f_redraw = 1
        $Square_selector_position_x = $Square_selector_position_x + 10
        if $Square_selector_position_x = 40 Then $Square_selector_position_x = 30
        Sleep(100)          
        
    Elseif _IsPressed("26") Then;up arrow y-1
        $f_redraw = 1
        $Square_selector_position_y = $Square_selector_position_y - 1
        if $Square_selector_position_y = 0 Then $Square_selector_position_y = 1
        Sleep(100)
    elseif _IsPressed("28") Then;down arrow y+1
        $f_redraw = 1
        $Square_selector_position_y = $Square_selector_position_y + 1
        if $Square_selector_position_y = 4 Then $Square_selector_position_y = 3
        Sleep(100)      
        

    EndIf

    Sleep(10)
    
;__________________________________________________________________________ obtain rectangle position with X Y sum
    $Square_selector_position = $Square_selector_position_x + $Square_selector_position_y
    ToolTip($Square_selector_position & " = " & $Square_selector_position_x & " , " & $Square_selector_position_y,0,0)
    
;__________________________________________________________________________ if arrows moved this flag = 1 and enable MouseMove  
    if $f_redraw = 1 Then

        if $Square_selector_position = 11 Then
            MouseMove(50,50,0)
            Sleep(100)
        Elseif $Square_selector_position = 21 Then
            MouseMove(400,50,0)
            Sleep(100)
        Elseif $Square_selector_position = 31 Then
            MouseMove(750,50,0)                 
            Sleep(100)
            
        ElseIf $Square_selector_position = 12 Then
            MouseMove(50,300,0)
            Sleep(100)
        Elseif $Square_selector_position = 22 Then
            MouseMove(400,300,0)        
            Sleep(100)
        Elseif $Square_selector_position = 32 Then
            MouseMove(750,300,0)    
            Sleep(100)
            
        ElseIf $Square_selector_position = 13 Then
            MouseMove(50,550,0)
            Sleep(100)
        Elseif $Square_selector_position = 23 Then
            MouseMove(400,550,0)
            Sleep(100)
        Elseif $Square_selector_position = 33 Then
            MouseMove(750,550,0)    
            Sleep(100)          
        EndIf
        $f_redraw = 0;BUT flag shut down until user press again arrows
    EndIf
WEnd

;__________________________________________________________________________
;___________________________ FUNCTIONS ____________________________________
;__________________________________________________________________________
Func _Hover_Proc($iCtrlID, $iParam)
    Switch $iParam
        Case 1
            Local $aCtrlPos = ControlGetPos($main_GUI, "", $iCtrlID)
            
            Switch $iCtrlID
                Case $Label1
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $Label2
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x00FF00)
                Case $Label3
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $Label4
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x00FF00)
                Case $Label5
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $Label6
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x00FF00)
                Case $Label7
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $Label8
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x00FF00)
                Case $Label9
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 3, 0x0000FF)
                Case $List
                    $aSquere = _GUICtrlCreateSquere($aCtrlPos[0], $aCtrlPos[1], $aCtrlPos[2], $aCtrlPos[3], 5, 0xFF0000)
            EndSwitch
        Case 2
            If Not IsArray($aSquere) Then Return
            
            For $i = $aSquere[1] To $aSquere[$aSquere[0]]
                GUICtrlDelete($i)
            Next
            
            $aSquere = 0
    EndSwitch
EndFunc

Func _GUICtrlCreateSquere($iLeft, $iTop, $iWidth, $iHeight, $iLineWidth=3, $sColor=0)
    Local $aControlIDArray[5]
    
    $aControlIDArray[0] = 4
    
    $aControlIDArray[1] = GUICtrlCreateLabel("", $iLeft, $iTop, $iWidth, $iLineWidth, $SS_SUNKEN)
    GUICtrlSetBkColor(-1, $sColor)
    
    $aControlIDArray[2] = GUICtrlCreateLabel("", $iLeft, $iTop, $iLineWidth, $iHeight, $SS_SUNKEN)
    GUICtrlSetBkColor(-1, $sColor)
    
    $aControlIDArray[3] = GUICtrlCreateLabel("", ($iLeft+$iWidth)-1, $iTop, $iLineWidth, $iHeight+2, $SS_SUNKEN)
    GUICtrlSetBkColor(-1, $sColor)
    
    $aControlIDArray[4] = GUICtrlCreateLabel("", $iLeft, ($iTop+$iHeight)-1, $iWidth+1, $iLineWidth, $SS_SUNKEN)
    GUICtrlSetBkColor(-1, $sColor)
    
    Return $aControlIDArray
EndFunc

m.

Link to comment
Share on other sites
myspacee Universalist

myspacee

Posted
  • Author
Posted

going mad.

try to run this script as child windows when user select :

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)
global $click_X = 0, $click_Y = 0, $click_wait = 1000


Example()


; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
; See also: http://msdn.microsoft.com/workshop/browser...netexplorer.asp
Func Example()
    Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
    Local $GUI_Button_Home, $GUI_Button_Stop, $msg
   
    $oIE = ObjCreate("Shell.Explorer.2")

   ; Create a simple GUI for our output
    GUICreate("Embedded Google StreetView", 640, 580, 0, 0, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
    $GUIActiveX = GUICtrlCreateObj ($oIE, 2, 2, 640, 500)
    $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 550, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 550, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 550, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Fullscreen", 330, 550, 100, 30)

    GUISetState()     ;Show GUI

    $oIE.navigate("http://maps.google.it/maps?f=q&source=s_q&hl=it&geocode=&q=duomo&sll=45.464134,9.189656&sspn=0.005042,0.009613&ie=UTF8&radius=0.23&rq=1&ll=45.463938,9.188583&spn=0,359.990387&z=17&layer=c&cbll=45.463767,9.188341&panoid=kSIfc4TPePi04oiU_jS6sg&cbp=12,67.43,,0,4.6")

    ToolTip("Please wait....",0,0)
    _click_here(380, 135, 6000)
    ToolTip("",0,0) 
    

   ; Waiting for user to close the window
    While 1
        $msg = GUIGetMsg()

        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $GUI_Button_Home
                $oIE.navigate("http://maps.google.it/maps?f=q&source=s_q&hl=it&geocode=&q=duomo&sll=45.464134,9.189656&sspn=0.005042,0.009613&ie=UTF8&radius=0.23&rq=1&ll=45.463938,9.188583&spn=0,359.990387&z=17&layer=c&cbll=45.463767,9.188341&panoid=kSIfc4TPePi04oiU_jS6sg&cbp=12,67.43,,0,4.6")
            Case $msg = $GUI_Button_Back
                $oIE.GoBack
            Case $msg = $GUI_Button_Forward
                $oIE.GoForward
            Case $msg = $GUI_Button_Stop
;~               $oIE.Stop
                _click_here(612, 158, 6000)
        EndSelect
       
    WEnd

    GUIDelete()
EndFunc  ;==>Example


FUNC _click_here($click_X, $click_Y, $click_wait)
    MouseMove(0,0,0)
    MouseMove($click_X,$click_Y,$click_wait)
    sleep(6000)
    MouseClick("left")
    MouseMove(0,0,0)
    $click_X = 0
    $click_Y = 0
    $click_wait = 1000
EndFunc

anyone can teach me how join to a button (or event) above script ?

help please,

m.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...