文件名称:AAA
- 所属分类：
- ActiveX/DCOM
- 资源属性：
- [Windows] [程序]
- 上传时间：
- 2012-11-26
- 文件大小：
- 142kb
- 下载次数：
- 0次
- 提 供 者：
- W**
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
Private Sub Command1_Click()
strtmp = Text1.Text
nlen = Len(strtmp)
k = 1
For i = 1 To nlen
j = Asc(Mid(strtmp, i, 1))
If j < 47 Or j > 58 Then
k = 2
End If
Next i
If k <> 2 Then
Text2.Text = Val(Text1.Text) Xor &H11677831
Else
e = MsgBox(\"你输入的机器码有误，请重新输入!\", 0, \"Error!!!\")
End If
End Sub
Private Sub Command2_Click()
aa = MsgBox(\"逆风飞扬电脑工作室倾力制作\", 0, \"退出\")
Unload Me
End Sub
-Private Sub Command1_Click () strtmp = Text1.Text nlen = Len (strtmp) k = 1 For i = 1 To nlen j = Asc (Mid (strtmp, i, 1)) If j
strtmp = Text1.Text
nlen = Len(strtmp)
k = 1
For i = 1 To nlen
j = Asc(Mid(strtmp, i, 1))
If j < 47 Or j > 58 Then
k = 2
End If
Next i
If k <> 2 Then
Text2.Text = Val(Text1.Text) Xor &H11677831
Else
e = MsgBox(\"你输入的机器码有误，请重新输入!\", 0, \"Error!!!\")
End If
End Sub
Private Sub Command2_Click()
aa = MsgBox(\"逆风飞扬电脑工作室倾力制作\", 0, \"退出\")
Unload Me
End Sub
-Private Sub Command1_Click () strtmp = Text1.Text nlen = Len (strtmp) k = 1 For i = 1 To nlen j = Asc (Mid (strtmp, i, 1)) If j
(系统自动生成,下载前可以参看下载内容)
下载文件列表
关闭有害端口.exe