ابتدا مرجع System.Management را به پروژه ی خود اضافه می كنيد.
كد زير را در خارج از Public Class فرم برنامه قرار می دهيم:
سپس از كد زير استفاده می كنيم. اين كد شماره سريال را با جعبه ی متنی نمايش می دهد:کد:Imports System.Management
منبع: DevASPکد: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
این کد درایو های مربوط به حافظه های فلش را شناسایی می کند و نام آن ها را با جعبه متنی بر می گرداند:
كد زير را در خارج از Public Class فرم برنامه قرار می دهيم:
سپس از این کد استفاده کنید:کد:Imports System.IO
کد:On Error Resume Next Dim rmdrvs As String For iDrive As Integer = 0 To DriveInfo.GetDrives.Length - 1 If DriveInfo.GetDrives(iDrive).DriveType = 2 And DriveInfo.GetDrives(iDrive).Name <> "A:\" And DriveInfo.GetDrives(iDrive).Name <> "B:\" Then rmdrvs += ControlChars.NewLine + DriveInfo.GetDrives(iDrive).Name + " - " + DriveInfo.GetDrives(iDrive).VolumeLabel End If Next MsgBox(rmdrvs)
کد:For Each prntr As String In Drawing.Printing.PrinterSettings.InstalledPrinters MsgBox(prntr) Next
منبعکد: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
برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط ravegoat برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
فقط توجه داشته باشید MD5Hash دیگه قابلیت Decode شدن رو نداره.
پس واسه رمزنگاری مطالب نباید ازش استفاده کنید چون میشه شتر دیدی ندیدی برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید (انگار نه انگار چیزی وجود داشته ! )
با تشکر برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
برگرفته شده از سایت برنامه نویسکد:For Each appf As Form In Application.OpenForms msgbox(appf.Text) Next
این سورس مقدار TimeZone رو بر می گردونه (نشون میده الگوی زمانی برای چه منطقه ای تنظیم شده):
کد:MsgBox(TimeZone.CurrentTimeZone.StandardName)
آخرین ویرایش توسط ravegoat در تاریخ 02-08-09 انجام شده است
این کد به شما نشون آدرس ایمیلی را که کاربر وارد کرده، معتبر است یا خیر؟
مثلا" example@dom@main.com یه آدرس غیر معتبره.
کد:Imports System.Text.RegularExpressionsنویسنده ی کد: Muhammed Mohiudeen.M.Nکد: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
آخرین ویرایش توسط ravegoat در تاریخ 05-08-09 انجام شده است علت: اصلاح مجدد کد
این کد رو در رویداد KeyPress ، جعبه متنی (TextBox) قرار بدید. با این کار جعبه متنی فقط از صفحه کلید کارکتر های عددی رو دریافت می کنه؛ نه چیز دیگه !
کد:If Not IsNumeric(e.KeyChar) Then e.Handled = True
آخرین ویرایش توسط ravegoat در تاریخ 05-08-09 انجام شده است
ابتدا 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) را قرار می دهیم. این تصویر به عنوان پس زمینه ی میزکار ویندوز قرار می گیرد.
آخرین ویرایش توسط ravegoat در تاریخ 27-08-09 انجام شده است
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks