一个简单CM

x80x88

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


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

xuyang886

我太菜.只能爆破了``

lgjxj

lgjxj
1506

冷血书生

很好啊！

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

leng
1364

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

杨家将

原帖由 lgjxj 于 2009-3-19 20:13 发表
lgjxj
1506

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

lgjxj

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

as3852711

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

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

creantan

creantan
1000
/:013 /:013

科维

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

冰糖

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