AccessTr.neT

Bul · 14/05/2014, 15:18

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.

Bul · 14/05/2014, 21:04

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

Bul · 15/05/2014, 09:43

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

Bul · 16/05/2014, 05:32

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

Bul · 16/05/2014, 15:11

Çok Çok teşekkürler.

Bul · 16/05/2014, 23:49

(14/05/2014, 21:04)ozanakkaya yazdı: Çalışmazsa webbrowser denetimi ekleriz

webbrowser denetimi sanırım activexdeki webbrowser.

AccessTr.neT

Web Tarayıcısı

Web Tarayıcısı

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri