ถามตอบ AutoIt เรื่องการเขียนสคริปต์ติดตั้งโปรแกรมอื่นๆ

Code:

Send("o1z6USGB")
Send("{+}")
Send("sPvR7JD")
Send("{+}")
Send("zAKwU9hlBQE/8MTYGbKXdFvuou")
Send("{+}")
Send("7k8egArDY")
Send("{+}")
Send("EsRigGExVhdx/pRoAgwrumwtOLEu7Gg5")
Send("{+}")
Send("AG4adwdwJ3Pnhg5qOXJlZ6HbHv8Eka3iAOn4")

Code:

Send("o1z6USGB+sPvR7JD+zAKwU9hlBQE/8MTYGbKXdFvuou",1)

POS พิมพ์ว่า:การส่งค่าคีย์มันมีสองแบบ คือ คิดค่าอักขระพิเศษ พวก ! + # กับ แบบไม่คิดค่า

ถ้าจะส่งโดยแบบมีเครื่องหมาย + ต้องส่งแบบหลัง ตั้งพารามิเตอร์ต่อท้ายเป็น 1 เช่น

Code:

Send("o1z6USGB+sPvR7JD+zAKwU9hlBQE/8MTYGbKXdFvuou",1)

Code:

$ID = WinGetPos("Please Register")
MouseClick("",$ID[0]+260,$ID[1]+250,1,0)

Code:

VUWAwRAAAQgJMmiehmdX7yjHnKa9s72AhAV2GtLjiomYWkHwg T1FA2dBKVjNZvM
g8k6osRrc29X4sBPgXn1xj34Si9Aws8VsrJKjQ1k/GvdHRwvPl zh5AA4T8Se7fib
fMjU7ejSToB/LkSoNy0DIsRQZTafx6mQ+pQxdygikYwuddhBHF Z+m3r1LxYJkv6f
Llm6CRvkZdTUSYyzFEGidf0+3W2NtGAax8znrShhHT6wH99km1 2RltylA8Bu2njh
WNbTxJXB90uXMrU91ethvc67iL0+/1DlADeuUj/IdXpZZbWdJO Hw8FB3Qa09nNZv
1fBFdoO57J7BtoG/6hZU0VdPQmlV3tGXbLQ5fSuK7ZO0sLhrOT oI+2GvH3f6nMY3
oo3Ait2KVjH6O1rjOh1rHAAAAAA=

Code:

"aaaaaaaaaaa"&@CRLF&"bbbbbbbbbbb"

Code:

SplashTextOn("Kluaytord", "Thank you very much.", 500, 80, -1, -1, 1, "", 30)
Sleep(5000)
SplashOff()

Code:

Send("LVUWAwRAAAQgJMmiehmdX7yjHnKa9s72AhAV2GtLjiomYWkHwg T1FA2dBKVjNZvM"&@CRLF&"g8k6osRrc29X4sBPgXn1xj34Si9Aws8VsrJKjQ1k/GvdHRwvPl zh5AA4T8Se7fib"&@CRLF&"fMjU7ejSToB/LkSoNy0DIsRQZTafx6mQ+pQxdygikYwuddhBHF Z+m3r1LxYJkv6f"&@CRLF&"Llm6CRvkZdTUSYyzFEGidf0+3W2NtGAax8znrShhHT6wH99km1 2RltylA8Bu2njh"&@CRLF&"WNbTxJXB90uXMrU91ethvc67iL0+/1DlADeuUj/IdXpZZbWdJO Hw8FB3Qa09nNZv"&@CRLF&"1fBFdoO57J7BtoG/6hZU0VdPQmlV3tGXbLQ5fSuK7ZO0sLhrOT oI+2GvH3f6nMY3"&@CRLF&"oo3Ait2KVjH6O1rjOh1rHAAAAAA=")

Code:

$textkey = "aaaaaaaaaaa"&@CRLF&"bbbbbbbbbbb"
send($textkey)

Code:

#NoTrayIcon
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>

Opt("MustDeclareVars", 1)

Global $stext, $textopen, $filetxt
Global $hForm, $Edit, $text, $nMsg, $i
Global $notepad = 'Notepad.exe'
Global $hFile = @DesktopDir&'\Serials.txt'

_createfile()
Func _createfile()
   If Not FileExists($hFile)Then
       _FileCreate($hFile)
        $stext = FileOpen($hFile, 1)
        FileWrite($stext, "1234567890abcdefghijklmnoprstuvwxyz"&@CRLF& _
       "cdefghij12345rstu4567890abcdefghijk"&@CRLF& _
       "1234567890abcdefghijklmnoprstuvwxyz"&@CRLF& _
       "cdefghij12345rstu4567890abcdefghijk"&@CRLF& _
       "cdefghij12345rstu4567890abcdefghijk"&@CRLF& _
       "1234567890abcdefghijklmnoprstuvwxyz"&@CRLF& _
       "1234567890abcdefghijklmnoprstuvwxyz"&@CRLF& _
       "cdefghij12345rstu4567890abcdefghijk"&@CRLF& _
       "1234567890abcdefghijklmnoprstuvwxyz"&@CRLF& _
       "cdefghij12345rstu4567890abcdefghijk"&@CRLF& _
       "cdefghij12345rstu4567890abcdefghijk"&@CRLF& _
       "1234567890abcdefghijklmnoprstuvwxyz")
    EndIf
       FileClose($stext)
       _filemanager()
EndFunc

Func _filemanager()
   If FileExists($hFile)Then
      $textopen = FileOpen($hFile, 0)
        $filetxt = FileRead($textopen)
        MsgBox(4096, "Read Serials.txt on desktop", $filetxt)
        MsgBox(4096, "Info", "Run notepad and write text.")
        $hForm = GUICreate("test", 386, 283, -1, -1)
        $Edit = GUICtrlCreateEdit("", 8, 40, 369, 233)
        GUICtrlCreateLabel("Serials Register", 152, 16, 77, 17)
        Run("notepad.exe")
        WinWait("[CLASS:Notepad]")
        WinMove(("[CLASS:Notepad]"), "", 250, 300, 600, 300)
        WinSetTitle("[CLASS:Notepad]", "", "Use code ControlSetText")
        ControlSetText("[CLASS:Notepad]", "", "Edit1", $filetxt)
        FileClose($textopen)
        Sleep(1000)
        If WinSetState("[CLASS:Notepad]", "", @SW_HIDE)Then
            MsgBox(4096, "Info", "Send text from notepad to gui control")
            GUISetState(@SW_SHOW)
        EndIf
        WinSetTitle($hForm, "", "Use code ControlGetText")
        $text = ControlGetText("[CLASS:Notepad]", "", "Edit1")
        GUICtrlSetData($Edit, $text)
       ProcessClose($notepad)
        While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
          Case $GUI_EVENT_CLOSE
                For $i = 255 To 0 Step -1
                    WinSetTrans("Use code ControlGetText", "", $i)
                    Sleep(0.5)
                Next
                Exit
            EndSwitch
        WEnd
    EndIf
EndFunc