Captcha resmi görüntüleme

[acar6783]

Kolay gelsin,

Captcha resmini indirdikten sonra sayfaya yada forma yğkleyebiliyorum fakat,
İndirmede sorun var. Resmin bağlantsı açıldığında her seferinde farklı captcha resmi çıkıyor.

İndirmeden sayfadan çekmeye çalıştım.
Kodlarda sorun yok gibi fakat anlamadığım bir durum var ki resmi forma ya da sayafaya yükleyemiyorum.

 

[Orion1]

İmage nesnesi png formatını desteklemiyor diye hafızamda kalmış.

 

[Haluk]

Dosyanızdaki bu kodla ( yine biraz tanıdık geldi bana...), UserForm üzerinde PNG formatındaki Captcha_Image görüntüleniyor...

Bir kaç dokunuş yaptım.....

Sub n()
    Dim myURL As String, WinHttpReq As Object, oStream As Object, myCaptcha As String
    
    myCaptcha = "C:\TestFolder\captcha.png"
    myURL = "https://intvrg.gib.gov.tr/captcha/jcaptcha?imageID"
    
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.send
    
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile myCaptcha, 2
        oStream.Close
        UserForm1.Image1.Picture = LoadPicture(myCaptcha)
    End If
    
    Set oStream = Nothing
    Set WinHttpReq = Nothing
End Sub

 

[acar6783]

Dosyanızdaki bu kodla ( yine biraz tanıdık geldi bana...), UserForm üzerinde PNG formatındaki Captcha_Image görüntüleniyor...

Bir kaç dokunuş yaptım.....

Sub n()
    Dim myURL As String, WinHttpReq As Object, oStream As Object, myCaptcha As String
 
    myCaptcha = "C:\TestFolder\captcha.png"
    myURL = "https://intvrg.gib.gov.tr/captcha/jcaptcha?imageID"
 
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.send
 
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile myCaptcha, 2
        oStream.Close
        UserForm1.Image1.Picture = LoadPicture(myCaptcha)
    End If
 
    Set oStream = Nothing
    Set WinHttpReq = Nothing
End Sub

Teşekkürler Haluk bey;

Nerden tanıdık geldi bilmiyorum
Bir kısmını buradan almıştım,
buradan ve buradan

Kodun doğruluğunu sağlamak için site görünümü true yaptım ama nedense olmadı?

 

[acar6783]

Ek olarak kurguda hata oluyor bu şekilde resmi direk ilgili steden indirince açılıştaski koddan farklı ir kod üretiyor.
ilk açılıştaki kodu yakalamam gerekiyor ki onun için aşağıda bir parçası olan kodu yazmıştım.

ie.Navigate "https://intvrg.gib.gov.tr/"

Do
DoEvents

Loop Until (ie.ReadyState = 4 And Not ie.Busy)
ie.Document.all.Item("loginSifreli").Click

burada clik olayından sonra açılan ekrandan yakalamam gerekiyor captcha remini

 

[acar6783]

Bir de garip olan şey sizin yazdıklarınız bildirim olarak gelmiyor.

 

[Haluk]

"Tümünü gör...." kısmına tıklayın ....

.

 

[acar6783]

bu geldi ama önceki yok.
daha önce de oldu bir çok kez ????

 

[halit3]

resimlerin değişken adı bu

yer = ie.document.getElementById("captchaKKODU").contentDocument.getElementById("cid").Value
MsgBox yer

ancak bu kodda sabit olmakla beraber resim içeriği her seferinde değişmekte

 

[acar6783]

ancak bu kodda sabit olmakla beraber resim içeriği her seferinde değişmekte

Evet işi kötü tarafı da bu resmi indirsem de ekrana gelen resimle benim indirdiğim resim birbirinden farklı geliyor.

Bu resmi olduğu almamın da pek yolunu bulamadım. Çok forum gezdim örnek çok dosya inceledim fakat hepsi resmin açıldığı .jpg ya da.png uzantılı siteden ya da benim örnekte olduğu gibi "https://intvrg.gib.gov.tr/captcha/jcaptcha?imageID=1v1wbujx8q8t6m00" adresindeki resmi alabiliyor.

Sanırım bu adımdan vazgeçiyorum.
Zaten şifre giriş için 10sn vermiştim dosyamda. Alternatif düşünmüştüm olmadı.

 

[halit3]

Farklı bir yöntem ile güvenlik kodunu benim bilgisayarımda c27 hücresine getirmekte ve oradan da userform1 image nesnesine almakta
proğramın işleyişi İşlemi başlat düğmesine tıklayıp kullanıcı adı ,şifre ve güvenlik kodlarını girdikten sonra giriş yap düğmesine tıklanacak.

 

[acar6783]

Dosyayı kullanmayı denedim fakat ;
resim ekrana gelmedi, Sanrım işlem printscreen ile yapılıyor.

 

[acar6783]

Alternatif webbrowser ekledim ama, Sürekli bu hatayı veriyor.

 

[halit3]

Birde bu dosyayı dene
bendeki explorer in üst başlangıçı gibi

 

[halit3]

WebBrowser açıldığında böyle yap

WebBrowser1.Silent = True

 

[halit3]

Ekran görüntüsü

 

[acar6783]

Ekran boyutuyla ilgili sanırım,

Bende sadece bu alanı alıyor. Aslında dediğim gibi giriş için açılan explorera 10 bekleme süresi veriyorum captcha şifresini girene kadar. sonra butona tıklatıyorum.

Web browserı deneyim hemen döneceğim

 

[acar6783]

WebBrowser açıldığında böyle yap

WebBrowser1.Silent = True

Webbrowser için bir örnek hazırladım ama girişten sonraki tıklama gerçekleşmiyor. Ya da gerçekleşiyor sonraki ekranı açmıyor.

 

[halit3]

16 nolu mesajdaki dosyaya iyi bak
CommandButton1_Click
kodundaki bu bölümü sil veya pasif yap Picture.Delete
sonra sayfaya kayıt yapılan resme iyi bak sarı renkli doğrulama kodları sizin excel sayfanızda hangi hücrelerde kalıyor ona bakınız.
bende
B26:C29 aralığında olduğu için kod bu aralığı kopyalıyor.
Range("b26:c29").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
siz kendi sayfanızda doğrulama kodu nerede ise kırmızı bölümü ona göre düzenleyiniz.

 

[acar6783]

16 nolu mesajdaki dosyaya iyi bak
CommandButton1_Click
kodundaki bu bölümü sil veya pasif yap Picture.Delete
sonra sayfaya kayıt yapılan resme iyi bak sarı renkli doğrulama kodları sizin excel sayfanızda hangi hücrelerde kalıyor ona bakınız.
bende
B26:C29 aralığında olduğu için kod bu aralığı kopyalıyor.
Range("b26:c29").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
siz kendi sayfanızda doğrulama kodu nerede ise kırmızı bölümü ona göre düzenleyiniz.

Aynen o bölümü gözden kaçırmışım