- 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.
Ö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