อยากทำโปรแกรม Silent Install แต่เขียนสคริปไม่เป็น ช่วยด้วยครับ...!

สั่ง run โปรแกรมหรือไฟล์แคร็กต่อจากการติดตั้งปกติได้เลยครับ อย่างเช่น (ใส่ @SW_HIDE ต่อท้ายเพื่อซ่อนหน้าต่าง ในตอนท้าย ตอนเริ่มเขียนยังไม่ต้องใส่)

Code:

Run(@WindowsDir & "\Notepad.exe", "", @SW_HIDE)

จากนั้นเขียนคำสั่งควบคุมปกติเหมือนการติดตั้งโปรแกรม

ปล. ไม่มีตัวอย่างโปรแกรม แต่ถ้าคุณมีไฟล์ติดตั้ง AutoIt ที่อยากจะทำแบบนั้น ก็ส่งไฟล์มาให้ได้ครับ ผมจะอธิบายให้ว่าเขาเขียนแบบไฟล์นั้นเขียนอย่างไร

กรณีที่ 1.โปรแกรมจะต้องใส่ License Key หลังจากลงเสร็จ
ยกตัวอย่างโปรแกรมนี้ครับ > Download

พอลงโปรแกรมเสร็จโปรแกรมก็จะรันขึ้นมา...เราต้องการทำให้เป็น Full version
โดยใส่ License Key แบบ Automatic เราจะต้องเขียนสคริป Autoit อย่างไรครับ...
รบกวนเขียนสคริปของ Autoit พร้อมคำอธิบายมาให้ผมดูเพื่อเป็นตัวอย่างหน่อยครับ
ผมไม่มีพื้นฐานเรื่องภาษาคอมฯเลย...ศึกษาเอาเองจากในเว็บทั้งนั้นครับ...
ที่ทำได้เพราะเขามีไกด์ไลน์มาให้....แต่โปรแกรมพวกที่จะต้องใส่ License Key
หรือจะต้องแคร๊ก, Patch ผมต่อยอดสคริปไม่เป็นเลยครับ...
ผมเขียนได้เพียงแค่นี้ครับ...ไปต่อไม่เป็น...

Run("Auslogicb.exe")
WinWaitActive("","Welcome")
Send("{ENTER}")
WinWaitActive("","License Agreement")
send("{TAB}{UP}{ENTER}{ENTER}{ENTER}{ENTER}")
WinWaitActive("","Select Additional Task")
Send("{DOWN}{SPACE}{DOWN}{SPACE}{ENTER}")
Sleep(8000)
Send("{TAB}{TAB}{ENTER}")

-----------------------------------------------------------------------------------------------

กรณีที่ 2.โปรแกรมจะต้อง Crack ให้เป็น Full version โดยการ Replace แคร๊กไฟล์ใน Directory folder ของโปรแกรม
ยกตัวอย่างโปรแกรมนี้ครับ > Download
รบกวนเขียนสคริปให้ดูเป็นแนวทางหน่อยครับ...

-----------------------------------------------------------------------------------------------

กรณีที่ 3.โปรแกรมจะต้อง Patch ให้เป็น Full version โดยการใช้ Patch file ที่แนบมาให้ เสร็จแล้วเราจะ Add ไฟล์ภาษาไทยเข้าไปด้วยโดยมีไฟล์ add_Thai
เป็น Self Extract มาให้ เราจะต้องเขียนสคริป Autoit ทำให้เป็น Silent Install อย่างไรครับ รบกวนขอตัวอย่างด้วยครับ...
ยกตัวอย่างโปรแกรมนี้ครับ > Download

[You must be registered and logged in to see this image.]

่ท่านเป็นคนแรกที่ผมจะแนะนำในสิ่งที่ท่านทำต่อไม่ได้ให้ เพราะมันง่ายสำหรับผม
ผมเขียนสคริ๊ปคำสั่งได้หลายภาษา ทำโปรแกรมขึ้นไปแจกบนเว็บมาแล้วเป็นร้อย
บทความเกี่ยวกับการติดตั้งโปรแกรม+ลงทะเบียนอัติโนมัติ ผมก็เคยลงไว้ให้ในบอร์ดบางเว็บ
ถ้าท่านสนใจจริงๆ ขอให้มาโพสท์กระทู้ตอบอีกครั้งว่าต้องการให้ทำกับโปรแกรมอะไร?เป็นตัวอย่าง
แล้วผมจะกลับมาลงบทความแนะนำให้

ดีใจสุดๆครับท่าน sak2010 ปรมาจารย์แห่งการเขียนสคริป...เข้ามาตอบกระทู้ของผม
ผมพยายามที่จะค้นหาความรู้จาก Google ก็เข้าไปเจอกระทู้ของท่าน sak2010 เยอะมากๆ
เข้าไปอ่าน...แต่ก็ไม่ตรงตามความต้องการของผม...

อยากให้เขียนให้ชมในกรณีของโปรแกรมนี้ก่อน
กรณีที่ 3.โปรแกรมจะต้อง Patch ให้เป็น Full version โดยการใช้ Patch file ที่แนบมาให้ เสร็จแล้วเราจะ Add ไฟล์ภาษาไทยเข้าไปด้วยโดยมีไฟล์ add_Thai
เป็น Self Extract มาให้ เราจะต้องเขียนสคริป Autoit ทำให้เป็น Silent Install อย่างไรครับ รบกวนขอตัวอย่างด้วยครับ...
ยกตัวอย่างโปรแกรมนี้ครับ > คลิ๊กที่นี่เพื่อโหลดโปรแกรม

[You must be registered and logged in to see this image.]

