[vb6.0/vba] InternetExplorer 관련 자료정리 > vb6.0/vba

본문 바로가기

vb6.0/vba

[vb6.0/vba] [vb6.0/vba] InternetExplorer 관련 자료정리

회원사진
하나를하더라도최선을
2020-05-17 22:55 3,278 0

본문



Navigate:)
about:blank
about:Tabs
 
변수선언:)
Set IE = CreateObject("InternetExplorer.Application")
 
기타:)
        '.Silent = True    '// vb 컨트롤에서 오류시 
        '.innerHTML
        '.innerText 
        '.outerHTML 
        '.outerText 
 
.gender(0).Checked = True '// 웹브라우져 라디오버튼
 
ReadyState:)
Do While IE.Busy = True Or IE.ReadyState <> 4
    DoEvents
Loop '// Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
 
forms:)
With .document.forms("frmNIDLogin")
    .ID.Value = "program114" '// 아이디 입력
    .PW.Value = "비밀번호" '// 비밀번호 입력
    IE.document.frmNIDLogin.onsubmit '// 로그인 버튼 클릭
End With
 
버튼 클릭:)
IE.Document.cafewritebtn.Click '// "확인"버튼 클릭
 
submit:)
IE.Document.frmNIDLogin.onsubmit '// 로그인 버튼 클릭
 
InternetExplorer 에 html 쓰기, IE에 HTML 넣기:)
Dim IE As Object
Sub IEDC(T As String)
    If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Navigate2 "about:blank"
        Do While .Busy = True Or .ReadyState <> 4
            DoEvents
        Loop
        .Document.Body.innerHTML = Trim(T)
        ' .Visible = True
        T = .Document.Body.innerTEXT
        ' .Quit
    End With
'    Set IE = Nothing
End Sub
 
 
 
또는 
 
 
Private Sub Command1_Click()
    Dim T As String
    T = "안녕!!"
    WebBrowser1.Document.write T
End Sub

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색