#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
Suspend, On
Menu, Tray, NoStandard
Menu, tray, Add, Exit, Byescript
Menu, tray, Add, Show/Hide GUI, GUIshow
Menu, Tray ,Default, Show/Hide GUI
Iniread, Isolated, %A_ScriptDir%\conf.ini, Sector01, Isolated
Iniread, Dir, %A_ScriptDir%\conf.ini, Sector01, Dir
Iniread, Path, %A_ScriptDir%\conf.ini, Sector01, Path
iniread, FirstStart, %A_ScriptDir%\conf.ini, Sector01, FirstStart
If FirstStart=0
{
gosub Option
pause, on
}
Caps:=0
Submitted2 := 0
Gui, +ToolWindow +AlwaysOnTop
Gui, font, q4
Gui, add, checkbox, vCapstate, Auto turn off capslock
Gui, add, text, x10 y25 , You've submitted %Submitted2% _
Gui, add, text, x10 y41, Time Elapsed: %time% minutes
Gui, add, text, x10 y58, Typing speed %speed% wpm
Gui, Add, Button, x10 y82 w50 h50 gstart, START
Gui, add, Button, x68 y82 w95 h20 gpaus, Pause
Gui, add, Button, x68 y108 w95 h20 gByescript, Exit macro
Gui, Add, Button, x10 y135 w75 h20 gTrans, Transparent
Gui, Add, Button, x90 y135 w75 h20 gDaysum, Captchas sum
Gui, Add, Button, x90 y158 w75 h20 gCalc, Profit?
Gui, Add, Button, x10 y158 w75 h20 gAbout, Enable "[./'"
Gui, Add, Button, x10 y182 w156 h40 gfua, ****!!!
Guicontrol, Disable, ****!!!
Menu, MenuBar, Add, Option, Option
Gui, Menu, Menubar
Gui, show ,, Captcher
WinSet, Transparent, 180, Captcher
SetTimer, TimeG, 60000
time:=0
speed:=0
NewSubmitted:=0
return
~Enter::
GuiControl, Text, You've submitted %Submitted2% , % "You've submitted "(Submitted2:=Submitted2+1)" "
, Captcher
GuiControlGet, Caps,, Auto turn off capslock
Sleep 10
If Caps = 1
SetCapslockState, Off
return
paus:
Suspend, Toggle
if (A_IsSuspended)
{
GuiControl, , Pause, Resume
}
else
{
GuiControl, , Resume, Pause
}
return
TimeG:
GuiControl, Text, Time Elapsed: %time% minutes, % "Time Elapsed: "(time:=time+1)" minutes " , Captcher
If time>=1
{
GuiControl, Text, Typing speed %speed% wpm, % "Typing speed "(speed:=Submitted2/time)" wpm" , Captcher
}
Settimer, TimeG, on
return
Trans:
Loop
{
Winget, Translev, Transparent, Captcher
Inputbox, Translev, Set transparent level, Set transparent level of this window - Invisible:0 Opaque: 255 `nCurrent Level: %Translev% `nRecommended >100
If ErrorLevel
break
If ((Translev >255) or (Translev < 100))
Msgbox 100-255
Else
{
WinSet, Transparent, %Translev%, Captcher
Break
}
}
return
Daysum:
Gui, -AlwaysOnTop
FormatTime, Date, DDMM, d/MM
FormatTime, Months, DDMM, MM
Iniread, Submitted1, %A_ScriptDir%\conf.ini, %Date%, Submitted
montot:=0
Loop, 2
If (Submitted%A_Index%+0 == "")
Submitted%A_Index% := 0
Add(Submitted1,Submitted2)
{
return Submitted1+Submitted2
}
NewSubmitted:=Submitted1+Submitted2
Iniwrite, %NewSubmitted%, %A_ScriptDir%\conf.ini, %Date%, Submitted
days:=0
Loop
{
If days = 31
break
days:=days+1
IniRead, mon%days%, %A_ScriptDir%\conf.ini, %days%/%Months%, Submitted
If (mon%days%+0 == "")
mon%days% := 0
montot:=montot+mon%days%
Sleep 10
}
MsgBox, You've typed %NewSubmitted% captchas today`nYou've typed %montot% captchas this month
Gui, +AlwaysOnTop
return
Calc:
Gui, 2:Add, Text, Only enter numbers, don't enter special characters, words, symbols, etc.
Gui, 2:Add, Edit, vCaptchaspeed, How much captcha can you type in a hour ?
Gui, 2:Add, Edit, vMoneyperthousand, How much $ do you get for solving 1000 captcha (Not include currency) ?
Gui, 2:Add, Edit, vWorkingTime, How many hour do you spend doing captcha entry ?
Gui, 2:Add, Button, gcalculate, How much can i make ?
Gui, 2:Show, ,Profit calculator
return
calculate:
Gui, Submit
If Captchaspeed<900 or Captchaspeed>600
typerclass:="slow"
If Captchaspeed<=600
typerclass:="very slow"
If Captchaspeed<1200 or Captchaspeed>900
typerclass:="normal"
If Captchaspeed>1200 or Captchaspeed<=1500
typerclass:="fast"
If Captchaspeed>=1500
typerclass:="super fast"
Profit:=((Captchaspeed*WorkingTime)/1000)*Moneyperthousand
ProfitMonth:=Profit*30
MsgBox You can earn %Profit%$ a day`n %ProfitMonth%$ a month`nYour typing speed is %typerclass%
return
ByeScript:
gosub Daysum
exitapp
return
Confirm:
Gui, Submit, NoHide
Loop, %Dir%
{
IniWrite, %A_LoopFileDir%, %A_ScriptDir%\conf.ini, Sector01, Path
break
}
iniwrite, 1, %A_ScriptDir%\conf.ini, Sector01, FirstStart
IniWrite, %Dir%, %A_ScriptDir%\conf.ini, Sector01, Dir
Gui, Destroy
pause, off
return
Selectfolder:
FileSelectFile, Dir, 1
GuiControl , , Dir , %Dir%
return
SelectfolderO:
FileSelectFile, DirO, 1
GuiControl , , DirO , %DirO%
return
Start:
Suspend, off
If Isolated = 1
{
Run, %A_ScriptDir%\Iso.lnk, %Path%
FileCopyDir, %Path%, C:\Sandbox\
}
else
{
Run, %Dir%, %Path%
}
Guicontrol, Disable, START
return
GUIshow:
Ifwinnotexist, Captcher
Winshow, Captcher
else
winhide, Captcher
return
About:
GuiControl ,, Enable "[./'" , Disabled "[./'"
GuiControl, Disable, Disabled "[./'"
\::BackSpace
'::ScrollLock
[::ScrollLock
/::ScrollLock
,::ScrollLock
-::ScrollLock
return
GuiClose:
goto Byescript
fua:
Random, rand, 1, 25
Urldownloadtofile,
http://www.google.com.vn/intl/vi_ALL/images/logos/images_logo_lg.gif ,%A_Temp%\%rand%.jpg
Gui 2: add, Picture,, %A_Temp%\%rand%.jpg
Gui 2: add, Button, gmore, more
gui 2 : show,, Entertain
return
more:
randold:=rand
Random, rand, 1, 25
Urldownloadtofile,
http://a1.twimg.com/profile_images/73951522/AutoHotkey_logo.gif ,%A_Temp%\%rand%.jpg
guicontrol,, %A_Temp%\%randold%.jpg, %A_Temp%\%rand%.jpg
gui 2: show,, Entertain
return
Option:
Gui, -AlwaysOnTop
Gui 3: Add , Text ,, Path to captcha software:
Gui 3: Add , Edit , r1 vDirO w270 , %Dir%
Gui 3: Add , Button , gSelectFolderO x+ , Browse...
Gui 3: Add , Checkbox , x10 vSbie, Isolate captcha software (Anti-keylog, virus...)
Gui 3: Add , Button , gSave x+ , Save
RegRead, SDir, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Sandboxie, DisplayIcon
StringLen, DirLen, SDir
If DirLen >= 2
Guicontrol, ,Isolate captcha software (Anti-keylog, virus...), 1
Gui 3: show,, Settings
return
Save:
Gui, Submit, Hide
Loop, %Dir%
{
IniWrite, %A_LoopFileDir%, %A_ScriptDir%\conf.ini, Sector01, Path
break
}
iniwrite, 1, %A_ScriptDir%\conf.ini, Sector01, FirstStart
IniWrite, %DirO%, %A_ScriptDir%\conf.ini, Sector01, Dir
If %Sbie%
{
RegRead, SDir, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Sandboxie, DisplayIcon
StringLen, DirLen, SDir
DirLen:=DirLen-10
StringLeft, RealDir, SDir, %DirLen%
RealDir:= RegExReplace(RealDir, "\\$")
If DirLen <= 1
{
Msgbox, 4,, Sandboxie not installed, download ?
Ifmsgbox, Yes
{
Runwait,
http://www.sandboxie.com/SandboxieInstall.exe
FileCreateShortcut, %RealDir%\Start.exe, %A_ScriptDir%\Iso.lnk,%Path%, Iso.exe
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, Software\Microsoft\Windows\CurrentVersion\App Paths\Iso.exe, , %Dir%
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, Software\Microsoft\Windows\CurrentVersion\App Paths\Iso.exe, Path, %Path%
Iniwrite, 1, %A_ScriptDir%\conf.ini, Sector01, Isolated
exitapp
}
Else
Guicontrol, ,Isolate captcha software (Anti-keylog, virus...), 0
}
Else
{
FileCreateShortcut, %RealDir%\Start.exe, %A_ScriptDir%\Iso.lnk,%Path%, Iso.exe
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, Software\Microsoft\Windows\CurrentVersion\App Paths\Iso.exe, , %Dir%
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, Software\Microsoft\Windows\CurrentVersion\App Paths\Iso.exe, Path, %Path%
Iniwrite, 1, %A_ScriptDir%\conf.ini, Sector01, Isolated
}
}
Gui, +AlwaysOnTop
pause ,off
Gui, Destroy
return
