Antonz99's Weblog

Membuat Menu Pop up

antonz99 — Sun, 27 Jul 2008 08:10:04 +0000

Option Explicit

Private Declare Function SendMessage Lib “user32″ Alias _
“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Const LB_GETITEMRECT = &H198
Private Const LB_ERR = (-1)

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Function GetRClickedItem(MyList As Control, _
X As Single, Y As Single) As Long

‘PURPOSE: Determine which item was right clicked in a list
‘box, from the list_box’s mouse down event. YOU MUST CALL THIS
‘FROM THE MOUSEDOWN EVENT, PASSING THE X AND Y VALUES FROM THAT
‘EVENT TO THIS FUNCTION

‘MYLIST: ListBox Control
‘X, Y: X and Y position from MyList_MouseDown

‘RETURNS: ListIndex of selected item, or -1 if
‘a) There is no selected item, or b) an error occurs.

Dim clickX As Long, clickY As Long
Dim lRet As Long
Dim CurRect As RECT
Dim l As Long

‘Control must be a listbox
If Not TypeOf MyList Is ListBox Then
GetRClickedItem = LB_ERR
Exit Function
End If

‘get x and y in pixels
clickX = X Screen.TwipsPerPixelX
clickY = Y Screen.TwipsPerPixelY

‘Check all items in the list to see if it was clicked on
For l = 0 To MyList.ListCount – 1

‘get current selection as rectangle
lRet = SendMessage(MyList.hwnd, LB_GETITEMRECT, l, CurRect)

‘If the position of the click is in the this list item
‘then that’s our Item

If (clickX >= CurRect.Left) And (clickX = CurRect.Top) And _
(clickY <= CurRect.Bottom) Then

GetRClickedItem = l
Exit Function
End If
Next l
End Function

Private Sub Form_Load()
List1.AddItem “Merah”
List1.AddItem “Kuning”
List1.AddItem “Hijau”
mnuPopUp.Visible = False
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lItem As Long

If Button = vbRightButton Then
lItem = GetRClickedItem(List1, X, Y)

If lItem -1 Then
List1.ListIndex = lItem
PopupMenu mnuPopUp
End If
End If

End Sub

Membuat Marquee

antonz99 — Sun, 27 Jul 2008 07:27:26 +0000

Tulisan berjalan (marquee) di sidebar blog WordPress (sayang sekali ngga jalan di blog WordPress.com), bisa menggunakan kode seperti ini :

Untuk marquee vertikal (ke atas) :

Belajar WordPress

Tutorial WordPress

keterangan :

* direction = arah marquee berjalan, up/down untuk ke atas/ke bawah, left/right untuk ke samping kiri/kanan
* bgcolor = warna background, jika perlu, lihat di kode-kode warna di sini
* height = ukuran panjang kotak marquee
* width = penyesuaian ukuran lebar dengan sidebarnya
* Scrollamount = kecepatan text berjalan, semakin besar semakin cepat
* kasih spasi dengan kode
untuk memisahkan baris atas dan bawah link/tulisan yang mau dimunculkan.

Masukan kode di Text Widgets (Menu Designs >> Widgets).

Teknik mengcrack software Demo

antonz99 — Sat, 26 Jul 2008 08:22:41 +0000

Teknik meng-Crack software-software aplikasi demo (Unregistered) Mungkin anda pernah menggunakan softaware aplikasi yang belum teregistrasi/bersifat demo, mungkin anda jengkel jika waktu aplikasinya sudah habis. Perlu saya tambahkan untuk menjadi hacker / cracker perlu adanya tools untuk membantu menjalankan aksi kita. Berikut ini bagaimana caranya untuk meng-crack software tersebut. Cara 1 (menggunakan program Micro Best Cracklock v3.8) 1. Download Program Micro Best Cracklock v3.8 di situs http://www.multimania.org/~wblum/ 2. setelah program Micro Best Cracklock v3.8 di komputer anda jalankan dengan men-double click file setup.exe 3. Muncul pertanyaan:”This will install Cracklock. Do you wish to continue?” klik tombol Yes 4. Pada jendela Welcome, klik tombol Next 5.Pada jendela Information, klik tombol Next 6. Jika anda tidak ingin menganti folder default, maka pada jendela Select Destination directory, klik tombol Next untuk melanjutkan. 7. sampai tahap ini, jika anda sudah yakin untuk menginstal Micro best Cracklock, segera klik tombol install. setelah itu tungulah beberapa saat sampai proses instalasi benar-benar selesai. 8.Proses instalasi telah selesai, klik tombol Finish untuk menutup jendela tersebut. Aplikasi pada software Unregustered 1. Bukalah/ jalankan program Micro Best Cracklock v3.8 2. Dari jendela program klik ganda ikon Add Program. Tujuan anda mengklik ikon Add Program, adalah untuk menentukan nama file program aplikasi yang akan di crack oleh Micro Best Cracklock, dalam hal ini tetentukanlah terlebih dahulu lokasi atau direktori program aplikasi anda, baru setelah itu lanjutkan dengan memilih nama file executable. 3. setelah anda selesai memilih file executable yang akan di crack oleh Micro Best Cracklock v3.8, anda akan dibawa masuk ke jendela configuration. Dalam hal ini anada akan menentukan waktu yang tepat untuk mengatur masa berlakunya agar program aplikasi yang sudah jatuh temponya tadi, bisa anda jalankan untuk selamanya. 4. Jika anda sudah selesai mengatur waktu masa berlakunya program tesebut, tutup jendela Configuration dengan cara mengklik tombol Apply – OK. Kemudian untuk menjalankan klik menu Program – Run. Selamat Mencoba ……….

