수다닷컴

아래 웹브라우저를 이용해서 특정 셀에 글쓰기 프로그램을 만드는 데요.아래 소스 처럼 그냥 가져다 붙이는게 아니고진짜 사람이 타자치는 것처럼 자음 모음 하나씩 쳐지게 할 수는 없는 건가요?어떤 기능을 사용 하면 될까요~~?ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡPrivate Sub Form_Load()
WebBrowser1.Navigate http://login.yahoo.com/config/login?.src=geo&.intl=us&.done=http://geocities.yahoo.com/

End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Application) Then
If URL = http://login.yahoo.com/config/login?.src=geo&.intl=us&.done=http://geocities.yahoo.com/ Then
WebBrowser1.Document.All.login.Value = UserName
WebBrowser1.Document.All.passwd.Value = Password
Dim btn As Object
For Each btn In WebBrowser1.Document.getElementsByTagName(input)
If btn.Value = Sign In Then
btn.Click
Exit For
End If
Next
End If
End If
End Sub

신청하기