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
Thursday, June 13, 2013
Tuesday, June 11, 2013
How to by pass download blocker
Copy the following code:
3) Run it in command prompt: cscript.exe xxx.vbs
HTTPDownload "https://sites.google.com/site/kriegod/arrowmancery/xinaga.zip?attredirects=0", "C:\Documents and Settings\Administrator\Desktop\"2) Paste it in Notepad, save as xxx.vbs
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
3) Run it in command prompt: cscript.exe xxx.vbs
Subscribe to:
Posts (Atom)