#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Untitled design (7).ico
#AutoIt3Wrapper_Outfile_x64=..\..\Logiciels\WSA-APKManager.Exe
#AutoIt3Wrapper_Res_Comment=WSA APK Manager
#AutoIt3Wrapper_Res_Description=WSA APK Manager
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_ProductName=WSA APK Manager
#AutoIt3Wrapper_Res_ProductVersion=1.0.0.0
#AutoIt3Wrapper_Res_CompanyName=Tyleo Softwares
#AutoIt3Wrapper_Res_LegalCopyright=Tyleo Softwares
#AutoIt3Wrapper_Res_LegalTradeMarks=Tyleo Softwares
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include "MetroGUI-UDF\MetroGUI_UDF.au3"
#include "TyleoAboutMe.au3"

#cs

    Tyleo Software Project Base v1
    Created With CNP and DevTools Base Folder

    All Softwares created with this base are Free and Open Sourced.
    Join our Guilded Server ! https://www.guilded.gg/i/2DRlM7Mp

#ce

if RegRead("HKEY_CURRENT_USER\Software\Classes\wsa","URL Protocol") Then
    MsgBox(0+16,"Error !","No WSA Installed on your System.")
    Exit(1)
Else
    ; OK
EndIf

$State = " STABLE"

$CurrentVer = FileGetVersion(@AutoItExe)
$CurrentVer = $CurrentVer & $State

$ProgName = "WSA-APK Installer/Manager " & $CurrentVer & @CRLF & "This App are not affiliated" & @CRLF & "with Microsoft Corporation or WSA Devs"

#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include "WinAccent.au3"
#Region ### START Koda GUI section ### Form=

$WSAAPK_Data = @ScriptDir

if Run("adb connect 127.0.0.1:58526") Then
    
Else
    MsgBox(0+16,"Error, No ADB","No ADB Installed.")
EndIf

if FileExists($WSAAPK_Data) Then
    ; Nothing
Else
    DirCreate($WSAAPK_Data)
EndIf

$Apks = $WSAAPK_Data & "\APK"
if FileExists($Apks) Then
    ;Nothing
Else
    DirCreate($Apks)
    MsgBox(0,"Data Folder Created","Add your APK's in it using explorer or this program." & @CRLF & "Location : " & @AppDataDir & "\WSA-Tyleo")
EndIf


Global $GUI = GUICreate("WSA-APK Installer/Manager " & $CurrentVer, 474, 437, 261, 174)
Global $Actions = GUICtrlCreateMenu("Actions")
Global $Actions_All = GUICtrlCreateMenuItem("Install All", $Actions)
Global $Actions_Sel = GUICtrlCreateMenuItem("Install Selected", $Actions)
Global $Actions_S1  = GUICtrlCreateMenuItem("",$Actions)
Global $Actions_Connect = GUICtrlCreateMenuItem("Connect ADB" & @TAB & "127.0.0.1:58526",$Actions)
Global $Actions_ConnectCustom = GUICtrlCreateMenuItem("Connect ADB" & @TAB & "Custom IP/Port",$Actions)
Global $Actions_S2  = GUICtrlCreateMenuItem("",$Actions)
Global $Actions_FixApkName = GUICtrlCreateMenuItem("Fix APK Spaces",$Actions)
Global $Actions_FIxAllSpaces = GUICtrlCreateMenuItem("Fix All APK Names Spaces",$Actions)
Global $Manage = GUICtrlCreateMenu("Manage")
Global $Manage_Add = GUICtrlCreateMenuItem("Add APK", $Manage)
Global $Manage_Remove = GUICtrlCreateMenuItem("Remove APK", $Manage)
Global $Manage_Rename = GUICtrlCreateMenuItem("Rename APK", $Manage)
Global $About = GUICtrlCreateMenu("About")
Global $About_Dev = GUICtrlCreateMenuItem("About Us",$About)
Global $About_Ver = GUICtrlCreateMenuItem("WSA-APK Installer/Manager " & $CurrentVer,$About)
GUICtrlSetState($About_Ver, $GUI_DISABLE)
Global $ApkBank = GUICtrlCreateList("", 0, 0, 473, 418, -1, 0)
GUICtrlSetBkColor($ApkBank,$CurrentAccent)
GUICtrlSetColor($ApkBank,0xFFFFFF)
GUICtrlSetFont($ApkBank,13,900,"","Segoe UI")

$ButtonBKColor = $CurrentAccent

EmptyBankCheck($ApkBank)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

