骗钱成功。。 [s:252]
12214
%7B%22isLastPage%22%3Atrue%2C%22notes%22%3A%5B%5D%2C%22pid%22%3A%22t12214%22%2C%22tid%22%3A%2212214%22%2C%22mainForumsId%22%3A%5B%22134%22%5D%2C%22categoriesId%22%3A%5B%22424%22%5D%2C%22tcId%22%3A%5B%5D%7D
%7B%22isEditMode%22%3Afalse%7D
骗钱的小程序: RP Calc (程序和源代码)
计算出来的东西请勿当真。
附件是可执行文件
源代码很简单,直接写在这里
直接用 VB6 编译即可
附件是可执行文件
源代码很简单,直接写在这里
直接用 VB6 编译即可
Private Declare Function MessageBoxA Lib "user32" _
(ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Sub Command1_Click()
Dim tmp As Long, s As String
For i = 1 To Len(Text1)
tmp = tmp + Asc(Mid(Text1, i, 1))
Next i
tmp = Abs(tmp Mod 101)
Select Case tmp
Case 0 To 20
s = "你有RP吗?"
Case 21 To 60
s = "RP很差"
Case 61 To 80
s = "RP很正常"
Case 81 To 99
s = "RP很好"
Case 100
s = "你作弊了吧?"
Case Else
s = "RP是什么???"
'never be here
End Select
MessageBoxA 0, Text1 & "的RP是" & Str(tmp) & vbCrLf & s, "RP", 64
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Call Command1_Click
End Sub
200字以内，仅用于支线交流，主线讨论请采用回复功能。