Redeem codes

[ScripCody]

with about 10 quadrillion code possibility, if you can check 1 code in 1 second, it will take 1.1 days, which is not too bad. just need to make the program more automated, like make the mouse click the redeem code button, then read code from file and enter code, click redeem button, if invalid, click close button, click redeem code again, read next line of code from file and so on. if it becomes fully automated like this, then it will be able to cycle all codes and you just leave your pc running to get some free codes.

[YOUCEFHam]

with about 10 quadrillion code possibility, if you can check 1 code in 1 second, it will take 1.1 days, which is not too bad. just need to make the program more automated, like make the mouse click the redeem code button, then read code from file and enter code, click redeem button, if invalid, click close button, click redeem code again, read next line of code from file and so on. if it becomes fully automated like this, then it will be able to cycle all codes and you just leave your pc running to get some free codes.

Thank for the idea,

This is the code you want, just install AUTOHOTKEY, and create a new script then replace it with this code.

Just follow instruction and don't click your mouse when you start redeem.

Put the codes inside a text file under the name "codes.txt", put it next to the script.

 

;
; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win7
; Author:         YoucefHam <GHOST_0665@hotmail.com>
;
; Script Function:
;    Automatically redeem codes for GHOST RECON PHANTMS.
;
#InstallMouseHook
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
CoordMode, ToolTip, Screen
SetMouseDelay, 15
ScriptName := A_ScriptName
StringReplace, ScriptName, ScriptName, .ahk,, All
StringReplace, ScriptName, ScriptName, .exe,, All
FileReadLine, line, %A_ScriptDir%\codes.txt, %A_Index%
n = 0
k = 0
p = 1
i = 1
rf = 1
txt = Now press Numpad(+) to star redeem.
SetTimer, Check, 300
return
NumpadAdd::
{
    txt = Press Ctrl+DELETE to stop.
    BlockInput, mousemove
    while i <= k
    {
        n += 1
        IniRead,mx, %ScriptName%.ini, REDEEM COUPON, X
        IniRead,my, %ScriptName%.ini, REDEEM COUPON, Y
        MouseMove, %mx%, %my%
        Send, {LButton Down}
        Sleep, 100
        Send, {LButton Up}
        Sleep, 600
        coden := code%n%
        Send, %coden%
        Sleep, 400
        IniRead,mx, %ScriptName%.ini, REDEEM NOW, X
        IniRead,my, %ScriptName%.ini, REDEEM NOW, Y
        MouseMove, %mx%, %my%
        Send, {LButton Down}
        Sleep, 100
        Send, {LButton Up}
        Sleep, 600
        IniRead,mx, %ScriptName%.ini, CLOSE, X
        IniRead,my, %ScriptName%.ini, CLOSE, Y
        MouseMove, %mx%, %my%
        Send, {LButton Down}
        Sleep, 100
        Send, {LButton Up}
        Sleep, 600
        i += 1
        if i > k
        {
            BlockInput, mousemoveoff
            break
        }
    }
    BlockInput, mousemoveoff
}
return

NumpadMult::
if rf = 1
{
    loop
    {
        FileReadLine, line, %A_ScriptDir%\codes.txt, %A_Index%
        if ErrorLevel
        {
            rf = 0
            break
        }
        StringReplace, line, line, -,, All
        code%A_Index% := line
        k += 1
    }
    p = 5
    rf = 0
}
return

^Numpad1::
if p = 1
{
    MouseGetPos, mx, my
    IniWrite, %mx%, %ScriptName%.ini , REDEEM COUPON, X
    IniWrite, %my%, %ScriptName%.ini , REDEEM COUPON, Y
    Send, {LButton Down}
    Sleep, 200
    Send, {LButton Up}
    Sleep, 700
    p = 2
}
return

^Numpad2::
if p = 2
{
    MouseGetPos, mx, my
    IniWrite, %mx%, %ScriptName%.ini , REDEEM NOW, X
    IniWrite, %my%, %ScriptName%.ini , REDEEM NOW, Y
    Send, {LButton Down}
    Sleep, 200
    Send, {LButton Up}
    Sleep, 700
    p = 3
}
return

^Numpad3::
if p = 3
{
    MouseGetPos, mx, my
    IniWrite, %mx%, %ScriptName%.ini , CLOSE, X
    IniWrite, %my%, %ScriptName%.ini , CLOSE, Y
    Send, {LButton Down}
    Sleep, 200
    Send, {LButton Up}
    Sleep, 700
    p = 4
}
return

Check:
{
    if p = 1
        ToolTip,Move the mouse to "REDEEM COUPON" and press Ctrl+Numpad(1) to save  position.,,,2
    if p = 2
        ToolTip,Move the mouse to "REDEEM NOW" and press Ctrl+Numpad(2) to save position.,,,2
    if p = 3
        ToolTip,Move the mouse to "CLOSE / OK" and press Ctrl+Numpad(3) to save position.,,,2
    if p = 4
        ToolTip,Press Numpad(*) to load your codes from the file.,,,2
    if p = 5
    {
        Tooltip, Code N°:       %n%/%k%`nCreated by YoucefHam`n     WWW.MPGH.NET`n/       Read text file`n+ or -      Change code`n*    Entre the code`n, 0, 0,1
        ToolTip,%txt%,,,2
    }
}
return

^Delete::
{
BlockInput, mousemoveoff
ExitApp
}
return

[FoXe76]

Realy useful !
Thx YoucefHam

[fire100]

with about 10 quadrillion code possibility, if you can check 1 code in 1 second, it will take 1.1 days, which is not too bad. just need to make the program more automated, like make the mouse click the redeem code button, then read code from file and enter code, click redeem button, if invalid, click close button, click redeem code again, read next line of code from file and so on. if it becomes fully automated like this, then it will be able to cycle all codes and you just leave your pc running to get some free codes.

Or find the fucntion that send the redeem key and check the return value. x10 times faster.

[ScripCody]

You are genius, man! It worked.

One problem........my previous calculation is wrong. There are 36^16 = 7,958,661,109,946,400,884,391,936 code possibilities which will take lifetime to go through.