HOT Thảo luận về cách tạo phần mềm AIO, Silent (Tự động cài đặt)

Thảo luận trong 'Chia sẻ thủ thuật' bắt đầu bởi sNVTs, 20/5/16.

    Thảo luận về cách tạo phần mềm AIO, Silent (Tự động cài đặt)

    Thảo luận về cách tạo phần mềm AIO, Silent (Tự động cài đặt)

    1/1/70 | 9,146 | 315
  1. Hoàng Phúc Hậu

    Hoàng Phúc Hậu Thành Viên

    Bài viết:
    57
    Được cám ơn:
    12
    Giới tính:
    Nam
    Nơi ở:
    Gia lai
    Thì hướng dẫn làm phần mềm slient bằng autoit
     
  2. commando198

    commando198 Thành Viên

    Bài viết:
    50
    Được cám ơn:
    4
    Giới tính:
    Nam
    Nơi ở:
    Quảng Trị
    Nhờ Bạn kiểm tra lại giùm, Link trên ko vô được Bạn ah.
     
  3. Mr.M9

    Mr.M9 Đây tớ của nhân dân ! Ban quản trị

    Bài viết:
    676
    Được cám ơn:
    530
    Link hơi bị lag thôi bạn ah, mình copy về nek
    IDM Silent Installer AutoIT
    Mã:
    #RequireAdmin
    Global $sfile = "" ;Đường dẫn đến tệp tin cài đặt của IDM
    If ProcessExists("IDM1.tmp") <> @AutoItPID Then ProcessClose("IDM1.tmp")
    If ProcessExists("IDMan.exe") <> @AutoItPID Then ProcessClose("IDMan.exe")
    Local $iPid = Run('"'& $sfile & '"', "", @SW_SHOW)
    If @error Then MsgBox(16, "IDM Silent Error", "Cant execute install file!", 30)
    ProcessWait("IDM1.tmp")
    If WinExists("Internet Download Manager Installation Wizard", "Welcome to Internet Download Manager Setup program.") Then WinMove("Internet Download Manager Installation Wizard", "Welcome to Internet Download Manager Setup program.", @DesktopWidth + 10, Default, Default, Default)
    _autoclick()
    Func _autoclick()
        While ProcessExists("IDM1.tmp")
            Sleep(10)
            If WinExists("IDM Installation", "Internet Download Manager is running.") Then ControlClick("IDM Installation", "Internet Download Manager is running.", 2)
            If WinExists("Internet Download Manager Installation Wizard", "Welcome to Internet Download Manager Setup program.") Then ControlClick("Internet Download Manager Installation Wizard", "Welcome to Internet Download Manager Setup program.", 1008)
            If WinExists("Please read IDM license", "Internet Download Manager (IDM) License Agreement") Then ControlClick("Please read IDM license", "Internet Download Manager (IDM) License Agreement", 1008)
            If WinExists("Choose Destination Location", "Setup will install Internet Download Manager in the following folder.") Then ControlClick("Choose Destination Location", "Setup will install Internet Download Manager in the following folder.", 1008)
            If WinExists("Start Installation of Internet Download Manager", "You are now ready to install Internet Download Manager.") Then ControlClick("Start Installation of Internet Download Manager", "You are now ready to install Internet Download Manager.", 1008)
            If WinExists("Installation Complete", "Internet Download Manager has been successfully installed.") Then ControlClick("Installation Complete", "Internet Download Manager has been successfully installed.", 1009)
        WEnd
    EndFunc

     
    nhunguyet0103 đã cám ơn bài viết này.
  4. ptk911

    ptk911 It's not goodbye ! Ban quản trị

    Bài viết:
    229
    Được cám ơn:
    277
    Giới tính:
    Nam
    slient bằng autoit: dùng @SW_HIDE, không được thì WinMove khỏi desktop, còn cách nào nữa không các bác?
     
  5. sNVTs

    sNVTs Ban quản trị

    Bài viết:
    265
    Được cám ơn:
    886
    Nơi ở:
    Ninh Bình
    Một phương pháp hay nữa đó là dùng WinSetTrans, để về 0 thì sẽ ẩn toàn bộ.
     
    commando198 đã cám ơn bài viết này.
  6. commando198

    commando198 Thành Viên

    Bài viết:
    50
    Được cám ơn:
    4
    Giới tính:
    Nam
    Nơi ở:
    Quảng Trị
    Mình cũng đang nghiên cứu silent bằng AutoIT, nhưng không hiểu tại sao dùng @SW_HIDE@SW_MINIMIZE đều không chạy được và cũng không báo lỗi, chương trình đứng lại ngay cửa sổ đầu tiên. Mong các Bác trợ giúp.
     
  7. commando198

    commando198 Thành Viên

    Bài viết:
    50
    Được cám ơn:
    4
    Giới tính:
    Nam
    Nơi ở:
    Quảng Trị
    Bạn chủ thớt có thể hướng dẫn 1 chút về WinSetTrans được ko?
     
  8. sNVTs

    sNVTs Ban quản trị

    Bài viết:
    265
    Được cám ơn:
    886
    Nơi ở:
    Ninh Bình
    Ví dụ như để ẩn IDM thì bản sử dụng theo cú pháp sau
    Mã:
    WinSetTrans("Internet Download Manager Installation Wizard", "Welcome to Internet Download Manager Setup program.", 0)
    Yêu cầu quyền Admin nhé:wink:
     
    commando198 đã cám ơn bài viết này.
  9. commando198

    commando198 Thành Viên

    Bài viết:
    50
    Được cám ơn:
    4
    Giới tính:
    Nam
    Nơi ở:
    Quảng Trị
    Mình làm ví dụ tạo Silent bằng AutoIT với UNIKEY, Làm cho cài đặt tự động thì được rồi nhưng để ẩn các cửa sổ cài đặt thì mình mày mò mãi mà ko được, mình up code lên đây luôn mong các Cao nhân giúp đỡ.
    Run ("UNIKEY.exe")
    WinWaitActive ("Select Setup Language")
    Send ("{ENTER}")
    Send ("{TAB}{TAB}{ENTER}")
    Send ("{SPACE}{TAB}{TAB}{ENTER}")
    Send ("{ENTER}")
    Send ("{SPACE}{TAB}{ENTER}")

    Cái này là 2
    Run("UNIKEY.exe")
    WinWait("Select Setup Language")
    ControlClick ("Select Setup Language", "", "TNewButton1")
    WinWait("Setup - UniKey")
    ControlClick ("Setup - UniKey", "", "TNewButton2")
    WinWait("Setup - UniKey", "Select Additional Tasks")
    ControlClick ("Setup - UniKey", "Select Additional Tasks", "TNewButton3", "left")
    WinWait("Setup - UniKey", "Ready to Install")
    ControlClick ("Setup - UniKey", "Ready to Install", "TNewButton3", "left")
    WinWait("Setup - UniKey", "Completing the UniKey Setup Wizard")
    ControlClick ("Setup - UniKey", "Completing the UniKey Setup Wizard", "TNewButton3", "left")
    Exit
     
  10. commando198

    commando198 Thành Viên

    Bài viết:
    50
    Được cám ơn:
    4
    Giới tính:
    Nam
    Nơi ở:
    Quảng Trị
    Cảm ơn Bạn AD nhiều nha. Để mình mần thử xem thế nào. Cái này mình mày mò mãi mà pó tay.
     
  11. sNVTs

    sNVTs Ban quản trị

    Bài viết:
    265
    Được cám ơn:
    886
    Nơi ở:
    Ninh Bình
    Làm gì Unikey có bộ cài đặt chính thức hả bạn, nó chỉ có file tự chạy thôi từ đó mình tự tạo bộ setup cho nó
     
  12. sNVTs

    sNVTs Ban quản trị

    Bài viết:
    265
    Được cám ơn:
    886
    Nơi ở:
    Ninh Bình
    Mã:
    #RequireAdmin
    Global $sfile = "C:\Users\NVT\Desktop\idman625build18.exe" ;path to setup file
    If ProcessExists("IDM1.tmp") <> @AutoItPID Then ProcessClose("IDM1.tmp")
    If ProcessExists("IDMan.exe") <> @AutoItPID Then ProcessClose("IDMan.exe")
    Local $iPid = Run('"'& $sfile & '"', "", @SW_SHOW)
    If @error Then MsgBox(16, "IDM Silent Error", "Cant execute install file!", 30)
    ProcessWait("IDM1.tmp")
    _autoclick()
    Func _autoclick()
        While ProcessExists("IDM1.tmp")
            Sleep(10)
            If WinExists("IDM Installation", "Internet Download Manager is running.") Then ControlClick("IDM Installation", "Internet Download Manager is running.", 2)
            If WinExists("Internet Download Manager Installation Wizard", "Welcome to Internet Download Manager Setup program.") Then
                WinSetTrans("Internet Download Manager Installation Wizard", "Welcome to Internet Download Manager Setup program.", 0)
                ControlClick("Internet Download Manager Installation Wizard", "Welcome to Internet Download Manager Setup program.", 1008)
            EndIf
            If WinExists("Please read IDM license", "Internet Download Manager (IDM) License Agreement") Then ControlClick("Please read IDM license", "Internet Download Manager (IDM) License Agreement", 1008)
            If WinExists("Choose Destination Location", "Setup will install Internet Download Manager in the following folder.") Then ControlClick("Choose Destination Location", "Setup will install Internet Download Manager in the following folder.", 1008)
            If WinExists("Start Installation of Internet Download Manager", "You are now ready to install Internet Download Manager.") Then ControlClick("Start Installation of Internet Download Manager", "You are now ready to install Internet Download Manager.", 1008)
            If WinExists("Installation Complete", "Internet Download Manager has been successfully installed.") Then ControlClick("Installation Complete", "Internet Download Manager has been successfully installed.", 1009)
        WEnd
    EndFunc
    
    Mình sửa lại code IDM rồi đó bạn thử xem
     
    Chỉnh sửa cuối: 23/5/16
    nhunguyet0103, commando198Mr.M9 đã cám ơn bài viết này.
  13. ptk911

    ptk911 It's not goodbye ! Ban quản trị

    Bài viết:
    229
    Được cám ơn:
    277
    Giới tính:
    Nam
    bác sNVTs nên hd chi tiết hơn, có nhiều bạn ko rành, vd:
    WinSetTrans("Title", "Text", 0) ; 0 là trong suốt hoàn toàn, 255 là bình thường
     
    RouJicommando198 đã cám ơn bài viết này.
  14. Nathan Nguyen

    Nathan Nguyen Thành Viên

    Bài viết:
    448
    Được cám ơn:
    212
    Giới tính:
    Nam
    topic này càng lúc càng hấp dẫn :D
     
  15. Mr.M9

    Mr.M9 Đây tớ của nhân dân ! Ban quản trị

    Bài viết:
    676
    Được cám ơn:
    530
    nền cần trao đổi gì thì lên topic thảo luận luôn, pm riêng làm gì, tính giấu nghề phải ko ?? ::blackalien:
     
    RouJiNathan Nguyen đã cám ơn bài viết này.
  16. dinhchungcm

    dinhchungcm Thành viên Ưu Tú 2017 Thành viên VIP

    Bài viết:
    87
    Được cám ơn:
    46
    Giới tính:
    Nam
    Xin hỏi ngoài lề chút ạ.
    Bác Lão già có biết phần mềm nào chụp ảnh và biên tập kiểu như này không ạ!

    [​IMG]
    Xin cám ơn!!!
     
  17. sNVTs

    sNVTs Ban quản trị

    Bài viết:
    265
    Được cám ơn:
    886
    Nơi ở:
    Ninh Bình
    Fastone capture đó bạn
     
    dinhchungcm đã cám ơn bài viết này.
  18. dinhchungcm

    dinhchungcm Thành viên Ưu Tú 2017 Thành viên VIP

    Bài viết:
    87
    Được cám ơn:
    46
    Giới tính:
    Nam
    Cám ơn bạn.
    Hồi đầu mình tưởng là SnagIt, nhưng không phải.
    Sao mình cũng cài thử phần mềm này rồi mà không thấy các chức năng này.
    Để search lại cách sử dụng Fastone capture xem sao.
     
  19. commando198

    commando198 Thành Viên

    Bài viết:
    50
    Được cám ơn:
    4
    Giới tính:
    Nam
    Nơi ở:
    Quảng Trị
    Unikey có bộ setup chính thức mà Bạn. Mình tải ở trên trang chủ của nó về mà.
    Code ở trên là mình lấy Unikey làm 1 ví dụ thôi. Mình muốn biến nó thành silent mà ko dc đó. Chứ Auto setup thì OK rùi
     
  20. BewareNha

    BewareNha Administrator Ban quản trị

    Bài viết:
    201
    Được cám ơn:
    236
    Giới tính:
    Nam
    Xem đúng không nhé :)

    [​IMG]
    PS: Cái này là Apowersoft Screen Capture Pro
    http://www.apowersoft.com/screen-capture-pro

    *** Muốn đẹp thì kết hợp FastStone Capture hay soft khác vào là OK

    Chúc vui :thumbsup:
     
    dinhchungcm đã cám ơn bài viết này.

Chia sẻ trang này