Skip to main content

AccessTr.neT


web veri alama

web veri alama

Çözüldü #7
siteye girş konusunda yarımcı olabilecek yokmu

giriş üzerindeki cod cod
<input type="submit" class="btn btn1" value="Giriş" *****margin-left:260px;" tabindex="4">

XXXXXXXXXX

[/vb]Option Compare Database

Private Sub Form_Open(Cancel As Integer)
WebBrowser1.Navigate2 "https://xxxxxxxxxxxxx"
End Sub

Private Sub Komut0_Click()

Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls referansı (eklenecek)
Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft Html Object Library referansı (eklenecek)
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection

Set objIE = New SHDocVw.InternetExplorer

With objIE
.Navigate "https://xxxxxxx"
.Visible = 1
Do While .ReadyState <> 4: DoEvents: Loop
timeout = Now + TimeValue("00:00:15")
Set htmlDoc = .Document
Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If htmlInput.name = "login-username" Then
htmlInput.Value = Me.mtn_kullaniciadi
Else
If htmlInput.name = "login-pass" Then
htmlInput.Value = Me.mtn_sifre
Else
If htmlInput.name = "captcha-pass" Then
htmlInput.Value = Me.mtn_resim
End If
Next htmlInput
Set htmlDoc = .Document
Set htmlColl = htmlDoc.getElementsByTagName("input")
Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If Trim(htmlInput.Id) = "......?......" Then
htmlInput.Click
Exit For
End If
Next htmlInput
End With

End Sub

Private Sub Komut46_Click()

WebBrowser1.Document.All("username").Value = mtn_kullaniciadi.Value
WebBrowser1.Document.All("password").Value = mtn_sifre.Value
WebBrowser1.Document.All("captcha-pass").Value = mtn_resim.Value
WebBrowser1.Document.getElementById("...... ? ......;").Click
End Sub
HER ŞEYİ BİLECEKSİN DİYE BİR ŞEY YOK.   SADECE BİLDİĞİNİ UNUTMA YETER.[Resim: 2qi9zs5.gif]
Son Düzenleme: 05/01/2013, 15:13, Düzenleyen: eagle28.
Cevapla
Çözüldü #8
Bahsi geçen web sitesinin kaynak kodunu özel mesaj yoluyla temin ettim. Önceki eklediğim örnekteki tarayıcıyı açarak giriş yapma olayı olmayacak Çünkü giriş yapmadan önce web sayfasındaki captcha resmini doğrulamak gerekiyor.

Webbrowser üzerinden doğrulama resmi girilecek şekilde düzenlemeye çalıştım. Captcha resmi kaynak kodlarda görünmediği için farklı resim ekledim.
.rar webgiris_son.rar (Dosya Boyutu: 21,03 KB | İndirme Sayısı: 16)
Cevapla
Çözüldü #9
öncelikle teşekkür ederim
hersey normal ama webbrowser den actıgımda siteyi böyle bir hata veriyor

Sunucu istek URI eşleşen bir şey bulamadı. Gösterge yok koşul geçici veya kalıcı olup olmadığını verilir.

Sunucu istemci bu bilgileri kullanılabilir hale getirmek istemiyorsa, durum (Yasak) yerine kullanılabilir. Sunucu biliyorsa (Gitti) durum kodu eski bir kaynak kalıcı kullanılamaz ve yönlendirme adresi olduğunu, bazı dahili yapılandırılabilir mekanizması aracılığıyla, kullanılmalı.
HER ŞEYİ BİLECEKSİN DİYE BİR ŞEY YOK.   SADECE BİLDİĞİNİ UNUTMA YETER.[Resim: 2qi9zs5.gif]
Son Düzenleme: 09/01/2013, 15:19, Düzenleyen: eagle28.
Cevapla
Çözüldü #10
Verileri Metin kutuları yerine direkt webbrowser'a yazıp webbrowserdaki butonu tıklayarak giriş yapmayı deneyebilir misiniz?
Cevapla
Çözüldü #11
o şekilde bile aynı hatayı veriyor
internet explorer den acınca sorun yok ama
webbroserden hata veriyor
hatta butonlara ekledim siteyi
normal giriş yapıyorum siteyi acılıyor
şifreleri girdiğimde gene hata veriyor


Private Sub Command226_Click()
Application.FollowHyperlink "http://******** "
End Sub
HER ŞEYİ BİLECEKSİN DİYE BİR ŞEY YOK.   SADECE BİLDİĞİNİ UNUTMA YETER.[Resim: 2qi9zs5.gif]
Son Düzenleme: 11/01/2013, 14:37, Düzenleyen: eagle28.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da