Excelden E Sgk ya Giriş Yapmak

[mustafa1205]

Ekte bulunan dosyadaki buton vasıtası ile Sgk sağlık aktivasyon sayfasına girebiliyorum ancak kullanıcı adı ve şifre kısmına giriş yapamadım. Yani girişi exceldeki kullanıcı adı ve şifre bölümündeki yerden almasını istiyorum.

 

[Zeki Gürsoy]

Şunu deneyin.

Sub login()
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "http://app.sgk.gov.tr/GSSTescilV6_1"
        
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        
        .document.all.uname.Value = [b2]
        .document.all.pwd.Value = [b3]
        .document.forms("mylogform").submit
    End With
End Sub

 

[mustafa1205]

Zeki Hocam çok teşekkür ediyorum güzel bir şekilde çalışıyor. Şunu anladım ki excelde ki verileri SGK nın veya başka bir sitenin veri tabanlarına aktarma imkanı var. Sizden ricam bana kodların açıklamasını yapabilir misiniz ? Yani internet adresi olan bölümden sonraki yerleri... Diğer çalışmama uyarlama yapmak istiyorum onun için.

 

[mustafa1205]

Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop

.document.all.uname.Value = [b2]
.document.all.pwd.Value = [b3]
.document.forms("mylogform").submit
End With
End Sub
[/code][/QUOTE]

Yani sitenin yukarıdaki alan bilgilerini (veri girilecek olan) nereden aldınız ? yada neye göre yazdınız ?

 

[Zeki Gürsoy]

Merhaba,

Alan bilgilerini en kolay Firefox ile alabilirsiniz. Harika ötesi kolaylaştırıcı bir araçtır. Shift + Ctrl + I ile başlayan geliştirici aracı, Araçlar > Web Geliştirici > İncele' den de çalıştırılabilir.

Fareyi text kutusunun üzerine getirdiğinizde o kutuya ait html' ye odaklanır. Nihayetinde, bu html içinde id ve name isimlerini görürsünüz.

 

[mustafa1205]

Hocam bakıyorum size döneceğim.

 

[mustafa1205]

Hocam şöyle bir sorunla karşılaştım. Kutucuğun üzerine geldiğimde sadece "input pg 11" yazıyor. Tam adresine nasıl bakacağım acaba.

 

[mustafa1205]

Zeki Hocam ilk defa kullandığım bir program olduğu için sıkıntı yaşadım ama şimdi çözebildim. Kodu diğer çalışmama uyarlamaya çalışacağım. Müsadenizle takıldığım yerde sormak isterim. Tekrar çok teşekkür ediyorum

 

[kartal]

İyi akşamlar, bende makronuzu inceliyordum. KBS maaş sayfasına direk girebilmek için makro yazabilirmisiniz.(Kullanıcı TC No...... ve Kullanıcı Şifresi.......) (adres; www.kbs.gov.tr/gen/login.htm)

 

[ssakman2]

İyi akşamlar, bende makronuzu inceliyordum. KBS maaş sayfasına direk girebilmek için makro yazabilirmisiniz.(Kullanıcı TC No...... ve Kullanıcı Şifresi.......) (adres; www.kbs.gov.tr/gen/login.htm)

