• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Giriş Ekranı ve Windows Şifresi Doğrulaması Hakkında

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
RBozkurt

RBozkurt

Yeni Üye
Katılım
25 Ara 2021
Mesajlar
322
Çözümler
36
Aldığı beğeni
205
Excel V
Office 2021 TR
Konu Sahibi
Merhabalar
Ekteki örnek dosyada test makrosunu çalıştırınca windows şifresini giriyrsunuz. Doğrulama yaparak işlemlere devam ediyor.

Bu kodu eklediğim Z_GirişEkranı koduna entegre edebilirmisiniz?

Normalde doğrulama şu şekilde;
Eğer domain ile kullanıcı adı tutuyor ise çalışıyordu.

Ek olarak domain, kullanıcı adı ve şifre doğrulamasını

kullanıcıadı = LoginEkrani.TextBox1.Text
sifre = LoginEkrani.TextBox2.Text

If Domain = domain1 Or Domain = domain2 Then
If kullanıcıadı = Admin1 Or kullanıcıadı = Admin2 Or kullanıcıadı = Admin3 Or kullanıcıadı = LocalUser Then
If LogonUser(Environ("Username"), vbNullString, sifre, LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, 0) <> 0 Then
kontrol = True
'MsgBox "Giriş Başarılı", vbInformation + vbOKOnly, "xProgramına Hoş Geldiniz"

eklemeye çalıştım olmadı.



Eklenecek kodlar:
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.



Diğer login kodları

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
RBozkurt
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Domain sorgusunu açılışa yukarıdaki şekilde ekledim.
Domain doğrulamasını yapar ise login ekranı geliyor, yapamaz ise hata mesajı ile kapanıyor.
Problem çözüldü.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Adsız.jpg

Birde bu şekilde ekleyince hata aldım. Excel sürümü office 365 ve office 2016.
Eklerken hatalı eklemiş olabilirim.


Normal test butonunda orjinal makro kodunda hata vermiyor.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Giriş ekranındaki sorguyu biraz detaylı açıklama gereği duydum. Uygulama 64bit.

İlk olarak Const domain1 = "x" 'PC Domaininiz olsun.
PC Domaininiz X ise kullanıcı adınızı giriyorsunuz ve açılıyor.
PC domaini Y ise, yukardaki doğrulamada takıldığı için kullanıcı girişi ekranı hiç açılmadan kapanıyor.

Ek olarak şifreyi eklemek istiyorum.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Biraz düzenleme yaptım.
Alttaki şekilde domain sorgulaması pasif halde, kullanıcı adı ile şifre aktif halde çalışmaktadır.
Bu şekilde herhangi bir PC de kullanıcı adı şifre girilerek dosya açılır.
Ek olarak domain sorgusunun eklenmesi gerekir.

If Domain = domain1 Or Domain = domain2 Then 'Domain sorgulaması satırını kodlamaya dahil edebilir misiniz?

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Ekteki dosyada işlemleri yapabilirseniz sevinirim.
Açılışta otomatik açılmasını pasifize ettim. Butona tıklayınca açılan ekran açılışta geliyor.

Domain sorgusu ile loginekranı işlemi farklı basamaklara konulabilir.
Dosya açılınca önce domain sorgusu çalışıp doğru ise login ekranı açılabilir, yanlış ise dosya silinebilir.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Domain sorgusunu açılışa yukarıdaki şekilde ekledim.
Domain doğrulamasını yapar ise login ekranı geliyor, yapamaz ise hata mesajı ile kapanıyor.
Problem çözüldü.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst