احتاج كود اظهار الباسورد والتي على شكل نجوم *** - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : احتاج كود اظهار الباسورد والتي على شكل نجوم *** (/showthread.php?tid=3769)

احتاج كود اظهار الباسورد والتي على شكل نجوم *** - mera - 07-09-14 سلام عليكم احتاج كود اظهار الباسورد والتي على شكل نجوم ****** بالاضافه الى تنفيذ البرنامج لو سمحتوا شكرا [/quote] RE: احتاج كود اظهار الباسورد والتي على شكل نجوم *** - kamel200 - 07-09-14 في خصائص text في PasswordChar اكتب رمز * او x او علامات اخرى RE: احتاج كود اظهار الباسورد والتي على شكل نجوم *** - mera - 07-09-14 انا ئصدي لما يكون في باسورد وظاهرلي على شكل نجوم *** بدي اسوي برنامج بمجرد ما امرر هاد البرنامج على النجوم هدول تظهر كلمه السر الحقيقيه .. شكرا RE: احتاج كود اظهار الباسورد والتي على شكل نجوم *** - الاصيله - 08-09-14 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] RE: احتاج كود اظهار الباسورد والتي على شكل نجوم *** - mera - 09-09-14 الاصيله اشكرك على مرورك وردك الجميل ، بس لما اجيت انفذ المشروع وئف عند H = WindowFromPoint(x, y) وما ئبل ينفذه !!!