RefreshApkBank($Apks, $ApkBank)

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

  Case $Manage_Add
   $lBrowse = FileSaveDialog("Select APK File to Add",@DesktopDir,"APK (*.apk)")
   ConsoleWrite($lBrowse)
   FileCopy($lBrowse, @ScriptDir & "\APK")
   RefreshApkBank($Apks, $ApkBank)

   EmptyBankCheck($ApkBank)

  Case $Manage_Remove

    $dTarg = GUICtrlRead($ApkBank)
    $dTargFull = @ScriptDir & "\APK\" & $dTarg & ".apk"
    $Confirm = MsgBox(4,"Remove ?","Are you sure to remove " & $dTarg & " ?")

   if $Confirm = "6" Then
    FileDelete($dTargFull)
    RefreshApkBank($Apks, $ApkBank)
   EndIf

   EmptyBankCheck($ApkBank)

  Case $Manage_Rename
   $rTarg = GUICtrlRead($ApkBank)
   $rTargFull = @ScriptDir & "\APK\" & $rTarg & ".apk"
   $rTargNewName = InputBox("Rename APK","Type the new name. Never include extension (.apk)",$rTarg)
   FileMove(@ScriptDir & "\APK\" & $rTarg & ".apk", @ScriptDir & "\APK\" & $rTargNewName & ".apk")
   FixApkSpaces(@ScriptDir & "\APK\" & $rTargNewName & ".apk")
   RefreshApkBank($Apks, $ApkBank)

  Case $Actions_Connect
   Run("adb connect 127.0.0.1:58526", @SW_HIDE)

  Case $Actions_ConnectCustom
   $CustomIP = InputBox("Type Custom IP:Port","IP:Port","127.0.0.1:58526","",120,120)
   Run("adb connect " & $CustomIP, @SW_HIDE)

  Case $Actions_Sel
   $InstallApk = GUICtrlRead($ApkBank)
   Run("adb install " & ".\APK\" & $InstallApk & ".apk")

  Case $Actions_FixApkName
   $ApkToFix = GUICtrlRead($ApkBank)
   FixApkSpaces($ApkToFix)
   RefreshApkBank($Apks, $ApkBank)

  Case $Actions_FIxAllSpaces
   $iApks_pool = _FileListToArray(@ScriptDir & "\APK","*.apk",$FLTA_FILES,True)
   For $i In $iApks_pool
       FixApkSpacesEx2($i)
       ConsoleWrite(@CRLF & $i)
   Next
   RefreshApkBank($Apks, $ApkBank)

  Case $Actions_All
   GUISetState(@SW_HIDE,$GUI)
   $iApks_pool = _FileListToArray(".\APK\","*.apk",$FLTA_FILES,True)
   For $i In $iApks_pool
       FixApkSpaces($i)
   Next

   $iApks_pool = _FileListToArray(".\APK\","*.apk",$FLTA_FILES,False)
   For $i In $iApks_pool
       RunWait("adb install " & $i,@ScriptDir & "\APK", @SW_HIDE)
   Next
   RefreshApkBank($Apks, $ApkBank)
   GUISetState(@SW_SHOW,$GUI)
   MsgBox(0,"","Installation Ended.")

  Case $About_Dev
   TyleoAbout($ProgName)

 EndSwitch
WEnd

Func RefreshApkBank($Source, $Controler)
    GUICtrlSetData($Controler,"")
    $fApks_pool = _FileListToArray($Source,"*.apk",$FLTA_FILES,False)
    $fApks = _ArrayDelete($fApks_pool,0)
    $fApks = _ArrayTrim($fApks_pool,4,1)
    $fApks = _ArrayToString($fApks_pool)
    GUICtrlSetData($Controler,$fApks)
    Return True
EndFunc

Func FixApkSpaces($Target)
    $fName = $Target & ".apk"
    $fName = StringReplace($fName, " ", "-")
    FileMove(".\APK\" & $Target & ".apk",".\APK\" & $fName)
    ConsoleWrite(@CRLF & "Tried to process : " & $fName & "BY|ON" & $Target)
    Return True
EndFunc

Func FixApkSpacesEx2($Target)
    $fName = $Target
    $fName = StringReplace($fName, " ", "-")
    FileMove($Target,".\APK\" & $fName & ".apk")
    ConsoleWrite(@CRLF & "Tried to process : " & $fName & "BY|ON" & $Target)
    Return True
EndFunc

Func EmptyBankCheck($Controler)
    $BankData = GUICtrlRead($Controler)
    if $BankData = "-1" Then
        GUICtrlSetData($Controler,"No APK Files, Add Files with menu !")
        Return 76
    EndIf
EndFunc