x80x88 发表于 2009-3-19 17:28:35

一个简单CM

CM区人气低迷,发一个提提人气,给新来的练练手!/:014
没什么技术含量,最近在学API,写一个当做练习!牛人们请自觉飘过!/:017


[ 本帖最后由 x80x88 于 2009-3-19 18:01 编辑 ]

xuyang886 发表于 2009-3-19 20:04:58

我太菜.只能爆破了``

lgjxj 发表于 2009-3-19 20:13:09

lgjxj
1506

冷血书生 发表于 2009-3-19 20:57:08

很好啊！

使用api kernel32.GetComputerNameW 獲得電腦名稱，再調用USER32.MessageBoxA來輸出是否注冊成功

leng
1364

算法不難，有興趣的可以看看，當然，還原出源代碼不是難事！

杨家将 发表于 2009-3-19 21:12:33

原帖由 lgjxj 于 2009-3-19 20:13 发表 https://www.chinapyg.com/images/common/back.gif
lgjxj
1506

看到VB就头晕，膜拜一下CM杀手

lgjxj 发表于 2009-3-19 21:28:37

我已半退了，工作比较忙，现在都在看看壳类的东西，老了/:011

as3852711 发表于 2009-3-19 22:35:35

看来这CM里面还大有文章!先发个图来耀武扬威一下!下去再细看!/:001 /:001 /:001

[ 本帖最后由 as3852711 于 2009-3-19 22:40 编辑 ]

creantan 发表于 2009-3-20 08:24:48

creantan
1000
/:013 /:013

科维 发表于 2009-3-20 11:22:48

我怎么调试也是不正确．
不知用上面的
leng
1364
能不能进行注册的？是不是每台机子的注册号都是一样的？

冰糖 发表于 2009-3-20 11:37:09

Private Sub Command1_Click()
    a = Text1.Text & UCase(Winsock1.LocalHostName)
    For i = 1 To Len(a)
      b = b + Asc(Mid(a, i, 1))
    Next i
    Text2.Text = b
End Sub
页: [1] 2 3
查看完整版本: 一个简单CM