Shut down dengan klik kanan

antonz99 — Sat, 26 Jul 2008 08:09:42 +0000

Salahsatu bentuk implementasi dari modifikasi sistem operasi dengan menggunakan fasilitas
yang ada pada sistem operasi itu sendiri, maka pada trik kali ini akan dipraktekkan secara
langsung tentang bagaimana cara membuat sebuah program dengan menggunakan JavaScript
yang mampu menciptakan sebuah shortcut dan berguna dalam menonaktifkan komputer. Ingin
mengerti cara membuat serta menggunakannya? Silahkan cermati petunjuk ringkas yang
menarik ini dan praktekkanlah dengan cara mengetikkannya pada editor kesayangan anda.
Cobalah salin script program berikut ini dengan menggunakan Notepad lalu simpan dengan
nama KomputerTidur.js, kemudian ubah Save as type yang tadinya Text Documents (*.txt)
menjadi All Files.
Agar tidak terjadi kesalahan pada saat pengetikkan program alangkah baiknya jika fasilitas
Word Wrap yang ada di Notepad di nonaktifkan terlebih dahulu sebelum pengetikan script
program.
// Program Sederhana Matiin Komputer Via Klik Kanan
// Programmer : Yonatan Prasdikatama
var vbCancel = 2;
var vbYesNoCancel = 3;
var vbYes = 6;
var vbNo = 7;
var vbQuestion = 32;
var vbInformation = 64;
var natan = WScript.CreateObject(‘WScript.Shell’);
var kata = ‘.:: http://ikatama.wordpress.com ::.’;
var pesan1 = ‘Pilihlah opsi berikut ini:\n’+
‘————————–\n\n’+
’1. Klik ["Yes"] -> untuk Pasang.\n’+
’2. Klik ["No"] -> untuk Copot.\n’+
’3. Klik ["Cancel"] -> untuk Berhenti.\n\n’+
‘>> Pilihan Anda? <<’
var tanya = natan.popup(pesan1,0,kata,vbYesNoCancel+vbQuestion);
if (tanya == vbYes)
{
natan.RegWrite(‘HKCR\\Directory\\shell\\mati\\’,
‘> Matikan Windows!’,'REG_SZ’);
natan.RegWrite(‘HKCR\\Directory\\shell\\mati\\command\\’,
‘shutdown.exe -s -t 0′,’REG_SZ’);
natan.RegWrite(‘HKCR\\Drive\\shell\\mati\\’,
‘> Matikan Windows!’,'REG_SZ’);
natan.RegWrite(‘HKCR\\Drive\\shell\\mati\\command\\’,
‘shutdown.exe -s -t 0′,’REG_SZ’);
pesan2 = ‘Selesai di pasang!’;
natan.popup(pesan2,0,kata,vbInformation);
}
else if (tanya == vbNo)
{
natan.RegDelete(‘HKCR\\Directory\\shell\\mati\\command\\’);
natan.RegDelete(‘HKCR\\Directory\\shell\\mati\\’);
natan.RegDelete(‘HKCR\\Drive\\shell\\mati\\command\\’);
natan.RegDelete(‘HKCR\\Drive\\shell\\mati\\’);
pesan3 = ‘Selesai di copot!’;
natan.popup(pesan3,0,kata,vbInformation);
}
else
{

Apa itu Blog dan Movable Type?

antonz99 — Fri, 25 Jul 2008 08:22:49 +0000

Setiap Pemasar Internet dalam membuat websitenya saat ini bisa memilih berbagai macam tipe CMS (content management system) untuk mengatur setiap postingan berita dan informasi yang akan dipublikasikan pada websitenya. Website dengan CMS (content management system) menjadi pilihan oleh banyak pemasar internet, karena kemudahannya dalam mempostingkan berita dan informasi baru, tanpa harus membuat halaman baru secara manual untuk menampilkan berita dan informasi pada website, tetapi dengan website CMS Anda bisa mempostingkannya dengan mudah seperti Anda menulis dan mengirimkan email. Anda hanya perlu login melalui browser Anda untuk mengakses Admin Area Anda, kemudian Anda dapat mempostingkan berita dan informasi dan juga mengupdate website Anda langsung dari Admin Area. Pilihan CMS yang populer salah satunya adalah Blog.

Blog sendiri adalah website yang menampilkan postingan berita dan informasi dalam urutan waktu, dan umumnya digunakan sebagai diary online, jurnal online, dan website berita.

Untuk Blog sendiri banyak sekali software yang bisa digunakan, bila Anda menggunakan layanan blog yang gratis di internet, Anda bisa menggunakan blogger.com dan wordpress.com, sedangkan bila Anda akan menggunakan blog pada website Anda, dengan domain dan hosting berlangganan sendiri, pilihan software Anda bisa pada wordpress, movabletype, b2evolution, Nucleus, dan lain-lainnya. Selain yang saya sebutkan diatas, masih banyak sekali layanan blog gratis dan software blog yang bisa Anda gunakan pada website Anda. Software tersebut ada yang gratis untuk penggunaannya, dan Anda juga yang mengharuskan Anda membeli lisence untuk menggunakannya.

Pilihan saya saat ini, saya akan mencoba membuat blog dengan Movable Type. Untuk mengakses Official Website dari MovableType, Anda dapat membuka http://www.movabletype.org. Kemudian mendownload software MovebleType yang terbaru.

Anda bisa mendownload artikelnya dan semoga bermanfaat,

David Odang, Komunitas Pemasar ( marketer ) dan Pelaku Bisnis Indonesia