السلام عليكم
أهلا وسهلا بكل زوار مدونه تكنولوجيا نت
موضوع النهارده عن شرح عمل برنامج انتي فيرس بلغه فيجوال بيسيك 2005
الموضوع سهل جدا وفكرته بسيطه ولا يأخذ من وقتك الا بضع دقائق
اترككم مع الموضوع
الأدوات المستعمله :-
2 button
Textbox
Open File Dialog
Folder Browser Dialog
.
اولا نفتح فورما جديده
ثم نضع اداة text علي الفورم كما هو موضح بالصوره :-
ثم نضع الاداه button علي الفورم ونسمي الاول scan
والتاني open كما موضح في الصوره :-
وبعدها ندخل الي نافذه الكود ونكتب الكود التالي :-
FolderBrowserDialog1.ShowDialog()
If FolderBrowserDialog1.SelectedPath <> "" Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath
If My.Computer.FileSystem.FileExists(TextBox1.Text + "\" + "autorun.inf") Then
My.Computer.FileSystem.DeleteFile(TextBox1.Text + "\" + "autorun.inf")
MsgBox("File Found! & Deleted")
Else
MsgBox("File Not Found!")
End If
End If
وبعدها ندخل الي نافذه الكود في الbutton 2 ونكتب الكود التالي:-
Dim alltext As String = "", lineoftext As String = ""
OpenFileDialog1.Filter = "all files|*.*"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
End If
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
lineoftext = LineInput(1)
alltext = alltext & lineoftext & vbCrLf
Loop
TextBox1.Text = "alltext"
Catch
Finally
FileClose()
End Try
وانتهي الموضوع
ان واجه اليكم مشاكل في تصميم البرنامج
فراسلوني
مع تحياتي
مدون مصري اعشق التكنولوجيا اهتم بكل جديد في عالم التدوين
محول الأكواد محول الأكواد الإبتسامات الإبتسامات