Senin, 27 Juli 2009

belajar autoit


Image
AutoIt v3.3.0.0

©1999-2008 Jonathan Bennett & AutoIt Team


Perkenalan
AutoIt v3 adalah Software bahasa pemrograman mirip dengan BASIC yang gratis, di desain untuk mengotomatis GUI ( antarmuka grapikal ) dan membuat skrip umum. AutoIt menggunakan kombinasi dari simulasi keystroke ( akses tombol ), pergerakan mouse dan manipulasi window/kontrol gunanya untuk otomatisasi pekerjaan yang biasanya ga mungkin ato bergantung pada bahasa lain ( misalnya VBScript dan SendKeys ). AutoIt juga sangat kecil, lengkap dan bisa bekerja pada semua versi Windows tanpa ada kebutuhan "runtimes"!

AutoIt awalnya di desain untuk PC induk yang mengotomatisasi dan mengkonfigurasi ribuan PC lainnya. Seiring waktu AutoIt menjadi sebuah bahasa pemrograman yang kuat, yang mendukung pernyataan yang rumit, fungsi dari pengguna, loop dan semua yang diharapkan dari sebuah pembuat skrip.

Fitur:

* Syntax mirip BASIC yang mudah di pelajari
* mengsimulasi tekanan tombol dan pergerakan mouse
* memanipulasi windows and proses proses
* dapat berInteraksi dengan semua kontrol standar windows
* Script dapat di rubah menjadi file yang dapat dijalankan ( executable )
* membuat antarmuka Graphikal ( GUI )
* mendukung COM
* Pernyataan yang umum
* memanggil secara langsung DLL dan fungsi Windows API eksternal
* fungsi "RunAs" yang bisa di skrip
* File pembantu ( helpfile ) yang ditail dan Forum pendukung berKomunitas besar
* bisa bekerja pada Windows 95 / 98 / ME / NT4 / 2000 / XP / 2003 / Vista / 2008
* mendukung Unicode dan x64
* terdaftar resmi untuk kenyamanan
* bekerja dengan "User Account Control" ( UAC ) pada Windows Vista

AutoIt telah di desain sekecil mungkin dan bekerja sendiri tanpa file .dll eksternal atau kebutuhan entri pada registry, yang membuat AutoIt aman untuk pengguna ato server. Script dapat di kompilasi menjadi sebuah file exe dengan menggunakan Aut2Exe.

Juga telah tersedia sebuah AutoIt versi kombinasi COM dan DLL yang disebut AutoItX yang bikin lo bisa menambahkan fitur unik ke bahasa pemrograman favorite lo sendiri!

Lebih lagi, AutoIt Tetap GRATIS - tapi klo lo mau meluangkan waktu. uang dan bantuan untuk proyek ini dan Hostingan webnya, maka lo dipersilahkan menyumbang di situs AUTOIT ( Freezerland juga ). :P
Sumber: AutoIT Help File



Belajar Kelompok AutoIt

Neh hasil gw utek utek Help File Autoit, buat kalian yang kpengen belajar autoIt.
Kembali gw ingetin, INI BUKAN TUTORIAL, tapi BELAJAR BERSAMA, yang mana disini kita semua berbagi ilmu, tukar fikiran dan pendapat, trik dan tip juga kritik dan saran satu sama lain, yang ngerasa dah jago AutoIt, ga gw anjurin baca, kecuali mo ngoreksi dan nambahin.

Jadi, jangan sebut gw "GURU", "AHLI" apalagi "MASTER", karena gw belajar AutoIt ini baru 2 hari saja :P
Nah, dengan demikian, jika Code Script yang gw bahas masih taraf Darar, maklumilah, karena emang gw belom tau lebih banyak soal AutoIt, dan jangan ngambek klo ada pertanyaan2 lo yang ga bisa gw jawab yeh?

mari kita mulai deh....

Hal pertama yang harus lo kerjakan untuk belajar AutoIt adalah:

1. Berdo'a sebelom belajar, minta kepada Tuhan, kelancaran dan dibukakan Pintu Otak lo buat menerima dan memberi Ilmu.

