İnputBox a yazılan şifrenin yıldız veya nokta olarak görünmesi

[acolkesen1]

Merhaba arkadaşlar,
İnputbox a yazılan şifrenin yıldız veya nokta olarak veya bir başka şekilde görünmesi mümkün müdür? Eğer bu İnputboxda olmazsa nasıl yapılabilir?

 

[Korhan Ayhan]

Selamlar,

Bu konu daha önce işlenmişti. Lütfen forumda inputbox+yıldız şeklinde arama yapınız.

 

[acolkesen1]

Merhaba Sayın Korhan Ayhan,
Belirttiğiniz gibi arama yapmıştım ama çıkan sonuçlardaki örnek dosyalar 2007 ve öncesine ait olduğu için açılmıyor. Arşivinizde varsa ekleyebilir misiniz acaba..

 

[Orion1]

Userformla olur.
Userforma bir tane textbox ekleyiniz.
Propertiesten PasswordChar özelliğine * karakterini giriniz.
İşlem tamamdır.

 

[acolkesen1]

Merhaba Sayın Evren Gizlen,
Günaydın ve Tekrar teşekkürler... Güzel bir gün dilerim..

 

[Korhan Ayhan]

Selamlar,

Eski tarihli örneklere ulaşamayan üyelerimiz için örnek dosya hazırladım.

Dosyada hem InputBox ile hem de UserForm ile şifre giriş örneği bulunmaktadır.

InputBox ile ilgili örnekte API kullanılmıştır.

 

[Orion1]

Merhaba Sayın Evren Gizlen,
Günaydın ve Tekrar teşekkürler... Güzel bir gün dilerim..

Rica ederim.
Bende size güzel bir gün dilerim.

 

[tncyrsln]

Selamlar,

Eski tarihli örneklere ulaşamayan üyelerimiz için örnek dosya hazırladım.

Dosyada hem InputBox ile hem de UserForm ile şifre giriş örneği bulunmaktadır.

InputBox ile ilgili örnekte API kullanılmıştır.

çok teşekkürler. sayenizde VBA cı oldum walla. VBA bilmek lazım değil, bu siteden arama yapmam yeter

 

[kemal turan]

Korhan hocam merhaba,
Sizin dosyanızda şifre yazımı sırasında sayfada ne var ne yok görülüyordu.
Vermiş olduğunuz örnek dosyadaki ınputbox kodlarının üzerine başka çalışmalardan alıntılarla ekleme yaptım.
Dosyanın ve sayfanın açılışında sayfa görüntüsü kayboluyor.
Bu şekilde daha güzel oldu sanırım.ŞİFRE "12345"
Sayenizde yavaş yavaş makronun alfabesini çözmeye başladık herhalde
Çok teşekkür ederim.Emeklerinize sağlık.
Selametle kalın.

 

[kemal turan]

Korhan bey,
Yuklarıdaki örnekşifre adlı dosya evdeki bilgisayarımda ve laptop da çalışıyor.
işyerimdeki bilgisayarda hata veriyor.
HATA VERDİĞİ YER.
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
(ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _
(ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long

Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
HATA MESAJI
Compile error:
The code in this project must be updated for use on 64-bit systems.
plase rewiew and update declare statements and than mark them with the PtrSafe attribute.
Bu problemi nasıl çözebiliriz.
Çok teşekür ederim.

 

[Korhan Ayhan]

Merhaba,

Bu sorun benimde başıma geldi. 64 bit sistemden dolayı hata veriyor. Deklarasyon kodlarına "if" sorgusu eklemek gerekiyor.

Forumda ptrsafe ifadesi ile arama yapın.

 

[kemal turan]

Merhaba Korhan hocam.
Sorun ofis ""2010 Profesyonel plus"" sürümü yüklendiğinde çözülmüştür.
Bilgilerinize,
Selametke kalın

 

[wiseowl123]

Selamlar,

Eski tarihli örneklere ulaşamayan üyelerimiz için örnek dosya hazırladım.

Dosyada hem InputBox ile hem de UserForm ile şifre giriş örneği bulunmaktadır.

InputBox ile ilgili örnekte API kullanılmıştır.

Koray Bey Merhabalar,

Paylaştığınız örneği 64 bit e göre düzenledim fakat aşağıdaki kod satırlarında Newproc tanımıyla alakalı sanırım "Type mismatch" hatası alıyorum.

Daha önceden sizin eklemiş olduğunuz düzenlenmiş dokuman ektedir. Neden böyle bir hata veriyor yardımcı olur musunuz?

Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional Context) As String
Dim lngModHwnd As Long, lngThreadID As Long

lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
UnhookWindowsHookEx hHook

 

[wiseowl123]

Korhan Bey olacaktı. İsminizi yanlış yazmısım kusura bakmayın.

Koray Bey Merhabalar,

Paylaştığınız örneği 64 bit e göre düzenledim fakat aşağıdaki kod satırlarında Newproc tanımıyla alakalı sanırım "Type mismatch" hatası alıyorum.

Daha önceden sizin eklemiş olduğunuz düzenlenmiş dokuman ektedir. Neden böyle bir hata veriyor yardımcı olur musunuz?