سورس کدهای مفید و کاربردی VB.Net

elahi · Jun 2, 2013

با استفاده از این کد میتونید خیلی راحت صفحه Welcome Screen ویندوز رو تغییر بدید . فقط کافیه آدرس عکس رو بدید .

کد:

Public Function Change_WelcomeScreen()


       'Change Welcome Screen.


       'Note : You Must Select Bitmap (BMP Format) File. 


       My.Computer.Registry.SetValue("HKEY_USERS\.DEFAULT  \Control Panel\Desktop\", "Wallpaper", "C:\Your_Image.bmp")


   End Function

elahi · Jun 2, 2013

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

کد:

Public Function ServicePack()


        MsgBox(My.Computer.Registry.GetValue("HKEY_LOCAL_M  ACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION", "CSDVersion", 0))


    End Function

elahi · Jun 2, 2013

با این کد میتونید اطلاعات مربوط به CPU رو استخراج کنید .
اطلاعاتی از قبیل :
1- نام شرکت سازنده
2- مدل و قدرت CPU
3- نام CPU

کد:

Public Function GetInfo_CPU()


        Dim VendorIdentifier, Identifier, ProcessorName As String


        VendorIdentifier  = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\   HARDWARE\DESCRIPTION\System\CentralProcessor\0", "VendorIdentifier", 0)


        Identifier  = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\   HARDWARE\DESCRIPTION\System\CentralProcessor\0", "Identifier", 0)


        ProcessorName  = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\   HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString",  0)


        MsgBox("Vendor : " & VendorIdentifier & vbCrLf & _


               "Model : " & Identifier & vbCrLf & _


               "Processor Name : " & Trim(ProcessorName))


    End Function

elahi · Jun 2, 2013

بدست آوردن مدل Hard Disk

کد:

Public Function HardDisk_Model()


        MsgBox(My.Computer.Registry.GetValue("HKEY_LOCAL_M   ACHINE\HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 0\Target Id  0\Logical Unit Id 0", 

"Identifier", 0), MsgBoxStyle.Information, "Hard  Disk Model")


    End Function

elahi · Jun 2, 2013

خب . یک کد دیگه که باهاش میتونید Task Manager رو غیر فعال کنید .
کد واسه غیر فعال کردن :

کد:

Public Function Disable_TakManager()


        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S   oftware\Microsoft\Windows\CurrentVersion\Policies\  System",  "DisableTaskMgr", 1, 

Microsoft.Win32.RegistryValueKind.DWord)


    End Function

این کد هم واسه فعال کردنه :

کد:

Public Function Enable_TaskManager()


        My.Computer.Registry.CurrentUser.DeleteSubKey("Sof  tware\Microsoft\Windows\CurrentVersion\Policies\Sy  stem")


    End Function

elahi · Jun 2, 2013

یه کرونو متر ساده با استفاده از کلاس datetime , timespan ... برای مبتدی ها چیز خوبیه

elahi · Jun 2, 2013

با این کد یه سری اطلاعات کلی رو در مورد بایوس بگیرید .
اطلاعاتی از قبیل :
1- ورژن بایوس
2- شماره ساخت
3- Caption
4- کد شناسه
5- کارخانه سازنده
6- نام بایوس
7- شماره سریال
نکته : ابتدا باید رفرنس System.Managment رو اضافه کنید .

کد:

Public Function GetInfo_BIOS()


        Dim Bios_ID As String


       Dim BiosClass As New Management.ManagementClass("Win32_BIOS")

     
  Dim Bioss As Management.ManagementObjectCollection = BiosClass.GetInstances()


       Dim BiossEnumerator As _

     
  Management.ManagementObjectCollection.ManagementOb  jectEnumerator = _


       Bioss.GetEnumerator()


       Bios_ID = "1"


       While BiossEnumerator.MoveNext()


           Dim Bios As Management.ManagementObject = _

       
    CType(BiossEnumerator.Current, Management.ManagementObject)


           '   Bios_ID = Bios("BiosCharacteristics")

 
           Bios_ID = Join(Bios("BIOSVersion"))

  
         Bios_ID &= Bios("BuildNumber")


           Bios_ID &= Bios("Caption")

       
    Bios_ID &= Bios("IdentificationCode")

        
   Bios_ID &= Bios("Manufacturer")


           Bios_ID &= Bios("Name")

        
   Bios_ID &= Bios("SerialNumber")

 
        End While
       
