مهدی - آموزش ویژوال بیسیک

تغییر حاشیه ویندوز

یه نمونه برنامه براتون میذارم که میتونه حاشیه یک picturebox رو تغییر بده.

دانلود

کلمات کلیدی : وی بی، Change windows border in vb6

نوشته شده توسط مهدی در جمعه 88/11/16 و ساعت 3:37 عصر | نظرات دیگران()

حذف فایل بدون بازگشت

با سلام

با این برنامه می تونید فایلهای مورد نظرتون رو حذف کنید و مطمئن باشید که با هیچ برنامه ای نمیشه اون هارو برگردوند یا در اصطلاح ریکاوری کرد.

این برنامه در اصل یک File wiper می باشد که با چهار الگوریتم زیر کار می کند:

Pseudorandom Data با یک مرحله بازنویسی

US DoD 5220.22-M (8-306 /E) با سه مرحله بازنویسی

US DoD 5220.22-M (8-306 /E, C and E) با هفت مرحله بازنویسی

GUTMANN با سی و پنج مرحله بازنویسی

امیدوارم خوشتون بیاد

دانلود

کلمات کلیدی : وی بی، حذف فایل بدون بازگشت، Secure delete، file wiper in vb6

نوشته شده توسط مهدی در جمعه 88/11/16 و ساعت 3:34 عصر | نظرات دیگران()

تکمیل کردن آدرس در TextBox

اگه شما نیاز داشته باشید که کاربر آدرس یک شاخه یا فایل رو داخل یک تکست باکس تایپ کنه، این تابع به کمکتون میاد

این تابع بصورت اتوماتیک آدرس رو براتون تکمیل میکنه

دانلود

کلمات کلیدی : سورس کد، وی بی6، تکمیل کردن آدرس در TextBox

نوشته شده توسط مهدی در چهارشنبه 88/9/25 و ساعت 4:26 عصر | نظرات دیگران()

ایجاد لیست html از تصاویر درون یک پوشه

این برنامه از تصاویر درون یک پوشه خاص لیست اچ تی ام ال درست میکنه

فقط باید آدرس مسیر حاوی عکسها و فرمت اونهارو به تابع زیر ارسال کنید:

Public Sub convert(path As String, pattern As String)
On Error GoTo z
Open path + "\List.html" For Output As 1
Print #1, "<HTML>"
Print #1, "<HEAD>"
Print #1, "<TITLE>" & path & "</TITLE>"
File1.path = path
File1.pattern = pattern
For i = 0 To File1.ListCount
If File1.List(i) = "" Then Exit Sub
s = File1.path + "\" + File1.List(i)
x = "<A href="" & s & """ & "><IMG WIDTH=100 HEIGHT=100 SRC="" & s & ""></a>"
Print #1, x
Next i
Exit Sub
z:
MsgBox Err.Deion
End Sub

دانلود

کلمات کلیدی : وی بی 6، سورس کد، ایجاد لیست html از تصاویر درون یک پوشه

نوشته شده توسط مهدی در چهارشنبه 88/9/25 و ساعت 4:21 عصر | نظرات دیگران()

بدست آوردن ایام هفته

این تابع تاریخ رو به میلادی میگیره و مشخص میکنه اون تاریخ چند شنبه است.

Public Function DayName(strDate As String) As String
Select Case Weekday(strDate)
    Case 7:
        DayName = "شنبه"
    Case 1:
        DayName = "یکشنبه"
    Case 2:
        DayName = "دوشنبه"
    Case 3:
        DayName = "سه شنبه"
    Case 4:
        DayName = "چهارشنبه"
    Case 5:
        DayName = "پنج شنبه"
    Case 6:
        DayName = "جمعه"
End Select
End Function

دانلود

کلمات کلیدی : وی بی 6، سورس کد، بدست آوردن ایام هفته

نوشته شده توسط مهدی در چهارشنبه 88/9/25 و ساعت 4:18 عصر | نظرات دیگران()

لیست پروسس های در حال اجرا

با سلام

به درخواست دوست گلم آقا کامبیز یه نمونه برنامه براتون میذارم که لیست کلیه پروسسهای در حال اجرا رو نشون میده

