onclick ile butonu tıklama

Katılım
11 Temmuz 2019
Mesajlar
4
Excel Vers. ve Dili
office 2007
İ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.

Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Aşağıdaki şekilde deneyin.
Kod:
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
 
Katılım
11 Temmuz 2019
Mesajlar
4
Excel Vers. ve Dili
office 2007
Aşağıdaki şekilde deneyin.
Kod:
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
 
Katılım
11 Temmuz 2019
Mesajlar
4
Excel Vers. ve Dili
office 2007
malesef olmadı.
Kod:
Object required
hatası aldım.
alternatif önerin var mı?
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,758
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Böyle denermisiniz.

Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Chekbox ı dikkate almamıştım ben.
Kod:
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
 
Katılım
11 Temmuz 2019
Mesajlar
4
Excel Vers. ve Dili
office 2007
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
Kod:
browser.document.getElementById("txtNot").Value = "test1-2"
mesajı yazıyorum , yalnız aşağıdaki kod
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.
 
Üst