lovev1

Help me ! I can't creat windows explorer in GUI

5 posts in this topic

#1 ·  Posted (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 !

#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 by lovev1

Share this post


Link to post
Share on other sites



I think you will find a working example when searching the forum.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

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 :D

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