+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Web Sitesine Bağlanma (/konu-web-sitesine-baglanma.html)
Web Sitesine Bağlanma - eagle28 - 13/03/2014
Selam arkadaşlar
Gecen seneden açıklık kazandıramadığım bir konu
WebBrowser1.Document.All("username").Value = mtn_kullaniciadi.Value
WebBrowser1.Document.All("password").Value = mtn_sifre.Value
WebBrowser1.Document.GetElementsById(".........?.............").Click
web sitesi kodlarında buton İD sini bulamadım yada yok. buton kodu şu şekilde
<input type="submit" value="Giriş" class="kpp_button" onmouseover="this.className='kpp_button_over'" onmouseout="this.className='kpp_button'"><td colspan="2" align="right">
<!--input type='submit' name='x' class='kpp_button' onmouseover="this.className='kpp_button_over'" value=' Giriþ ' /-->
<hr *****border-bottom: 1px solid #B3BDC4; border-top: none; border-left: none; border-right: none;"><!--a href="javascript:void(0)" class='kpp_button' onmouseover="this.className='kpp_button_over'" onmouseout="this.className='kpp_button'" onclick="document.loginform.submit();">Giriş</a-->
<input type="submit" value="Giriş" class="kpp_button" onmouseover="this.className='kpp_button_over'" onmouseout="this.className='kpp_button'">
</td>
Cvp: Web sitesine baglanma - ozanakkaya - 13/03/2014
aşağıdaki konuyu inceleyiniz.
Webrowser ve java düğmeleri
WebBrowser1.Document.Links.Item(55).focus
kodu ile Giriş butonunun (55'i değiştirerek) sayısını bulup
WebBrowser1.Document.Links.Item(55).OnClick
kodu ile bu butonu tıklatabilirsiniz.
Cvp: Web Sitesine Bağlanma - eagle28 - 15/03/2014
sayısını nasıl bulabilirim biraz araştırdım ama anlayamadım
Cvp: Web Sitesine Bağlanma - ozanakkaya - 15/03/2014
(15/03/2014, 12:00)eagle28 yazdı: sayısını nasıl bulabilirim biraz araştırdım ama anlayamadım
web sayfası açıldıktan sonra tab tuşuna bas, tab tuşuna kaçıncı basışında giriş butonuna geldiysen 1 eksiği.
Cvp: Web Sitesine Bağlanma - eagle28 - 15/03/2014
bu şekilde yaptım ama olmadı
[vb]Private Sub tamam_Click()
WebBrowser1.Document.All("username").Value = mtn_kullaniciadi.Value
WebBrowser1.Document.All("password").Value = mtn_sifre.Value
WebBrowser1.Document.Links.Item(2).focus
WebBrowser1.Document.Links.Item(2).OnClick
Cvp: Web Sitesine Bağlanma - eagle28 - 19/03/2014
VAZGECTİM
(acılan konuyu nasıl silebilirim?
