Skip to main content

AccessTr.neT


Web Tarayıcısı

derbederali1971
derbederali1971
5
2552

Web Tarayıcısı

Çözüldü #1
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.
.zip test1.zip (Dosya Boyutu: 54,36 KB | İndirme Sayısı: 11)
Cevapla
Çözüldü #2
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ı.
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
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
.rar webbrowsergiris.rar (Dosya Boyutu: 19,94 KB | İndirme Sayısı: 14)
Cevapla
Çözüldü #5
Çok Çok teşekkürler.
Cevapla
Çözüldü #6
(14/05/2014, 21:04)ozanakkaya yazdı: Çalışmazsa webbrowser denetimi ekleriz Img-grin
webbrowser denetimi sanırım activexdeki webbrowser.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task