lovev1 Posted January 31, 2015 Share Posted January 31, 2015 (edited) I want creat one windows explorer in GUI ! but I can not make ! I want to create the windows explorer in GUI replacement for Local $ OIE = ObjCreate ("Shell.Explorer.2") GUICtrlCreateObj ($ OIE, 310, 10, 600, 550) Help me ! Tks ! expandcollapse popup#include <GUIConstantsEx.au3> $Background = GUICreate ("Auto Album 2015 - Production AV MEDIA NB" ,922 ,570 ,100 ,200) GUISetBkColor (0xABCDEF) $Button1 = GUICtrlCreateButton ("2.Tự Động Đổi Tên",160,10,115,44) $Button2 = GUICtrlCreateButton ("3.Khởi Động Auto",160,60,115,44) $Button3 = GUICtrlCreateButton ("4.Tự Động Copy File",160,110,115,44) $Button4 = GUICtrlCreateButton ("5.Chỉnh Sửa Mẫu",160,160,115,44) $Button5 = GUICtrlCreateButton ("6.Nén File",160,210,115,44) $Button6 = GUICtrlCreateButton ("7.Tạo DVD ",160,260,115,44) $Button7 = GUICtrlCreateButton ("Thoát Trương Trình ",160,460,115,44) $Button8 = GUICtrlCreateButton ("1.Mở ổ đĩa D",10,10,115,44) $Button9 = GUICtrlCreateButton ("1.Mở ổ đĩa E",10,60,115,44) $Button10 = GUICtrlCreateButton ("1.Mở ổ đĩa F",10,110,115,44) $Button11 = GUICtrlCreateButton ("1.Mở ổ đĩa G",10,160,115,44) $Button12 = GUICtrlCreateButton ("1.Mở ổ đĩa H",10,210,115,44) $Button13 = GUICtrlCreateButton ("Bonus - Xóa cache",10,460,115,44) $Button14 = GUICtrlCreateButton ("8.In Đĩa ",160,310,115,44) $Button15 = GUICtrlCreateButton ("Liên Hệ Trợ Giúp",10,510,115,44) Local $oIE = ObjCreate("Shell.Explorer.2") GUICtrlCreateObj ($oIE, 310, 10, 600, 550) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button1 Run ("E:\MEDIA EXPRESS PRODUCTION\AUTO PHOTO ALBUM\Rename.bat") Case $msg = $Button2 Run ("E:\MEDIA EXPRESS PRODUCTION\AUTO PHOTO ALBUM\Tool 1.0.1.2 Path 01.exe") Case $msg = $Button3 Run ("E:\MEDIA EXPRESS PRODUCTION\AUTO PHOTO ALBUM\Tool 1.0.1.3 Path 02.exe") Case $msg = $Button4 Run("C:\Program Files\Adobe\Adobe Premiere Pro CC 2014\Adobe Premiere Pro.exe") Case $msg = $Button5 Run("C:\Program Files\Adobe\Adobe Media Encoder CC 2014\Adobe Media Encoder.exe") Case $msg = $Button6 Run("C:\Program Files (x86)\Pegasys Inc\TMPGEnc DVD Author 1.6\TMPGEncDVDAuthor16.exe") Case $msg = $Button7 Exit Case $msg = $Button8 $path = "D:\" ShellExecute ($path) Case $msg = $Button9 $path1 = "E:\" ShellExecute ($path1) Case $msg = $Button10 $path2 = "F:\" ShellExecute ($path2) Case $msg = $Button11 $path3 = "G:\" ShellExecute ($path3) Case $msg = $Button12 $path4 = "H:\" ShellExecute ($path4) Case $msg = $Button13 Run ("E:\MEDIA EXPRESS PRODUCTION\AUTO PHOTO ALBUM\Tool Del Cache V2.exe") Case $msg = $Button14 Run("C:\Program Files (x86)\Nero\Nero 7\Core\nero.exe") Case $msg = $Button15 ShellExecute("https://www.facebook.com/lovev.lovev") EndSelect WEnd Edited January 31, 2015 by lovev1 Link to comment Share on other sites More sharing options...
TheAutomator Posted January 31, 2015 Share Posted January 31, 2015 Maybe have a look here: https://www.autoitscript.com/autoit3/docs/functions/GUICtrlCreateObj.htm Regards TheAutomator. Retro Console, NestedArrayDisplay UDF foldermaker-pro-clone Link to comment Share on other sites More sharing options...
water Posted January 31, 2015 Share Posted January 31, 2015 I think you will find a working example when searching the forum. My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki Link to comment Share on other sites More sharing options...
Sunaj Posted February 3, 2015 Share Posted February 3, 2015 Here's the de-facto best implementation(s) of Windows Explorer for AU3: '?do=embed' frameborder='0' data-embedContent>> The code is a bit.. peculiar.. but works fine once you get your head around the folder structure the author has used for this project. Good luck. lovev1 1 [list=1][*]Generic way to detect full path to default browser, List/ListView Events Using GuiRegisterMsg (detect doubleclick and much more)[*]Using dllcall for full control over fileopendialog, Make DirMove act somewhat normally (by circumventing it...)[*]Avoid problems with "&" (chr(38)) in code, Change desktop maximized area/workspace (fx to make deskbar type app)[*]Change focus behavior when buttons are clicked to work closer to 'standard windows' app[*](Context) Menus With Timed Tooltips, Fast Loops & Operators in AU3[*]Clipboard UDF, A clipboard change notification udf[/list] Link to comment Share on other sites More sharing options...
lovev1 Posted February 18, 2015 Author Share Posted February 18, 2015 Here's the de-facto best implementation(s) of Windows Explorer for AU3: '?do=embed' frameborder='0' data-embedContent>> The code is a bit.. peculiar.. but works fine once you get your head around the folder structure the author has used for this project. Good luck. thank you - is it true what I 'm looking for Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now