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!!!

New! Internet Download Manager v6.14. Added Windows 8 compatibility. Fixed compatibility problems with different browsers including Internet Explorer 10, all Mozilla Firefox versions up to Mozilla Firefox Aurora, Google Chrome. Improved FLV grabber to save videos from web players on YouTube, WOW! Google Video, MySpace TV, and other popular sites!

















Version 6.14 adds Windows 8 compatibility, adds IDM download panel for web-players that can be used to download flash videos from sites like YouTube, MySpaceTV, and Google Videos. It also features complete Windows 7 and Vista support, YouTube grabber, redeveloped scheduler, and MMS protocol support. The new version also adds improved integration for IE 10 and IE based browsers, redesigned and enhanced download engine, the unique advanced integration into all latest browsers, improved toolbar, and a wealth of other improvements and new features.

Download link > http://www.4shared.com/rar/EN2WpmAu/Internet_Download_Manager_IDM_.html

Password > apipkeren

Install Notes:
1] Install IDM
2] Copy IDMan.exe from Crack Folder to Install Directory (C:\Program Files\Internet Download Manager) and Replace It
3] Use Serials to Register
4] 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!

> Sewa jablay jang percobaan/praktek! Bisa gratis mereund? + menang jablay nu sejen na.. :D

- Si deni boga channel jablay budak sachi cenah

- dagang kopi

Jl Cempaka I no 75 Rengas (dekat mabad). Angkot yg lewat dekat rumah
wrn putih no 09. Kl ngga kerumah tante Sri aja tp janjian sm mb ike
ddulu

Thor (as jane), elektric shot/shock, don juan demarco, legion (as
audrey), bump key (google it), ost.pretty little liars, fright night
(as Amy), ost.transformers: dark of the moon, vampire diaries (as
elena) nina deborah?, speedy singhs (as melissa), x-men: first class
(as raven), girl fight (tess.. as alexa simons), true blood 5, "think
about you" (song), resident evil: retribution, foxmoviesplay.com,

PT ASIA CITRA PRATAMA, JL. SURYA UTAMA KAV 1-25 A1, SURYA CIPTA CITY
OF INDUSTRI, KARAWANG 41361

Thor (as jane), elektric shot/shock, don juan demarco, legion (as
audrey), bump key (google it), ost.pretty little liars, fright night
(as Amy), ost.transformers: dark of the moon, vampire diaries (as
elena) nina deborah?, speedy singhs (as melissa), x-men: first class
(as raven), girl fight (tess.. as alexa simons), true blood 5, "think
about you" (song), resident evil: retribution, foxmoviesplay.com, we
are the night (as charlotte), conan the barbarian (as tamara) rachel
nichols??, cinderella story: once upon a song, maggie grace,

http://cari-pcgames.blogspot.com/2012/06/free-download-games-plants-vs-zombies-2.html?m=1

=======

file mht yg d save d memory card d save pake browser : http://adf.ly/BTDwo

company of heroes: http://adf.ly/817Go

pass: http://top10-download.blogspot.com

unrar pass: www.skidrowgames.net
=======
Project zero, rule of rose, fable the journey, crysis 3, hitman sniper
challenge, nfs most wanted 2012, dead space 3, call of duty black ops
2, forza horizon (game), max payne 3, halo 4, tony hawk pro skater hd,
tom clancy's hawx 2, army of two, remember me, devil may cry 3, far
cry 3, grid all, dirt all, hitman absolution, juiced 2 hot import
night, midnight club los angeles,

Isi post1