ผมอยากทำเป็น...อยากรู้จริงๆครับ สำหรับการทำโปรแกรม Silent Install
ผมนอนไม่หลับมาหลายคืนแล้วครับ...
ภาษาคนพอรู้จัก...แต่ภาษาคอมฯ มึนตึ๊บ...โดยเฉพาะภาษาที่ใช้ในการเขียนสคริป...
รู้แต่ว่ามันมีเขียนใส่ในโน๊ดแพดแล้ว save เป็นไฟล์นามสกุล .bat, .vbs, .jar อะไรประมาณนี้
แต่ไม่รู้เลยว่าจะต้องเขียนอะไรลงไปบ้างก่อนที่จะ save
มันมืดแปดด้านไปหมด...พยายามหาข้อมูลในเน็ต...หาแล้วหาอีก...แต่มันก็ไม่ได้ช่วยอะไรมากนัก
มีตัวช่วยอย่างโปรแกรม Autoit ก็ทำได้เฉพาะฟรีโปรแกรม แต่พอมาเป็นโปรแกรมที่จะต้องใส่
License Key, Crak, Patch ผมล่ะเหมือนวัวพันหลัก...ไปต่อไม่เป็นเลยครับ..
จนมาเจอกับท่าน sak2010 ผมล่ะตื้นตันใจสุดๆ....ผมขอกราบงามๆแทบเท้าเลยครับ
ขอความรู้...ขอตัวอย่างในการเขียน...อย่างละเอียดเลยครับ...เอาแบบแจ่มแจ้งแดงแจ๋ไปเลย
คิดเสียว่าสอนเด็กอนุบาลก็แล้วกันครับ....เพราะผมไม่รู้อะไรเลยจริงๆ....

เรียนเชิญท่านอาจารย์ sak2010 แสดงการเขียนสคริป
ทำโปรแกรม Silent Install ในกระทู้นี้ได้เลยครับ.....ขอแบบละเอียดๆนะครับ
อธิบายให้เข้าใจทุกๆขั้นตอนเลยนะครับ....
ขอกราบขอบพระคุณท่าน อ.sak2010 ไว้ล่วงหน้าครับ...


รออยู่นะอาจารย์...
ใจจะขาดแล้วเอ๊ยยยย...!...
ใจจะขาดแล้วเอยยยย...
ส่งมาทาง E-Mail ก็ได้นะครับ
[You must be registered and logged in to see this link.]

อย่าเรียกอาจารย์เลยนะ เรียกท่านsak2010ก็พอ เพราผมจะสอนท่านเป็นคนสุดท้าย และจะไม่สอนใครอีกแล้ว
ขอให้ท่านนำความรู้ไปใช้ในเชิงสร้างสรรก็แล้วกัน มีข้อแม้ที่ท่านจะต้องให้สัญญากับผมว่่า ห้ามทำ Crack แจกผู้อื่นบนเน็ต ทำใช้กับโปรแกรมตัวเองที่ใช้อยู่ที่บ้านได้ เพราะสักวันหนึ่ง เจ้าของลิขสิทธิ์เขาคนไม่ไหว
เกิดเอาเรื่องขึ้น ท่านจะเดือดร้อน นี่เตือนไว้ก่อนล่วงหน้า เอาแค่ได้รู้ในสิ่งที่ไม่รู้ก็แล้วกันนะ...
------------------------------------------------------------------------------------------------------
โปรแกรมของท่าน ผมดาวน์โหลดมาดูแล้ว ทดลองติดตั้งแล้ว ปรากฏว่าโปรแกรมใช้งานได้เต็มเวอร์ชั่นเลย แสดงว่า คนโมโปรแกรมนี้เขาใช้วิธีลงทะเบียนโปรแกรมทาง Registry โดยการเขียนสคริ๊ปคำสั่ง2คำสั่งขึ้นมาดังนี้.
1.เขียนคำสั่ง Setup , AutoSetup หรือใช้โปรแกรมสำหรับทำตัวติดตั้ง
ซึ่งไม่สามารถแตกไฟล์ออกมาดู SourceCodeได้.
2.เขียนคำสั่ง RegPatch ขึ้นมาหรือใช้ไฟล์ .reg สั่งรันทาง command line ..ใช้สำหรับการลงทะเบียน
เขานำ2คำสั่งนี้มารวมกัน ก็จะได้โปรแกรมอย่างที่ท่านส่งมาให้ผมดู อันนี้ถือว่าเป็นกรรมวิธี การสร้างแบบธรรมดามาก ไม่มีอะไรสลับซับซ้อน จะทำให้ Crack ยากกว่านี้ก็ทำได้.

ส่วนการเปลี่ยนโปรแกรมให้เป็นแบบฉบับภาษาไทย เขาใช้วิธีสร้างไฟล์ thai.lng ขึ้นมา ซึ่งก็ทำได้ไม่ยาก
เรามาขั้นตอนการสร้างในหน้าถัดไปกันเลยครับ...

สำหรับโปรแกรมที่ท่านให้มาทำเป็นตัวอย่างนั้น ไม่มี Parameter Silent install ..นั่นก็หมายความว่า
สั่งติดตั้งแบบอัตโนมัติไม่ได้ ต้องใช้วิธีอื่นสั่งติดตั้งแทน เช่นใช้คำสั่ง KeyStorke ดังนี้..
(ความหมายของคำสั่ง จะเขียนแนบท้ายสคริ๊ปไว้ให้)
----------------------------------------------------------------------------------------------------------
ยังเขียนไม่เสร็จนะครับ แต่สามารถนำไปทดลองรันดูได้. (สคริ๊ป .au3 ต้องวางไว้คู่กับโปรแกรมที่สั่งติดตั้ง)

Code:

If FileExists(@ProgramFilesDir & "Internet Download ManagerIDMan.exe") Then  ;คำสั่งตรวจสอบว่าได้ติดตั้งโปรแกรมนี้ไว้หรือไม่?
   MsgBox(0, "", "ท่านติดตั้งโปรแกรมนี้ไว้แล้ว"&@CRLF&"ถ้าต้องการติดตั้งใหม่อีกครั้ง"&@CRLF&"ท่านต้องถอดถอนโปรแกรมนี้ออกจากเครื่อง")
   Exit
