web veri alama

1 2
05/01/2013, 13:43

eagle28

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
07/01/2013, 22:38

ozanakkaya

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.
09/01/2013, 15:18

eagle28

ö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ı.
10/01/2013, 18:40

ozanakkaya

Verileri Metin kutuları yerine direkt webbrowser'a yazıp webbrowserdaki butonu tıklayarak giriş yapmayı deneyebilir misiniz?
11/01/2013, 10:51

eagle28

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
1 2