kumatti1

HTML解析ヘルパー(仮) https://gist.github.com/kumatti1/96e89ff9e4100381d4d8 VBS版 https://gist.github.com/kumatti1/93cf607ba19d1f89ca5e

kumatti1

Private WithEvents ie As SHDocVw.InternetExplorer
Sub test()

    Dim pUnk As hoge.InternetExplorerManager
    Set pUnk = New InternetExplorerManager
    
    Dim hr As Long
    Dim u As UUID
    hr = hoge.IIDFromString(hoge.IID_IWebBrowser2, u)

kumatti1

#import "ieframe.dll"
#import "mshtml.tlb"
#import "Ieautomation.tlb"
#include <Windows.h>

#define URI L"https://login.yahoo.co.jp/config/login_verify2?.src=ym"


HRESULT GetSub()
{

kumatti1

Private Declare Function WindowFromAccessibleObject Lib "oleacc.dll" ( _
    ByVal IAcessible As Object, _
    ByRef hwnd As LongPtr _
) As Long

#If Win64 Then
Private Declare _
Function SetWindowLongPtrW Lib "user32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal nIndex As Long, _

kumatti1

Option Explicit

'要参照設定
'Microsoft HTML Object Library

Private WithEvents m_Doc As MSHTML.HTMLDocument
Private p As MSHTML.IHTMLWindow2
Private flg As Boolean

Private Sub UserForm_Initialize()

kumatti1

    Dim ie

    Const url = "https://www.ponta.jp/u/LWAS900/SLWAS900010.htm"
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate url
    
    While ie.busy Or ie.ReadyState <> 4
        WScript.Sleep (100)
    Wend

kumatti1

'目的の要素を選択
Sub Main()
    Application.OnTime Now + TimeSerial(0, 0, 2), "GetSub"
End Sub

kumatti1

    Dim ie

    Const url = "https://www.waon.com/wmUseHistoryInq/init.do"
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate url
    
    While ie.busy Or ie.ReadyState <> 4
        WScript.Sleep (100)
    Wend

kumatti1

Option Explicit
Implements IUIAutomationEventHandler
Private Sub IUIAutomationEventHandler_HandleAutomationEvent(ByVal sender As UIAutomationClient.IUIAutomationElement, ByVal eventId As Long)

    Dim iElemFound As IUIAutomationElement
    Set iElemFound = GetElement(o, sender, "はい(Y)", 0)
    If iElemFound Is Nothing Then Exit Sub

    If iElemFound.CurrentName = "はい(Y)" Then
        Dim InvokePattern As IUIAutomationInvokePattern

kumatti1

Option Explicit


Enum ICONS
    TD_WARNING_ICON = 65535
    TD_ERROR_ICON = 65534
    TD_INFORMATION_ICON = 65533
    TD_SHIELD_ICON = 65532
End Enum