자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 5,033회 작성일 20-05-17 22:55

본문

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

댓글목록

등록된 댓글이 없습니다.