كتبت هذا الكود البرمجي :
Private Sub Form_Load()
Dim strData As String
Dim intFFile As Integer
intFFile = FileSystem.FreeFile
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #intFFile
strData = Space(LOF(intFFile))
Get #intFFile, , strData
Close #intFFile
Me.Caption = Len(strData)
End Sub
بعد كده عملت ملف تنفيذي EXE وكله تمام التماااااااام
بس واجهتني مشكلة مع النورتون !!!
ودي صورة توضيحية للمشكلة :
السؤال : كيف يمكنني دعس هذه القيمة أو أي قيمة أخري ،، وهل لها مخاطر ؟؟؟ أرجو الإفاااااااده