• 101 Vote(s) - 2.65 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
وب سایت تحلیل ارز و دلار
http://tradingview.website
برای دریافت قیمت ها اخبار اقتصادی دلار و ارز حتما وارد کانال تلگرام شوید .
https://t.me/Tradegolds
  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 5,585 05-07-2017، 06:54 PM
Last Post: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 12,586 08-13-2015، 10:08 PM
Last Post: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 6,262 07-03-2015، 11:14 AM
Last Post: aaaaaaaaa
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 7,517 04-20-2015، 10:10 PM
Last Post: hackert41389
  مشکل با paste بیسیک 6 aghamali 1 2,658 01-18-2015، 08:53 PM
Last Post: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 6,211 11-07-2014، 04:25 PM
Last Post: aghamali
  سورس کد ذخیره میخوام روشنا 5 7,999 06-25-2014، 08:46 AM
Last Post: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 4,424 06-07-2014، 09:19 PM
Last Post: aleas
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 7,884 05-26-2014، 04:09 PM
Last Post: Amin_Mansouri
  سریعترین روش دریافت سورس سایت aleas 0 2,798 05-20-2014، 12:17 AM
Last Post: aleas

Forum Jump:


Users browsing this thread: 1 Guest(s)