• 50 Vote(s) - 2.34 Average
  • 1
  • 2
  • 3
  • 4
  • 5
سورس کدهای ویژوال بیسیک
#1
درود...
در این قسمت سورس کدهای ویژوال بسیک قرار میگیرد.

Source Code Visual Basic 6:

get Serial Hard Disk
به دست اووردن سریال هارد دیسک
Code:
Option Explicit


Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Public Function GetDriveSerialNumber(sDrive As String) As Long '/www.parsicoders.com
   Dim lSerialNo    As Long
   Dim lLenSerialNo As Long
  
   GetVolumeInformation sDrive + ":\" & Chr(0), vbNull, vbNull, lSerialNo, lLenSerialNo, vbNull, vbNull, vbNull
   GetDriveSerialNumber = lSerialNo
End Function

Private Sub cmdGetSerialNo_Click()
    MsgBox "Serial Number of Drive C is:" + CStr(GetDriveSerialNumber("c"))
End Sub

گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
  Reply


Messages In This Thread
سورس کدهای ویژوال بیسیک - by Amin_Mansouri - 04-15-2011، 11:03 PM

Possibly Related Threads...
Thread Author Replies Views Last Post
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 4,979 05-07-2017، 06:54 PM
Last Post: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 11,310 08-13-2015، 10:08 PM
Last Post: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 5,256 07-03-2015، 11:14 AM
Last Post: aaaaaaaaa
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 6,859 04-20-2015، 10:10 PM
Last Post: hackert41389
  مشکل با paste بیسیک 6 aghamali 1 2,106 01-18-2015، 08:53 PM
Last Post: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 5,236 11-07-2014، 04:25 PM
Last Post: aghamali
  سورس کد ذخیره میخوام روشنا 5 6,543 06-25-2014، 08:46 AM
Last Post: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 3,559 06-07-2014، 09:19 PM
Last Post: aleas
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 6,353 05-26-2014، 04:09 PM
Last Post: Amin_Mansouri
  سریعترین روش دریافت سورس سایت aleas 0 2,379 05-20-2014، 12:17 AM
Last Post: aleas

Forum Jump:


Users browsing this thread: 2 Guest(s)