- Set fso=CreateObject("Scripting.FileSystemObject")
- Do
- vip=inputbox("请输入会员卡号","会员验证")
- if vip="" then WScript.Quit
- IDs = fso.OpenTextFile("ID.txt", 1, True).ReadAll
- if vip="8888" then
- fso.OpenTextFile("ID.txt", 2, True).WriteLine()
- msgbox "数据已清空!",64,"太子熊制作"
- elseif InStr(vbCrLf&IDs, vbCrLf&vip&vbCrLf) then
- msgbox "对不起!此会员已经参加过摇奖!",64,"太子熊制作"
- else
- msgbox "此会员可以进行摇奖!",64,"太子熊制作"
- fso.OpenTextFile ("ID.txt", 8, True).WriteLine vip
- end if
- Loop
复制代码
|