Captcha (GUI) - 입력코드 확인

오토핫키로  만든 자동등록 확인하기

1. ; Captcha example by Titan
2.  
3. Gui, + ToolWindow
4. Gui, Add, Text, x10 y10 w75, Enter the code:
5. Pass := Captcha(90, 10)
6. Gui, Add, Edit, vInput x90 y50 w50
7. Gui, Add, Button, gGo default x145 y50 h20, Enter
8. Gui, Show, , Captcha
9. Return
10.  
11. Go:
12. Gui, Submit, NoHide
13. If Input != % Pass
14.   MsgBox, 16, Error, You didnt enter the code correctly!`n`nThe code was: %Pass%
15. else
16.   MsgBox, 64, Cool, done!`n`nThe code was: %Pass%
17. Return
18.  
19. ~* Esc::
20. GuiClose:
21. ExitApp
22.  
23. Captcha(x, y, len=6, lvl=0, gui=1)
24. {
25.   ; Captcha by Titan
26.   w := len * 15 + 10
27.   h := 35
28.   Gui, %gui%: Add, Text, Border Section x%x% y%y% w%w% h%h%
29.   xw := x + 10
30.   Loop, % len
31.   {
32.     Gui, Font, % Random("Styles") "w" Random("Number", 1, 1000) "s" Random("Number", 8, 12) "c" Random("Colour"), Random("Font")
33.     key := Pass(1)
34.     keys = %keys%%key%
35.     yw := "ys+" Random("Number", 3, 10)
36.     Gui, %gui%: Add, Text, BackgroundTrans x%xw% %yw%, % key
37.     xw += % Random("Number", 10, 15)
38.   }
39.   Gui, Font
40.   if (lvl = 1)
41.   {
42.     yw = 5
43.     Loop, % ( Floor(w/3))
44.       dots = %dots%.
45.     Loop, 5
46.     {
47.       Gui, Font, % "w1" "c" Random("Colour")
48.       Gui, %gui%: Add, Text, BackgroundTrans + Wrap x%x% y%yw% w3, % dots
49.       yw += 5
50.     }
51.     Gui, Font
52.   }
53.   Return, % keys
54. }
55.  
56. Pass(len=5, chars=0)
57. {
58.   ; Captcha module by Titan
59.   chAlpha = abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
60.   chNum = 1234567890
61.   chAlphaNum = %chAlpha%%chNum%
62.   If chars in 0,alphanum
63.     StringSplit, list, chAlphaNum
64.   else If chars in 1, alpha
65.     StringSplit, list, chAlpha
66.   else If chars in 2,num
67.     StringSplit, list, chNum
68.   Loop, % len
69.   {
70.     Random, rnd, 1, % list0
71.     i := list%rnd%
72.     pass = %pass%%i%
73.   }
74.   Return, pass
75. }
76.  
77. Random( type, p1=0, p2=0)
78. {
79.   ; Captcha module by Titan
80.   If type in Number
81.     Random, r, % p1, % p2
82.   else If type in Font
83.   {
84.     Fonts = Arial,Courier,Courier New,Lucida Console,MS Sans Serif,MS Serif,Tahoma,Times New Roman
85.     StringSplit, Fonts, Fonts, `,
86.     Random, r, 1, %Fonts0%
87.     r := Fonts%r%
88.   }
89.   else If type in Colour
90.   {
91.     Colours = Black,Green,Silver,Lime,Gray,Olive,White,Yellow,Maroon,Navy,Red,Blue,Purple,Teal,Fuchsia,Aqua
92.     StringSplit, Colours, Colours, `,
93.     Random, r, 1, %Colours0%
94.     r := Colours%r%
95.   }
96.   else If type in Styles
97.   {
98.     Styles = bold, underline, norm,0x7,0x4,0x1,0x10,0x11,0x8,0x5,0xC,0x80,0x100,0x2,0x1000,0x9,0x6
99.     StringSplit, Styles, Styles, `,
100.     Random, r, 1, %Styles0%
101.     r := Styles%r%
102.   }
103.   Return, % r
104. }
105.