原帖由 冰糖 于 2009-3-20 11:37 发表 https://www.chinapyg.com/images/common/back.gif
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
膜拜一下！！！！！！
上面那个不支持中文名,支持中文名的见这个/:017
楼上的太强啦/:good
高手```
/:L
原帖由 科维 于 2009-3-20 11:22 发表 https://www.chinapyg.com/images/common/back.gif
我怎么调试也是不正确．
不知用上面的
leng
1364
能不能进行注册的？是不是每台机子的注册号都是一样的？
你没看到书生写的吗？要每个人的计算机名字，当然每个人的注册码都是不一样的，你想和书生的一样可以问他的计算机名是什么就行了！/:017 /:017 /:017
我也来个...
00404885 8B00 mov eax, 真码放在EAX
我也来‘依虎画猫’一下，把VB关键的代码还原一下。不过还是太菜了本代码不能支持中文，希望牛人们能指点一二！/:010 /:010
Private Sub Command1_Click()
Dim name As String
Dim i, code As Integer
name = Trim(Text1.Text) + cpname
For i = 1 To Len(name)
code = code + Asc(Mid(name, i, 1))
Next i
Text2.Text = Trim(Str(code))
End Sub
**** Hidden Message *****
[ 本帖最后由 as3852711 于 2009-3-21 13:28 编辑 ]
膜拜楼上各位大牛
问题马虎解决了！引入一个字符串型的好像就搞定了！
//////////////////////////////////////////////////
Private Sub Command1_Click()
Dim name As String
Dim i, code As Integer
Dim bArr() As Byte '加上一个字节型；
name = Trim(Text1.Text) + cpname
bArr = StrConv(name, vbFromUnicode) 'StrCon在VB超有用的一个函数；
For i = 0 To UBound(bArr) 'UBound取byte长度；
code = code + bArr(i)
Next i
Text2.Text = Trim(Str(code))
End Sub
/:good 糖糖很强大啊我有我支持中文的注册机源码 /:017