چند تا سوال حرفه ای !!!!!!!!!

سلام
من چند تا سوال داشتم که اگه جواب بدید خیلی ممنون میشم

1 - چگونه میتوان سریال مادر برد رو بدست بیاریم

2 - چگونه سریال cpu رو بدست بیاریم

3 - چگونه میتونیم کارکتر دوم یک تکست باکس رو با شرط if یا select برسی کنیم (مثلا اگه کاراکتر دوم تکست باکس 5 بود فرم دو رو نمایش بده ) ( if txt.text carekter2 = 5 then )

4 - خیلی ضروری:5:

سلام.

در مورد سوال شماره ی 3 که پرسیدید اگه منظور شما رو خوب متوجه شده باشم شما بدون استفاده از حلقه های if یا select case این عمل رو در برنامه اجرا کنید.

کد:

---

a = Text1.Text
b = Mid(a, 1, 2)
Text2.Text = Mid(b, 2)

---

:5:

ببخشید

بعدی رو فراموش کردم

شما با گذاشتن حلقه ی if در text2 چک می کنید که اگر text2.text="5" then form2.show

و در غیر این صورت یا elseif هر کدی که مد نظر خودتونه. میتونید msgbox تعریف کنید.

موفق باشید.

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

سوال هام اینقدر سخته ؟
چرا کسی جواب منو نمیده ؟
تو رو خدا هرکی میتونه کمکم کنه

در اکثر مواقع شرکت های سازنده اجازه دریافت سریال رو به نرم افزارها نمیدن و فقط یک string مشابه رو به همه تحویل میدن
اگر می خوای که یک چیز یونیک از کامپیوتر پیدا کنی می تونی از Mac Address استفاده کنی

کد:

---

Dim mc As System.Management.ManagementClass
Dim mo As ManagementObject
mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo In moc
If mo.Item("IPEnabled") = True Then
MsgBox ("MAC address " & mo.Item("MacAddress").ToString())
End If
Next

---

می تونی اینو برای بدست آوردن سریال استفاده کنی اما نه error میده و نه بهت جواب میده

کد:

---

Public strComputer As String, objWMIService As Object, colSMBIOS As Object,
objSMBIOS As Object

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
strComputer = "."
objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
colSMBIOS = objWMIService.ExecQuery ("Select * from
Win32_SystemEnclosure")
For Each objSMBIOS In colSMBIOS
lbl.Text += ("Part Number: " & objSMBIOS.PartNumber) & vbNewLine
lbl.Text += ("Serial Number: " & objSMBIOS.SerialNumber) & vbNewLine
lbl.Text += ("Asset Tag: " & objSMBIOS.SMBIOSAssetTag) & vbNewLine
Next
End Sub

---

برای اطلاعات بیشتر میتونی به آدرس های زیر مراجعه کنی

کد:

---

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_tasks__computer_hardware.asp

---

کد:

---

http://bytes.com/forum/thread433207.html

---

ضمنا هیچ کدوم از کد های نوشته شده در بالا مال من نیست بلکه از آدرس دومی که دادم کپی شده

ممنون از شما دوست عزیز
اما کارم راه نیوفتاد
لطفا اگه کسی راه بهتری بلده بگه :41: