密碼擷取網路版1.0序號產生器(VB寫的) (345字)

看雪資料發表於2001-04-28

密碼擷取網路版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 每日更新,希望各位朋友多多捧場

相關文章