Jump to content

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


lovev1
 Share

Recommended Posts

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
Link to comment
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 2022-02-19 - Version 1.6.1.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 (NEW 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

  • 3 weeks later...

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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...