2. Kalo belom punya Installer AutoIt nya, lo dowbload dulu deh, disini:
Code:
http://www.autoitscript.com/files/autoit3/autoit-v3-setup.exe


3. Download juga Editor Script khusus buat AutoIt, namanya SciTE disini:
Code:
http://www.autoitscript.com/autoit3/scite/download/SciTE4AutoIt3.exe


4. Download juga Editor Form namanya KODA, untuk mempermudah membuat tampilan Applikasi lo disini:
Code:
http://www.autoitscript.com/fileman/users/lookfar/koda_1.7.0.1.zip


5. Kalo semua file yang diatas udah lo download semuanya, maka lo Install deh, AutoIt dan SciTE. kalo KODA tu ga pake Install, lo extract ajah file nya, tempatin ke folder sendiri, tapi biar gampang, lo masukin ke folder AutoIt nya aja..

6. Kalo Udah, lo mau restart kompi lo silaken, klo ga juga gpp

nah, klo dah terinstall di komputer lo, sekarang lo pasti bingung, neh jalanin AutoIt kayak gmana?
Jangan bingung, klo lo dah terbiasa dengan AHK, Lo ga akan kewsulitan di AutoIT. klo pun belom terbiasa dengan AHK ato bahasa pemrograman apapun, jangan takut, gw juga belom terbiasa, jadi lo ga sendirian yang kebingungan :P

Let's Get It On!!

LATIHAN 1
sekarang buka folder dimana lo extract tuh file2 KODA yang tadi lo download. double klik file FD.exe untuk menjalankan KODA.
lalu... tiba tiba... napak dilayar monitor lo sebuah bentuk yang ga lazim, dengan beberapa tool windows di kanan kiri, dan sebuah Form kosong ( ga nyaring bunyinya ).... itulah KODA alias Form Designer untuk AutoIT.
sebenernya bikin tampilan Aplikasi, ga pake KODA juga bisa, lo semua bisa langsung ketik di script semua control2 nya, letak dan ukurannya, dsb.

Image

Keterangan:
1. Standar menuBar, lo tau lah ini buat apaan.
2. Object TreeView, ini buat liat dan akses control2 yang ada di app yang lagi lo bikin.
3. Object Inspector, ini buat liat dan atur properties dari control2 aplikasi lo.
4. Form yang lagi lo kerjain, nanti disini lo simpen semua kontrol lo, kayak tombol, kotak edit, dsb.
5. Form List, ini adalah daftar Form form yang lagi lo kerjain.

nah, klo dah kebuka kayak gini, lo dah siap neh, desain applikasi lo, mo dibikin kayak apa, kontrol apa ajah yang mo lo masukin ke aplikasi lo....

yuk ah, mulai bikin sesuatu...

* Klik Form nya, lalu lo liat di Object Inspector, lo klik Caption, lalu ganti "Form 1" dengan "Latihan1", nama ini yang akan kita pake buat sementara...

* coba lo bikin Kotak edit ( Edit ), caranya klik gambar kotak putih bergaris kayak icon file txt dimenubar ( diatas form ) lalu tunjuk mouse lo ke form, klik dan seret mouse lo, sampe ukuran editbox nya sesuai dengan keinginan lo.

* posisikan editbox tadi sesuai keinginan lo.

* liat di Object inspector, klik pada "Lines" dan klik kotak kecil di situ, maka akan muncul window "String list editor", itu adalah isi editbox yang lo buat, hapus saja isinya, jadi editbox lo akan kosong pada saat form dijalankan. klik OK.

* Kembali ke Object Inspector, sekarang lo klik tab "Styles" yang berada di paling bawah. hilangkan centang pada WS_HSCROLL & WS_VSCROLL, untuk menghilangkan ScrollBar pada editbox tadi jika ga diperlukan.

* buat 1 lagi editbox, caranya seperti diatas, ato lo bisa Klik kanan pada editbox yang dah ada, lalu pilih Copy dan Paste di Form.

* Posisikan Editbox nya dengan menyeret editbox nya, ato tekan tombol CTRL + tombol panah.

