AccessTr.neT

Tam Versiyon: Web Tarayıcısı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba,

Bir sitenin veri girilen alanlarına Accesdeki bir değeri girerek kontrol yapmak istiyorum.Fakat Bazı alanlara yazılamıyor acaba nedendir.Korumamı vardır.

Örnek çalışma buldum fakat ordaki 2 alandan birine yazılıyor öbürüne yazılamıyor neden dir acaba.

Örnekte bağlandığım site http://www.bing.com/maps/default.aspx bu sitenin "where" name li alanına ilçeleri getirtip haritaya getiriyor fakat işletme adı veya kategorisi alanı olan "what"
alanına yazamıyorum acaba nedendir.

Teşekkürler.
Tarayıcıda what tanımlanmış ancak where kısmı Base64 ile kodlanmış,

İşletme adı kısmına "Hersan Cami", Konum Kısmına "Bitlis" Yazınca tarayıcıda şu link oluşuyor.

Kod:
http://www.bing.com/maps/#Y3A9MzguMzk5NDMwfjQyLjExMjk2MiZsdmw9MTUmc3R5PXImd2hlcmUxPUJpdGxpcyZzcz15cC5IZXJzYW4lMjBDYW1pfnBnLjF+cmFkLjgw
Linkteki
Alıntı:#Y3A9MzguMzk5NDMwfjQyLjExMjk2MiZsdmw9MTUmc3R5PXImd2hlcmUxPUJpdGxpcyZzcz15cC5IZXJzYW4lMjBDYW1pfnBnLjF+cmFkLjgw
kısmının anlamı

Alıntı:cp=38.399430~42.112962&lvl=15&sty=r&where1=Bitlis&ss=yp.Hersan%20Cami~pg.1~rad.80

Tarayıcının denetim kaynağını aşağıdaki ile değiştirsen muhtemelen çalışacaktır. Çalışmazsa webbrowser denetimi ekleriz Img-grin

="http://www.bing.com/maps/default.aspx" & "?where=" & [ilce] & "&ss=yp." & [Kategori]

koddaki [kategori] işletme veya kategori yazacağın metin kutusunun adı.
Ozan bey teşekkürler.
Bu site için evet yaradı fakat ben birde http://metalsmarket.net/index.php sitesindeli Username ve password yazıp girmek istiyorum acaba bu hangi kodu kullanmış base64 denedim olmadı Img-grin
inceleyiniz.

Private Sub Form_Load()
WebBrowser4.Silent = True
WebBrowser4.Navigate "http://metalsmarket.net/index.php"
End Sub

Private Sub Komut15_Click()

Set giris = WebBrowser4.Document.GetElementsByTagname("Input")

For Each tagx In giris
If tagx.Name = "username" Then
tagx.Value = Me.mtn_kullaniciadi
End If
If tagx.Name = "password" Then
tagx.Value = Me.mtn_sifre
End If
If tagx.Value = "Log in" Then
tagx.Click
End If
Next
End Sub
Çok Çok teşekkürler.
(14/05/2014, 21:04)ozanakkaya yazdı: [ -> ]Çalışmazsa webbrowser denetimi ekleriz Img-grin
webbrowser denetimi sanırım activexdeki webbrowser.