MessageBox.Show(Bios_ID, "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)


   End Function

elahi · Jun 2, 2013

امیدوارم حال خودتون و CPU تون خوب باشه .

راستی گفتم CPU ، خب امروز هم یک سری کد باحال در مورد CPU دارم .

خب کد اول :

این کد معماری پردازنده رو برمیگردونه .

مثلا x86 - MIPS - Alpha - Intel Itanuim Processor - PowePC - x64 :

نکته : باید رفرنس System.Management رو اضافه کنید .

البته همه شما که استادید ولی یه توضیح در مورد اضافه کردن رفرنس ها میدم ( شاید یکی تازه کار باشه ).

خب شما اگه بخاید یه رفرنس رو اضافه کنید باید در محیط ویژوال استدیو اینطوری عمل کنید :

به منوی Project برید و گزینه Add Reference رو بزنید . حالا در کادری که واستون باز میشه میتونید رفرنس دلخواه خودتون رو اضافه کنید. از داخل لیست گزینه System.Management رو اضافه کنید .

کد:

[/FONT][/COLOR]Dim Architecture As String


        Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_Processor")


        Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()


        For Each obj As Management.ManagementObject In objcol


            If Architecture = String.Empty Then


                Architecture = obj.Properties("Architecture").Value.ToString


            End If

        Next


        Select Case Architecture


            Case "0"


                MsgBox("x86")


            Case "1"


                MsgBox("MIPS")


            Case "2"


                MsgBox("Alpha")


            Case "3"


                MsgBox("PowerPC")


            Case "6"


                MsgBox("Intel Itanuim Processor Family")


            Case "9"


                MsgBox("x64")


        End Select


[COLOR=red][FONT=Tahoma]

elahi · Jun 2, 2013

کد دوم :
بوسیله کد زیر میتونید بفهمید سیستمی که برنامه داره روش اجرا میشه چند بیتی هستش . 32 یا 64 .

کد:

Dim AdrsWidth As String


        Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_Processor")


        Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()


        For Each obj As Management.ManagementObject In objcol


            If AdrsWidth = String.Empty Then


                AdrsWidth = obj.Properties("AddressWidth").Value.ToString


            End If


        Next


        Select Case AdrsWidth


            Case "32"


                MsgBox("32-Bit")


            Case "64"


                MsgBox("64-Bit")


        End Select

elahi · Jun 2, 2013

سومین کد :

خب با این کد هم میتونید وضعیت CPU رو بدست بیارید .

وضعیت های CPU عبارتند از :

1- Unknow : شناخته نشده .

2- CPU Enabled : سی پی یو فعال است .

3- CPU Disabled By User Via BIOS Setup: سی پی یو بوسیله کاربر از طریق بایوس غیر فعال شده است .

4- CPU Disabled By BIOS (POST Error): سی پی یو بوسیله بایوس غیر فعال شده است ( خطای روال POST ) .

5- CPU Is Idle : سی پی یو در حالت بیکاری است .

6- Reserved : رزرو شده .

7- Other : دیگر حالات

کد:

[/FONT]Dim CPUStatus As String


        Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_Processor")


        Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()


        For Each obj As Management.ManagementObject In objcol


            If CPUStatus = String.Empty Then


                CPUStatus = obj.Properties("CPUStatus").Value.ToString


            End If


        Next


        Select Case CPUStatus


            Case "0"


                MsgBox("Unknow")


            Case "1"
                MsgBox("CPU Enabled")


            Case "2"


                MsgBox("CPU Disabled by User via BIOS Setup")


            Case "3"


                MsgBox("CPU Disabled by BIOS (POST Error)")


            Case "4"


                MsgBox("CPU Is Idle")


            Case "5"


                MsgBox("Reserved")


            Case "6"


                MsgBox("Reserved")


            Case "7"


                MsgBox("Other")


        End Select


[FONT=Tahoma]

elahi · Jun 2, 2013

خب دوستان عزیز چندتا کد دیگه دارم در رابطه با سخت افزار و این بار HARD DISK !!!

حدودا یه 10 تایی کد هست که در 10 پست تقدیمتون میشه .

خب ، بوسیله کد اول میتونید بفهمید که نحوه اتصال هارددیسک از چه نوعیه .

کد:

Dim HDD_Connection As String


        Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")


        Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()


        For Each obj As Management.ManagementObject In objcol


            If HDD_Connection = String.Empty Then


                HDD_Connection = obj.Properties("InterfaceType").Value.ToString


            End If


        Next


        MsgBox(HDD_Connection, MsgBoxStyle.Information, "Hard Disk Connection")

elahi · Jun 2, 2013

کد دوم :

این کد هم بهتون کمک میکنه تا متوجه بشید که هارد سیستمتون از چه نوعیه .

ثابت یا قابل حمل .

کد:

[/FONT]Dim HDD_Type As String


        Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")


        Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()


        For Each obj As Management.ManagementObject In objcol


            If HDD_Type = String.Empty Then


                HDD_Type = obj.Properties("MediaType").Value.ToString


            End If


        Next


        MsgBox(HDD_Type, MsgBoxStyle.Information, "Hard Disk Type")


[FONT=Tahoma]

elahi · Jun 2, 2013

کد سوم :

این کد تعداد پارتیشن های هارددیسکتون رو بر میگردونه . مثلا 6

کد:

Dim HDD_Partitions As String


        Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")


        Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()


        For Each obj As Management.ManagementObject In objcol


            If HDD_Partitions = String.Empty Then


                HDD_Partitions = obj.Properties("Partitions").Value.ToString


            End If


        Next


        MsgBox(HDD_Partitions, MsgBoxStyle.Information, "Hard Disk Partitions Number")

elahi · Jun 2, 2013

کد پنجم :

خب ، این کد میتونه خیلی بهتون کمک کنه . بدون هیچ گونه دردسری میتونید میزان فضای کلی هارددیسک رو محاسبه کنید .

کد:

Dim HDD_Size As String


        Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")


        Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()


        For Each obj As Management.ManagementObject In objcol


            If HDD_Size = String.Empty Then


                HDD_Size = obj.Properties("Size").Value.ToString


            End If


        Next


        MsgBox(Math.Round(HDD_Size / 1073741724) & " GB", MsgBoxStyle.Information, "Hard Disk Total Size")

elahi · Jun 2, 2013

تابعی برای تغییر زبان فعلی کیبورد :

کد:

Public Sub SetLanguage(ByVal LabgugeName As Labguage)


    If Labguage.FA_Persian = LabgugeName Then


        InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))


    ElseIf Labguage.EN_English = LabgugeName Then


        InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))


    End If


