Apip Keren

"Export Listview to Excel & Print!" adalah sebuah example script yang saya buat untuk meng-export data dari listview ke microsoft excel supaya dapat di print.

Berikut kodenya:

;###############################
;#    Author: Pyzonet          #
;###############################
 
#include 
#include 
#include 
#include 
#NoTrayIcon
 
Local $style = BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT)
Local $msg
 
GUICreate("Export Listview to Excel & Print!",500,500); CREATE GUI
$lv = GUICtrlCreateListView("",0,0,500,450)
_GUICtrlListView_SetExtendedListViewStyle(-1,$style)
_GUICtrlListView_SetSelectedColumn(-1, 0)
$export = GUICtrlCreateButton("EXPORT TO EXCEL",20,460,120,30)
$exit = GUICtrlCreateButton("EXIT",360,460,120,30)
 
colanditems()
 
GUISetState(@SW_SHOW)
 
While 1
 
 Select
  Case $msg = $export
   exporttoexcel()
 
  Case $msg = $exit
   Exit
 EndSelect
 
  $msg = GUIGetMsg()
 
  If $msg = $GUI_EVENT_CLOSE Then ExitLoop
 WEnd
 
GUIDelete()
 
Func colanditems(); CREATE COLUMNS, ITEMS AND SUBITEMS
For $x = 1 to 9
 _GUICtrlListView_InsertColumn($lv,$x,"Col " & $x, 100)
 _GUICtrlListView_AddItem($lv, "Row " & $x & " item " & $x)
 For $x2 = 1 to 10
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 1", 1)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 2", 2)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 3", 3)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 4", 4)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 5", 5)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 6", 6)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 7", 7)
 _GUICtrlListView_AddSubItem($lv, $x2 - 2, "subitem 8", 8)
 Next
Next
EndFunc
 
Func exporttoexcel();EXPORT TO EXCEL
$col = 9
$count = _GUICtrlListView_GetItemCount($lv)
GUICtrlSetState($export,$gui_disable)
$excel = _ExcelBookNew()
For $colexcel = 1 To $col
_ExcelWriteCell($excel,"Col " & $colexcel,1,$colexcel)
 $i = 0
 do
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,0),2 + $i,1)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,1),2 + $i,2)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,2),2 + $i,3)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,3),2 + $i,4)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,4),2 + $i,5)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,5),2 + $i,6)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,6),2 + $i,7)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,7),2 + $i,8)
  _ExcelWriteCell($excel, _GUICtrlListView_GetItemText($lv,$i,8),2 + $i,9)
 $i = $i + 1
 Until $i = $count
Next
 
$ask = MsgBox(4,"Message","Export completed!" & @cr & @cr & "Do you want to print it now?")
if $ask = 6 Then
 Send("^p")
EndIf
 
EndFunc

Hasilnya seperti ini:

"Export Listview to Excel & Print!" ini juga saya posting di forum autoit di bagian thread "Example Scripts".

Enjoy!!!

Pada kesempatan kali ini saya akan mengajarkan bagaimana cara membuat sebuah program untuk meng-kill sebuah process atau program yang sedang berjalan di komputer. Untuk scriptnya sendiri ditulis menggunakan autoit.

Sebelumnya saya akan bercerita sedikit kenapa saya sampai membuat program seperti ini. Saya menggunakan laptop untuk mengirim dan menerima sms. Nah, driver modemnya sendiri (speedup) yang saya gunakan untuk mengirim dan menerima sms ternyata mengandung malware yang sangat mengganggu. Setiap kali saya menjalankan program/driver modem tersebut, muncul sebuah pop-up iklan (berupa jendela kecil) dan ini sangat mengganggu. Maka dari itu saya berinisiatif untuk membuat sebuah program untuk meng-kill pop-up iklan tadi.

Hmmm... cuma butuh waktu beberapa menit untuk menulis scriptnya karena memang scriptnya cuma sedikit.

Oke langsung saja! Tulis kode berikut di SciTE Script Editor >

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Example()

Func Example()

 GUICreate("Killer", 169, 68)
 GUICtrlCreateLabel("Killer", 10, 10, 1000, 500)
 GUICtrlSetFont(-1, 30, 400, "", "Architext");menggunakan font "Architext". kamu bisa menggantinya dengan jenis font pilihan kamu sendiri

 GUISetState(@SW_SHOW)

 Do
  $msg = GUIGetMsg()
  if WinGetTitle("Studio Info", "") Then
  WinKill("Studio Info","")
  EndIf
 Until $msg = $GUI_EVENT_CLOSE
EndFunc

Hasilnya akan seperti ini >


Bila program tersebut dijalankan, maka program/process yang dimaksud akan di-kill secara otomatis!

Note > ganti nama "Studio Info" dengan nama process/program pilihan kamu sendiri. Contoh > "Windows Media Player". Bila kamu memasukkan nama "Windows Media Player" ke dalam scriptnya, maka windows media player tidak akan bisa muncul setiap kali programnya dijalankan.

Gimana?

Mengerti?

Bagus!