نمونه کد های کوچک و کاربردی VB.Net

[™Ali]

 Function getMD5Hash(ByVal strToHash As String) As String
        Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
        bytesToHash = md5Obj.ComputeHash(bytesToHash)
        Dim strResult As String = ""
        For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
        Next
        Return strResult
End Function

منبع

فقط توجه داشته باشید MD5Hash دیگه قابلیت Decode شدن رو نداره.

پس واسه رمزنگاری مطالب نباید ازش استفاده کنید چون میشه شتر دیدی ندیدی برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید (انگار نه انگار چیزی وجود داشته ! )

با تشکر برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

[ravegoat]

For Each appf As Form In Application.OpenForms
    msgbox(appf.Text)
Next

برگرفته شده از سایت برنامه نویس

[ravegoat]

این سورس مقدار TimeZone رو بر می گردونه (نشون میده الگوی زمانی برای چه منطقه ای تنظیم شده):

MsgBox(TimeZone.CurrentTimeZone.StandardName)

[ravegoat]

این کد به شما نشون آدرس ایمیلی را که کاربر وارد کرده، معتبر است یا خیر؟
مثلا" example@dom@main.com یه آدرس غیر معتبره.

Imports System.Text.RegularExpressions

Dim emailAddress As String = InputBox("Plz enter ur Email Address:")
Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)
If emailAddressMatch.Success Then
       MsgBox("Correct Email Address.", 64)
Else
       MsgBox("Invalid Email Address.", 48)
End If

نویسنده ی کد: Muhammed Mohiudeen.M.N