找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
請尊重及感激所有版主付出和奉獻感激所有對伊莉作出奉獻的人儲值後自動升級用戶組
蘿莉三上悠亞mega 無偷拍流出名偵探柯
戦隊戦姫oppai odgzybffc2 ppv クロスソ우물안 royd

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]秒殺外掛太強了,

[繁]不死不運24- (完)

[繁/無修正]婚戒物語

[繁][720P]海賊王1098

[繁]SYNDUALITY Noir

[繁]肌肉魔法使-MASHL
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 5591|回復: 4

[求助] 請教常見的系統變數名稱[複製鏈接]

Rank: 2Rank: 2

帖子
745
積分
320 點
潛水值
37669 米
發表於 2017-5-10 09:21 PM|顯示全部樓層
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。
主要想用一些簡單的硬體資訊做一點小小的保護措施,例如電腦名稱,使用者名稱等
Environ("computername")
不知還有哪些常用的,感謝!

點評

darkjack 你用的是 vb6 還是 vb.net ? 兩者用法不同  發表於 2017-5-11 11:25 PM
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

Rank: 2Rank: 2

帖子
745
積分
320 點
潛水值
37669 米
發表於 2017-5-12 06:22 AM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
是vb.net抱歉忘了說,目前是用了這幾個來做排列組合做簡單保護措施
  1. pc_name = Environ("computername")
  2.         pc_user = Environ("username")
  3.         pc_os = Environ("os")
  4.         pc_domain = Environ("userdomain")
複製代碼
原本想抓網卡卡號或硬碟或是ip相關資訊,網路上找的都不是看得很懂,所以暫時放棄了!
...
瀏覽完整內容,請先 註冊登入會員
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

  專 家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1412
積分
17880 點
潛水值
38197 米
發表於 2017-5-14 09:51 PM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
有些 在Vb.net 上無法抓到資訊喔
你可以查一下 vb.net "加密"
或者這個網址參考一下
下載: 訪客無法瀏覽下載點,請先 註冊登入會員
本人 都是寫 vb.net 如果看到本人的原創 請自備 .Net FrameWork 3.5
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

帖子
372
積分
21 點
潛水值
5911 米
發表於 2017-6-13 04:03 PM|顯示全部樓層
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。
[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. 1.電腦名稱:
  41. Environment.MachineName

  42. 2.ip地址:
  43. System.Net.Dns.GetHostAddresses()

  44. 3.mac地址:
  45. System.Net.NetworkInformation.NetworkInterface.GetPhysicalAddress()

  46. 4.ie版本:
  47. 使用 FileVersionInfo.GetVersionInfo() 傳入 IE 的執行檔路徑,取得 FileVersionInfo 物件 .

  48. 5.os類別版本:
  49. Environment.OSVersion

  50. 6.某個文件特定修改日期:
  51. File.GetLastWriteTime()

  52. 7.cpu大小型號:
  53. 用 Windows API...

  54. 8.內存大小型號:
  55. 內存是什麼?記憶體嗎?記憶體可用:My.ComputerInfo.TotalPhysicalMemory
  56. 型號,可能要用 Windows API 了,或者可參考 DDK 有沒有,內建函式庫應該沒有 .

  57. 9.硬盤容量:
  58. Microsoft.VisualBasic.FileIO.FileSystem.GetDriveInfo() 取得 DriveInfo,再用 TotalSize 取得

  59. 10.主板型號:
  60. 要用 Windows API ,或者可參考 DDK 有沒有,內建函式庫應該沒有 .
複製代碼
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

Rank: 2Rank: 2

帖子
745
積分
320 點
潛水值
37669 米
發表於 2017-9-13 06:04 AM|顯示全部樓層
Jeepluo 發表於 2017-6-13 04:03 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

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




分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部