استخراج شماره سريال ويندوز
ابتدا مرجع System.Management را به پروژه ی خود اضافه می كنيد.
كد زير را در خارج از Public Class فرم برنامه قرار می دهيم:
کد:
Imports System.Management
سپس از كد زير استفاده می كنيم. اين كد شماره سريال را با جعبه ی متنی نمايش می دهد:
کد:
Dim objMOS As ManagementObjectSearcher
Dim objMOC As Management.ManagementObjectCollection
Dim objMO As Management.ManagementObject
objMOS = New ManagementObjectSearcher("Select * From Win32_OperatingSystem")
objMOC = objMOS.Get
ForEach objMO In objMOC
MessageBox.Show(objMO("SerialNumber"))
Next
objMOS.Dispose()
objMOS = Nothing
objMO.Dispose()
objMO = Nothing
منبع: DevASP
كد تبديل رشته به MD5Hash (رمزنگاری)
کد:
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 (رمزنگاری)
نقل قول:
کد:
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 شدن رو نداره.
پس واسه رمزنگاری مطالب نباید ازش استفاده کنید چون میشه شتر دیدی ندیدی :1. (38): (انگار نه انگار چیزی وجود داشته ! )
با تشکر :1. (21):
تشخيص آدرس ايميل صحيح از غلط
این کد به شما نشون آدرس ایمیلی را که کاربر وارد کرده، معتبر است یا خیر؟
مثلا" 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
تغییر تصویر پس زمینه ی ویندوز دسکتاپ
ابتدا API زیر را تعریف می کنیم (این تعریف می تواند در Public Class فرم یا در یک ماژول صورت گیرد.):
کد:
Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
سپس از این دستور استفاده می کنیم:
کد:
SystemParametersInfo(&H14 , 0, "Bitamp Image Path", &H1)
به جای عبارت Bitmap Image Path ، مسیر عکس Bitmap (با پسوند BMP) را قرار می دهیم. این تصویر به عنوان پس زمینه ی میزکار ویندوز قرار می گیرد.