End Sub


Public Enum Labguage


    FA_Persian = 0


    EN_English = 1


End Enum

روش استفاده :

کد:

SetLanguage(Labguage.FA_Persian)

elahi · Jun 2, 2013

تابعی برای اصلاح تاریخ های بدون صفر : مثلا تبدیل 1388/8/8 به 1388/08/08

کد:

Public Function EslahTarikh(ByVal Tarikh As String) As String


    Dim TarikhArry = Split(Tarikh, "/")


    If TarikhArry(1).Length < 2 Then


        TarikhArry(1) = "0" & TarikhArry(1)


    End If


    If TarikhArry(2).Length < 2 Then


        TarikhArry(2) = "0" & TarikhArry(2)


    End If


    Return TarikhArry(0) & "/" & TarikhArry(1) & "/" & TarikhArry(2)


End Function

elahi · Jun 2, 2013

این تابع یه عکس رو میگیره و اندازه اون رو به سایز دلخواه تغییر میده .

کد:

Public Function resize(ByVal img As Image, ByVal w As Integer, ByVal h As Integer) As Image


    Using bmp2 As New System.Drawing.Bitmap(img, New System.Drawing.Size(w, h))


        bmp2.Save(My.Application.Info.DirectoryPath & "\Files\img.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)


        PictureBox1.Image = System.Drawing.Image.FromFile(My.Application.Info.  DirectoryPath & "\Files\img.jpg")


        Return System.Drawing.Image.FromFile(My.Application.Info.  DirectoryPath & "\Files\img.jpg")


    End Using


End Function

elahi · Jun 2, 2013

تغییر ساعت فعلی سیستم :

کد:

TimeOfDay = TimeSerial(10, 10, 10)

elahi · Jun 2, 2013

تغییر تاریخ فعلی سیستم :

کد:

Today = DateSerial(1990, 10, 22)

elahi · Jun 2, 2013

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

سورس کدهای مفید و کاربردی VB.Net

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

پیوست ها

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

مدیریت

پیوست ها