• 标 题:密码截取网络版1.0注册机(VB写的) (345字)
  • 作 者:8989
  • 时 间:2001-4-28 18:21:18
  • 链 接:http://bbs.pediy.com

密码截取网络版1.0注册机(VB)
用户名GUODONG 注册码1301   
http://gaoasp.cn99.com

Dim myname As String
Dim zcm As Integer
Private Sub Text1_Change()
zcm = 0
myname = Text1.Text + "whm_w"
For i = 1 To Len(myname)
zcm = zcm + Asc(Mid$(myname, i))
Next i
Text2.Text = zcm
End Sub

http://duba.126.com 每日更新,希望各位朋友多多捧场