ترجمة النجوم ***** في كلمات السر الى حروف عادية
منتدى مصر التقني :: قسم لغات البرمجة 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
أمس في 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
أمس في 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد