Miscellaneous small interfaces

[timur77]

One is a comic program,

The second is an intermediate interface for launching a hidden program

[timur77]

Comic program, kidding friends

nomainwin
WindowWidth = 300
WindowHeight = 150
UpperLeftX = DisplayWidth/2-WindowWidth/2
UpperLeftY = DisplayHeight/2-WindowHeight/2
i=10
timer 1000, [sch]
button #win.gb.btt, "Отмена", [quit], UL, 105, 70, 80, 25
graphicbox #win.gb ,0,0,300,150
open "I am VIRUS!!!" for window_nf as #win
#win.gb, "font Arial 5 15"
#win.gb, "place 10 20"
#win.gb, "\After 10 seconds, the system will be formatted!"
#win.gb.btt, "Cancel"
#win, "trapclose [exit]"
#win.gb, "when mouseMove [m1]"
wait
[exit]
   notice "Did not guess!"+chr$(13)+"The system is formatted."
wait
[m1]
x=MouseX
y=MouseY
if x>80 and x<200 and y>50 and y<100 Then
   if x>145 and x<200 and y>50 and y<100 Then
       #win.gb.btt , "!locate 105 70 30 25"
       #win, "refresh"

   else
       #win.gb.btt , "!locate 155 70 30 25"
       #win, "refresh"

   end if
else
   #win.gb.btt , "!locate 105 70 80 25"
   #win, "refresh"

End If
wait
[sch]
#win.gb, "place 10 20"
if i=0 then goto [skelet]
i=i-1
#win.gb, "\After "+str$(i)+" seconds, the system will be formatted!    "
wait
[skelet]
#win.gb.btt , "!hide"
#win.gb, "cls"
#win.gb, "fill black"
#win.gb, "down; size 1; color red"
#win.gb, "backcolor red"
#win.gb, "place 145 25"
#win.gb, "circlefilled 20"
#win.gb, "place 135 40"
#win.gb, "boxfilled 155 55"
#win.gb, "size 8"
#win.gb, "place 115 55"
#win.gb, "goto 175 80"
#win.gb, "place 175 55"
#win.gb, "goto 115 80"
#win.gb, "set 113 57"
#win.gb, "set 117 53"
#win.gb, "set 178 78"
#win.gb, "set 173 83"
#win.gb, "set 173 53"
#win.gb, "set 177 57"
#win.gb, "set 113 78"
#win.gb, "set 117 83"

#win.gb, "size 1"
#win.gb, "backcolor black"
#win.gb, "place 138 23"
#win.gb, "circlefilled 7"
#win.gb, "place 152 23"
#win.gb, "circlefilled 7"

wait
[quit]
   close #win
end



[timur77]

An intermediate interface that launches a hidden program after entering a password. INTERFACE DRAWED
password - 1234567890
Backspace and Enter also work.
nomainwin
d=DisplayWidth
sh=DisplayHeight
WindowWidth = 360
WindowHeight = 240
UpperLeftX=d/2-WindowWidth/2
UpperLeftY=sh/2-WindowHeight/2

chislo$=""
star$=""

statictext #win.st1, "Enter activation code:", 75, 50, 250, 28
'textbox #win.tb1,  75,  80, 190,  25
button #win.b1, "Activate", [check], UL, 75, 120, 170, 25
open "Activation Ripper Sound" for graphics_nf_nsb as #win
#win, "trapclose [exit]"
#win, "when characterInput [letter]"
#win.st1 "!font Arial 12"
'#win.tb1 "!font Arial 12"
#win.b1 "!font Arial 12"

[begin]
#win, "size 1"
#win, "down"
#win, "color 0 0 0"
#win, "backcolor 255 255 255"
#win, "place 75 80"
#win, "boxfilled 265 105"
#win, "setfocus"

[cursor]
#win, "color 0 0 0"
#win, "place 76 100"
#win, "\"; star$;"|  "
a1=time$("ms")
[pause1]
   scan
if a1+1000>time$("ms") then goto [pause1]
#win, "place 76 100"
#win, "\"; star$;"    "
a1=time$("ms")
[pause2]
   scan
if a1+500>time$("ms") then goto [pause2]
goto [cursor]

[letter]
buf$=Inkey$
aas=asc(buf$)
if aas=13 Then goto [check]
if aas=8 and len(star$)>0 Then
   star$=mid$(star$,1,len(star$)-1)
   chislo$=mid$(chislo$,1,len(chislo$)-1)
end if
if aas>31 and len(star$)<26 Then
   chislo$=chislo$+buf$
   star$=star$+"*"
end if
goto [cursor]

[check]
if chislo$<>"1234567890" Then
   notice "Activation error!" + chr$(13) + "Invalid activation code!!!"
   chislo$=""
   star$=""
   goto [begin]
end if
run "C:\Windows\System32\calc.exe"

[exit]
close #win
end

[tsh73]

Second one is nice. Handling backSpace and stuff.

First one is interesting to understand (why actually button does not activates with Space or Enter?)
and I never seen button in LB behave like this
but probably I'm too old to see it funny.