web veri alama - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: web veri alama (/konu-web-veri-alama.html) Sayfalar:
1
2
|
Cvp: web veri alama - eagle28 - 05/01/2013 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 Cvp: web veri alama - ozanakkaya - 07/01/2013 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. Cvp: web veri alama - eagle28 - 09/01/2013 ö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ı. Cvp: web veri alama - ozanakkaya - 10/01/2013 Verileri Metin kutuları yerine direkt webbrowser'a yazıp webbrowserdaki butonu tıklayarak giriş yapmayı deneyebilir misiniz? Cvp: web veri alama - eagle28 - 11/01/2013 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 |