e-okula girmek

[gulvadi]

Merhaba arkadaşlar e-okula kolay girmek için şu kodları yazdım.

Sub eokulac()
Dim URL As String
Dim IE As Object
 Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = True
     IE.navigate "https://e-okul.meb.gov.tr/logineokul.aspx"
With IE
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.document.all
guvenlik = InputBox("Güvenlik kodunu giriniz")
.txtKullaniciAd.Value = "kullanıcı adı"
.txtSifre.Value = "şifre"
.guvenlikKontrol.Value = guvenlik
.btnGiris.Click
End With
End With
End Sub

kullanıcı adı, şifre girince çalışıyor.
güvenlik resmini kolay girebilmek için, buradaki InputBox'a güvenlik resmini alabilirmiyiz? veya Sayfada başka bir hücreye
https://e-okul.meb.gov.tr/guvenlikkod.aspx?id=713 linki resim bilgisi ancak sayı değişken

 

[gulvadi]

Sub SayfadaGoster()
Dim Resmim As Picture
Dim yol As String
yol = "https://e-okul.meb.gov.tr/logineokul.aspx/guvenlikkod.aspx?id"
With ActiveSheet.Range("I18")
Set Resmim = .Parent.Pictures.Insert(yol)
With Resmim
.Top = .Top
End With
End With
End Sub

kodu çalıştırıldığında sorun oluyor
1-Resim I18 hücresi yerine B5 geliyor.
2-Resmin güvenlik sayıları gelmeden arak zemin geliyor.
Bilen varsa yardımlarını bekliyorum.

 

[Emir Hüseyin Çoban]

2-Resmin güvenlik sayıları gelmeden arak zemin geliyor.
Bilen varsa yardımlarını bekliyorum.

. . .

Resimli güvenlik uygulaması sisteme dış kaynaktan girişi engellemek için yapılmıştır. Bu resmi almanız mümkün değil. En azından excel vb yazılımlar ile mümkün değil.

. . .

 

[gulvadi]

Teşekkürler, Bütün akkadaşların Kurban Bayamı Kutlu olsun.

 

[Zeki Gürsoy]

Inputbox a resim yüklenemez. Bunun yerine bir userform kullanılabilir. Ekli dosyayı inceleyin.

userform :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        code = TextBox1
        Unload Me
    End If
End Sub

Private Sub UserForm_Activate()
    Me.Image1.Picture = LoadPicture(Me.Tag)
End Sub

module1 :

Public code As String

Sub E_Okul_Login()
    Set ie = CreateObject("internetexplorer.application")
    
    ie.Visible = True
    ie.Navigate "https://e-okul.meb.gov.tr/logineokul.aspx"
    
    Call loadCaptcha(ie)
    
    ie.Document.all.txtKullaniciAd.Value = "kullanıcı adı"
    ie.Document.all.txtSifre.Value = "şifre"
    ie.Document.all.guvenlikKontrol.Value = code [COLOR=DarkGreen]' <<< Burayı değiştirmeyin.[/COLOR]
    ie.Document.all.btnGiris.Click
End Sub

Private Sub loadCaptcha(ByVal ieApp As Object)
   [COLOR=DarkGreen] ' Captcha resmini download ile diske aldıktan
    ' sonra form a yüklüyoruz.[/COLOR]
    Dim b() As Byte
    
    Do Until ieApp.ReadyState = 4: Loop
    Do While ieApp.Busy: Loop
    
    s = ieApp.Document.getelementbyid("image1").src
    
    Set x = CreateObject("msxml2.xmlhttp")
    
    x.Open "get", s, False
    x.send
    
    b = x.responsebody
    
    If Dir("c:\cap.jpg") <> "" Then Kill "c:\cap.jpg"
    
    Open "c:\cap.jpg" For Binary As #1
        Put #1, , b
    Close #1
    
    x.abort
    
    UserForm1.Tag = "c:\cap.jpg"
    UserForm1.Show
End Sub

 

[gulvadi]

Zeki Gürsoy Hocam elinize sağlık çok güzel olmuş. Tam istediğim gibi

 

[Emir Hüseyin Çoban]

Zeki Gürsoy Hocam elinize sağlık çok güzel olmuş. Tam istediğim gibi

. . .

Sizde resmi getirdi mi ?
Bende bu şekilde sonuç verdi. Resim geliyor, fakat rakamlar yok.

. . .

 

[gulvadi]

Exceli ilk açtıgımızda resim gelmiyor. Tekrar deneyice geliyor. Buna birşey düşünmeli

 

[erdenek]

benim anlamadığım böyle birşeye neden ihtiyaç duyulduğu?e-okul a kendi sayfasından da girilebilir.

 

[gulvadi]

benim anlamadığım böyle birşeye neden ihtiyaç duyulduğu?e-okul a kendi sayfasından da girilebilir.

Her 15-20 dakikada bir her seferinde kullanıcı adı şifer ve doğulama kodu yazarak girersen ve 10 dakika hiçbir işlem yapmadığın zaman seni atarsa ne yaparsın?

 

[Zeki Gürsoy]

Exceli ilk açtıgımızda resim gelmiyor. Tekrar deneyice geliyor. Buna birşey düşünmeli

"xmlHttp" sınıfı, Internet Explorer önbelleğinden okuyarak resmi diske kaydeder. İlk açılışta IE temp klasöründeki jpg de dahil resim sayılar olmadan geliyor.

Bu problem şimdilik çözülemiyor.

 

[erdenek]

tekrar girmek zor mu?

 

[Emir Hüseyin Çoban]

benim anlamadığım böyle birşeye neden ihtiyaç duyulduğu?e-okul a kendi sayfasından da girilebilir.

. . .

Merhaba Sayın Erdenek,

Ben bunun çok önemli olduğunu düşünmüyorum veya tekrar girmenin.

Üye excelin üst sınırlarını merak etmiş olup, böyle birşey yapılabilir mi diye de sormuş olabilir.
Bu şekilde fantaziye kaçan sorular excelin üst sınırlarının ne kadar yüksekte olduğunu görmemizi sağlıyor.

. . .

 

[gulvadi]

Zeki Gürsoy Hocam aynı kod okulda

Open "c:\cap.jpg" For Binary As #1

satırında hata veriyor. okuldaki bilgisayar 64 bit windows 7 sebebi ne olabilir. Ne yapmam gerek.

 

[Emir Hüseyin Çoban]

. . .

Dosya yolunu değiştirin. D sürücünüz varsa oraya alabilirsiniz veya alt klasör altında yapabilirsiniz.

Module1 de Ctrl+H yapın.
İlk alana: c:
İkinci alana: D: yazın.
Replace All (tümünü değiştir) butonunu tıklayın. Toplamda 4 değişiklik yapmış olması gerekiyor.

. . .

 

[gulvadi]

64 bit windows 7 de resim rakamsız geliyor? Nedeni ne olabilir?