請教常見的系統變數名稱

lcskc

主要想用一些簡單的硬體資訊做一點小小的保護措施,例如電腦名稱,使用者名稱等

Environ("computername")

不知還有哪些常用的,感謝!

lcskc

是vb.net抱歉忘了說,目前是用了這幾個來做排列組合做簡單保護措施

1. pc_name = Environ("computername")
   
2.         pc_user = Environ("username")
   
3.         pc_os = Environ("os")
   
4.         pc_domain = Environ("userdomain")

複製代碼

原本想抓網卡卡號或硬碟或是ip相關資訊,網路上找的都不是看得很懂,所以暫時放棄了!
...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

有些 在Vb.net 上無法抓到資訊喔
你可以查一下 vb.net "加密"
或者這個網址參考一下

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

Jeepluo

[VB.NET]取得電腦基本訊息(含偵測網路是否有通) '網絡狀況

1.         If My.Computer.Network.Ping("172.18.48.215") Then
   
2.             Label2.Text = "暢通"
   
3.         Else
   
4.             Label2.Text = "不通"
   
5.         End If
   
6.         '機器名稱
   
7.         Label3.Text = Environment.MachineName
   
8.         'OS名稱
   
9.         Label5.Text = My.Computer.Info.OSFullName
   
10.         'Symantec病毒碼日期
    
11.         Label10.Text = Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\SharedDefs", "DEFWATCH_10", Nothing), 12), 8)
    
12.         'Inter Explorer版本
    
13.         Label11.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer", "Version", Nothing)
    
14.         'CPU
    
15.         Label12.Text = Microsoft.VisualBasic.Trim(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
    
16.         '主板
    
17.         Label14.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System", "SystemBiosVersion", Nothing).ToString
    
18.         '鼠標
    
19.         Label16.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\MultifunctionAdapter\5\PointerController\0\PointerPeripheral\0", "Identifier", Nothing)
    
20.         '顯卡
    
21.         Label21.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000", "DriverDesc", Nothing)
    
22.         '登入人員
    
23.         Label23.Text = Environment.UserName
    
24.         'Broker是自動分配還是手工分配
    
25.         Label26.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\Broker", "Enabled", Nothing).ToString
    
26.         '總內存
    
27.         Label28.Text = Str(My.Computer.Info.TotalPhysicalMemory / 1000000) & "M"
    
28.         'emax.exe版本
    
29.         Label29.Text = My.Computer.FileSystem.GetFileInfo("C:\emax\application\emax.exe").LastWriteTime.ToString
    
30.         'broker server
    
31.         Label30.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\AutoUpdateParams", "IP", Nothing).ToString
    
32.         'OS ServicePack
    
33.         Label33.Text = Environment.OSVersion.ServicePack.ToString
    
34.         '系統時間
    
35.         Label35.Text = My.Computer.Clock.LocalTime.ToString
    
36.         'C空間和剩餘空間
    
37.         Label36.Text = "C:盤總空間:" & Int(My.Computer.FileSystem.GetDriveInfo("C:").TotalSize / 1000 / 1000 / 1000) & "G" & " 可用空間:" & Int(My.Computer.FileSystem.GetDriveInfo("C:").TotalFreeSpace / 1000 / 1000 / 1000) & "G"
    
38.         Label37.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\CodePage", "TRANSFERTABLEPATH", Nothing).ToString
    
39.         Label38.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\Broker", "IP", Nothing).ToString
    
40. 
    
41. 1.電腦名稱：
    
42. Environment.MachineName
    
43. 
    
44. 2.ip地址：
    
45. System.Net.Dns.GetHostAddresses()
    
46. 
    
47. 3.mac地址：
    
48. System.Net.NetworkInformation.NetworkInterface.GetPhysicalAddress()
    
49. 
    
50. 4.ie版本：
    
51. 使用 FileVersionInfo.GetVersionInfo() 傳入 IE 的執行檔路徑，取得 FileVersionInfo 物件 .
    
52. 
    
53. 5.os類別版本：
    
54. Environment.OSVersion
    
55. 
    
56. 6.某個文件特定修改日期：
    
57. File.GetLastWriteTime()
    
58. 
    
59. 7.cpu大小型號：
    
60. 用 Windows API...
    
61. 
    
62. 8.內存大小型號：
    
63. 內存是什麼？記憶體嗎？記憶體可用：My.ComputerInfo.TotalPhysicalMemory
    
64. 型號，可能要用 Windows API 了，或者可參考 DDK 有沒有，內建函式庫應該沒有 .
    
65. 
    
66. 9.硬盤容量：
    
67. Microsoft.VisualBasic.FileIO.FileSystem.GetDriveInfo() 取得 DriveInfo，再用 TotalSize 取得
    
68. 
    
69. 10.主板型號：
    
70. 要用 Windows API ，或者可參考 DDK 有沒有，內建函式庫應該沒有 .

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

lcskc

Jeepluo 發表於 2017-6-13 04:03 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

[VB.NET]取得電腦基本訊息(含偵測網路是否有通) '網絡狀況

有好多東西,有空來試試這些程式碼,感謝分享