* Buat 3 tombol, caranya, lo klik gambar kotak kecil bertuliskan "ok" di menuBar, dan lakukan seperti saat lo bikin Editbox diatas.

* Pada Object Inspector, lo bisa atur Caption ( tulisan ) pada tombol tombol barusan, nama tombol, dan aturan yang laennya, buat saat ini, biarin aja deh dulu.

* setelah semua tersusun rapi, lo klik OnClick, lalu set pilihannya ke "Notify", lalu klik OK. ini agar di script yang nanti otomatis terbuat, sudah ada label untuk tombol2 ini.

* untuk EditBox, lo klik OnChange, dan set ke "Notify" juga.

* Setelah semua lo atur, lo atur tu ukuran form, biar proporsional ma ukuran kontrol2nya, klo ga jg gpp, terserah lo deh :P

* Klik Generate Code, letaknya di sebelah kanan gambar disket ( save ) ato lo pencet ajah F9, maka akan muncul sebuah window "Code", klik segitiga kacil di sebelah kanan tulisan "Copy to clipboard" dan pilih "Save to file", lalu klik Save to Filenya tersebut.
jika ada pertanyaan Your current form not saved. In order to use Update function you should save form before saving script. Do you want to save form?, lo pilih OK untuk save form lo, Lalu kasi nama tu Form sebagai latihan1.kxf, lalu lo klik lagi save to file, dan save code yang dihasilkan oleh KODA menjadi file berekstensi .au3, kasi nama latihan1.au3

* Tutup KODA nya.

* buka folder dimana lo simpen tu file au3, biasanya klo lo ga robah tempat save nya, ada di folder "Forms" di dalem folder dimana KODA berada. klik kanan file latihan1.au3 yang baru saja dihasilkan oleh KODA dan pilih "Edit Script", maka file nya akan ( biasanya ) dibuka secara otomatis oleh SciTE, inget kan apa tu SciTE?

* Hasilnya kira2 kayak gini:

