المشاركات : 89
المواضيع 25
الإنتساب : Jan 2014
السمعة :
0
الشكر: 408
تم شكره 129 مرات في 21 مشاركات
سلام عليكم
احتاج كود اظهار الباسورد والتي على شكل نجوم ******
بالاضافه الى تنفيذ البرنامج لو سمحتوا
شكرا
[/quote]
المشاركات : 2
المواضيع 0
الإنتساب : Sep 2014
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
في خصائص text في PasswordChar اكتب رمز * او x او علامات اخرى
المشاركات : 89
المواضيع 25
الإنتساب : Jan 2014
السمعة :
0
الشكر: 408
تم شكره 129 مرات في 21 مشاركات
انا ئصدي لما يكون في باسورد وظاهرلي على شكل نجوم ***
بدي اسوي برنامج بمجرد ما امرر هاد البرنامج على النجوم هدول تظهر كلمه السر الحقيقيه ..
شكرا
المشاركات : 197
المواضيع 16
الإنتساب : Dec 2013
السمعة :
30
الشكر: 1500
تم شكره 920 مرات في 126 مشاركات
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Timer1_Timer()
Const EM_SETPASSWORDCHAR = &HCC
Dim coord As POINTAPI
s = GetCursorPos(coord)
x = coord.x
y = coord.y
H = WindowFromPoint(x, y)
Dim NewChar As Integer
NewChar = CLng(0)
RetVal = SendMessage(H, EM_SETPASSWORDCHAR, ByVal NewChar, 0)
End Sub
[/align]
اختكم الاصيله
المشاركات : 89
المواضيع 25
الإنتساب : Jan 2014
السمعة :
0
الشكر: 408
تم شكره 129 مرات في 21 مشاركات
الاصيله اشكرك على مرورك وردك الجميل ،
بس لما اجيت انفذ المشروع وئف عند
H = WindowFromPoint(x, y)
وما ئبل ينفذه !!!