人体三节律优生测试

35888894 · 发表于 2008-12-26 08:30:56

一款自制的娱乐软件

35888894 · 发表于 2008-12-26 08:38:53

附件再传一次...

[ 本帖最后由 35888894 于 2009-1-5 20:51 编辑 ]

annison · 发表于 2008-12-26 10:45:47

晕迷男人用不到这个
对了你那个滚动字幕怎么做得啊

35888894 · 发表于 2008-12-26 11:25:52

Dim $zm1="Copyright  2007-2008 XuanFengStudio Corporation, All Rights Reserved"
Dim $zm2="                欢迎使用人体三节律优生--圣诞节测试V1.0"
Dim $zm3="软件作者：小旋风                      软件设计：小旋风"

Func cp1()

If $baohu=0 Then

$num+=1
For $i=1 To $num
Switch $zx
Case 1
If $num> StringLen ($zm2)  Then
$zx=2
$num=0
$baohu=1
ExitLoop
EndIf
$zfc=StringLeft($zm2,$num)
Case 2
If $num> StringLen ($zm3)  Then
$zx=3
$num=0
$baohu=1
ExitLoop
EndIf
$zfc=StringRight($zm3,$num)
Case 3
If $num> StringLen ($zm1)  Then
$zx=1
$num=0
$baohu=1
ExitLoop
EndIf
$zfc=StringLeft($zm1,$num)
EndSwitch
Next
GUICtrlSetData($Label3,$zfc)

Else
$baohu2-=1
If $baohu2=0 Then
$baohu=0
$baohu2=50
EndIf
EndIf
EndFunc

make2855 · 发表于 2008-12-28 10:02:33

狂晕，连月经都有，拿这个来有什么用？，，，

t01001 · 发表于 2009-5-13 23:30:04

都说是自制的娱乐软件啦,为女朋友而设。。。

vclshy · 发表于 2009-5-22 08:22:55

没钱了回复一下。。。。。。。。。。。

ydpd · 发表于 2009-5-22 10:13:26

下了不会用

ydpd · 发表于 2009-5-22 10:13:45

怎么验证呀

botanycc · 发表于 2009-5-22 10:50:24

顺便进来看看

foxdcj · 发表于 2009-6-4 23:38:22

没钱了回复一下。。。。。。。。。。。

kn007 · 发表于 2009-6-5 02:48:56

可以干什么的？

wanwan · 发表于 2009-6-21 09:45:37

哈.....楼主真是逗..

kafkasmaze · 发表于 2009-8-19 16:59:56

这东西也就男人才会用吧？……

心照不宣 · 发表于 2009-8-20 21:34:06

好资源，支持，感谢

		自动登录	找回密码
密码			加入

[原创] 人体三节律优生测试

本帖子中包含更多资源