Что нового

как перенести фокус в нутри окна

komorov74

Новичок
Сообщения
81
Репутация
0
Привет. Не поможете :
1-перенести фокус на браузер после нажатия кнопки готов (в данном случаи mail.ru) без двиганья мышкой
2 - скопировать любую ссылку ( допустим наугад TAB 7 ) желательно без мышки (тобишь эмуляции клавы и мышки не надо)


Буду очень признательный хотя бы за первую часть!!!!!!!!!


Код:
#include <IE.au3>   
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Icons.au3>
#Include <WinAPIEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


$URLgo="mail.ru"

$URL =$URLgo

   ; $oSubmit = _IEGetObjByName ($URL, "sf_url") ; Если ссылка найдена, то фокус на поле для ввода и 2 Таба и мы на первой ссылке с как правило лучшим качеством
         ;   _IEAction($oSubmit, "Focus")
			
			
$Form1 = GUICreate("исключение!!!", @DesktopWidth, @DesktopHeight, 0, 1)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 500, 2, @DesktopWidth, 500)
GUISetState(@SW_SHOW)
$Obj1.Navigate($URL)
ConsoleWrite($Obj1_ctrl & @CRLF)

$but=GUICtrlCreateButton ( "Готово", 3,400,100,20 )

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $but
  

   ExitLoop        

    EndSwitch
WEnd
ControlClick("My Window", "", "[ID:3]"); ,????????????????????????????????????????????????????????????????????????????????

sleep (6000)
 ;
 
Автор
K

komorov74

Новичок
Сообщения
81
Репутация
0
Код:
$sds=ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")


покопался в мануале -не помогло

Помогите!!!!!!!!!!!
 

Dm666

Осваивающий
Сообщения
221
Репутация
48
Так?
Код:
ControlFocus ("исключение!!!","","[CLASS:Internet Explorer_Server; INSTANCE:1]")
 
Верх