onclick ile butonu tıklama

[beyazhucre]

İyi geceler arkadaslar,
Özel ve güzel bir kaynak.
Böyle bir kaynakta emeği geçen arkadaşlarıma öncelikle teşekkür ederim.

Küçük bir destek rica edeceğim. Kod da anlaşıldığı üzere mackolik.com üzerinde tanımladıgım foruma mesaj yazmak istiyorum.Evet mesajı yazabiliyorum ama send leyemedim. Kendimce birşey denedim olmadı.
Bu konu için destek rica edebilirmiyim.
Teşekkurler.

Sub MesajYaz()

Set browser = CreateObject("internetexplorer.application")

browser.Visible = True
browser.navigate ("https://user.mackolik.com/userpages/ForumDetails/Default.aspx?type=2&tId=3218089")


Do
DoEvents
Loop Until browser.readyState = 4


browser.document.getElementById("txtNot").Value = "test1-2"

''' Calismayan satırım bu "submitFrmNew()" buton ismide bu .destek olabilirmisiniz
browser.document.getElementById("submitFrmNew()").onclick 
''' Calismayan satırım bu "submitFrmNew()" buton ismide bu .destek olabilirmisiniz

Do
DoEvents
Loop Until browser.readyState <> 4

End Sub

 

[askm]

Aşağıdaki şekilde deneyin.

Sub MesajYaz()

Set browser = CreateObject("internetexplorer.application")

browser.Visible = True
browser.navigate ("https://user.mackolik.com/userpages/ForumDetails/Default.aspx?type=2&tId=3218089")


Do
DoEvents
Loop Until browser.readyState = 4


browser.document.getElementById("usr").Value = "kullanıcı adı"
browser.document.getElementById("pwd").Value = "şifre"

''' Calismayan satırım bu "submitFrmNew()" buton ismide bu .destek olabilirmisiniz
browser.document.getElementById("form1").submit
''' Calismayan satırım bu "submitFrmNew()" buton ismide bu .destek olabilirmisiniz

Do
DoEvents
Loop Until browser.readyState <> 4

End Sub

 

[beyazhucre]

Aşağıdaki şekilde deneyin.

Sub MesajYaz()

Set browser = CreateObject("internetexplorer.application")

browser.Visible = True
browser.navigate ("https://user.mackolik.com/userpages/ForumDetails/Default.aspx?type=2&tId=3218089")


Do
DoEvents
Loop Until browser.readyState = 4


browser.document.getElementById("usr").Value = "kullanıcı adı"
browser.document.getElementById("pwd").Value = "şifre"

''' Calismayan satırım bu "submitFrmNew()" buton ismide bu .destek olabilirmisiniz
browser.document.getElementById("form1").submit
''' Calismayan satırım bu "submitFrmNew()" buton ismide bu .destek olabilirmisiniz

Do
DoEvents
Loop Until browser.readyState <> 4

End Sub

hemen deniyorum

 

[beyazhucre]

malesef olmadı.

Object required

hatası aldım.
alternatif önerin var mı?

 

[halit3]

Böyle denermisiniz.

Sub MesajYaz()

Set browser = CreateObject("internetexplorer.application")

browser.Visible = True
browser.navigate ("https://user.mackolik.com/userpages/ForumDetails/Default.aspx?type=2&tId=3218089")

Do
DoEvents
Loop Until browser.readyState = 4

browser.Document.getElementsByTagName("input")("usr").Value = "test1-2"
browser.Document.getElementsByTagName("input")("pwd").Value = "deneme"
Application.Wait (Now + TimeValue("00:00:01"))

browser.Document.all("chkUserAgreement").Checked = True

Application.Wait (Now + TimeValue("00:00:01"))
browser.Document.getElementsByTagName("form")(1).submit

Do
DoEvents
Loop Until browser.readyState <> 4

End Sub

 

[askm]

Chekbox ı dikkate almamıştım ben.

Sub MesajYazaskm()

Set browser = CreateObject("internetexplorer.application")

browser.Visible = True
browser.navigate ("https://user.mackolik.com/userpages/ForumDetails/Default.aspx?type=2&tId=3218089")

Do
DoEvents
Loop Until browser.readyState = 4

browser.document.getElementById("usr").Value = "kullanıcı adı"
browser.document.getElementById("pwd").Value = "şifre"
browser.document.getElementById("chkUserAgreement").Checked = True

Do
DoEvents
Loop Until browser.readyState <> 4

End Sub

 

[beyazhucre]

arkadaşlar ikinizide ilginiz için teşekkurler,
evet kodlarla kullanıcı adı ve pass ı tanımlayarak ilerliyorum
sonrasın da aşağıdaki kodu

browser.document.getElementById("txtNot").Value = "test1-2"

mesajı yazıyorum , yalnız aşağıdaki kod

browser.Document.getElementsByTagName("form")(1).submit

bir click yapıyor ama istediğim alanı değil. Baktıgımda
submitFrmNew bu butonu clicklemesi lazım .
umarım anlatmayı becerebilmişimdir.
Yinede ilginiz için teşekkurler.