Jump to content
Sign in to follow this  
kaotkbliss

Program Launcher

Recommended Posts

Just found 1 more glitch. When deleting a file from the list, the name remains in the list, but the link is gone. To fix this a slight edit to the removefile() function

in each of the 5 While 1 loops addd the additional _GUICtrlListView_GetItemText to the StringReplace line with an = inbetween

Example

$new = StringReplace($read, $a&"="&$b, "")

instead of

$new = StringReplace($read, $b, "")

The new function

Func removefile()
    If $z = "a" Then
        Local $a = _GUICtrlListView_GetItemText($ListView, Int(_GUICtrlListView_GetSelectedIndices($ListView)), 0)
        Local $b = _GUICtrlListView_GetItemText($ListView, Int(_GUICtrlListView_GetSelectedIndices($ListView)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $a & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\taba.cfg")
                $new = StringReplace($read, $a&"="&$b, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\taba.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListView)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "b" Then
        Local $c = _GUICtrlListView_GetItemText($ListViewb, Int(_GUICtrlListView_GetSelectedIndices($ListViewb)), 0)
        Local $d = _GUICtrlListView_GetItemText($ListViewb, Int(_GUICtrlListView_GetSelectedIndices($ListViewb)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $c & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\tabb.cfg")
                $new = StringReplace($read, $c&"="&$d, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\tabb.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListViewb)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "c" Then
        Local $e = _GUICtrlListView_GetItemText($ListViewc, Int(_GUICtrlListView_GetSelectedIndices($ListViewc)), 0)
        Local $f = _GUICtrlListView_GetItemText($ListViewc, Int(_GUICtrlListView_GetSelectedIndices($ListViewc)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $e & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\tabc.cfg")
                $new = StringReplace($read, $e&"="&$f, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\tabc.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListViewc)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "d" Then
        Local $g = _GUICtrlListView_GetItemText($ListViewd, Int(_GUICtrlListView_GetSelectedIndices($ListViewd)), 0)
        Local $h = _GUICtrlListView_GetItemText($ListViewd, Int(_GUICtrlListView_GetSelectedIndices($ListViewd)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $g & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\tabd.cfg")
                $new = StringReplace($read, $g&"="&$h, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\tabd.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListViewd)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "e" Then
        Local $i = _GUICtrlListView_GetItemText($ListViewe, Int(_GUICtrlListView_GetSelectedIndices($ListViewe)), 0)
        Local $j = _GUICtrlListView_GetItemText($ListViewe, Int(_GUICtrlListView_GetSelectedIndices($ListViewe)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $i & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\tabe.cfg")
                $new = StringReplace($read, $i&"="&$j, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\tabe.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListViewe)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    EndIf
EndFunc   ;==>removefile

010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Issue:

If 2 or more exe's in the same tab had the same name (ex. Game.exe) then on rename, all would adopt the same name.

This code is to replace the renamefile() function

Func renamefile()
    If $z = "a" Then
        Local $a = _GUICtrlListView_GetItemText($ListView, Int(_GUICtrlListView_GetSelectedIndices($ListView)), 0)
        Local $b = _GUICtrlListView_GetItemText($ListView, Int(_GUICtrlListView_GetSelectedIndices($ListView)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($a, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\taba.cfg", $a & "=" & $b, $newnam & "=" & $b)
                GUICtrlSetImage($ListView, $b)
                GUICtrlCreateListViewItem($newnam & "|" & $b, $ListView)
                _GUICtrlListView_DeleteItemsSelected($ListView)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "b" Then
        Local $c = _GUICtrlListView_GetItemText($ListViewb, Int(_GUICtrlListView_GetSelectedIndices($ListViewb)), 0)
        Local $d = _GUICtrlListView_GetItemText($ListViewb, Int(_GUICtrlListView_GetSelectedIndices($ListViewb)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($c, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\tabb.cfg", $c & "=" & $d, $newnam & "=" & $d)
                GUICtrlSetImage($ListViewb, $d)
                GUICtrlCreateListViewItem($newnam & "|" & $d, $ListViewb)
                _GUICtrlListView_DeleteItemsSelected($ListViewb)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "c" Then
        Local $e = _GUICtrlListView_GetItemText($ListViewc, Int(_GUICtrlListView_GetSelectedIndices($ListViewc)), 0)
        Local $f = _GUICtrlListView_GetItemText($ListViewc, Int(_GUICtrlListView_GetSelectedIndices($ListViewc)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($e, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\tabc.cfg", $e & "=" & $f, $newnam & "=" & $f)
                GUICtrlSetImage($ListViewc, $f)
                GUICtrlCreateListViewItem($newnam & "|" & $f, $ListViewc)
                _GUICtrlListView_DeleteItemsSelected($ListViewc)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "d" Then
        Local $g = _GUICtrlListView_GetItemText($ListViewd, Int(_GUICtrlListView_GetSelectedIndices($ListViewd)), 0)
        Local $h = _GUICtrlListView_GetItemText($ListViewd, Int(_GUICtrlListView_GetSelectedIndices($ListViewd)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($g, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\tabd.cfg", $g & "=" & $h, $newnam & "=" & $h)
                GUICtrlSetImage($ListViewd, $h)
                GUICtrlCreateListViewItem($newnam & "|" & $h, $ListViewd)
                _GUICtrlListView_DeleteItemsSelected($ListViewd)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "e" Then
        Local $i = _GUICtrlListView_GetItemText($ListViewe, Int(_GUICtrlListView_GetSelectedIndices($ListViewe)), 0)
        Local $j = _GUICtrlListView_GetItemText($ListViewe, Int(_GUICtrlListView_GetSelectedIndices($ListViewe)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($i, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\tabe.cfg", $i & "=" & $j, $newnam & "=" & $j)
                GUICtrlSetImage($ListViewe, $j)
                GUICtrlCreateListViewItem($newnam & "|" & $j, $ListViewe)
                _GUICtrlListView_DeleteItemsSelected($ListViewe)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    EndIf
EndFunc   ;==>renamefile

Adding the 2nd indices from the listview selected item to the replacestringinfile command for each tab.


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Updated the first post with a fresh download with everything inside. All fixes and files plus an already compiled exe

Enjoy

and please let me know of any bugs or additions!


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Hi,

I've took a look at the program and i would suggest the following

1) If settings are changed and would require a restart -> apply the changes and use the restart funtion

2) Double click on the tray item force show/hide your program and rename the tray option show/hide

3) If the about page is shown disable the move function or move the about page with the main window

1 -> Run('"' & @AutoItExe & '"' & ' /AutoIt3ExecuteScript "' & @ScriptFullPath & '" /restart')

2 -> TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "_Your_Func")

3 -> Open the about page move the window, put an internet explorer page in front of all other programs go back to your program (tray) and try to close it.. it will not work

Good luck

Emiel

Edited by Emiel Wieldraaijer

Best regards,Emiel Wieldraaijer

Share this post


Link to post
Share on other sites

kaotkbliss, have you seen the AutoIt program called RUN! by any chance?

The author hasn't made changes since 2005, you can get the source code when you run it. Type !source in the run box and the program decompiles itself. I believe the code may help you on making additional features to yours.

I have attached RUN! to this post. Website is; http://crimsonfan.altervista.org/

run.zip

Edited by XKahn

Share this post


Link to post
Share on other sites

Thanks for the info guys. I will look into this stuff.

@emiel, I can't seem to figure out what you mean by #3. The main Gui does not register any actions until the about page is closed, and same with config or right click options. Once that 2nd window (about, config or right click) is closed, main Gui accepts commands again. However, I will look into keeping the 2nd window locked with the main on a move action.

Edited by kaotkbliss

010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Ok, so I tried the Run('"' & @AutoItExe & '"' & ' /AutoIt3ExecuteScript "' & @ScriptFullPath & '" /restart')

thing to remove the need to restart the program

However it was simply creating new Guis on top of the old and running many instances of the program. So I tried adding Guidelete beforehand but it was still running multiple instances of the program.

I decided to try a different route and moved these lines

$color = IniRead(@ScriptDir & "\config.ini", "color", 1, "1")

If $color = "1" Then

$bkcol = 0x000000

$wincol = 0x111111

$lblcol = 0x222222

from the top of the script to inside the main Gui creation and simply did a

GUIDelete($hWnd)

GUIDelete($hGUI)

_Gadget_CreateGUI($wW, $wH, $wfW, $wfH)

any time one of the color boxes state changes.

Works good except every time the color is changed, Mem usage goes up and never back down, so if you keep making color changes, the usage will keep increasing until you run out.

I've tried using the Memory udf experimenting with attempting to release the ram, and I also tried the _ReduceMemory() function, but that did not make a difference.

So unless I can figure a way to "flush" the memory usage when the color is changed, it will have to stay at restart of the program.


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Could not figure out what was causing the memory increase each time the colors were changed. I left the code in but commented it out. I did however, fix the child windows being seperated if one was open when teh user selected move the window from the tray icon.

I opted not to show/hide the window on double click of the tray icon because it is already in the right click menu.


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Could not figure out what was causing the memory increase each time the colors were changed. I left the code in but commented it out. I did however, fix the child windows being seperated if one was open when teh user selected move the window from the tray icon.

I opted not to show/hide the window on double click of the tray icon because it is already in the right click menu.

\\

Add the following function to you script and call _ReduceMemory() just before your While/Wend Loop this will keep the memory usage low

Func _ReduceMemory($i_PID = -1)
    If $i_PID <> -1 Then
        Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
        Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
        DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
    Else
        Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
    EndIf

    Return $ai_Return[0]
EndFunc   ;==>_ReduceMemory

Best regards,Emiel Wieldraaijer

Share this post


Link to post
Share on other sites

I found one that looked almost exactly like that which did not work.

Yours however, does!

thank you much. Updating first post!


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Hmm, it's working for me.

Here's the link again in case your cookies are still seeing the old link

http://www.4shared.com/file/tjD0WPIw/Allin1v2503.html


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Hi,

My second point

Add this line (line 34) -> TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "_Tray_ShowGUI"

But..

you should show/hide the program with the above line .. and adapt the text in the tray show/hide GUI

Good luck

Emiel


Best regards,Emiel Wieldraaijer

Share this post


Link to post
Share on other sites

There originally was a traysetonevent in the script but had to be removed because it made other things not work.

I will consider your suggestion though


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Hi kaotkbliss, i absolutly love your program. It has been a great inspriation to some programs ive wrote.

One suggestion that would be amazing, would it be possible to add shortcut support for folders?

mike.

Share this post


Link to post
Share on other sites

Thanks for the suggestion, I will look into that as that could definately be useful!


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Ok, updated the dll (and the code a bit) so urls, lnks and folders will have their own icon in Program Launcher.

You will want to replace the old dll with the new included in the zip

You will also want to go to start->menu->startup and remove the old Allin1v2.5 exe then start the new Allin1v2.6 exe and uncheck, recheck start with windows so a new shortcut (to the updated version) is created.


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Thank you for the support!

I did notice that I forgot to update the icons durring renaming so I've been tweeking that. And if anyone has any suggestions on what options they would like to see for the icon menu, I would be happy to look into it so I can change the show/hide to doubleclick as suggested before. I could do it now (probably) but then the menu would be seriously lacking as all it would have is move and exit.


010101000110100001101001011100110010000001101001011100110010000

001101101011110010010000001110011011010010110011100100001

My Android cat and mouse game
https://play.google.com/store/apps/details?id=com.KaosVisions.WhiskersNSqueek

We're gonna need another Timmy!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By bluebug
      Hi, guys!
      I'm new with using Autoit.
      Is possible do an automation to an application desktop java using Autoit?
       
       
    • By morion84
      Hi, when I call a MsgBox function I can use a "$MB_SERVICE_NOTIFICATION" flag so it will be displayed "on the current active desktop, even if there is no user logged on to the computer.". That works just great. Is there a way to do the same to Autoit GUI Form so it will be visible on desktop even if running from system account and user is not logged?
    • By KaFu
      ICU - Icon Configuration Utility

      Current Version: v6 (2018-Sep-16)
      Restore your desktop when the icons get "rearranged".
      Melba23 and I found we were working on very similar ideas to restore the Desktop icons to their normal place if they became "rearranged" (
      ). Vista seems to like this doing on occasion just for fun - but we all know some apps and games which change the display resolution or move icons around. This annoys "tidy" people who like their desktops arranged "just so" - I am particularly thinking of this desktop when I say that!
      We combined efforts and here is the result of our labors.
      Operation is easy - press "Save" to store a particular configuration and "Restore" to reset the icons to the saved positions in the selected configuration file. "Delete" allows you to remove unwanted configuration files from the list. There is a command line option so that the restoration can be run via HotKeys if required (that is why the script warns that it should be compiled for full functionality). You can decide what to do with any icons that have been added since you last saved the configuration file - the default is to put them in the top-left corner, but you can also banish them way off-screen or, more sensibly, specify a location for them.
      A new feature as of ICU v3.4 is the optional Desktop Contextmenu Integration (DCI) for Win7 (Win7 only because Microsoft implemented an easy way to do this through the registry as of this release).
      Version 3.3 should fix the empty save file bug
      Version 3.4 Win7: Admin rights no longer needed for DCI
      Version 5.0 Win8 compatibility for DCI
      The source and executable can be downloaded from my site: http://www.funk.eu
      Kudos to Ascend4nt, Melba23, Prog@ndy, & Valik for parts of the code.
      Please let me know if you found some piece of code in the source for which I forgot to mention a credit.
      Enjoy, let me know what you think of ICU and with Best Regards
    • By copyleft
      I am trying to create a script to clean up users' desktops by moving all desktop folders and files (except the two hidden "desktop.ini" files and a MyDesktop.lnk shortcut) to a different folder. The script below will move files but not folders. The other issue with the script is that it doesn't seem to execute from a location other than the user's desktop. I would appreciate any suggestions.
      #include <File.au3> MsgBox(64, "Desktop", "Cleaning up Desktop. This box will close in 4 seconds.", 4) $Files = _FileListToArray(@DesktopDir,"*",1) For $Index = 1 To $Files[0] If StringRight($Files[$Index],4) <> ".ini, MyDesktop.lnk" Then FileMove($Files[$Index],'F:\HOME\Desktop') EndIf Next  
    • By ur
      Is there any way to launch an application once I receive an email.
      I have an executable created in autoit and I am running it regularly on daily basis using task scheduler on windows.
      And sometimes I am running it again manually if someone asks to.
      Is there anyway to configure an email so that when I send a mail to that particular email ID then it should launch that exe directly?
×
×
  • Create New...