Private Sub gönder_Click()

Dim GSayi As Integer



For GSayi = 1 To 100



    Call VeriGonder



Next GSayi



End Sub





Sub VeriGonder()



Me.WebBrowser0.Navigate2 "https://accesstr.net/sitegenel/siparisformutest.html"



Do While Me.WebBrowser0.Object.Busy Or Me.WebBrowser0.Object.ReadyState <> 4

    DoEvents

Loop



WebBrowser0.Document.GetElementById("AdSoyad").InnerTEXT = Me.ad.Value

WebBrowser0.Document.GetElementById("Telefon").InnerTEXT = Me.cep.Value

WebBrowser0.Document.GetElementById("Adres").InnerTEXT = Me.adres.Value

WebBrowser0.Document.GetElementById("il").InnerTEXT = Me.il.Value

WebBrowser0.Document.GetElementById("ilce").InnerTEXT = Me.ilçe.Value

WebBrowser0.Document.GetElementById("Adres").InnerTEXT = Me.adres.Value



For Each btn In WebBrowser0.Document.all.tags("Button")



    If btn.Type = "submit" Then

        btn.Click

    End If



Next btn





End Sub