PYRODOG

thank you for your support after reading your post i ran the script on my xp box and indeed it worked great... before i posted i thought had a problem because i was on a 64 bit box so i moved to a 32 but both were win7 so let it be known that the issues i experienced i am guessing a win7 problem did not check vista... also if you compile the script on an xp box then move it to the win7 its runs fine idk... again thank you JohnOne for helping me sir -Pyro

Ok sorry i just figured if you would run the script yourself sorry for assuming logic problem solving i recivece the first error in the script... "The most likely cause is that you don't have VLC installed. Make sure VLC, and the ActiveX component, is installed." so i tried to work around it and i took the error checking part out of the VLC.au3 and then ran the script i received a black screen hope that helps a little bit if you use the script and it works fine please tell and let me know what your versions your running and os thanks Pyro

i was trying to implement this into one of my scripts but i am just getting an error i notice that you use http://downloads.videolan.org/pub/videolan/vlc/latest/win32/axvlc.cab that URL in the VLC.au3 just wondering if there is a fix or a work around any help would be appreciated -Pyro

sooo i figured it out and i can't believe it happend the same day i posted my problem anyway on line 328 i added $LVS_SORTASCENDING i feel so stupid this has been an issue since i wrote it well thanks anyway if you were looking in to it $LISTVIEW = GUICtrlCreateListView("", 10, $deskh / 2 - 300 , 300, 600,$LVS_SORTASCENDING)