Else
   $btn = MsgBox(36, "Internet Download Manager 6 AutoSetup Confirm", "ท่านต้องการติดตั้งโปรแกรม Internet Download Manager 6 ใช่หรือไม่?")
      If $btn = 6 Then
            Dim $pass, $word = '12345'  ;รหัสคือ 12345 ท่านสามารถเปลี่ยนเป็นอย่างอื่นได้.
              While 1
                   $pass = InputBox("ลงทะเบียนโปรแกรม", "Enter: Your Password", Default, "", 100, 50, 370, 300)
                  If @error Then Exit
                If $pass = '' Then
                        MsgBox(0, "", "กรุณาใส่รหัสลงในช่อง")
                        ContinueLoop
                    EndIf
                    If $pass = $word  Then
                     RunWait("Internet Download Manager 6.01 Build 4 Beta.exe")
                     
                                  ;โค๊ดตรงนี้ วันหน้าค่อยกลับมาเขียนเพิ่มเติม.
                     
                                                        ;RegWrite("")
                     MsgBox(0, "", "ติดตั้งเรียบร้อย.")
                      Exit
                      Else
                         MsgBox(0, "", "รหัสผิด ลองใหม่")
                        ContinueLoop
                   EndIf
            WEnd
      Else
         Exit
      EndIf
EndIf

การเขียนสคริ๊ปและการสร้างไฟล์ Patch.exe จริงๆแล้วการสร้างโปรแกรมเพื่อการลงทะเบียน
มีอยู่หลายลักษณะ หลายรูปแบบ แล้วแต่ความคิดสร้างสรรของแต่ละคน ฉนั้นท่านต้องค้นคิดด้วยตนเอง
------------------------------------------------------------------------------------------------------------
อันนี้เป็นโค๊ด Patcher สำหรับโปรแกรม IDM ..ลงไว้ให้2อย่างให้เลือก เพื่อการทดลอง คือ
โค๊ดลงทะเบียนและโค๊ดถอนลงทะเบียน โดยเข้าไปดูการเปลี่ยนแปลงของ Data ใน Registry ตามที่อยู่นี้
Register.reg (ลงทะเบียน)

Code:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager]
"LName"="NoPE"
"Serial"="XXXXX-XXXXX-XXXXX-XXXXX"
"FName"="mine "
"Email"="nope@front.ru"
"AdvIntDriver"=dword:00000001

XXXXX หมายถึง Serial Number ที่ท่านต้องเปลี่ยนตามความเป็นจริง
----------------------------------------------------------------------------
UnRegister.reg (ถอนลงทะเบียน)

Code:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager]
"LName"="NoPE"
"Serial"="-"
"FName"="mine "
"Email"="nope@front.ru"
"AdvIntDriver"=dword:00000001

------------------------------------------------------
Register.au3

Code:

$readRet = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "Serial")
If $readRet <> '' Then
   MsgBox(64, "", "ท่านลงทะเบียนไว้แล้ว ไม่ต้องลงซ้ำอีก.", 3)
Exit
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "Email", "REG_SZ", "nope@front.ru")
Sleep(500)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "FName", "REG_SZ", "mine ")
Sleep(500)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "LName", "REG_SZ", "NoPE")
Sleep(500)
$writRet = RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager", "Serial", "REG_SZ", "XXXXX-XXXXX-XXXXX-XXXXX")  ;Change XXXXX is Serial Number
If $writRet = 1 Then
   ToolTip("Registration complete.", 370, 300, "")
   Sleep(3000)
   ToolTip("")
EndIf
EndIf

-------------------------------------------------------
Register.vbs

Code:

Dim ShellObj, ret
Set ShellObj=CreateObject("WScript.Shell")
ShellObj.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager")
ret = ShellObj.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Internet Download Manager\Serial")
If ret <> "" Then
ShellObj.Popup "ลงทะเบียนไว้แล้ว ไม่ต้องลงซ้ำอีก.",2,"", 0
Else
ShellObj.RegWrite "HKLM\SOFTWARE\Internet Download Manager\Email", "nope@front.ru ", "REG_SZ"
WScript.Sleep 500
ShellObj.RegWrite "HKLM\SOFTWARE\Internet Download Manager\FName", "mine \ ", "REG_SZ"
WScript.Sleep 500
ShellObj.RegWrite "HKLM\SOFTWARE\Internet Download Manager\LName", "NoPE", "REG_SZ"
WScript.Sleep 500
ShellObj.RegWrite "HKLM\SOFTWARE\Internet Download Manager\Serial", "XXXXX-XXXXX-XXXXX-XXXXX", "REG_SZ"
ShellObj.Popup "ลงทะเบียนเรียบร้อย.",2,"", 64
End If
Set ShellObj=Nothing
WScript.Quit()

ผมสัญญาครับว่าจะนำความรู้ที่ได้ไปใช้ในเชิงสร้างสรรค์
ขอบพระคุณท่าน อาจารย์ sak2010 เป็นอย่างสูงครับที่มีเมตตาต่อผม
และบอร์ดแห่งนี้...ความรู้เป็นสิ่งที่ดีงามครับ...แต่การนำไปใช้
มันอยู่ที่จิตสำนึกของผู้นำมันไปใช้มากกว่า...

ดาบไม่สามารถเลือกได้ว่าจะเอาทางที่เป็นคมหรือทางที่เป็นสันฟันศรัตรู
คนถือดาบต่างหากที่เป็นคนเลือก...(คมมั๊ย !...คิดเองนะเนี่ย...คิดได้งัย...อิอิ)


