m javad
کاربر متخصص
این کدش:
کد:
**فرض کنيد فايل رو توي آدرس زير ذخيره کرديد
file$='c:\temp\test.txt'
**بدست آوردن خط اول از فايل
line$=StrFromFile(file$,1,1)
**بدست آوردن خط دوم از فايل
**line$=StrFromFile(file$,2,1)
**بدست اوردن حرف اول از خط اول
H1$=StrCopy(line$,1,1)
If (H1$='1') Then
MessageEx("Password","Please insert the Password.")
Else
MessageEx("Password","incorect Password.")
End
**بدست اوردن حرف دوم از خط اول
H2$=StrCopy(line$,2,1)
If (H2$='1') Then
NextPage()
Else
ViewImage("<SrcDir>\","CENTER")
End
**بدست اوردن حرف سوم از خط اول
H3$=StrCopy(line$,3,1)
If (H3$='1') Then
Exit()
Else
NextPage()
End