iyi akşamlar benim de işime yararböyle bir makro (https://muhasebe.kbs.gov.tr/GUMKART/gen/login.htm) güvenlik resmini nasıl çözülür birde bu problem

 

[mustafa1205]

.document.forms("mylogform").submit
Hocam Bu kodu anlayamadım başka bir siteye girmeye çalıştığımda bu kısım hata veriyor

 

[dragon44760]

İyi akşamlar sn.mustafa1207 bahsettiğiniz kod "http://app.sgk.gov.tr/GSSTescilV6_1" sitesindeki "Giriş Yap" botunun click'lenmesidir.

Sn.ssakman2 ve sn.kartal KBS sisteminin güvenlik resmi hariç diğer alanlarına kullanıcı adı ve şifreleri aşağıda verdiğim kodla girebilirsiniz. Güvenlik resmini geçmenin kanımca hiçbir yolu yok.

Declare Function ShowWindow Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

Sub KBS()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .Visible = True
        .navigate "https://www.kbs.gov.tr/OEB/gen/login.htm"
        ShowWindow .hwnd, 3
       
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        
        .document.all.Item("user_name").Value = "Kullanıcı Adı Yaz" 'Kullanıcı Adı
        .document.all.Item("pass_word").Value = "Şifre Yaz" 'Şifre
        .document.all.Item("kaptcha").Focus 'Güvenlik Resmi Girişi için focuslanması
        
    End With

    Set IE = Nothing
End Sub

 

[mustafa1205]

Sayın dragon click olayını anladım ancak "http://uyg.sgk.gov.tr/Sigortali_Tescil4c_Web/" bu adresdeki clickde çalışmadı. Onu anlayamadım

 

[dragon44760]

Sn.mustafa1207 vermiş olduğunuz adrese ait bende herhangi bir şifre olmadığı için deneyemediğimden herhangi bir şey diyemiyorum ancak ekte bulunan dosyadaki kodlara kendi giriş şifreniz ile kullanıcı adlarınızı ve adresinizi sekronize ederseniz herhalde sorununuz çözülür..
Kolay gelsin...

 

[dragon44760]

Güvenlik resmi olayı aslında çözülebilir ama OCR (Optik Karakter Tanıma) programı excele adepte edilebilir mi bilemiyorum. Eğer kodlarla web sitesinden alınan güvenlik resmi yine kodlar vasıtasıyla OCR programına okutturulması sağlanırsa herhalde bir şeyler olur. Neyse benimki sadece fikirdi yapılması zor olsada...

 

[ssakman2]

İyi akşamlar sn.mustafa1207 bahsettiğiniz kod "http://app.sgk.gov.tr/GSSTescilV6_1" sitesindeki "Giriş Yap" botunun click'lenmesidir.

Sn.ssakman2 ve sn.kartal KBS sisteminin güvenlik resmi hariç diğer alanlarına kullanıcı adı ve şifreleri aşağıda verdiğim kodla girebilirsiniz. Güvenlik resmini geçmenin kanımca hiçbir yolu yok.

Declare Function ShowWindow Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

Sub KBS()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .Visible = True
        .navigate "https://www.kbs.gov.tr/OEB/gen/login.htm"
        ShowWindow .hwnd, 3
       
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        
        .document.all.Item("user_name").Value = "Kullanıcı Adı Yaz" 'Kullanıcı Adı
        .document.all.Item("pass_word").Value = "Şifre Yaz" 'Şifre
        .document.all.Item("kaptcha").Focus 'Güvenlik Resmi Girişi için focuslanması
        
    End With

    Set IE = Nothing
End Sub

çok güzel olmuş hocam ama şu güvenlik resmi olsa çok iyi olacaktı

 

[kartal]

Sayın dragon44760 öncelikle alakanıza teşekkür ederim.a)makronuza kopyaladım KBS Maaş sayfasına Kullanıcı adı ve şifre girdi ,güvenlik şifresinide girdiğimde ise hatalı kullanıcı adı yada şifre diyor. b)kullanıcı adı ve şifresini excel sayfasındakii bir hücreden alsa Örneğin birinci sayfanın a2-b2 sütunundan gibi, (Kullanıcı adı TC No, Şifre :rakamlar ve harflerden oluşmaktadır) tekrar teşekkür ederim.iyi geceler Ulvi GÖLCÜK

 

[dragon44760]

Sn.kartal ekteki dosyayı inceler misiniz_? A9-A10 hücreleri veri girişi...

 

[mustafa1205]

Sayın Dragon harika olmuş müsadenizle birşey daha sormak istiyorum.Malum şifreleri girdikten sonra ana ekrandan butonlar ile başka alanlara devam ediliyor. Bu devamı sağlamak için kodlardan sonra internet adresi mi girmek gerekiyor acaba. Orada veri girişleri olacak ona excelden aktarmak istiyorum.

 

[dragon44760]

Sn.mustafa1207 şifre girişleri yapıldıktan sonraki aşamada farklı kodlarla gelen yeni sayfada işlemler yaptırılabilmekte ancak sayfanın kod kısmını bilmeden bir şey söylenilemez...