ترجمة النجوم ***** في كلمات السر الى حروف عادية
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1 • شاطر
ترجمة النجوم ***** في كلمات السر الى حروف عادية
اهلا وسهلا بكم في منتدى مصر التقني
---------------------------------
كود برنامج يقوم بفك شيفرة النجوم مستخدمة لكلمات السر
قم بفتح مشروع جديد
قم بكتابة كود التالي في شيفرة خاصة بالفورم
قم بنسخ النجوم ولسقها بالبرنامج ومبروك عليك كلمة السر
مع تحياتي
---------------------------------
كود برنامج يقوم بفك شيفرة النجوم مستخدمة لكلمات السر
قم بفتح مشروع جديد
قم بكتابة كود التالي في شيفرة خاصة بالفورم
- الكود:
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 Form_Load()
Timer1.Interval = 10
End Sub
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
قم بنسخ النجوم ولسقها بالبرنامج ومبروك عليك كلمة السر
مع تحياتي
أيمن الإبراهيم- ........
- تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 398
التقيم : 1
الدولة :
الجنس :
ترجمة النجوم
احسنت صنعا وبارك الله فيك
alnilensf- .
- تاريخ التسجيل : 09/01/2016
المساهمات : 4
النقاط : 4
التقيم : 0
الدولة :
الجنس :
رد: ترجمة النجوم ***** في كلمات السر الى حروف عادية
هل يمكنك مساعدتي في ترجمة النجوم الى احرف.....
********
********
Kiki- .
- تاريخ التسجيل : 22/07/2023
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: المشاريع و الاكواد الجاهزة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:47 pm من طرف moslema_r
» شركة تنظيف فلل بالرياض
أمس في 6:55 pm من طرف moslema_r
» شركة تنظيف كنب بالرياض
الأحد مايو 05, 2024 6:56 pm من طرف moslema_r
» مظلات وسواتر
السبت مايو 04, 2024 8:58 pm من طرف moslema_r
» شركة تنظيف خزانات بالرياض
الخميس مايو 02, 2024 6:10 pm من طرف moslema_r
» افضل شركة رش مبيدات بالرياض
الإثنين أبريل 29, 2024 9:00 pm من طرف moslema_r
» ارخص شركة مكافحة الصراصير بالرياض
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r