Private Sub Form_Load()

WebBrowser4.Silent = True

WebBrowser4.Navigate "http://metalsmarket.net/index.php"

End Sub



Private Sub Komut15_Click()



Set giris = WebBrowser4.Document.GetElementsByTagname("Input")



For Each tagx In giris

    If tagx.Name = "username" Then

        tagx.Value = Me.mtn_kullaniciadi

    End If

    If tagx.Name = "password" Then

        tagx.Value = Me.mtn_sifre

    End If

    If tagx.Value = "Log in" Then

        tagx.Click

    End If

Next

End Sub