Ok so here is my problem I wrote this program for my daughters so they could find and watch their own media... The problem is well more like an annoyance is on my vista box where I coded this under the movies section all the movies sort fine everything is good... When I move this program to a xp box I can’t get it to sort the movies at all it looks like it tries like a few movies will be in the right place but its scrambled for the most part... honestly the program works great, my daughters love it and I don’t need to keep putting movies on for them... I would really like it to sort and there isn’t any reason why it shouldn't be... any help on this would be great and positive or negative feedback is cool thanks in advance... #NoTrayIcon #include <MouseSetOnEvent_UDF.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <GuiListView.au3> #include <File.au3> #include <Misc.au3> HotKeySet("{ESC}", "Terminate") Opt('MustDeclareVars', 1) Global $Games, $directory, $FileList, $File_Name, $NMLISTVIEW, $GUIMOVIE, $GUIGAMES, $TVBUTTON, $MOVIESBUTTON, $GAMESBUTTON, $TVEXIT, $GUIMAIN, $GUITV, $TVNEXT Global $deskh, $deskw, $exitbutton, $exitloop, $blackscreen, $GUIEXIT, $GUILOAD, $Paint, $i, $seltxt, $movieexit,$loading, $GAMESEXIT Global $listview, $button, $item1, $item2, $item3, $input1, $uparrow, $downarrow, $gobutton, $moviename, $nRow = 0, $avArray[1], $item, $iLastItem = -1, $ret Global $BUTTONLOOP, $BUTTONADD, $BUTTONWIDTH, $BUTTONHEIGHT, $BUTTONNUMBER[99], $N, $pausebutton, $moviepath Global $GUITV2, $TVEXIT2 $exitloop = 0 $deskh = @DesktopHeight $deskw = @DesktopWidth _BlockMouseClicksInput(0) If ProcessExists("SAVER.exe") = 0 Then Run("SAVER.exe") Call("Main") Func Main() $GUIMAIN = GUICreate("Main",$deskw,$deskh) GUICtrlCreatePic(@WorkingDir&"\images\mainbanner.bmp",$deskw / 2 - 300,10,600,150) $TVBUTTON = GUICtrlCreatePic(@WorkingDir&"\images\tvbutton.bmp", .25 * $deskw - 125, $deskh / 2 - 125, 250, 250) $MOVIESBUTTON = GUICtrlCreatePic(@WorkingDir&"\images\moviesbutton.bmp", .50 * $deskw - 125, $deskh / 2 - 125, 250, 250) $GAMESBUTTON = GUICtrlCreatePic(@WorkingDir&"\images\gamesbutton.bmp", .75 * $deskw - 125, $deskh / 2- 125, 250, 250) GUISetBkColor(0xF665AB) GUISetState() WinSetOnTop("Main", "", 1) While 1 If WinActive("Main") = 0 Then WinActivate("Main") Switch GUIGetMsg() Case $TVBUTTON WinSetState("Main", "", @SW_HIDE) Call ("TVshows") WinSetState("Main", "", @SW_SHOW) Case $MOVIESBUTTON WinSetState("Main", "", @SW_HIDE) Call ("Movies") WinSetState("Main", "", @SW_SHOW) Case $GAMESBUTTON WinSetState("Main", "", @SW_HIDE) Call ("Games") WinSetState("Main", "", @SW_SHOW) Case Else EndSwitch WEnd EndFunc Func TVshows() $GUITV = GUICreate("TVshows",$deskw,$deskh) GUICtrlCreatePic(@WorkingDir&"\images\tvbanner.bmp",$deskw / 2 - 300,10,600,150) $TVEXIT = GUICtrlCreatePic(@WorkingDir&"\images\exit.bmp", $deskw - 100, 0, 100, 100) $TVNEXT = GUICtrlCreatePic(@WorkingDir&"\images\next.bmp", 0, 0, 100, 100) GUISetBkColor(0x59E817) GUISetState() WinSetOnTop("TVshows", "", 1) $BUTTONADD = 1 $BUTTONWIDTH = 60 $BUTTONHEIGHT = 170 For $BUTTONLOOP = 1 to 28 $N = $BUTTONADD $BUTTONNUMBER[$N] = GUICtrlCreatePic(@WorkingDir&"\images\tvbuttons\"&$BUTTONADD&".bmp", $BUTTONWIDTH, $BUTTONHEIGHT, 128, 128) $BUTTONADD = $BUTTONADD + 1 $BUTTONWIDTH = $BUTTONWIDTH + 149 if $BUTTONWIDTH > $deskw - 149 Then $BUTTONHEIGHT = $BUTTONHEIGHT + 149 $BUTTONWIDTH = 60 EndIf Next ;JUST NOTES FOR WHAT GOES TO WHAT ;1 Animaniacs ;2 Blues Clues ;3 Clifford The Big Red Dog ;4 Dora the Explorer ;5 Doug ;6 Duck Tales ;7 GO Diego GO ;8 Jetsons ;9 Hey Arnold ;10 Kim Possible ;11 Lazy Town ;12 Little Einsteins ;13 Rockos ModernLife ;14 Rugrats ;15 Scooby Doo ;16 Talespin ;17 The Backyardigans ;18 The Flintstones ;19 The Smurfs ;20 The Wiggles ;21 Thomas The Train ;22 Tiny Toon Adventures ;23 Yo Gabba Gabba ;24 Inspector Gadget ;25 Bill Nye The Science Guy ;26 Chip N Dale Rescue Rangers ;27 Darkwing Duck ;28 ReBoot While 1 If WinActive("TVshows") = 0 Then WinActivate("TVshows") Switch GUIGetMsg() Case $TVEXIT GUIDelete($GUITV) return Case $TVNEXT WinSetState($GUITV, "", @SW_HIDE) Call ("TVshows2") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[1] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Animaniacs.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[2] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Blues Clues.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[3] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Clifford The Big Red Dog.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[4] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Dora the Explorer.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[5] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Doug.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[6] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Duck Tales.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[7] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\GO Diego GO.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[8] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Jetsons.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[9] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Hey Arnold.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[10] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Kim Possible.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[11] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Lazy Town.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[12] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Little Einsteins.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[13] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Rockos Modern Life.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[14] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Rugrats.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[15] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Scooby-Doo.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[16] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Talespin.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[17] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\The Backyardigans.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[18] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\The Flintstones.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[19] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\The Smurfs.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[20] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\The Wiggles.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[21] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Thomas The Train.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[22] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Tiny Toon Adventures.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[23] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Yo Gabba Gabba.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[24] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Inspector Gadget.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[25] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Bill Nye The Science Guy.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[26] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Chip N Dale Rescue Rangers.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[27] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\Darkwing Duck.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case $BUTTONNUMBER[28] WinSetState($GUITV, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\ReBoot.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV, "", @SW_SHOW) Case Else EndSwitch WEnd EndFunc Func TVshows2() $GUITV2 = GUICreate("TVshows2",$deskw,$deskh) GUICtrlCreatePic(@WorkingDir&"\images\tvbanner2.bmp",$deskw / 2 - 300,10,600,150) $TVEXIT2 = GUICtrlCreatePic(@WorkingDir&"\images\exit.bmp", $deskw - 100, 0, 100, 100) GUISetBkColor(0x3BB9FF) GUISetState() WinSetOnTop("TVshows2", "", 1) $BUTTONADD = 29 $BUTTONWIDTH = 60 $BUTTONHEIGHT = 170 For $BUTTONLOOP = 1 to 1 $N = $BUTTONADD $BUTTONNUMBER[$N] = GUICtrlCreatePic(@WorkingDir&"\images\tvbuttons\"&$BUTTONADD&".bmp", $BUTTONWIDTH, $BUTTONHEIGHT, 128, 128) $BUTTONADD = $BUTTONADD + 1 $BUTTONWIDTH = $BUTTONWIDTH + 149 if $BUTTONWIDTH > $deskw - 149 Then $BUTTONHEIGHT = $BUTTONHEIGHT + 149 $BUTTONWIDTH = 60 EndIf Next ;JUST NOTES FOR WHAT GOES TO WHAT ;1 The Powerpuff Girls While 1 If WinActive("TVshows2") = 0 Then WinActivate("TVshows2") Switch GUIGetMsg() Case $TVEXIT2 GUIDelete($GUITV2) Return Case $BUTTONNUMBER[29] WinSetState($GUITV2, "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName(@WorkingDir&"\playlists\The Powerpuff Girls.m3u"),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState($GUITV2, "", @SW_SHOW) Case Else EndSwitch WEnd EndFunc Func Movies() $GUIMOVIE = GUICreate("movies", $deskw, $deskh) $UPARROW = GUICtrlCreatePic(@WorkingDir&"\images\uparrow.bmp", 130 , 10, 64, 64) $DOWNARROW = GUICtrlCreatePic(@WorkingDir&"\images\downarrow.bmp", 130 , $deskh - 74 , 64, 64) $GOBUTTON = GUICtrlCreatePic(@WorkingDir&"\images\moviebuttons\moviesfront.bmp", 320 , $deskh / 2 - 300, 600, 600) $MOVIEEXIT = GUICtrlCreatePic(@WorkingDir&"\images\exit.bmp", $deskw - 100, 0, 100, 100) GUISetBkColor(0xC031C7) GUISetState() WinSetOnTop("movies", "", 1) $DIRECTORY = "\\192.168.1.200\media\Kids Movies" $FILELIST =_FileListToArray($DIRECTORY,'*.*', 1) If @Error=1 Then ProcessClose("vlc.exe") GUIDelete($GUIMOVIE) Call("Main") EndIf $LISTVIEW = GUICtrlCreateListView("", 10, $deskh / 2 - 300 , 300, 600) $N = 0 For $N = 1 to UBound($FILELIST)-1 $File_Name = $FILELIST[$N] $ITEM = GUICtrlCreateListViewItem( $File_Name, $LISTVIEW) Next _GUICtrlListView_RegisterSortCallBack($LISTVIEW) _GUICtrlListView_InsertColumn($LISTVIEW, 0, "Movie Name",278) _GUICtrlListView_SortItems($LISTVIEW,0) GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events") Send("{TAB}") While 1 If WinActive("movies") = 0 Then WinActivate("movies") Switch GUIGetMsg() Case $movieexit _GUICtrlListView_UnRegisterSortCallBack($listview) GUIDelete($GUIMOVIE) Return Case $uparrow Send("{UP}") Case $downarrow Send("{DOWN}") Case $gobutton If $moviepath <> "" Then WinSetState("movies", "", @SW_HIDE) ShellExecute("C:\Program Files\VideoLAN\VLC\vlc.exe", FileGetShortName("\\192.168.1.200\media\Kids Movies\"&$moviepath),"","",@SW_MINIMIZE) Call ("exitbutton") WinSetState("movies", "", @SW_SHOW) EndIf Case Else EndSwitch WEnd EndFunc Func Games() $GUIGAMES = GUICreate("games",$deskw,$deskh) GUICtrlCreatePic(@WorkingDir&"\images\gamesbanner.bmp",$deskw / 2 - 300,10,600,150) $GAMESEXIT = GUICtrlCreatePic(@WorkingDir&"\images\exit.bmp", $deskw - 100, 0, 100, 100) GUISetBkColor(0xFF8040) GUISetState() WinSetOnTop("games", "", 1) $BUTTONADD = 1 $BUTTONWIDTH = 21 $BUTTONHEIGHT = 170 For $BUTTONLOOP = 1 to 6 $N = $BUTTONADD $BUTTONNUMBER[$N] = GUICtrlCreatePic(@WorkingDir&"\images\gamebuttons\"&$BUTTONADD&".bmp", $BUTTONWIDTH, $BUTTONHEIGHT, 128, 128) $BUTTONADD = $BUTTONADD + 1 $BUTTONWIDTH = $BUTTONWIDTH + 149 if $BUTTONWIDTH > $deskw - 149 Then $BUTTONHEIGHT = $BUTTONHEIGHT + 149 $BUTTONWIDTH = 21 EndIf Next ;JUST NOTES FOR WHAT GOES TO WHAT ;1 Tuxpaint ;2 Smart Phonics 1 ;3 Smart Phonics 2 ;4 Smart Phonics 3 ;5 Smart Phonics 4 ;6 While 1 If WinActive("games") = 0 Then WinActivate("games") Switch GUIGetMsg() Case $GAMESEXIT GUIDelete($GUIGAMES) Return Case $BUTTONNUMBER[1] WinSetState($GUIGAMES, "", @SW_HIDE) BlockInput(1) ShellExecute(@WorkingDir&"\games\tuxpaint\tuxpaint.exe") Sleep(10000) BlockInput(0) Do Sleep(2000) Until ProcessExists("tuxpaint.exe") = 0 WinSetState($GUIGAMES, "", @SW_SHOW) Case $BUTTONNUMBER[2] WinSetState($GUIGAMES, "", @SW_HIDE) BlockInput(1) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Sleep(3000) Run("C:\Program Files\D-Tools\daemon.exe" & " -mount 0," & Chr(34) & "G:\Kids Game Images\Smart Kids Phonics 1.iso" & Chr(34)) WinWait("Smartkids") Sleep(5000) WinSetOnTop("Smartkids", "", 1) BlockInput(0) Do Sleep(2000) Until ProcessExists("Smart_Phonics_1.exe") = 0 WinSetState($GUIGAMES, "", @SW_SHOW) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Case $BUTTONNUMBER[3] WinSetState($GUIGAMES, "", @SW_HIDE) BlockInput(1) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Sleep(3000) Run("C:\Program Files\D-Tools\daemon.exe" & " -mount 0," & Chr(34) & "G:\Kids Game Images\Smart Kids Phonics 2.iso" & Chr(34)) WinWait("Smartkids") Sleep(5000) WinSetOnTop("Smartkids", "", 1) BlockInput(0) Do Sleep(2000) Until ProcessExists("Smart_Phonics_2.exe") = 0 WinSetState($GUIGAMES, "", @SW_SHOW) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Case $BUTTONNUMBER[4] WinSetState($GUIGAMES, "", @SW_HIDE) BlockInput(1) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Sleep(3000) Run("C:\Program Files\D-Tools\daemon.exe" & " -mount 0," & Chr(34) & "G:\Kids Game Images\Smart Kids Phonics 3.iso" & Chr(34)) WinWait("Smartkids") Sleep(5000) WinSetOnTop("Smartkids", "", 1) BlockInput(0) Do Sleep(2000) Until ProcessExists("Smart_Phonics_3.exe") = 0 WinSetState($GUIGAMES, "", @SW_SHOW) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Case $BUTTONNUMBER[5] WinSetState($GUIGAMES, "", @SW_HIDE) BlockInput(1) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Sleep(3000) Run("C:\Program Files\D-Tools\daemon.exe" & " -mount 0," & Chr(34) & "G:\Kids Game Images\Smart Kids Phonics 4.iso" & Chr(34)) WinWait("Smartkids") Sleep(5000) WinSetOnTop("Smartkids", "", 1) BlockInput(0) Do Sleep(2000) Until ProcessExists("Smart_Phonics_4.exe") = 0 WinSetState($GUIGAMES, "", @SW_SHOW) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Case $BUTTONNUMBER[6] WinSetState($GUIGAMES, "", @SW_HIDE) BlockInput(1) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") Sleep(3000) Run("C:\Program Files\D-Tools\daemon.exe" & " -mount 0," & Chr(34) & "G:\Kids Game Images\JumpStart Phonics.iso" & Chr(34)) Sleep(3000) ProcessClose("AUTORUN.EXE") Sleep(3000) Run("C:\Program Files\JumpStart\JumpStart Phonics\PHONICS.EXE") WinWait("JumpStart Phonics") Sleep(5000) WinSetOnTop("JumpStart Phonics", "", 1) BlockInput(0) Do Sleep(2000) Until ProcessExists("PHONICS.exe") = 0 BlockInput(1) Sleep(5000) BlockInput(0) WinSetState($GUIGAMES, "", @SW_SHOW) Case Else EndSwitch WEnd EndFunc Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam) If ControlGetFocus('movies') Then #forceref $hWndGUI, $MsgID, $wParam Local $tagNMHDR, $event $tagNMHDR = DllStructCreate("int", $lParam);NMHDR (hwndFrom, idFrom, code) $event = DllStructGetData($tagNMHDR, 3) Select Case $wParam = $listview Select Case $LVN_ITEMCHANGED $NMLISTVIEW = DllStructCreate($tagNMLISTVIEW, $lParam) If BitAND(DllStructGetData($NMLISTVIEW, "Changed"), $LVIF_STATE) = $LVIF_STATE And _ DllStructGetData($NMLISTVIEW, "NewState") <> DllStructGetData($NMLISTVIEW, "OldState") Then $i = _GUICtrlListView_GetNextItem($ListView) ; current selected $seltxt = _GUICtrlListView_GetItemText($ListView,$i) $moviepath = $seltxt $moviename = StringTrimRight($seltxt, 4) GUICtrlSetImage($gobutton, @WorkingDir&"\images\moviebuttons\"&$moviename&".bmp") EndIf EndSelect EndSelect $tagNMHDR = 0 $event = 0 $lParam = 0 Return EndIF EndFunc Func ExitButton() $GUIEXIT = GUICreate("exit",100,200, $deskw - 100, 0, $WS_POPUP) GUISetState(@SW_SHOW) $EXITBUTTON = GUICtrlCreatePic(@WorkingDir&"\images\exit.bmp", 0, 0, 100, 100) $PAUSEBUTTON = GUICtrlCreatePic(@WorkingDir&"\images\pause.bmp", 0, 100, 100, 100) $GUILOAD = GUICreate("loading", $deskw,$deskh, "", "", $WS_POPUP) GUISetState(@SW_SHOW) $LOADING = GUICtrlCreateButton("loading", $deskw / 2 - 250, 300, 500, 150, $BS_BITMAP) GUICtrlSetImage(-1, @WorkingDir&"\images\loading.bmp") GUISetBkColor(0x0000000) WinSetOnTop("loading", "", 1) WinSetOnTop("exit", "", 1) Do _MouseTrap(@DesktopWidth - 100,0, @DesktopWidth, 100) WinSetOnTop("loading", "", 1) WinSetOnTop("exit", "", 1) If ProcessExists("vlc.exe") = 0 Then GUIDelete($GUIEXIT) ExitLoop EndIf If GUIGetMsg() = $exitbutton Then GUIDelete($GUIEXIT) ProcessClose("vlc.exe") ExitLoop EndIf WinWait("[class:VLC DirectX]", "", 1) Until WinExists("[class:VLC DirectX]") = 1 GUIDelete($GUILOAD) _MouseTrap() WinSetOnTop("[class:VLC DirectX]", "", 1) While 1 _MouseTrap(@DesktopWidth - 100,0, @DesktopWidth, 200) WinSetOnTop("exit", "", 1) If ProcessExists("vlc.exe") = 0 Then GUIDelete($GUIEXIT) ExitLoop EndIf Switch GUIGetMsg() Case $pausebutton ControlSend("[class:VLC DirectX]", "", "", "{SPACE}") WinActivate("[class:VLC DirectX]") Case $exitbutton ExitLoop Case Else EndSwitch WEnd GUIDelete($GUIEXIT) ProcessClose("vlc.exe") _MouseTrap() EndFunc Func _BlockMouseClicksInput($iOpt=0) If $iOpt = 0 Then _MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT, "__Dummy") _MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT, "__Dummy") _MouseSetOnEvent($MOUSE_WHELLUP_EVENT, "__Dummy") _MouseSetOnEvent($MOUSE_WHELLDOWN_EVENT , "__Dummy") Else _MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT) _MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT) _MouseSetOnEvent($MOUSE_WHELLUP_EVENT) _MouseSetOnEvent($MOUSE_WHELLDOWN_EVENT ) EndIf EndFunc Func Terminate() _BlockMouseClicksInput(1) Run("C:\Program Files\D-Tools\daemon.exe" & " -unmount 0") ProcessClose("vlc.exe") ProcessClose("SAVER.exe") Exit 0 EndFunc