โค๊ดในกรณีที่ท่านเขียนมาให้ดูนั้นมันดีมากๆครับ...รอบคอบ...
คลอบคลุมดีครับ ชอบมากๆครับ
*และขอโค๊ดที่เอาแบบดับเบิ้ลคลิ๊ก...ปล่อยเม้าส์...
แล้ว Auto install ไปจนเสร็จเลยอ่ะครับ...
ไม่ต้องตอบคำถาม Yes หรือ No อะไรอีกแล้วอ่ะครับ...
เอาแบบ Real Silent Install อ่ะครับ...
ขอบพระคุณไว้ล่วงหน้าครับ....

ผมขออนุญาตเรียกท่านว่า "อาจารย์ sak 2010" นะครับ...ผมว่าเหมาะสมเป็นที่สุดแล้ว
ผมให้เกียรติท่านครับ....ดูจากประวัติของท่านที่ผมเคยอ่านเจอแล้ว...ไม่ธรรมดาครับ...
ผมยังฝันในใจอยู่เหมือนกันว่าจะมีโอกาสได้รับความรู้จากท่านหรือเปล่า...
และแล้วฝันก็เป็นจริงครับ...ขอบพระคุณท่านเป็นอย่างสูง...จากใจจริงครับ....
อย่าทิ้งบอร์ดแห่งนี้ไปไหนนะครับ...ผมหวังว่าบอร์ดแห่งนี้จะเป็นบอร์ดแห่งความรู้ที่ได้จากท่าน...มากที่สุด

*อ้อ...มีอีกอย่าง...ถ้าผมต้องการที่จะเริ่มเรียนรู้
เกี่ยวกับการเขียน Source Code หรือ Script
คำสั่งที่เขียนด้วย Dos Batch file ผมจะเริ่มอย่างไร
ผมอยากรู้ว่าอักษรที่เขียนลงไปเป็นโค๊ดแต่ละตัว
มันหมายความว่ายังงัย...?....อยากรู้มากๆ
อยากเขียนเป็น...จะเริ่มยังงัย...? โดยเฉพาะ
การเขียน Script ติดตั้งโปรแกรมอัตโนมัติ(Silent Install)
เนี่ย....อยากทำเป็นสุดๆ....ผมไม่มีพื้นฐาน(Basic)
แต่ผมมีความสนใจ...อาจารย์ sak2010 ช่วยแนะนำด้วยนะครับ...
หรือไม่ก็เขียนลงในบอร์ดนี้ให้ดูเป็นตัวอย่างเลย...
อ่ะยกตัวอย่างโปรแกรม KMPlayer ซึ่งเป็น Free Program

Code:

@echo off
start kmp.exe

1.รันขึ้นหน้าต่างนี้มาละ...
จะเขียนคำสั่งว่ายังงัยเพื่อที่จะตอบ OK สำหรับหน้าต่างนี้
[You must be registered and logged in to see this image.]


2.เขียนคำสั่งตอบ OK เสร็จแล้ว...ขึ้นหน้าต่างนี้มา
จะเขียนคำสั่งว่ายังงัยเพื่อที่จะตอบ Next สำหรับหน้าต่างนี้
[You must be registered and logged in to see this image.]


3.เขียนคำสั่งตอบ Next เสร็จแล้ว...ขึ้นหน้าต่างนี้มา
จะเขียนคำสั่งว่ายังงัยเพื่อที่จะตอบ I Agree สำหรับหน้าต่างนี้
[You must be registered and logged in to see this image.]


4.เขียนคำสั่งตอบ I Agree เสร็จแล้ว...ขึ้นหน้าต่างนี้มา
จะเขียนคำสั่งว่ายังงัยเพื่อที่จะเลือก Full Install และคำสั่งตอบ Next สำหรับหน้าต่างนี้
[You must be registered and logged in to see this image.]


5.เขียนคำสั่งเลือก Full Install และคำสั่งตอบ Next เสร็จแล้ว...ขึ้นหน้าต่างนี้มา
จะเขียนคำสั่งว่ายังงัยเพื่อที่จะเลือก Install สำหรับหน้าต่างนี้
[You must be registered and logged in to see this image.]


6.เขียนคำสั่งเลือก Install เสร็จแล้ว...ขึ้นหน้าต่างนี้มา
เราจะเขียนคำสั่งเพื่อหน่วงเวลา...หรือเพื่อคอยจนกว่าจะขึ้นหน้าต่างต่อไปอย่างไร
[You must be registered and logged in to see this image.]


7.เขียนคำสั่งหน่วงเวลาเสร็จแล้ว...ขึ้นหน้าต่างนี้มา
เราจะเขียนคำสั่งเพื่อเอาติ๊กถูกพวกนี้ออก(เราไม่ต้องการของแถม)...
แล้วเขียนคำสั่งเลือก Next ต่อไปอย่างไรสำหรับน้าต่่างนี้
[You must be registered and logged in to see this image.]


8.เขียนคำสั่งในหัวข้อที่ 7 เสร็จแล้ว...ขึ้นหน้าต่างนี้มา
เราจะเขียนคำสั่งเพื่อเอาติ๊กถูกออก...แล้วต่อด้วยคำสั่งเลือก
Finish ต่อไปอย่างไรสำหรับน้าต่่างนี้
[You must be registered and logged in to see this image.]

นี่ครับ...Step by Step เอาแบบว่าเป็นขั้นเป็นตอนไปก่อน
เอาอิติปิโสเดินหน้าไปก่อน...อิติปิโสถอยหลัง...เดี๋ยวค่อยว่ากัน
อะไรประมาณนี้ จะได้รู้ความหมายของแต่ละคำสั่งว่าเมื่อเจอแต่ละกรณี
เจอแต่ละ Step จะต้องเขียนคำสั่งอย่างไร...ส่วนการประยุกต์หรือพลิกแพลง
เอาไว้ค่อยว่ากันทีหลัง...ขอเอา Basic แบบตรงประเด็น...
ขอเป็นโค๊ดของ Batch file ครับ...
ขอบพระคุณเป็นอย่างสูงไว้ล่วงหน้าครับ....

