AccessTr.neT

merhabalar, formda web brovseri açıyorum sorun yok da yazdığım kodlarla sayfadaki metin kutusuna string aktarıyorum ve butona da tıklatabiliyorum yalnız bu olaylar ayrı bir ie sayfasında oluyor benim formumdaki web sayfasında olsun istiyorum, bir çok deneme yaptım ama olmadı, bi bakabilir misiniz, teşekkürler.

Private Sub Form_Open(Cancel As Integer)

Dim IE As Object
Dim htmldoc As Object
Dim btn As Object



Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://www.dmo.gov.tr/Arama/DetayliArama"


'işte buradan itibaren gerçekleşen olaylar benim web browserimda olsun istiyrum
Do While IE.Busy Or IE.ReadyState <> 4: Loop

Set htmldoc = IE.Document

htmldoc.getElementById("SearchText").Value = "kalem pil"



IE.Document.parentWindow.execScript "SearchFormClick()", "javascript"----> 'bu , arama butonunu tetikliyor





End Sub