Code:
#include
#include
#include
#include

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate( "Latihan1", 173, 84, 192, 124 )
$Edit1 = GUICtrlCreateEdit( "", 4, 5, 163, 20, BitOR( $ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN ) )
$Edit2 = GUICtrlCreateEdit( "", 4, 31, 163, 20, BitOR( $ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN ) )
$Button1 = GUICtrlCreateButton( "Button1", 4, 59, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan membaca Editbox 1" )
$Button2 = GUICtrlCreateButton( "Button2", 60, 59, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan membaca Editbox 2" )
$Button3 = GUICtrlCreateButton( "Button3", 116, 59, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan menghapus isi Editbox" )
GUISetState( @SW_SHOW )
#EndRegion ### END Koda GUI section ###

While 1
Dim $Teks1, $Teks2
$nMsg = GUIGetMsg( )
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Edit1
Case $Edit2
Case $Button1
Case $Button2
Case $Button3
EndSwitch
WEnd



ga perlu sama persis dengan yang gw kasi diatas lah, yang penting mirip gituh
di AutoIt, Setiap Kontrol yang dipake, diwakili oleh 1 variable, seperti yang kita liat diatas, EditBox diwakili oleh $Edit1, tombol 1 diwakili oleh $Button1.
Variable ini disebut juga nama kontrol, bisa diatur di KODA ato bisa lo ganti langsung di script nya.
untuk saat ini, biarga bikin bingung, gw ga ganti nama kontrolnya, biarkan seadanya dulu deh

Bagian ini:
Code:
#include
#include
#include
#include

itu gw sebut ajah Deklarasi Header, ato pernyataan function eksternal yang akan disertakan dalam script yang akan lo buat. tentang penjabaran lebih ditel, kita tunda aja dulu untuk saat ini, belom saatnya pusing2 mikirin yang begituan, toh segalanya dah otomatis dibikin ma KODA

* mulai deh kita ngutek ngutek code, dan sekalian berkenalan dengan SciTE, Script Editor nya AutoIT.

* Pada bagian yang ini:

Code:
While 1
Dim $Teks1, $Teks2
$nMsg = GUIGetMsg( )
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Edit1
Case $Edit2
Case $Button1
Case $Button2
Case $Button3
EndSwitch
WEnd

lo robah jadi kayak gini:

Code:
While 1
$nMsg = GUIGetMsg( )
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Edit1
Case $Edit2

Case $Button1
MsgBox( 0, "Info", "Tombol 1 neh", 1 )

Case $Button2
MsgBox( 0, "Info", "Yang ini Tombol 2...", 1 )

Case $Button3
MsgBox( 0, "Info", "nahhh yang ini Tombol 3 neh", 1 )
EndSwitch
WEnd

lalu lo save tu file, minimize SciTE, lalu lo double click tu file Latihan1.au3, klo lo ga ada salah waktu ngetik, pasti bisa berjalan dengan mulus neh...

* Coba lo klik tombol 1, 2 dan 3. klo bener koding nya, maka akan muncul message box, yang berdurasi 1 detik tiap message box nya.

* Latihan 1 dan perkenalan selesai sampe sini.....

* Lalu, lo bertanya, untuk apa tuh 2 kotak edit yang dibikin? kok belom dikasi apa apa? Tenang, itu gw bikin kayak gitu, buat dipake di latihan selanjutnya

* sekarang lo maen2 dulu deh ma tombol nya, klo dah puas, lo pahami tuh, Nama kontrol, variable dan semua yang dah ada di Latihan1.


LATIHAN 2

Pada latihan kali ini, kita akan belajar menggunakan manipulasi window, dan penggunaan keystroke.

* Buka file latihan1.kxf yang dah lo bikin sebelomnya oleh KODA, biasanya ada di folder "Forms", lalu lo pilih "file" pada menubar, lalu pilih "save as", dan lo kasi nama tu file jadi "Latihan2.kxf". ini maksudnya agar kita punya 2 file form, yang mana kedua file ini akan kita pake dalam latihan kali ini.

* ganti nama ( caption ) form nya jadi "Latihan2".

* tambahkan 3 tombol pada form, lalu lo robah semua Caption tombol yang ada, jadi seperti ini:

Button1 = Isi
Button2 = Ambil
Button3 = Hapus
Button4 = Click1
Button5 = Click2
Button6 = Click3

* Set Status "OnClick" semua tombol nya menjadi "Notify".

* lalu lo pencet F9, dan klik Save to file, lalu lo kasi nama tu file "Latihan2.au3"

* Tutup lagi KODA nya, klo ada pilihan disuruh safe form ke file, okeh-in ajah dehh

* Edit Script "Latihan2.au3" menggunakan SciTE. hasil generate KODA kira2 kayak gini:

Code:
#include
#include
#include
#include

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate( "Latihan2", 173, 104, 192, 124 )
$Edit1 = GUICtrlCreateEdit( "", 4, 5, 163, 20, BitOR( $ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN ) )
$Edit2 = GUICtrlCreateEdit( "", 4, 31, 163, 20, BitOR( $ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN ) )
$Button1 = GUICtrlCreateButton( "isi", 4, 59, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan mengisi Editbox Target" )
$Button2 = GUICtrlCreateButton( "ambil", 60, 59, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan membaca Editbox Target" )
$Button3 = GUICtrlCreateButton( "hapus", 116, 59, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan menghapus isi Editbox Target" )
$Button4 = GUICtrlCreateButton( "Click1", 4, 80, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan meng-Klik Button1 Target" )
$Button5 = GUICtrlCreateButton( "Click2", 60, 80, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan meng-Klik Button2 Target" )
$Button6 = GUICtrlCreateButton( "Click3", 116, 80, 51, 20, 0 )
GUICtrlSetTip( -1, "Tombol ini akan meng-Klik Button3 Target" )
GUISetState( @SW_SHOW )
#EndRegion ### END Koda GUI section ###

While 1
Dim $Teks1, $Teks2
$nMsg = GUIGetMsg( )
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Edit1
Case $Edit2
Case $Button1
Case $Button2
Case $Button3
Case $Button4
Case $Button5
Case $Button6
EndSwitch
WEnd


keterangannya sama ajah ma yang latihan 1, cuma beda dikit, yang ini punya 6 tombol.

lalu, pada bagian ini:

Code:
While 1
Dim $Teks1, $Teks2
$nMsg = GUIGetMsg( )
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Edit1
Case $Edit2
Case $Button1
Case $Button2
Case $Button3
Case $Button4
Case $Button5
Case $Button6
EndSwitch
WEnd

lo tambahin jadi kayak gini:

Code:
While 1
Dim $Teks1, $Teks2
$nMsg = GUIGetMsg( )
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Edit1
$Teks1 = ControlGetText( $Form1, "", $Edit1 )

Case $Edit2
$Teks2 = ControlGetText( $Form1, "", $Edit2 )

Case $Button1
ControlSetText( "Latihan1", "", "Edit1", $Teks1 )
ControlSetText( "Latihan1", "", "Edit2", $Teks2 )

Case $Button2
$Teks1 = ControlGetText( "Latihan1", "", "Edit1" )
$Teks2 = ControlGetText( "Latihan1", "", "Edit2" )
ControlSetText( $Form1, "", $Edit1, $Teks1 )
ControlSetText( $Form1, "", $Edit2, $Teks2 )

Case $Button3
ControlSetText( "Latihan1", "", "Edit1", "" )
ControlSetText( "Latihan1", "", "Edit2", "" )
ControlSetText( $Form1, "", $Edit1, "" )
ControlSetText( $Form1, "", $Edit2, "" )
$Teks1 = ""
$Teks1 = ""

Case $Button4
ControlClick( "Latihan1", "", "Button1" )

Case $Button5
ControlClick( "Latihan1", "", "Button2" )

Case $Button6
ControlClick( "Latihan1", "", "Button3" )
EndSwitch
WEnd


gw terangin dikit2 yah.... sapa tau bener :P

Code:
While...WEnd

Loop yang berdasarkan pernyataan kondisi. disini ada While 1, arti langsungnya adalah, "Ketika 1", 1 adalah on, bekerja, berjalan, dll. jadi artinya tu kira kira: "Ketika Script berjalan"
loop ini akan berakhir jika kondisi tidak sesuai, misalnya script nya di berhentikan ato di matiin.
rumus:
Code:
While Pernyataan
Perintah2 yang dijalankan klo pernyataan cocok ato benar
Wend

_____________________________________________________________

Code:
$nMsg = GUIGetMsg( )

Baris ini mengawasi dan mengambil setiap aksi yang kita lakukan terhadap window script ini, misalnya klik tombol, ngetik teks, dll, dan menyimpan setiap pemicu event ( kejadian ) tsb kedalam variable "$nMsg".
_____________________________________________________________

Code:
Dim $Teks1, $Teks2

ini namanya Declaration, alias pernyataan variable, untuk menyimpan string/data. ( bener ga yah? )
_____________________________________________________________

Code:
Switch $nMsg

ini adalah pernyataan pilhan kondisi. jika kondisi dari $nMsg sama dengan salah satu pilihan di bawah, maka jalankan perintah yang ada di pilihan itu, fungsinya sama dengan "Select Case"
_____________________________________________________________

Code:
Case $Edit1
$Teks1 = ControlGetText( $Form1, "", $Edit1 )

ini salah satu pilihan kondisi $nMsg diatas.
ini di jalan kan kalo Edit 1 menerima perubahan isi nya, jadi begitu lo ketik di edit, tu data langsung di masukin ke variable $Teks1.
rumus:
Code:
$namaVariable = ControlGetText( $namaWindow, $TeksPadaWindownya, $namaControlYangMoDiambilTeksnya )

_____________________________________________________________

Code:
Case $Button1
ControlSetText( "Latihan1", "", "Edit1", $Teks1 )
ControlSetText( "Latihan1", "", "Edit2", $Teks2 )

ini dijalankan ketika kita klik tombol 1, makan akan mengisi Edit1 dan Edit2 pada window Latihan1, dengan isi dari variable $Teks1 dan $Teks2
rumus:
Code:
ControlSetText( namaWindow, TekspadaWindow, ControlYangMoDiSetTextnya, Teksnya )

_____________________________________________________________

Code:
Case $Button4
ControlClick( "Latihan1", "", "Button1" )

akan di kerjaka jika tombol 4 di tekan, yang mana akan meng-klik tombol 1 pada window latihan1.
rumus:
Code:
ControlClick( namaWindow, TeksPadaWindow, NamaTombolYgMoDiKlik )

_____________________________________________________________

Code:
EndSwitch

Akhir dari pilihan
_____________________________________________________________

* Save File nya, ingat, ini adalah File Latihan2.au3.

* coba lo jalankan Latihan1 dan Latihan2.

* kalo lo ga ada salah ketik, maka hasilnya akan ada 2 window, window Latihan1 dan window Latihan2...

* sekarang lo ketik something lah di edit1 dan 2 window Latihan2, lalu lo klik tombol "Isi", maka teks tersebut akan nampak juga di window Latihan1.

* Klik "Hapus", maka semua teks yang ada di window latihan1 dan latihan2 akan terhapus

* sekarang, lo ketik sesuatu edit1 dan edit2 di window latihan1, lalu klik "Ambil", maka teks2 itu akan atampil di edit1 dan edit2 pada window latihan2.

* Click1 akan mengklik tombol 1 pada window latihan1, dst.

* Sekian Latihan kedua kita kali ini, skarang lo eksperimen aja dulu ma yang udah lo pelajari dari latihan1 ma latihan2 yah??? :P


LATIHAN 3

Sekarang kita naek dikit neh, dari cuman isi editbox ma klak klik sana sini, kita masuk ke yang "rada tinggian" dikit yeh?
di latihan ini, kita bahas soal ListBox, yang mana Kontrol ini banyak dipake di tool2 kiker, misalnya buat daftar target, daftar Nik, dll.

di latihan ini gw langsung kasi sample aja deh, gw pikir, cape juga ngetik2, lagian, gw yakin, lo dah pada ngerti deh, gmana bikin form, ngisi kontrolnya, trus yang dasar2 nya lah, klo lom ngerti juga, ya silaken nanya disini yah

neh script sample nya, lo copy dan paste ajah, bikin jadi file "latihan3.au3".

Code:
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: The_Freezer

Script Function:
Latihan 3.
Dasar Listbox

#ce ----------------------------------------------------------------------------
#include
#include
#include
#include
#include

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate( "Latihan3", 328, 351, 192, 124 )
$Edit1 = GUICtrlCreateEdit( "", 5, 300, 157, 20, BitOR( $ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN ) )
$Edit2 = GUICtrlCreateEdit( "", 165, 300, 157, 20, BitOR( $ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN ) )
$List1 = GUICtrlCreateList( "", 5, 6, 157, 292, BitOR( $LBS_SORT,$LBS_STANDARD,$WS_VSCROLL,$WS_BORDER ) )
$List2 = GUICtrlCreateList( "", 165, 5, 157, 292, BitOR( $LBS_SORT,$LBS_STANDARD,$WS_VSCROLL,$WS_BORDER ) )
$Tambah = GUICtrlCreateButton( "Tambah", 5, 324, 76, 21, 0 )
GUICtrlSetTip( -1, "Tombol ini akan menambahkan isi Edit1 ke List1" )
$TambahSmua = GUICtrlCreateButton( "Tambah smua", 86, 324, 76, 21, 0 )
GUICtrlSetTip( -1, "Tombol ini akan menambahkan semua isi List1 ke List2" )
$Hapus = GUICtrlCreateButton( "Hapus 1", 165, 324, 50, 21, 0 )
GUICtrlSetTip( -1, "Tombol ini akan menghapus isi Edit2 dari List2" )
$HapusSmua = GUICtrlCreateButton( "HpsSmua", 216, 324, 55, 21, 0 )
GUICtrlSetTip( -1, "Tombol ini akan menghapus isi List1 dan List2" )
$KickSmua = GUICtrlCreateButton( "HAJAR", 272, 324, 50, 21, 0 )
GUICtrlSetTip( -1, "Tombol ini akan meng-kick isi List2" )
GUISetState( @SW_SHOW )
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg( )
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Edit1
;Baca data di Edit1
$Teks1 = GUICtrlRead( $Edit1 )

Case $Edit2
;Baca data di Edit1
$Teks2 = GUICtrlRead( $Edit2 )

Case $Tambah

;tambah data listbox
_GUICtrlListBox_AddString( $List1, $Teks1 )

;Kosongkan Edit1
GUICtrlSetData( $Edit1, "" )

Case $Hapus
$Teks2 = GUICtrlRead( $Edit2 )

;Cari data yg dibaca diatas di listbox2 dan simpan indexnya jika ada yang sama
;True = harus sama persis, misal: ABCD = ABCD
;False = yang penting ada kesamaan, misal: ABC = ABCD ato BC = ABCD
$Index = _GUICtrlListBox_FindString( $List2, $Teks2, True )

;hapus String yang tersimpan dalam listbox yang berindex '$index'
_GUICtrlListBox_DeleteString( $List2, $Index )

Case $TambahSmua
;hitung dari 0 sampe ke jumlah isi listbox1 dikurangi 1
For $Index = 0 to _GUICtrlListBox_GetCount( $List1 )-1

;tambahkan text dari listbox1 yg berindex 'Index' ke Listbox2
_GUICtrlListBox_AddString( $List2, _GUICtrlListBox_GetText( $List1, $Index ) )

Next
Case $HapusSmua
;hapus semua isi listbox1 dan listbox2
_GUICtrlListBox_ResetContent( $List1 )
_GUICtrlListBox_ResetContent( $List2 )

Case $KickSmua
For $Index = 0 To _GUICtrlListBox_GetCount( $List2 )-1

;pura2 nya ini proses ngekik smua nik yang ada di dalam listbox2
MsgBox( 0, "Kick All", "Nge-Kick si " & _GUICtrlListBox_GetText( $List1, $Index ), 1 )

Next

Case $List1
;Tambahkan data yang diklik di listbox1 ke listbox2
_GUICtrlListBox_AddString( $List2, _GUICtrlListBox_GetText( $List1, _GUICtrlListBox_GetCurSel( $List1 ) ) )

Case $List2

;Set text pada edit 2 dg data yang diklik pada listbox2
GUICtrlSetData( $Edit2, _GUICtrlListBox_GetText( $List2, _GUICtrlListBox_GetCurSel( $List2 ) ) )

EndSwitch
WEnd


nah tuh... disitu dah gw sertain keterangan2 asli dapet ngarang gw, ga tau bener apa kaga tuh keterangan dan penggunaan syntaxnya, maklum, baru 2 hari baca help file autoit nya :P

silaken di coba....

latihan3 ini, gw lebih ke tanya jawab ajah deh, yang ngerasa dah gape maen2 ma AutoIt, silaken nambahin disini, jangan malu2 apalagi pelit Ilmu, gw kutuk pantat lo bisulan segede ember dah kalo lo pelit2 =))

di Latihan berikutnya, gw akan bahas soal TCP/IP socket di AutoIt, yang sampe saat ini masih gw pelajari. alhamdulillah, dah berhasil bikin 1 aplikasi kayak migpro, ntar gw ulas disini semua nya
Makasi dah buang waktu membaca Artikel gw yang kurang berguna ini :)



1 komentar:

  1. mathap pak pres, ni ane ym.1 banyak lupa sama coding autoit pengen deh blajar lg, wah dari kata2 yang diatas udah ngira kayak kenal ni ketikannya hehehe.

    thanks banget ilmunya yg udah ente kasih bermanfaat pak, siapa aj yg mu blajar bareng sama ane ane tanggepin dan ane bagikan ilmu dari ente. (Alhamdulillah)

    pak bisa gak untuk tutorial multy socket pake autoit3, ane dah nemu banyak tapi masih agak keder, thx pak sukses slalu.


    #yiim_echo (mig33) id ekou ku hacked :(

    BalasHapus