KMPlayer รุ่นล่า่สุด มี s-parameter แต่สั่งรันออโต้ไม่ได้ ผมลองรันดูแล้ว ติดอยู่ที่หน้าแรก
ต้องใช้คำสั่ง *.vbs หรือ *.au3 เขียนคีย์่ส่ง แล้วนำไปรันในดอส *.bat อีกที ดังตัวอย่างโค๊ดข้างล่าง
---------------------------------------------------------------------------------------------------------
อันนี้เป็นคำสั่ง ส่งคีย์บังคับปุ่ม ..ไฟล์สกุล .au3 ..ให้ท่าน compile หรือแปลงเป็นไฟล์สกุล .exe
แล้วนำชื่อไฟล์ที่แปลง ไปใส่ไว้ในคำสั่ง dos .bat ด้านล่าง
AutoIt.au3

Code:

Run("kmp.exe")
WinActivate("Installer Language")
WinWaitActive("Installer Language", "", 3)
Sleep(1000)
Send("{TAB}")
WinWaitActive("Installer Language", "", 1)
Sleep(1000)
Send("{ENTER}")
WinWaitActive("The KMPlayer Setup", "", 1)
Sleep(1000)
Send("!N")
WinWaitActive("The KMPlayer Setup", "", 1)
Sleep(1000)
Send("!A")
WinWaitActive("The KMPlayer Setup", "", 1)
Sleep(1000)
Send("!N")
WinWaitActive("The KMPlayer Setup", "", 1)
Sleep(1000)
Send("!I")
Sleep(28000)
Send("{SPACE}")
WinWaitActive("The KMPlayer Setup", "", 1)
Sleep(1000)
Send("!F")

-------------------------------------------------------------------------------------
Dos.bat

Code:

@ echo off
title KMPlayer AutoSetup
color 9f
echo.
echo Installing..Please wait
start/wait kmp_keys_install.exe
echo.
echo Done.
ping localhost -n 2 >nul
exit

อันนี้เพิ่งค้นพบวิธีติดตั้งแบบ silent install ..ต้องส่งคีย์1ครั้ง ถึงจะติดตั้งแบบ auto ได้.
Autoit.au3

Code:

Run("kmp.exe /S")
WinActivate("Installer Language")
WinWaitActive("Installer Language", "", 3)
Sleep(1000)
Send("{ENTER}")

อันนี้โค๊ด: AutoHotKey.ahk เป็นภาษาที่ฮิตติดอันดับ ควรเรียนรู้ไว้

Code:

Run, kmp.exe
WinWaitActive, Installer Language, , 3
Sleep, 1000
Send, {ENTER}
WinWaitActive, The KMPlayer Setup, , 1
Sleep, 1000
Send, !N
WinWaitActive, The KMPlayer Setup, , 1
Sleep, 1000
Send, !A
WinWaitActive, The KMPlayer Setup, , 1
Sleep, 1000
Send, !N
WinWaitActive, The KMPlayer Setup, , 1
Sleep, 1000
Send, !I
WinWaitActive, The KMPlayer Setup, , 1
Sleep, 28000
Send, {Space}
WinWaitActive, The KMPlayer Setup, , 1
Sleep, 1000
Send, !F

-----------------------------------------------------------------------
silent install.ahk

Code:

Run, kmp.exe /S
WinWaitActive, Installer Language, , 3
Sleep, 1000
Send, {ENTER}

silent install.vbs (Visual Basic Script)

Code:

Dim ShellObj
sCommand="kmp.exe /S"
Set ShellObj=CreateObject("WScript.Shell")
ShellObj.Run sCommand
ShellObj.AppActivate "Installer Language"
WScript.Sleep 4000
ShellObj.SendKeys "{ENTER}"
Set ShellObj=Nothing
WScript.Quit()

----------------------------------------------------------
silent install.js (Java Script)

Code:

sCommand=("kmp.exe /S");
var ShellObj=new ActiveXObject("WScript.Shell");
ShellObj.Run(sCommand);
ShellObj.AppActivate ("Installer Language");
WScript.Sleep (4000);
ShellObj.SendKeys ("{ENTER}");

ขอแจ้งให้ท่านทราบว่าโปรแกรม IDM ไม่สามารถส่งคีย์เพื่อติดตั้งได้ ถูกล๊อคคีย์ไว้
แต่ยังพอมีทางทำให้ติดตั้งแบบAutoได้ โดยการใช้โปรแกรม MultiSet หรือใช้คำสั่ง MouseClick
ซึ่งต้องใช้เวลาในการประยุกต์และออกแบบ ฉนั้นจะนำมาลงให้ภายหลัง.

ตัวอย่าง:โค๊ดคำสั่งรันไฟล์ Register.reg ใน Dos.bat

Code:

@ echo off
title IDM Registration
color 9f
echo.
echo Registering...
start/wait Regedit /S idm.reg  ;<-- add name file.reg at create. --<<
echo.
echo Done.
ping localhost -n 2 >nul
msg * /time:2 "Registered Completed."
exit

------------------------------------------------------------------------------------
AutiIt.au3
อันนี้ใส่คำสั่งตรวจสอบว่า มีการติดตั้งโปรแกรมไว้แล้วหรือไม่ ป้องกันการติดตั้งซ้ำ
ใส่คำสั่งตรวจสอบ การสิ้นสุดการติดตั้ง เพื่อให้รู้ว่า ติดตั้งโปรแกรมเสร็จเรียบร้อยแล้ว.

Code:

