VB判斷計算機是否在學校

時間 2022-05-03 16:10:03

1樓:

不要想太複雜了,

學校機器一定有些特點是家裡電腦不一定完全具有的,比如學校機房電腦有某個或某幾個特定軟體,

學校機房有某個硬體驅動,

學校電腦的windows下有某個日誌檔案,這樣只要判定是否同時具有某幾個資料夾,或特定位置有沒有某幾個檔案就行了,

至少這在程式設計上更容易實現

2樓:

通過wmi方式取得系統還原卡資訊,取其中幾個字元為關鍵字,然後和使用機器的ip網段進行加密運算(例如異或),在程式執行前要求輸入滿足加密字串的字元,

否則直接終止程式。

既然你可以蒐集硬碟序列號了,

沒必要固定死序列好,可以取序列號的某幾位,例如「奇數位」

然後和使用者的ip地址前3段進行(例如)異或運算,生成的密碼都是隨機的,遇到相同密碼的情況基本不存在。

3樓:名字隨便

首先要確定你同學家有網,否則是無稽之談(病毒類儲存開啟資料後,檢測到有網再發出去的除外,當然你也可以做)。

最好的辦法就是用ip了。獲取ip很容易吧,以檔案或者流的方式傳送到指定的伺服器或者ip地址容易吧。最主要就是ip判斷,笨點就手動判斷www.

ip138.com搜尋網段,要麼就就網上找找 判斷內網外網ip的辦法。

能蒐集到ip還不好辦麼。。。

4樓:匿名使用者

正如你所說的,只要判斷本機是不是教育網就可以了。

特點是:**少,效率高,通用性強。

只要在你寫的應用程式的load內插入以下**即可:

dim ws, ipaddress

ipaddress = "127.1.1.1" '這是你教育網的ip地址,請修改

'如果是多個ip地址,可用逗號分開:ipaddress = "127.1.1.1,127.1.2,127.1.3"

set ws = createobject("mswinsock.winsock")

if instr(ipaddress, ws.localip) = 0 then

msgbox "非法執行本軟體!", vbcritical, "提示"

endend if

set ws = nothing

5樓:匿名使用者

還是建議你使用註冊的方法,

1.當在學校網中使用時,可設計成依賴學校網及機器碼自動註冊。

2.如果從學校帶出去使用,因找不到學校網,則彈出註冊對話方塊重新註冊。

即兩種註冊方式。

6樓:匿名使用者

你最好能把你的程式跟mac地址繫結

然後你要做的就是知道你門學校的電腦的mac地址都是多少的相信你學這個的這個很簡單把,接下來就是你的程式的問題了,只要是mac地址不是你們學校的那幾個mac地址,程式就不會使用,這個就叫給你這個程式設計員了呵呵

7樓:竺庭

為什麼不用最後一個呢?判斷ip最方便的了 看看他是不是在你們學校的地址範圍內使用便知道了

8樓:匿名使用者

在程式中用api獲取硬碟的物理sn。和學校電腦的硬碟的物理sn對

9樓:匿名使用者

很想幫你 但我也沒有好辦法

學計算機去哪個學校好,學計算機專業哪個學校好

雲南新華電腦學校 選擇院校時,首先要了解一下學校的歷史和現狀,以及辦學理念。家長要儘量為孩子選擇歷史悠久 品牌和信譽較好的學校。學電腦如果走統招學歷教育路線的話,情況就比較明瞭,學校的水平直接看高考錄取分數線的高低就可以評判,學習好的孩子們都懂的,在這裡老師就不贅言了,但是學習不好的孩子和落榜的 沒...

湖南計算機專業學校排名,湖南長沙計算機學校排名

長沙新華電腦學院 計算機學科的特色主要體現在 理論性強,實踐性強,發展迅速按一級學科培養基礎紮實的寬口徑人才,體現在重視數學 邏輯 資料結構 演算法 電子設計 計算機體系結構和系統軟體等方面的理論基礎和專業技術基礎,前兩年半注重自然科學基礎課程和專業基礎課程,拓寬面向。後一年半主要是專業課程的設定,...

北方計算機學校學多久最好?北方學校有計算機專業嗎?

北方計算機學院第一年學的基礎,第二年和第三年才是學真正的技術,第三年的後半年是實習。北方計算機學院是上兩年半實習半年的學院。我建議你,想了解一個學校,一個專業,還是得實地考察好些。在網上問,可信度不到百分之五十。我就是學軟體開發的,可是我不在北方,我是在南方讀。三年,如果三年上完了還想繼續網上上的話...