که کاربر می تونه هر کدوم از اونها رو انتخاب کنه و اون پروسس رو ببنده

امیدوارم خوشتون بیاد

نظر فراموش نشه

دانلود

کلمات کلیدی : وی بی 6، لیست پروسس های در حال اجرا

نوشته شده توسط مهدی در چهارشنبه 88/9/4 و ساعت 4:0 صبح | نظرات دیگران()

نرم افزار Flash SafeRemove

یه نرم افزار تهیه کردم به اسم Flash SafeRemove ، همونطور که از اسمش پیداست کارش مدیریت فلش مموری و رم ریدر هست.

اونهایی که همزمان چندین فلش رو به سیستم وصل می کنند ممکنه هنگامی که بخوان یکی از فلشها رو از سیستم جدا کنند نتونند اون فلش رو از داخل منوی Safely Remove تشخیص بدن که این نرم افزار این مشکل رو حل میکنه.

ادامه مطلب...

کلمات کلیدی : نرم افزار Flash SafeRemove، eject usb drive with vb6، vb6 and usb

نوشته شده توسط مهدی در چهارشنبه 88/8/27 و ساعت 2:3 عصر | نظرات دیگران()

deltree در وی بی 6

این تابع کارش حذف فولدر با تمام محتویاتش هست که در واقع کار دستور deltree رو انجام میده:

Function DelTree(ByVal strDir As String) As Long
Dim x As Long
Dim intAttr As Integer
Dim strAllDirs As String
Dim strFile As String
DelTree = -1
On Error Resume Next
strDir = Trim$(strDir)
If Len(strDir) = 0 Then Exit Function
If Right$(strDir, 1) = "\" Then strDir = Left$(strDir, Len(strDir) - 1)
If InStr(strDir, "\") = 0 Then Exit Function
intAttr = GetAttr(strDir)
If (intAttr And vbDirectory) = 0 Then Exit Function
strFile = Dir$(strDir & "\*.*", vbSystem Or vbDirectory Or vbHidden)
Do While Len(strFile)
If strFile <> "." And strFile <> ".." Then
intAttr = GetAttr(strDir & "\" & strFile)
If (intAttr And vbDirectory) Then
   strAllDirs = strAllDirs & strFile & Chr$(0)
Else
   If intAttr <> vbNormal Then
    SetAttr strDir & "\" & strFile, vbNormal
    If Err Then DelTree = Err: Exit Function
   End If
   Kill strDir & "\" & strFile
   If Err Then DelTree = Err: Exit Function
End If
End If
strFile = Dir$
Loop
Do While Len(strAllDirs)
x = InStr(strAllDirs, Chr$(0))
strFile = Left$(strAllDirs, x - 1)
strAllDirs = Mid$(strAllDirs, x + 1)
x = DelTree(strDir & "\" & strFile)
If x Then DelTree = x: Exit Function
Loop
RmDir strDir
If Err Then
DelTree = Err
Else
DelTree = 0
End If
End Function

کلمات کلیدی : deltree in vb6

نوشته شده توسط مهدی در چهارشنبه 88/8/27 و ساعت 1:47 عصر | نظرات دیگران()

ساخت Shortcut روی دسکتاپ بوسیله اسکریپت

یه تابع براتون میذارم که بوسیله اون می تونید به راحتی بر روی دسکتاپ از هر برنامه ای میانبر بسازید:

Public Sub CreateShortCut_Desktop(Target As String, LinkName As String, Deion As String, Optional Hotkey As String = "", Optional Argument As String = "")
Dim WshShell, oShellLink
Set WshShell = Create("W.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
a1 = InStrRev(Target, "\")
a2 = Mid(Target, 1, Val(a1) - 1)
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & LinkName & ".lnk")
oShellLink.TargetPath = Target
oShellLink.WindowStyle = 1
oShellLink.Hotkey = Hotkey
oShellLink.Deion = Deion
oShellLink.Arguments = Argument
oShellLink.WorkingDirectory = a2
oShellLink.Save
End Sub