If FileExists(@ProgramFilesDir & "\The KMPlayer\KMPlayer.exe") Then
MsgBox(0, "", "KMPถูกติดตั้งไว้แล้ว ไม่ต้องติดตั้งอีก"&@CRLF&"ถ้าต้องการติดตั้งใหม่ ต้อง Uninstall KMPlayer", 10)
Exit
Else
$pid = Run("kmp.exe /S")
WinActivate("Installer Language")
WinWaitActive("Installer Language", "", 3)
Sleep(1000)
Send("{ENTER}")
Sleep(1000)
If ProcessWaitClose($pid) Then MsgBox(64, "", "Install complete.", 2)
EndIf

kluaytord พิมพ์ว่า:

[size=30]ขอบพระคุณเป็นอย่างสูงครับ....จะเก็บไว้ทุกช็อตเลยครับ...[/size]

ไหนๆก็จะสอนทิ้งทวนกันแล้ว อยากรู้อะไร?อีก ถามมาได้เลย จะตอบทุกคำถามที่รู้.

อันนี้เป็นโค๊ดที่ผมใช้ Autoit Record
แล้วลองมั่วๆเอา...ติดตั้งโปรแกรม
KMPlayer ได้เหมือนกันครับ...ฟลุ๊กอ่ะครับ...อิอิ
ตัว KMPlayer ที่ท่านอาจารย์โหลดไปนั้น
มันจะมีของแถมมาให้ด้วยคือพวก Ask Toolbar
ถ้าในกรณีที่เครื่องคอมฯเราเคยลง Ask Toolbar
มันจะไม่ขึ้นหน้าต่างที่จะให้เลือกติดตั้งหรือเอาออก
มันจะขึ้นหน้าต่าง Install มาเลย...นั่นหมายความว่า
มีโอกาสผิดพลาดในการติดตั้งได้กับเครื่องที่มี Ask Toolbar
และเครื่องที่ไม่มี....
ส่วนโค๊ดที่ผมเขียนมาให้ดูตัวอย่าง
นี้ผมลองทำจาก KMPlayer
ที่ไม่มีของแถมผมจึงคิดว่าลงได้ทุกเครื่องแบบไม่มีปัญหาครับ
อาจารย์ช่วยดูให้ด้วยนะครับ...สมควรที่จะปรับปรุง
หรือแก้ไขตรงไหน

Code:

Opt("MouseCoordMode",0)

_WinWaitActivate("KMP","")
Run ("kmpr.exe")
_WinWaitActivate("Installer Language","")
MouseClick("left",151,137,1)
Sleep (300)
_WinWaitActivate("The KMPlayer 2.9.4.1434 Setup","")
MouseClick("left",356,359,1)
Sleep (300)
_WinWaitActivate("The KMPlayer 2.9.4.1434 Setup ","")
MouseClick("left",358,361,1)
Sleep (400)
MouseMove(272,152)
MouseDown("left")
MouseMove(272,151)
MouseUp("left")
Sleep (400)
MouseClick("left",245,182,1)
Sleep (400)
MouseClick("left",361,364,1)
Sleep (700)
MouseClick("left",361,364,1)
Sleep (17000)
MouseClick("left",199,177,1)
MouseClick("left",368,365,1)

#region --- Internal functions Au3Recorder Start ---
Func _WinWaitActivate($title,$text,$timeout=0)
   WinWait($title,$text,$timeout)
   If Not WinActive($title,$text) Then WinActivate($title,$text)
   WinWaitActive($title,$text,$timeout)
EndFunc

มันจะมีปัญหาตรงที่การหน่วงเวลาขณะ Install
ถ้าเราหน่วงเวลาเร็วไป...คำสั่งต่อไปมันจะมาก่อนที่จะขึ้้นหน้าต่าง Finish
หน้าต่่าง Finish มันก็จะค้างอยู่อย่างนั้น...
เพราะคำสั่งมันออกไปก่อนที่จะถึงหน้านี้แล้ว
ถ้าเราหน่วงเวลาช้าไป...มันก็ดูช้า...แต่คำสั่งออกครบ...
มีวิธีแก้ปัญหาการหน่วงเวลาแบบนี้ไหมครับ...
นั่นผมหมายความว่า...เราสามารถเขียนคำสั่ง
ได้หรือไม่ว่า "คำสั่งสำหรับหน้า Finish จะมาได้ก็ต่อเมื่อหน้าต่าง Finish โผล่ขึ้นมา"
อะไรประมาณนี้อ่ะครับ...เพราะการหน่วงเวลา
โดยใช้คำสั่งของ Autoit มันยังไม่ตรงใจอ่ะ...

ท่านต้องกลับไปอ่านบทความที่ผมเขียนแนะนำไว้ เกี่ยวกับเงื่อนไขการหน่วงเวลาให้เหมาะกับการส่งคีย์
ท่านจะเอาคำสั่งที่ได้มาจากโปรแกรม record มาเป็นมาตรฐาน ทำโปรแกรม Auto ไม่ได้
ท่านต้องคิดเอง ทำเอง ต้องดัดแปลงคำสั่งที่เขียนนิดหน่อยถึงจะสำเร็จ
มีปัจจัยตัวแปรหลายอย่าง ที่ทำให้การส่งคีย์ ไม่มีความเสถียรเท่าที่ควร
เลิกล้มความคิดที่จะใช้โปรแกรม Record ได้แล้ว ผมไม่เคยใช้มันเลย
เอาโค๊ดของผมที่ลงไว้ให้ไปศึกษา และทดลองดัดแปลงติดตั้งกับโปรแกรมอื่นบ้าง.

โอ้ว มาทัน ช็อตเด็ดพอดีเลย ก่อนอื่นเลยผมว่าคุณ kluaytord ยังไม่ได้อ่านบทความautoit ของท่าน POS (webmaster) ผมแนะนำให้กลับไปอ่านและทำความเข้าใจเสียก่อนนะครับ ซึ่งมีหลายบทความที่เป็นประโยชน์ไม่ว่าจะเขียนสคริบเป็นหรือไม่ก็สมมารถทำความเข้าใจได้ง่ายๆครับ [You must be registered and logged in to see this link.]

