ParsX.com
پذیرش پروژه از دانشجویی ... تا سازمانی 09376225339
 
   ProfileProfile   Log in to check your private messagesLog in to check your private messages  |  FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups Log inLog in   RegisterRegister 

بدست آوردن سریال مین برد

 
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET
View previous topic :: View next topic  
Author Message
peyman
دوست آشناي سايت


Joined: 29 Jan 2007
Posts: 70
Location: Movable

PostPosted: Thu May 03, 2007 10:04 am    Post subject: بدست آوردن سریال مین برد Reply with quote

سلام.
میشه بگید با چه تابعی میتونیم سریال مین برد و یا سی پی یو رو بدست بیاریم؟
ممنون.
Back to top
unknown
مدير بخش ويژوال بيسيك
مدير بخش ويژوال بيسيك


Joined: 05 Dec 2004
Posts: 439
Location: Tehran

PostPosted: Fri May 04, 2007 2:17 pm    Post subject: Reply with quote

Quote:
USE AT YOUR OWN RISK
USE AT YOUR OWN RISK
USE AT YOUR OWN RISK
USE AT YOUR OWN RISK
USE AT YOUR OWN RISK


You can get any system information including cpu details by accessing the Registry using  API. you need to be at least intermediate level programmer to try out these things, else chances of corrupting Windows may occur.
 
by declaring function regopenkeyEx , regqueryvalEx and regclosekey
 
' details of which are available under API viewer.
 
 
you need to access SKEY_LOCAL_MACHINE\Enum\Root -- HardwareId
 
you use these following functions to get the same:
 
Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)
' Description:
'   This Function will return the data field of a value
'
' Syntax:
'   Variable = QueryValue(Location, KeyName, ValueName)
'
'   Location must equal HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_lOCAL_MACHINE
'   , HKEY_USERS
'
'   KeyName is the key that the value is under (example: "Software\Microsoft\Windows\CurrentVersion\Explorer")
'
'   ValueName is the name of the value you want to access (example: "link")
 
       Dim lRetVal As Long         'result of the API functions
       Dim hKey As Long         'handle of opened key
       Dim vValue As Variant      'setting of queried value
 

       lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
       lRetVal = QueryValueEx(hKey, sValueName, vValue)
       'MsgBox vValue
       QueryValue = vValue
       RegCloseKey (hKey)
End Function
Back to top
peyman
دوست آشناي سايت


Joined: 29 Jan 2007
Posts: 70
Location: Movable

PostPosted: Thu May 10, 2007 1:09 am    Post subject: Reply with quote

ممنونم
Back to top
Display posts from previous:   
Post new topic   Reply to topic    ParsX.com Forum Index -> ويژوال بيسيك .NET All times are GMT + 3.5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum