Private Sub Button9_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button9.Click
If Me.KharidBindingSource.Find("nam", TextBox2.Text) < 0 Then
MessageBox.Show("er")
Else
KharidBindingSource.Position = Me.KharidBindingSource.Find("nam", TextBox2.Text)
MessageBox.Show("ok")
End If
End Sub
Public Function Shamsi_Date() As String
Dim DT As Date = Date.Now
Dim Glob As New Globalization.PersianCalendar
Shamsi_Date = Glob.GetYear(DT) & "\" & Glob.GetMonth(DT) & "\" & Glob.GetDayOfMonth(DT)
End Function
دستور برای باز کردن یک درایو
برای این کار:
ابتدا از منوی Stat وارد Run شوید. سپس دستور cmd را تایپ نموده
و Enter بزنید.اکنون در داخل CMD کد زیر را وارد کنید
و Enter بزنید:
attrib +h +s D:/
دقت کنید این کد فولدر
karimi را در درایو D مخفی میسازد.
به Space های خورده شده در میان کد نیز دقت کنید.
با این عمل فولدر
karimi
کاملأ از روی هارد شما مخفی میشود.
در صورتی که میخواهید یک فایل را نیز مخفی کنید کافی است
آدرس را بدین شکل وارد کنید:
attrib +h +s D:/Windows/karimi.exe
این کد فایل karimi.exe را در داخل درایو D و
پوشه Windows مخفی میسازد.
به همین سادگی شما میتوانید عملیات مخفی سازی را انجام دهید.
اما چگونه این فایلهای مخفی کرده را بازگردانیم؟
بدین منظور در داخل CMD دستور زیر را وارد کنید تا به ترتیب
فایلهای مخفی شده مان آشکار گردند:
attrib -h -s D:/karimi
attrib -h -s D:/Windows/karimi.exe
تنها دقت کنید که محل و نام فایل مخفی شده فراموش نشود
چرا که دیگر امکان بازیابی آن وجود ندارد
از طریق این لینک آپدیت امروز آویرا را دریافت نمائید
http://dl.antivir.de/down/vdf/ivdf_fusebundle_nt_en.zip
جهت دریافت یوزر و پسوورد نود 32 از سایت زیر اقدام به روز رسانی آنتی ویروس خود نمائید