อันนี้เป็นคำสั่งติดตั้งโปรแกรม AutoHotkey ซึ่งเป็นอีกภาษาหนึ่งที่อยากให้เรียนรู้กัน
เพราะต่อไปโปรแกรมนี้ จะมาเทียบรัศมี AutoIt ..ประโยชน์ใช้สอยตามกันมาติดๆ
ลองดาวน์โหลดไปศึกษาดูครับ หาความรู้เพิ่มเติมได้ที่.. [You must be registered and logged in to see this link.]

Code:

;----------------------------------------start script---------------------------------------------
#NoTrayIcon
Opt("MustDeclareVars", 1)
main()
Func main()
Global $btn, $number, $password, $pid, $diret, $files, $ret
If FileExists(@ProgramFilesDir & "\AutoHotkey\AutoHotkey.exe") _
    And FileExists(@ProgramFilesDir & "\AutoHotkey\SciTE\SciTELaunch.exe") Then
   _uninst()
Else
$btn = MsgBox(36, "AutoHotkey_AutoSetup.", "ท่านต้องการติดตั้งใช่หรือไม่?", 60)
If $btn = 6 Then
Dim $number = "5002kas" ;<-- password for installation. --<<
While 1
$password = InputBox("User Password Confirm.", "Enter: Your password", Default, "*", 230, 116, 400, 350)
If @error Then
Exit
ElseIf $password = "" Then
MsgBox(4096, "", "กรุณาใส่รหัสลงในช่อง.", 3)
ElseIf $password <> $number Then
MsgBox(48, "", "ท่านใส่รหัสผิด ลองใหม่.", 3)
ElseIf $number = $password Then  ;<-- Install programs. --<<
ToolTip("Installing..Please wait! ", 500, 350, "AutoHotkey Setup", 1, 2)
$pid = Run("AutoHotkey104805_Install.exe /S")
If ProcessWaitClose($pid) Then
ToolTip("Installing..Please wait! ",500, 350, "SciTE4AutoHotkey Setup", 1, 2)
Sleep(3000)
Run("SciTE4AutoHotkey_Install_2_0.exe")
ToolTip("")
WinActivate("SciTE4AutoHotkey v2.0 Installation Program")
WinWaitActive("SciTE4AutoHotkey v2.0 Installation Program", "", 1)
Sleep(6000)
Send("{SPACE}")
Sleep(1500)
Send("{TAB}{TAB}{TAB}")
Sleep(1500)
Send("{ENTER}")
Sleep(1000)
Send("{DOWN}")
Sleep(1500)
Send("{TAB}{TAB}{TAB}{TAB}")
Sleep(1500)
Send("{ENTER}")
Sleep(66000)
Send("{ENTER}")
Sleep(1500)
FileCreateShortcut(@ProgramFilesDir & "\AutoHotkey\SciTE\SciTELaunch.exe", @DesktopDir & "\SciTELaunch.lnk")
ExitLoop
EndIf
EndIf
WEnd
Else
Exit
EndIf
EndIf
EndFunc

Func _uninst() ;<-- Uninstall programs. --<<
$btn = MsgBox(36, "Uninstall AutoHotkey.", "ท่านต้องการถอดถอนโปรแกรมใช่หรือไม่?")
If $btn = 6 Then
ProgressOn("", "Uninstalling..0%", "Please wait!")
ShellExecuteWait(@ProgramFilesDir & "\AutoHotkey\uninst.exe", "/S")
ProgressSet(80, "Please wait!", "Uninstalling..80%")
Sleep(1000)
$diret = DirRemove(@ProgramFilesDir & "\AutoHotkey\SciTE", 1)
If $diret = 1 Then
$files = FileDelete(@DesktopDir & "\SciTELaunch.lnk")
If $files = 1 Then
ProgressSet(100, "Done.", "Uninstalling..100%")
Sleep(1000)
ProgressOff()
Sleep(500)
MsgBox(64, "", "Uninstallation complete.", 3)
EndIf
EndIf
Exit
Else
Exit
EndIf
EndFunc
;----------------------------------------end script---------------------------------------------

ผมอยากรู้สิ่งที่ AutoHotkey ทำได้มากกว่า Autoit ครับ คือเห็นโค๊ดของ Autohotkey แล้วเหมือนจะเป็น Autoit ที่ทำให้ง่ายขึ้นเลย แต่ก็ไม่รู้ข้อแตกต่างของทั้งคู่จริงๆ อยากให้ท่าน sak2010 ช่วยบอกหน่อยครับ

sirchet พิมพ์ว่า:ผมอยากรู้สิ่งที่ AutoHotkey ทำได้มากกว่า Autoit ครับ คือเห็นโค๊ดของ Autohotkey แล้วเหมือนจะเป็น Autoit ที่ทำให้ง่ายขึ้นเลย แต่ก็ไม่รู้ข้อแตกต่างของทั้งคู่จริงๆ อยากให้ท่าน sak2010 ช่วยบอกหน่อยครับ

---------------------------------------------------------------------------------------------------------------------
ดูข้อแตกต่างจากคำสั่งที่เขียนขึ้นมาเปรียบเทียบ รูปแบบคำสั่งจะคล้ายกัน ต่างกันที่คำสั่งที่เขียนเท่านั้น
-------------------------------------------------
AutoIT.au3

Code:

MsgBox(0, "", "Hello world!")

-------------------------------------------------
AutoHotkey.ahk

Code:

MsgBox, 0, , Hello world!

-------------------------------------------------

รบกวนอาจาร sak ช่วยแนะนำคำสั่งเบื่องต้นพร้อมคำอธิบายได้ไหมครับ ผมไม่ค่อยเข้าใจเท่าไรเลยไม่มีพื้นฐานเขียนโปรแกรมด้วย

