Программно найти окно скайпа - VB

Формулировка задачи:

Добрый день! Я не силен в таких вещах, помогите мне программно найти окно скайпа.

Решение задачи: «Программно найти окно скайпа»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
 
' ГЏГ°ГЁГ¬ГҐГ° ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г*Г®ГЈГ® ГЇГ®Г¤ГЄГ«ГѕГ·ГҐГ*ГЁГї Skype
' © ГЉГ°ГЁГўГ®ГіГ± ГЂГ*Г*ГІГ®Г«ГЁГ© ГЂГ*Г*ГІГ®Г«ГјГҐГўГЁГ· (The trick), 2014
 
Private Const IID_IDispatch     As String = "{00020400-0000-0000-C000-000000000046}"
Private Const IID_IHTMLElement  As String = "{3050f1ff-98b5-11cf-bb82-00aa00bdce0b}"
 
Private Const OBJID_CLIENT      As Long = -4
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExW" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As Long, ByVal lpsz2 As Long) As Long
Private Declare Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hwnd As Long, ByVal dwId As Long, ByRef riid As UUID, ByRef ppvObject As Object) As Long
Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As UUID) As Long
Private Declare Function GetMem4 Lib "msvbvm60" (Src As Any, Dst As Any) As Long
 
Private Sub Form_Load()
    Dim ieWnd       As Long                         ' ГЋГЄГ*Г* Г±ГЄГ*Г©ГЇГ*
    Dim i           As Long                         ' Г‘Г·ГҐГІГ·ГЁГЄ
    Dim IEObj       As Object                       ' ГЋГЎГєГҐГЄГІ IHTMLElement
    Dim DispUUID    As UUID                         ' UIID IDispatch
    Dim HTMLUUID    As UUID                         ' UIID IHTMLElement
    Dim srv         As olelib2.IServiceProvider     ' Г„Г«Гї Г¤Г®Г±ГІГіГЇГ* ГЄ IHTMLElement
    Dim Elem        As Object                       ' Г’ГҐГ«Г® HTML Г¤Г®ГЄГіГ¬ГҐГ*ГІГ*
    Dim logn        As Object                       ' ГЏГ®Г«ГҐ ГўГўГ®Г¤Г* Г«Г®ГЈГЁГ*Г*
    Dim pswd        As Object                       ' ГЏГ®Г«ГҐ ГўГўГ®Г¤Г* ГЇГ*Г°Г®Г«Гї
    Dim btn         As Object                       ' ГЉГ*Г®ГЇГЄГ* ГўГµГ®Г¤Г*
    ' Г‡Г*ГЇГ®Г«Г*ГїГҐГ¬ UIID'Г»
    IIDFromString StrPtr(IID_IDispatch), DispUUID
    IIDFromString StrPtr(IID_IHTMLElement), HTMLUUID
    ' ГЌГ*ГµГ®Г¤ГЁГ¬ Г*ГіГ¦Г*Г®ГҐ Г*Г*Г¬ Г®ГЄГ*Г®
    For i = 0 To 5
        ieWnd = FindWindowEx(ieWnd, 0, StrPtr(Choose(i + 1, _
                "TLoginForm", "TLoginControl", "TBrowserControl", _
                "Shell Embedding", "Shell DocObject View", "Internet Explorer_Server")), 0)
    Next
    ' ГЏГ®Г«ГіГ·Г*ГҐГ¬ Г±Г±Г»Г«ГЄГі Г*Г* ГЁГ*ГІГҐГ°ГґГҐГ©Г± IAccessible, Г¤Г«Гї Г¤Г®Г±ГІГіГЇГ* ГЄ ГЅГ«ГҐГ¬ГҐГ*ГІГ*Г¬ Г±ГІГ°Г*Г*ГЁГ¶Г»
    If AccessibleObjectFromWindow(ieWnd, OBJID_CLIENT, DispUUID, IEObj) Then
        MsgBox "error": Exit Sub
    End If
    ' ГЏГ®Г«ГіГ·Г*ГҐГ¬ ГІГҐГ«Г® Г¤Г®ГЄГіГ¬ГҐГ*ГІГ*
    Set srv = IEObj.accChild(CVar(CLng(0)))
    ' Г‡Г*ГЇГ°Г*ГёГЁГўГ*ГҐГ¬ ГЁГ*ГІГҐГ°ГґГҐГ©Г± IHTMLElement Г¤Г«Гї Г¤Г®Г±ГІГіГЇГ* ГЄ Г±ГўГ®Г©Г±ГІГўГ*Г¬ ГІГҐГ«Г* <BODY>
    srv.QueryService HTMLUUID, DispUUID, i
    GetMem4 i, ByVal VarPtr(Elem)
    ' Г‚ГўГ®Г¤ГЁГ¬ Г«Г®ГЈГЁГ*
    Set logn = Elem.All("username")
    logn.Value = "The trick"
    ' Г‚ГўГ®Г¤ГЁГ¬ ГЇГ*Г°Г®Г«Гј
    Set pswd = Elem.All("password")
    pswd.Value = "My password"
    ' ГЌГ*Г¦ГЁГ¬Г*ГҐГ¬ ГЄГ*Г®ГЇГЄГі
    Set btn = Elem.All("buttonSignIn")
    btn.focus
    btn.Click
    ' ГЋГ·ГЁГ±ГІГЄГ*
    Set Elem = Nothing
    Set btn = Nothing
    Set pswd = Nothing
    Set logn = Nothing
End Sub