LinkFromBlog.com - Paid to Review (PTR)

Berita Bagus Bagi Para Blogger Tanah Air..
Bagi yang punya blog dengan PAGERANK pasti sudah banya PTR yang menawarkan, tetapi bagi yang blognya baru ataupun blognya tidak ber PAGERANK pasti susah untuk Menghasilkan Dollar.
Dan ini ada berita bagus bagi para bloggers yang baru ngeblog atau tidak ber Pagerank..
Ada situs yang menawarkan Dollar untuk anda yang membuat review..
Situs itu ialah blog advertising.
Situs ini sangat Interface sekali dan gampang..
Situs ini menurut kabar lahir pada awal tahun 2009 lalu dan sudah banyak member yang mendaftar.
Berikut ini saya sajikan cara mendaftar di blog advertising.
1. Buka situs blog advertising
2. Kemudian pada Content Blogger anda Click tombol SignUp
3. Lalu isikan data anda dengan Valid
4. Lalu akan dikirimkan ke email anda link aktifasi, clik link tersebut
5. Setelah itu anda sign in dulu
6. Lalu pada beranda anda akan disuguhkan tombol ADD BLOG, klik tombol tersebut.
7. Isikan data Blog anda dengan valid.
8. Lakukan yang diperintahkan oleh blog advertising
9. Akan ada konfirmasi jika Blog anda telah disetujui.

Just It. Saran saya perbanyak Ngepost dan gunakan SEO..
Thats All

Read More

ImageBoo - Upload Gambar dengan Mudah

Huh lama banget ane ga ngeblog nih.
dan Akhirnya setelah ane udah nyelesein tugas2 ane, ane mau ngasih satu informasi mengenai situs upload gambar dan foto secara mudah.. gak perlu register lagi. Tinggal Kunjungi Alamatnya, langsung deh Upload gambar atau foto kamu..
Situs kali ini ialah imageboo..
Di situs ini Kalian dapat mengupload sesuka hati tanpa Register.
Langsung Aja, ane kasih tau caranya...
Pertama Buka Link imageboo,
selanjutnya BROWSE foto atau gambar yang ingin di Upload..Click OK
lalu kamu diminta mengisi Captcha untuk verifikasi apakah kamu robot atau kagak...hehehe,,
Pilih Option button, yaitu Private untuk digunakan pribadi, dan Public untuk digunakan secara umum.
Step Terakhir ialah Click Start Uploading!
Tunggu beberapa Saat..
Taraaaaaa. Kamu udah berhasil Upload.. dan disitu disuguhin beberapa Alternatif Keyword yang biasa dipakai. COPAS deh..
Sekian Postingan Kali Ini Semoga Bisa Membantu

Read More

VB. Source Code :: Warna latar teks dari ListView

- Source Code ini Untuk mengubah warna latar teks dari ListView
- Langkah-Langkah :
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan1 ListView.
2. ListView dapat Anda ambil dari component bernama "Microsoft Windows Common Controls 5.0 (SP2)" dengan cara klik kanan di Toolbox lalu pilih component tsb.
3. Copy-kan coding berikut ke dalam editor form & module

//Kode ini di Module//
Public Const LVM_FIRST As Long = &H1000
Public Const LVM_SETTEXTBKCOLOR As Long = (LVM_FIRST + 38)
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
// Akhir kode di Module//

// Kode ini di Form//
Private Sub Form_Load()
ListView1.ListItems.Add , , "Hello, Catwork....."
Call SendMessage(ListView1.hwnd, LVM_SETTEXTBKCOLOR, 0&, vbGreen)
End Sub
//Akhir kode di Form//

Read More

VB. Source Code :: Membatasi Gerakan Kursor

-          Source code ini adalah Membatasi gerakan kursor mouse hanya seluas tampilan form. Biasanya Anda sering menemukan seperti ini di warnet yang sudah dilengkapi dengan program/aplikasi billing on-line. Ketika Andadisconnect, maka Anda tidak dapat lagi menggerakkan mouse anda  keluar dari batas program billing tersebut.  Untuk membuat seperti tampilan tersebut, Anda tinggal melengkapi dengan menambahkan fungsi mematikan Ctrl-Alt-Del saja.

-          Langkah-langkah :

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 2 Commandbutton.

2. Copy-kan kode berikut ke dalam editor Module/Form

//awal kode modul//

Public Type RECT

  left As Integer

  top As Integer

  right As Integer

  bottom As Integer

End Type

Public Type POINT

  x As Long

  y As Long

End Type

Declare Sub ClipCursor Lib "user32" (lpRect As Any)

Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)

Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)

Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

//akhir kode module//

//awal kode form//

Private Sub Form_Load()

  Command1.Caption = "Limit Cursor Movement"

  Command2.Caption = "Release Limit"

End Sub

Private Sub Command1_Click()  'Membatasi gerak kursor mouse Anda...

Dim client As RECT

Dim upperleft As POINT

  GetClientRect Me.hWnd, client

  upperleft.x = client.left

  upperleft.y = client.top

  ClientToScreen Me.hWnd, upperleft

  OffsetRect client, upperleft.x, upperleft.y

  ClipCursor client

End Sub

Private Sub Command2_Click() 'Membebaskan gerak kursor kembali...

  ClipCursor ByVal 0&

End Sub

Private Sub Form_Unload(Cancel As Integer)

//akhir kode form//

Read More

VB. Source Code :: Melihat Property Files

-   Source Code dibawah ini adalah untuk melihat kotak dialog property suatu file berjenis/ extensi apapun..

-   Langkah-Langkahnya adalah :

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.

2. Copy-kan coding berikut ke dalam editor Module/Form

//kode ini untuk di module//

 Type SHELLEXECUTEINFO

  cbSize As Long

  fMask As Long

  hwnd As Long

  lpVerb As String

  lpFile As String

  lpParameters As String

  lpDirectory As String

  nShow As Long

  hInstApp As Long

  lpIDList As Long

  lpClass As String

  hkeyClass As Long

  dwHotKey As Long

  hIcon As Long

  hProcess As Long

End Type

Public Const SEE_MASK_INVOKEIDLIST = &HC

Public Const SEE_MASK_NOCLOSEPROCESS = &H40

Public Const SEE_MASK_FLAG_NO_UI = &H400

Declare Function ShellExecuteEX Lib "shell32.dll" Alias _

"ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long

     //akhir kode untuk module//

//kode ini untuk di form//

      Public Sub ShowProps(FileName As String, OwnerhWnd As Long)

Dim SEI As SHELLEXECUTEINFO

Dim r As Long

  With SEI

    .cbSize = Len(SEI)

    .fMask = SEE_MASK_NOCLOSEPROCESS Or _

    SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI

    .hwnd = OwnerhWnd

    .lpVerb = "properties"

    .lpFile = FileName

    .lpParameters = vbNullChar

    .lpDirectory = vbNullChar

    .nShow = 0

    .hInstApp = 0

    .lpIDList = 0

  End With

  r = ShellExecuteEX(SEI)

End Sub

Private Sub Command1_Click()

  'Ganti 'c:\autoexec.bat' dengan nama file yang Anda ingin lihat kotak

  'dialog property-nya...

  Call ShowProps("c:\autoexec.bat", Me.hwnd)

End Sub

//akhir kode untuk form//

Read More