ไปเจอมา ข้างล่างเป็น สคิปติดตั้ง IDM ครับ แต่เราต้องมีตัว Patch
โดยกำหนดตัว IDM ชื่อ Setup.exe และ Patch.exe

Code:

$TITLE = "Internet Download Manager"

;; ***************************************************************************
;; only code after here

$AllUsersProfile = Envget ("AllUsersProfile")
$Wid = (StringLen ($TITLE) * 5) + 140    ; the width of the window containing screen messages
$Hig = 26    ; the height of the window containing screen messages
$Wai = 111  ; wait time
$VTO = 300  ; very long time out for winwaits
$BTO = 30  ; long time out for winwaits
$LTO = 10  ; short time out for winwaits

;; uncomment this section if the application cannot be easily uninstalled. This allows the user to opt out in case of an accidental launch of the installer.
; $V1 = MsgBox (1,"Install " & $TITLE & "?", "To cancel silent setup of " & $TITLE & ", click CANCEL within 4 seconds...", 4)
; IF $V1 = 2 Then
;    Exit
; EndIf

SplashTextOn("Installing", "Now installing " & $TITLE & "...", $Wid + 50, 22, -1, -1, 50, "Arial", 10)
TrayTip ("Installing", $TITLE, 180, 1)
Sleep (1500)
SplashOff ()

ShellExecute ("setup.exe")
; ShellExecuteWait ("setup.exe", "/SILENT /SUPPRESSMSGBOXES /NORESTART /NOCANCEL /SP-")
; ShellExecuteWait ("setup.exe", "/S")
; ShellExecuteWait ("setup.msi", "/passive /norestart")
; ShellExecuteWait ("setup.msi", "/quiet /norestart")
; ShellExecuteWait ("setup.exe", "/s /v/qn")
; ShellExecuteWait ("regedit.exe", "/S reg.reg", @ScriptDir)

$Txt1 = "Internet Download Manager Installation Wizard"
$Txt2 = ""
$But = "Button2"
$V1 = WinWait ($Txt1, $Txt2, $BTO)
If $V1 = 0 Then
   SplashTextOn("There was an error", "Sorry, but there was an unexpected error, exiting...", $Wid + 50, $Hig, -1, -1, 50, "Arial", 10)
   Sleep (1400)
   SplashOff ()
   Exit
EndIf
WinActivate ($Txt1, $Txt2)
Sleep ($Wai)
ControlClick ($Txt1, $Txt2,$But)

$Txt1 = "Please read IDM license"
$Txt2 = ""
$But = "Button2"
WinWait ($Txt1,$Txt2, $LTO)
WinActivate ($Txt1, $Txt2)
Sleep ($Wai)
ControlClick ($Txt1, $Txt2, $But)

$Txt1 = "Choose Destination Location"
$Txt2 = ""
$But = "Button2"
WinWait ($Txt1,$Txt2, $LTO)
WinActivate ($Txt1, $Txt2)
Sleep ($Wai)
ControlClick ($Txt1, $Txt2, $But)

$Txt1 = "Select Program Manager Group"
$Txt2 = ""
$But = "Button2"
WinWait ($Txt1,$Txt2, $LTO)
WinActivate ($Txt1, $Txt2)
Sleep ($Wai)
ControlClick ($Txt1, $Txt2, $But)

$Txt1 = "Start Installation of Internet Download Manager"
$Txt2 = ""
$But = "Button2"
WinWait ($Txt1,$Txt2, $LTO)
WinActivate ($Txt1, $Txt2)
Sleep ($Wai)
ControlClick ($Txt1, $Txt2, $But)

; files are installed

$Txt1 = "Installation Complete"
$Txt2 = ""
$But = "Button4"
WinWait ($Txt1,$Txt2, $VTO)
WinActivate ($Txt1, $Txt2)
Sleep ($Wai)
ControlClick ($Txt1, $Txt2, $But)


While 1
   $Txt1 = "IDM browser integration"
   $Txt2 = ""
   $But = "Button1"
   WinWait ($Txt1,$Txt2, $LTO)
   WinActivate ($Txt1, $Txt2)
   Sleep ($Wai)
   ControlClick ($Txt1, $Txt2, $But)
   Sleep (999)
   If Not WinExists ($Txt1, $Txt2) Then ExitLoop
WEnd

Sleep (333)

ProcessWait ("IDMAN.EXE", 4)
If ProcessExists ("IDMAN.EXE") Then ProcessClose ("IDMAN.EXE")
If ProcessExists ("iexplore.exe") Then ProcessClose ("iexplore.exe")
If ProcessExists ("firefox.exe") Then ProcessClose ("firefox.exe")

FileMove ("Patch.5.exe", @ProgramFilesDir & "\Internet Download Manager", 1)
Sleep (333)
Run (@ProgramFilesDir & "\Internet Download Manager\Patch.exe")

$Txt1 = ""
$Txt2 = "AlphaPatcher"
$But = "Button1"
WinWait ($Txt1,$Txt2, $LTO)
WinActivate ($Txt1, $Txt2)
Sleep ($Wai)
ControlClick ($Txt1, $Txt2, $But)
$But = "Button3"
Sleep (2555)
ControlClick ($Txt1, $Txt2, $But)
Sleep (999)

FileDelete (@ProgramFilesDir & "\Internet Download Manager\Patch.exe")

;; delete unwanted icons
;$SC = ".lnk"
;FileDelete (@DesktopCommonDir & "" & $SC)
;FileDelete (@DesktopDir & "" & $SC)
;FileDelete (@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch" & $SC)

SplashTextOn ("Installation complete", $TITLE, $Wid, $Hig, -1, -1, 50, "Arial", 10)
TrayTip ("Installation complete", $TITLE, 30, 1)
Sleep (2200)
TrayTip ( "", "", 1, 1)
SplashOff ()