Source language: Translate to:

CaptCha In Neobook

Share sample pubs, scripts, etc. with other NeoBook users

Moderator: Neosoft Support

CaptCha In Neobook

Postby virger » Fri Apr 17, 2009 10:14 am

MAY BE USE IN...
------------------

NBW Publication Source File
(C)1993-2008 NeoSoft Corp.
Title=Captcha
Author=GdoSan/Abr-2009
Language=US
NeoBookVer=5.60
ScreenColors=16777216
ScreenWidth=320
ScreenHeight=200
BkndColor=0
ScreenAutoSize=Yes
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowPos=0
WindowProps=31
BiDiMode=0
UseUpdateTimer=Yes
ReturnTime=60
SubroutineAction=:CREATE¶loop "1" "4" "[k]"¶ Random "25" "[l]"¶ math "[l]+65" "" "[l]"¶ setvar "[c[k]]" "[#[l]]"¶ Random "240" "[r]"¶ Random "240" "[g]"¶ Random "240" "[b]"¶ setvar "[psx[k]]" "[psxi[k]]"¶ SetObjectFont "Text[k]" "[r],[g],[b]" "Blackoak Std" "20" "Bold" "ANSI_CHARSET"¶ moveobject "Text[k]" "[psx[k]]" "[psy]"¶endloop¶Return
ShapeTransColor=536870912
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Setup
SetupColors=16711680|0|65535
VersionMajor=1
VersionMinor=0
VersionRelease=0
VersionBuild=0
CustomFontName=Arial
CustomFontSize=9
CustomFontStyle=0
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Cancel
L_YES=Yes
L_NO=No
L_CLOSE=Close
L_ERRORTITLE=Error
L_FINDTITLE=Find
L_FINDPROMPT=Find &What
L_FINDFIRST=&Find First
L_FINDNEXT=Find &Next
L_FINDERROR=Search text not found.
L_PWORDTITLE=Password required
L_PWORDMSG=Before continuing, you must first|enter the correct password.
L_PWORDPROMPT=&Password:
L_PWORDERROR=That's not the right password!
L_MEDIAERROR=In order to play this type of file you must install|the appropriate multimedia hardware and/or|software.
L_INTERNETERROR=Unable to locate Internet Browser software.
L_ABORTFUNCTION=Do you want to cancel this function?
L_EXTRACTERROR=This file could not be extracted and cannot be played.
L_INSTDIRPROMPT=Please enter the drive and directory where you would like this program to be installed. To accept the default drive and directory, simply press Enter.
L_INSTFOLDERPROMPT=Do you wish to create a program folder?
L_INSTRUNPROMPT=Do you want to run
L_INSTDISKPROMPT=Please insert disk #
L_INSTDISKERROR=That's not the correct disk, try again.
L_INSTGENERROR=The installation has terminated.
L_INSTEXITPROMPT=Do you really want to cancel the installation?
L_INSTWINTITLE=Setup
L_INSTPROGTITLE=Extracting Files...
L_SENDEMAIL=Sending Mail...
L_MAILSERVER=Please enter the name of your outgoing email server:
L_COPY=Copy to Clipboard
L_SELECTALL=Select All
L_DONWLOADFILE=Downloading: %s
L_PLEASEWAIT=Please wait...
TrayMenuBegin
MenuName=TrayOpen
MenuText=Open
MenuState=3
MenuKey=0
MenuAction=SetVar "[WindowState]" "Normal"
MenuName=TrayExit
MenuText=Exit
MenuState=3
MenuKey=0
MenuAction=Exit "" ""
MenuEnd
MasterPage
NewPage=New Page
PageStyle=1
PageColor=16777215
PageGradient1=16777215
PageGradient2=11597992
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=0
PgEnterAction=loop "1" "4" "[n]"¶ GetObjectInfo "Text[n]" "Left" "[psxi[n]]"¶ setvar "[psx[n]]" "[psxi[n]]"¶endloop¶GetObjectInfo "Text1" "Top" "[psy]"¶setvar "[vez]" "1"¶gosub "CREATE"
ObjectType=3
Name=PushButton1
X=160
Y=141
W=75
H=26
Anchor=0
Text=Reset
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=math "[vez]+1" "" "[vez]"¶if "[vez]" "=" "5"¶ gosub "CREA"¶endif¶loop "1" "4" "[k]"¶ Random "240" "[r]"¶ Random "240" "[g]"¶ Random "240" "[b]"¶ SetObjectFont "Text[k]" "[r],[g],[b]" "Blackoak Std" "20" "Bold" "ANSI_CHARSET"¶ math "[psx[k]]+([k]-1)*5" "" "[psx[k]]"¶ moveobject "Text[k]" "[psx[k]]" "[psy]"¶endloop
LineColor=0
LineWidth=1
LineStyle=0
FillColor=15856113
FillPattern=0
Font=Arial
FontSize=10
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=1
ObjectType=9
Name=TextEntry1
X=120
Y=91
W=75
H=41
Anchor=0
VarName=[tx]
EditLen=4
LineColor=0
LineWidth=1
LineStyle=0
FillColor=15856113
FillPattern=0
Font=Calibri
FontSize=20
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=2
ObjectType=8
Name=Text4
X=155
Y=24
W=65
H=50
Anchor=0
Font=Blackoak Std
FontSize=18
FontStyle=1
FontCharset=1
TextColor=7895160
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Blackoak Std;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs36\cf0\b [c\plain\f0\fs36\cf0\b 4]}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=15856113
FillPattern=1
FillMode=Yes
TabOrder=4
ObjectType=8
Name=Text3
X=132
Y=24
W=65
H=50
Anchor=0
Font=Blackoak Std
FontSize=18
FontStyle=1
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Blackoak Std;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs36\cf0\b [c\plain\f0\fs36\cf0\b 3]}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=15856113
FillPattern=1
FillMode=Yes
TabOrder=5
ObjectType=8
Name=Text2
X=113
Y=24
W=65
H=50
Anchor=0
Font=Blackoak Std
FontSize=18
FontStyle=1
FontCharset=1
TextColor=14277081
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Blackoak Std;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs36\cf0\b [c\plain\f0\fs36\cf0\b 2]}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=15856113
FillPattern=1
FillMode=Yes
TabOrder=7
ObjectType=8
Name=Text1
X=94
Y=24
W=65
H=50
Anchor=0
Font=Blackoak Std
FontSize=18
FontStyle=1
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Blackoak Std;}}{\pard{\qr\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs36\cf0\b [c\plain\f0\fs36\cf0\b 1]}}¶}
HMargin=0
VMargin=0
LineColor=0
LineWidth=0
LineStyle=0
FillColor=15856113
FillPattern=1
FillMode=Yes
TabOrder=6
ObjectType=3
Name=PushButton3
X=80
Y=141
W=75
H=26
Anchor=0
Text=Submit
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=loop "1" "4" "[n]"¶ substr "[tx]" "[n]" "1" "[ch]"¶ if "[ch]" "<>" "[c[n]]"¶ gosub "CREATE"¶ gotoline "BAD"¶ endif¶endloop¶alertbox "WELCOME..." "You Are Welcome"¶exit "" ""¶:BAD¶setvar "[tx]" ""
LineColor=0
LineWidth=1
LineStyle=0
FillColor=15856113
FillPattern=0
Font=Arial
FontSize=10
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=3

===========
FROM COSTA RICA
PURA VIDA
CENTRAL AMERICA
User avatar
virger
 
Posts: 524
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Postby aguilar955 » Mon Jun 01, 2009 5:36 pm

This very well.

Error on line.

ObjAction=math "[vez]+1" "" "[vez]"¶if "[vez]" "=" "5"¶ gosub "CREA"¶endif¶loop "1" "4" "[k]"¶ Random "240" "[r]"¶ Random "240" "[g]"¶ Random "240" "[b]"¶

CREA=CREATE

Greetings
aguilar955
 
Posts: 85
Joined: Sat Jan 17, 2009 10:50 am


Return to Sample NeoBook Pubs

Who is online

Users browsing this forum: No registered users and 1 guest