Click on SHOW to see AutoIt source for this script
Description:
This AutoIt script is to show to you how easy is to start your AsCabal client with out annoying AdikDefense thing.
How to run AutoIt script:
Save this script in your AsCabal folder and run/compile or edit your path to AdikDefense.exe
How to run AsCabal Launcher:
Extract file to your AsCabal folder and run.
PHP Code:
; Launching game client
Bypass_AdikDefense()
; Function Name: Bypass_AdikDefense()
; Author(s): ~dNkN! aka AutoItDude
Func Bypass_AdikDefense()
Local $PID = Run("AdikDefense.exe ADFlag")
Local $Done = 0
If $PID=0 Then
MsgBox(0,"Error","Could not start AdikDefense.exe")
Exit
EndIf
Do
$ProcGetChildren =_ProcessGetChildren($PID)
If IsArray($ProcGetChildren) Then
If $ProcGetChildren[0][0] = 3 Then
ProcessClose("AdikDefense.exe")
For $i=1 To UBound($ProcGetChildren)-2
ProcessClose($ProcGetChildren[$i][0])
Next
$Done = 1
EndIf
EndIf
Sleep(1000)
Until $Done <> 0
EndFunc
; Function Name: _ProcessGetChildren()
; Author(s): SmOke_N (Ron Nielsen)
Func _ProcessGetChildren($i_pid)
Local Const $TH32CS_SNAPPROCESS = 0x00000002
Local $a_tool_help = DllCall("Kernel32.dll", "long", "CreateToolhelp32Snapshot", "int", $TH32CS_SNAPPROCESS, "int", 0)
If IsArray($a_tool_help) = 0 Or $a_tool_help[0] = -1 Then Return SetError(1, 0, $i_pid)
Local $tagPROCESSENTRY32 = _
DllStructCreate _
( _
"dword dwsize;" & _
"dword cntUsage;" & _
"dword th32ProcessID;" & _
"uint th32DefaultHeapID;" & _
"dword th32ModuleID;" & _
"dword cntThreads;" & _
"dword th32ParentProcessID;" & _
"long pcPriClassBase;" & _
"dword dwFlags;" & _
"char szExeFile[260]" _
)
DllStructSetData($tagPROCESSENTRY32, 1, DllStructGetSize($tagPROCESSENTRY32))
Local $p_PROCESSENTRY32 = DllStructGetPtr($tagPROCESSENTRY32)
Local $a_pfirst = DllCall("Kernel32.dll", "int", "Process32First", "long", $a_tool_help[0], "ptr", $p_PROCESSENTRY32)
If IsArray($a_pfirst) = 0 Then Return SetError(2, 0, $i_pid)
Local $a_pnext, $a_children[11][2] = [[10]], $i_child_pid, $i_parent_pid, $i_add = 0
$i_child_pid = DllStructGetData($tagPROCESSENTRY32, "th32ProcessID")
If $i_child_pid <> $i_pid Then
$i_parent_pid = DllStructGetData($tagPROCESSENTRY32, "th32ParentProcessID")
If $i_parent_pid = $i_pid Then
$i_add += 1
$a_children[$i_add][0] = $i_child_pid
$a_children[$i_add][1] = DllStructGetData($tagPROCESSENTRY32, "szExeFile")
EndIf
EndIf
While 1
$a_pnext = DLLCall("Kernel32.dll", "int", "Process32Next", "long", $a_tool_help[0], "ptr", $p_PROCESSENTRY32)
If IsArray($a_pnext) And $a_pnext[0] = 0 Then ExitLoop
$i_child_pid = DllStructGetData($tagPROCESSENTRY32, "th32ProcessID")
If $i_child_pid <> $i_pid Then
$i_parent_pid = DllStructGetData($tagPROCESSENTRY32, "th32ParentProcessID")
If $i_parent_pid = $i_pid Then
If $i_add = $a_children[0][0] Then
ReDim $a_children[$a_children[0][0] + 11][2]
$a_children[0][0] = $a_children[0][0] + 10
EndIf
$i_add += 1
$a_children[$i_add][0] = $i_child_pid
$a_children[$i_add][1] = DllStructGetData($tagPROCESSENTRY32, "szExeFile")
EndIf
EndIf
WEnd
If $i_add <> 0 Then
ReDim $a_children[$i_add + 1][2]
$a_children[0][0] = $i_add
EndIf
DllCall("Kernel32.dll", "int", "CloseHandle", "long", $a_tool_help[0])
If $i_add Then Return $a_children
Return SetError(3, 0, 0)
EndFunc
Description:
This AutoIt script is to show to you how easy is to start your AsCabal client with out annoying AdikDefense thing.
How to run AutoIt script:
Save this script in your AsCabal folder and run/compile or edit your path to AdikDefense.exe
How to run AsCabal Launcher:
Extract file to your AsCabal folder and run.