+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: buton seçimi (/konu-buton-secimi.html)
buton seçimi - nihatra - 01/02/2012
Excelden veb sayfasına veri gönderiyorum.bir yerde takıldım. bu sayfada 3 adet button var.
üç butonun name=button aşağıdaki gibi
<td><input type="button" name="button" id="button" align="left" value=". Kayıt Görüntüleme ." onclick="kayitGoruntule();"
<td><input type="button" name="button" id="button" align="left" value=". Kayıt Güncelleme / Kamu İdaresi İçi Nakil ." onclick="icNakil();"
<td><input type="button" name="button" id="button" align="left" value=". Tekrar Tescil / Kamu İdaresi Dışı Nakil ." onclick=disNakil();></td>
komutları
.document.all.Item("butonTcAra").Click .....gibi göneriyorum.
bu üç butondan herhangi birini nasıl seçebilirim.
Cvp: buton seçimi - mcmaho - 01/02/2012
Excel mi? Visual Basic mi?
Cvp: buton seçimi - nihatra - 02/02/2012
kodlarım aşağıdadır. acil cevap bekliyorum.
Private Sub CommandButton1_Click()
On Error Resume Next
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate "http://uygweb.sgk.gov.tr/............."
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
.document.all.Item("kulAd").Value = "" 'Kullanıcı Adı
.document.all.Item("sifre").Value = "" 'şifre
.document.all.Item("Submit").Click
.document.all.Item("Submit").Click
.document.all.Item("comboUyruk").Value = "TC"
.document.all.Item("txtTcno").Value = Sheets("Sayfa2").Range("A3") 'TC KİMLİK NUMARASI
.document.all.Item("butonTcAra").Click
'bu arada name=button olan 4 tane buton var birini seçmek istiyorum
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
Set IE = Nothing
End Sub
Cvp: buton seçimi - alpeki99 - 02/02/2012
Sayın nihatra lütfen Site Kurallarını okuyunuz. Sorunuz ile ilgili örnek dosyanızı ekleyiniz. Her soruyu soran için örnek hazırlamak bizim için çok ciddi zaman kaybı oluyor. Ayrıca acil, ölüyorum, bittim, işten kovulacağım vb. ifadeler sorunuzun çözülmesini günlerce geciktirir.
Cvp: buton seçimi - ogulcan92 - 20/04/2012
Sn:nihatra
Site içerisinde arama yapmış olsaydınız bu konu ile birçok örnek var.Aşağıdaki linkte bunlardan bir tanesidir.
Not:Arkadaşımız siteye girip çıkmasına rağmen konuya dönüş yapmamıştır.Konu cevaplanmışlara taşınmıştır.
Vergi Dairesinden Pos Sorgulama