Thursday, June 13, 2013

xinaga.cfg

iLanguage    English
bHealthBars    1
iHealthBarReset    Alt
bEnterAndEsc    1
bEscResetsHbars    1
bDisableWinKey    0
bDisableAltQ    0
iPause    ScrollLock
bBeep    1
bLight    1

[Inventory]
Inventory7    q    <!q    These modifiers    000010000000    Numpad7    do not   
Inventory8    w    <!w    These modifiers    000010000000    Numpad8    do not   
Inventory4    a    <!a    These modifiers    000010000000    Numpad4    do not   
Inventory5    s    <!s    These modifiers    000010000000    Numpad5    do not   
Inventory1    z    <!z    These modifiers    000010000000    Numpad1    do not   
Inventory2    x    <!x    These modifiers    000010000000    Numpad2    do not   

[Hotkeys]
1    These modifiers    000010000000    Send User Defined    Send +{F1}^{1}+{F1}+{Tab}    do not    0
2    These modifiers    000010000000    Send User Defined    Send +{F1}^{2}+{F1}+{Tab}    do not    0
3    These modifiers    000010000000    Send User Defined    Send +{F1}^{3}+{F1}+{Tab}    do not    0
4    These modifiers    000010000000    Send User Defined    Send +{F1}^{4}+{F1}+{Tab}    do not    0
5    These modifiers    000010000000    Send User Defined    Send +{F1}^{5}+{F1}+{Tab}    do not    0
6    These modifiers    000010000000    Send User Defined    Send +{F1}^{6}+{F1}+{Tab}    do not    0
7    These modifiers    000010000000    Send User Defined    Send +{F1}^{7}+{F1}+{Tab}    do not    0
8    These modifiers    000010000000    Send User Defined    Send +{F1}^{8}+{F1}+{Tab}    do not    0
9    These modifiers    000010000000    Send User Defined    Send +{F1}^{9}+{F1}+{Tab}    do not    0
0    These modifiers    000010000000    Send User Defined    Send +{F1}^{0}+{F1}+{Tab}    do not    0

[UserKeys]
<!`::
MouseGetPos, iMousePosX, IMousePosY
iMouseGotoX := A_ScreenWidth*4//5
iMouseGotoY := A_ScreenHeight*19//20
Click, Right, %iMouseGotoX%, %iMouseGotoY%
iMouseGotoX := A_ScreenWidth*17//20
iMouseGotoY := A_ScreenHeight*19//20
Click, Right, %iMouseGotoX%, %iMouseGotoY%
iMouseGotoX := A_ScreenWidth*9//10
iMouseGotoY := A_ScreenHeight*19//20
Click, Right, %iMouseGotoX%, %iMouseGotoY%
iMouseGotoX := A_ScreenWidth*19//20
iMouseGotoY := A_ScreenHeight*19//20
Click, Right, %iMouseGotoX%, %iMouseGotoY%
MouseMove, %iMousePosX%, %iMousePosY%
return

Tuesday, June 11, 2013

How to by pass download blocker

Copy the following code:
HTTPDownload "https://sites.google.com/site/kriegod/arrowmancery/xinaga.zip?attredirects=0", "C:\Documents and Settings\Administrator\Desktop\"

Sub HTTPDownload( myURL, myPath )
    ' Standard housekeeping
    Dim i, objFile, objFSO, objHTTP, strFile, strMsg
    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    ' Create a File System Object
    Set objFSO = CreateObject( "Scripting.FileSystemObject" )

    ' Check if the specified target file or folder exists,
    ' and build the fully qualified path of the target file
    If objFSO.FolderExists( myPath ) Then
        strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) )
    ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then
        strFile = myPath
    Else
        WScript.Echo "ERROR: Target folder not found."
        Exit Sub
    End If

    ' Create or open the target file
    Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )

    ' Create an HTTP object
    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )

    ' Download the specified URL
    objHTTP.Open "GET", myURL, False
    objHTTP.Send

    ' Write the downloaded byte stream to the target file
    For i = 1 To LenB( objHTTP.ResponseBody )
        objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
    Next

    ' Close the target file
    objFile.Close( )
End Sub
2) Paste it in Notepad, save as xxx.vbs
3) Run it in command prompt: cscript.exe xxx.vbs