{"id":380,"date":"2010-06-26T20:21:18","date_gmt":"2010-06-26T17:21:18","guid":{"rendered":"http:\/\/www.notsayfam.com\/?p=380"},"modified":"2018-06-12T17:27:15","modified_gmt":"2018-06-12T15:27:15","slug":"vb-net-ile-registry-kullanarak-monitor-bilgilerini-goruntulemek","status":"publish","type":"post","link":"https:\/\/www.notsayfam.com\/?p=380","title":{"rendered":"vb.net ile registry kullanarak Monit\u00f6r Bilgilerini G\u00f6r\u00fcnt\u00fclemek"},"content":{"rendered":"

Envanter yaz\u0131l\u0131m\u0131na bir b\u00f6l\u00fcm daha ekledim. Bilgisayara ba\u011fl\u0131 olan Monit\u00f6r\u00fcn registry \u00fczerinde kay\u0131tl\u0131 olan EDID (Extended display identification data) bilgilerinden yararlanarak Serino,model,\u00fcretim tarihi,\u00f6l\u00e7\u00fcleri ve ka\u00e7 in\u00e7 oldu\u011fu gibi bilgilere eri\u015febiliyoruz. Detayl\u0131 bilgi i\u00e7in VESA E-EDID\u2122 Implementation Guide<\/a> \u0131 kullanabilirsiniz.<\/p>\n

Imports System.Management
\nImports System.Text
\nImports Microsoft.Win32
\nImports System.Net.NetworkInformation
\nPublic Class Form1
\nDim strmodel As String = “”
\nDim strmodel2 As String = “”
\nDim strserino As String = “”
\nDim regedithex As String = “”
\nDim struretimhaftasi As String = “”
\nDim struretimyili As String = “”
\nDim strdikey, stryatay As Integer
\nDim strmonitorinc As Double
\nPrivate Function ByteArrayToString(ByVal ba As Byte()) As String
\nDim hex As New StringBuilder(ba.Length * 2)
\nFor Each b As Byte In ba
\nhex.AppendFormat(“{0:x2}”, b)
\nNext
\nReturn hex.ToString()
\nEnd Function<\/p>\n

G\u00fcncelleme: 26 Haziran 2010
\n
\nPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
\nstrmodel = “”
\nstrmodel2 = “”
\nstrserino = “”
\nregedithex = “”
\nDim host As String = InputBox(“L\u00fctfen M\u00f6nit\u00f6r\u00fcn\u00fc tespit etmek istedi\u011finiz host ad\u0131n\u0131 veya ip adresini giriniz:”, “Bilgisayar Giri\u015fi”)
\n‘E\u011fer giri\u015f bo\u015f ge\u00e7ilirse local bilgisayar\u0131 alal\u0131m
\nIf host = “” Then host = “.”
\nIf host <> “.” Then
\nDim pingat As New Ping
\nDim pingsonuc As PingReply
\nTry
\npingsonuc = pingat.Send(host)
\nCatch ex As Exception
\nMsgBox(“Yazd\u0131\u011f\u0131n\u0131z bilgisayar ile ileti\u015fim kurulam\u0131yor” & ex.Message)
\nExit Sub
\nEnd Try<\/p>\n

If pingsonuc.Status <> IPStatus.Success Then
\nMsgBox(“Yazd\u0131\u011f\u0131n\u0131z bilgisayar ile ileti\u015fim kurulam\u0131yor”)
\nExit Sub
\nEnd If
\nEnd If<\/p>\n

Dim MyReg As RegistryKey = RegistryKey.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, host)
\nDim Key As RegistryKey = MyReg.OpenSubKey _
\n(“SYSTEM\\CurrentControlSet\\Enum\\DISPLAY”, False)
\n‘Display parametresinin alt\u0131ndaki t\u00fcm keyleri subkeynames dizisine at\u0131yoruz
\nDim SubKeyNames() As String = Key.GetSubKeyNames()
\nDim Index As Integer
\nDim Subkey As RegistryKey
\nDim dogrupath As String = “”
\nFor Index = 0 To Key.SubKeyCount – 1
\nTry
\n‘Enum\\Display keyi alt\u0131ndaki t\u00fcm anahtarlar i\u00e7in yeni bir subkey olu\u015ftural\u0131m
\nDim Key2 As RegistryKey = MyReg.OpenSubKey(“SYSTEM\\CurrentControlSet\\Enum\\DISPLAY\\” _
\n+ SubKeyNames(Index), False)
\nDim SubKeyNames2() As String = Key2.GetSubKeyNames()<\/p>\n

For index2 As Integer = 0 To Key2.SubKeyCount – 1
\n‘Birden fazla monit\u00f6r takm\u0131\u015fsan\u0131z e\u011fer \u00e7ok fazla subkey olu\u015fabilir
\n‘Aktif olan monit\u00f6r i\u00e7in subkey alt\u0131nda Control isimli bir anahtar bulunmakta<\/p>\n

Subkey = MyReg.OpenSubKey(“SYSTEM\\CurrentControlSet\\Enum\\DISPLAY\\” _
\n+ SubKeyNames(Index) + “\\” + SubKeyNames2(index2) + “\\Control”, False)
\n‘E\u011fer control isimli subkey yok ise bir sonraki keye gidelim
\nIf Subkey Is Nothing Then
\nGoTo sonraki
\nElse
\n‘E\u011fer control mevcut ise Device Parameters alt\u0131ndaki EDID Reg_Binary de\u011ferine bak\u0131yoruz
\n‘Monit\u00f6r \u00e7\u0131kart\u0131lm\u0131\u015f ise BAD_EDID anahtar\u0131 olu\u015fuyor.<\/p>\n

Subkey = MyReg.OpenSubKey(“SYSTEM\\CurrentControlSet\\Enum\\DISPLAY\\” _
\n+ SubKeyNames(Index) + “\\” + SubKeyNames2(index2) + “\\Device Parameters”, False)
\nDim bytes As Byte() = Subkey.GetValue(“EDID”, Nothing)
\nTry
\nIf bytes.Length > 0 Then
\n‘Byte olarak ald\u0131\u011f\u0131m\u0131z de\u011ferleri hex format\u0131na \u00e7evirelim<\/p>\n

regedithex = ByteArrayToString(bytes)
\n‘MsgBox(regedithex)
\nstruretimhaftasi = System.Convert.ToInt32(Mid(regedithex, 33, 2), 16)
\nstruretimyili = CInt(System.Convert.ToInt32(Mid(regedithex, 35, 2), 16)) + 1990<\/p>\n

strdikey = CInt(System.Convert.ToInt32(Mid(regedithex, 43, 2), 16))
\nstryatay = CInt(System.Convert.ToInt32(Mid(regedithex, 45, 2), 16))<\/p>\n

strmonitorinc = (Math.Sqrt(strdikey * strdikey + stryatay * stryatay) \/ 2.54)<\/p>\n

Subkey = MyReg.OpenSubKey(“SYSTEM\\CurrentControlSet\\Enum\\DISPLAY\\” _
\n+ SubKeyNames(Index) + “\\” + SubKeyNames2(index2), False)
\n‘E\u011fer monitorun windows s\u00fcr\u00fcc\u00fcs\u00fc y\u00fcklenmi\u015f ise modelini registry \u00fczerinden alal\u0131m
\nstrmodel2 = Subkey.GetValue(“DeviceDesc”)
\nEnd If<\/p>\n

Catch ex As Exception
\nEnd Try
\nEnd If
\nsonraki:
\nNext
\nCatch ex As Exception<\/p>\n

End Try
\nNext<\/p>\n

‘000000ff den sonraki 14 karakter seri numaray\u0131 i\u00e7ermekte
\nDim serinoindex As Integer = InStr(regedithex, “000000ff”) + 8
\n‘000000fc den sonra olan 14 karakter model numaras\u0131n\u0131 i\u00e7eriyor
\nDim modelindex As Integer = InStr(regedithex, “000000fc”) + 8
\nDim serinohex As String = Mid(regedithex, serinoindex, 28)
\nDim modelhex As String = Mid(regedithex, modelindex, 28)<\/p>\n

For y As Integer = 1 To Len(serinohex) Step 2
\nDim s As String
\nDim b As Byte
\nb = System.Convert.ToByte((Mid(serinohex, y, 2)), 16)
\ns = Chr(b)
\nIf Asc(s) <> 0 And (Asc(s) > 47 And Asc(s) < 126) Then
\nstrserino += s
\nEnd If
\nNext y
\nFor y As Integer = 1 To Len(modelhex) Step 2
\nDim s As String
\nDim b As Byte
\nb = System.Convert.ToByte((Mid(modelhex, y, 2)), 16)
\ns = Chr(b)
\nIf Asc(s) <> 0 And (Asc(s) > 47 And Asc(s) < 126) Then
\nstrmodel += s
\nEnd If
\nNext y
\nDim alinanhost As String = “”
\nIf host = “.” Then
\nalinanhost = “Yerel bilgisayar”
\nElse
\nalinanhost = host
\nEnd If<\/p>\n

MsgBox(“Monit\u00f6r Bilgileri Al\u0131nan Bilgisayar: ” + alinanhost + vbCrLf + _
\n“Monitor Registry Modeli: ” & strmodel2 & vbCrLf & _
\n“Monit\u00f6r Device Modeli: ” & Trim(strmodel) & vbCrLf & _
\n“Monit\u00f6r Seri Numaras\u0131: ” & strserino & vbCrLf & _
\n“\u00dcretim Haftas\u0131: ” & struretimhaftasi & vbCrLf & _
\n“\u00dcretim Y\u0131l\u0131: ” & struretimyili & vbCrLf & _
\n“Monit\u00f6r Dikey Boyutu (cm): ” & strdikey & vbCrLf & _
\n“Monit\u00f6r Yatay Boyutu (cm): ” & stryatay & vbCrLf & _
\n“Monit\u00f6r Boyutu (inc): ” & Format(strmonitorinc, “##.##”))
\nEnd Sub
\nEnd Class<\/p>\n

Vs2005 \u00d6rnek Uygulamas\u0131n\u0131 \u0130ndirmek i\u00e7in t\u0131klay\u0131n\u0131z<\/a>.<\/p>\n","protected":false},"excerpt":{"rendered":"

vb.net ile registry kullanarak Monit\u00f6r Bilgilerini G\u00f6r\u00fcnt\u00fclemek<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11,13],"tags":[],"class_list":["post-380","post","type-post","status-publish","format-standard","hentry","category-programlama","category-vb-net"],"_links":{"self":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/380","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=380"}],"version-history":[{"count":9,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/380\/revisions"}],"predecessor-version":[{"id":576,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=\/wp\/v2\/posts\/380\/revisions\/576"}],"wp:attachment":[{"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=380"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=380"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.notsayfam.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=380"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}