onclick ile butonu tıklama

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

Altın Üye
Altın Üye
Katılım
4 Haziran 2005
Mesajlar
2,563
Beğeniler
70
Excel Vers. ve Dili
2010-2016
#2
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
Beğeniler
0
Excel Vers. ve Dili
office 2007
#3
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
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,113
Beğeniler
1,005
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
#5
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

Altın Üye
Altın Üye
Katılım
4 Haziran 2005
Mesajlar
2,563
Beğeniler
70
Excel Vers. ve Dili
2010-2016
#6
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
Beğeniler
0
Excel Vers. ve Dili
office 2007
#7
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