Friday, May 6, 2011

Ukung Zulfah invites you to connect

this email was sent to you by an automated system - please do not reply directly
Yahoo! Messenger
Join Ukung Zulfah on Yahoo! Messenger.
Come chat with me, share files and more.

Stay in the loop with all your friends. Get started

  • Stay connected at home, at work, or on the go
  • Have fun with games, emoticons, and more
  • Join a community of over 100 million people from around the world
Join Your Friends
Y! Get easy, one-click access to your favorites. Make Yahoo! your homepage.
Trouble with the button above? Click the link below or copy and paste it into your browser's address bar:
http://invite.msg.yahoo.com/invite?op=accept&intl=us&sig=ZYP2GwHv5ewKgITdwfYPedTeBk66UlAdQXYKUq_I807CXNAjCXYKOV8-

Description: Ukung Zulfah invites you to connect Rating: 4.5 Reviewer: ukungzulfah - ItemReviewed: Ukung Zulfah invites you to connect Posted by: Get Answer
Get Answer, Updated at: 2:52 AM

Tuesday, May 3, 2011

Belajar Visual Basic: Cek Koneksi Internat (On/Off), Cek IP Adress, Cek Hostname

Belajar Visual Basic: Cek Koneksi Internat (On/Off), Cek IP Adress, Cek Hostname



Private Sub Form_Load()

Timer1.Enabled = True

LblCekMyIP1 = "IP Host Name: " & GetIPHostName

LblCekMyIP2 = "IP Address: " & GetIPAddress()

End Sub

Private Sub Timer1_Timer()

If InternetGetConnectedState(0&, 0&) = 1 Then

SB.Panels(1).Text = "Status: Terhubung dengan Internet"

Else

SB.Panels(1).Text = "Status: Tidak terhubung dengan Internet"

End If

End Sub

=============================

Letakkan code di bawah Ini pada Modul

=============================

'cek koneksi internet

Public Declare Function Internet

GetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

'---------CEK IP Adress komputer dan HOST NAME-----

Public Const MAX_WSADescription = 256Public Const MAX_WSASYSStatus = 128'

Public Const ERROR_SUCCESS As Long = 0

Public Const WS_VERSION_REQD As Long = &H101

Public Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD \ &H100 And &HFF&

Public Const WS_VERSION_MINOR As Long = WS_VERSION_REQD And &HFF&

Public Const MIN_SOCKETS_REQD As Long = 1Public Const SOCKET_ERROR As Long = -1

Public Type HostenthName As LonghAliases As LonghAddrType As IntegerhLen As IntegerhAddrList As Long

End Type

Public Type WSADATAwversion As IntegerwHighVersion As IntegerszDescription(0 To MAX_WSADescription) As ByteszSystemStatus(0 To MAX_WSASYSStatus) As BytewMaxSockets As IntegerwMaxUDPDG As IntegerdwVendorInfo As Long

End Type

Public Declare Function WSAGetlastError Lib "wsock32.dll" () As Long

Public Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVersionRequired As Long, lpWSAdata As WSADATA) As Long

Public Declare Function WSACleanup Lib "wsock32.dll" () As Long

Public Declare Function gethostname Lib "wsock32.dll" (ByVal szHost As String, ByVal dwHostLen As Long) As Long

Public Declare Function GetHostByName Lib "wsock32.dll" Alias "gethostbyname" (ByVal szHost As String) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvdest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

Public Function GetIPAddress() As String

Dim sHostName As String * 256

Dim lpHost As Long

Dim HOST As Hostent

Dim dwIPAddr As Long

Dim tmpIPAddr() As Byte

Dim i As Integer

Dim sIPAddr As String

If Not SocketsInitialize() Then

GetIPAddress = ""

Exit Function

End If

If gethostname(sHostName, 256) = SOCKET_ERROR Then

GetIPAddress = ""MsgBox "Windows Sockets Error " & Str$(WSAGetlastError()) & " has occurred. Host Name tidak dapat ditampilkan."SocketsCleanup

Exit Function

End If

sHostName = Trim$(sHostName)

lpHost = GetHostByName(sHostName)

If lpHost = 0 Then

GetIPAddress = "" MsgBox "Socket Windows tidak memberikan respon. " & "Host Name tidak dapat ditampilkan." SocketsCleanup

Exit Function

End If

CopyMemory HOST, lpHost, Len(HOST)CopyMemory dwIPAddr, HOST.hAddrList, 4ReDim tmpIPAddr(1 To HOST.hLen)CopyMemory tmpIPAddr(1), dwIPAddr, HOST.hLenFor i = 1 To HOST.hLensIPAddr = sIPAddr & tmpIPAddr(i) & "."NextGetIPAddress = Mid$(sIPAddr, 1, Len(sIPAddr) - 1)SocketsCleanup

End Function

Public Function GetIPHostName() As StringDim sHostName As String * 256If Not SocketsInitialize() ThenGetIPHostName = ""

Exit Function

End If

If gethostname(sHostName, 256) = SOCKET_ERROR ThenGetIPHostName = ""MsgBox "Windows Sockets Error " & Str$(WSAGetlastError()) & " has occurred. Host Name tidak dapat ditampilkan."SocketsCleanup

Exit Function

End IfGetIPHostName = Left$(sHostName, InStr(sHostName, Chr(0)) - 1)SocketsCleanup

End Function

Public Function HiByte(ByVal wParam As Integer)HiByte = wParam \ &H100 And &HFF&

End Function

Public Function LoByte(ByVal wParam As Integer)LoByte = wParam And &HFF&

End Function

Public Sub SocketsCleanup() If WSACleanup() <> error_success_ Then MsgBox " Socket Error terjadi dalam CleanUp."

End If

End Sub

Public Function SocketsInitialize() As Boolean

Dim WSAD As WSADATA

Dim sLoByte As String

Dim sHiByte As StringIf WSAStartup(WS_VERSION_REQD, WSAD) <> ERROR_SUCCESS ThenMsgBox "Socket Windows 32-bit tidak respon"SocketsInitialize = False

Exit Function

End If

If WSAD.wMaxSockets = MIN_SOCKETS_REQD Then MsgBox "Aplikasi ini membutuhkan minimum " & CStr(MIN_SOCKETS_REQD) & " Socket yang support." SocketsInitialize = False

Exit Function

End If

If LoByte(WSAD.wversion) < shibyte =" CStr(HiByte(WSAD.wversion))" slobyte =" CStr(LoByte(WSAD.wversion))MsgBox" socketsinitialize =" False">
Exit Function
End If SocketsInitialize = True
End Function

Description: Belajar Visual Basic: Cek Koneksi Internat (On/Off), Cek IP Adress, Cek Hostname Rating: 4.5 Reviewer: ukungzulfah - ItemReviewed: Belajar Visual Basic: Cek Koneksi Internat (On/Off), Cek IP Adress, Cek Hostname Posted by: Get Answer
Get Answer, Updated at: 8:42 AM

CARA MENGHAPUS VIRUS SHORTCUT


Cara Menghapus Virus Shortcut sebenarnya sangatlah mudah jika kita tahu caranya, yang di terangkan di sini adalah Menghapus Virus Shortcut yang paling mudah. Virus shortcut sebenarnya tidak terlalu bahaya, virus ini hanya menduplikat semua folder menjadi folder yang sama dan menggenerate ke semua direktori di komputer kita. Apabila hal virus shortcut ini di biarkan akan membuat berat kinerja komputer temen-temen, sehingga load nya sangat lambat, dan ternyata virus shortcut ini juga bisa berkembang di flashdisk.
1. Download terlebih dahulu Anti Virus Shortcut
=> Download Anti Virus Shortcut
2. Matikan terlebih dahulu System Restore pada semua drive ( My Computer, Properties, System Restore, beri centang pada Turn off System Restore on All Drives.
1. Restart Komputer dan masuk kedalam pilihan safe mode, rata rata masuk safe mode pada komputer adalah dengan menekan tombol F8 ketika komputer baru mau hidup, namun jika F8 tidak bisa coba tekan tombol F9 atau Tombol DEL ketika komputer booting, apabila belum berhasil search dulu di google ya cara masuk safemode icon smile Cara Menghapus Virus Shortcut karena tidak semua komputer sama caranya.
4. Setelah masuk safe mode jalankan antivirus diatas, lalu ikuti perintah seperti yang ada pada gambar dibawah ini:

5. Setelah semua selesai di scan, restart komputer dan biarkan hidup kembali seperti biasa.
Menghapus Virus Shortcut

Jika cara menghapus virus shortcut ini sudah dilakukan dengan benar, semoga masalah yang disebabkan virus shortcut akan segera teratasi .


Description: CARA MENGHAPUS VIRUS SHORTCUT Rating: 4.5 Reviewer: ukungzulfah - ItemReviewed: CARA MENGHAPUS VIRUS SHORTCUT Posted by: Get Answer
Get Answer, Updated at: 4:09 AM

CARA MENONAKTIFKAN AUTORUN.INF

Cara menonaktifkan autorun.inf
Bicara masalah autorun.inf, saya jadi ingat sesuatu yaitu VIRUS tapi bicara masalah virus juga jadi ingat sesuatu yaitu hardisc jebol, Mau tau kenapa dari autorun sampai ke hardisc jebol, ini kisahnya, Ya elah kaya sinetron aja,,,
Tapi bicara masalah sinetron jadi ingat mas najib sama mas wahyu yang memperebutkan de nada,,, ssssttt.... jadi ngelantur,

Pada sutu hari ada keponakan saya yang komputernya kena virus dan dia meminta saya memperbaiki komputernya yang sudah menghamili virus selama 3 bulan ,wkkkkk...
Berhubung jiwa penolong baik hati dan tidak sombong akhirnya saya mencoba memperbaikinya, waktu itu tepatnya di hari sabtu, saya fikir cuma beberapa jam sudah kelar, nda taunya itu virus melawan, bukan malah beres tuh komputer yang ada malah tambah errorrrrrr.....

Saya coba pakai cara pertama lihat virus dari system yang jalan, caranya tentu ada toolingnya, yang saya gunakan adalah virus removal kit, setelah di lihat prosesnya dengan menggunakan Process Explorer ccpb.exe atau kalau mau check bisa juga dengan HiJackThis.exe, kemudian di lihat file yang mencurigakan dan tumpas segera dengan KillBox.exe , kemudian bersihkan dengan fix registry lalu dengan bersihkan dengan CCleaner.exe dan setelah semua selesai gunakan ATF-Cleaner.exe untuk benar benar yakin path path yang tidak diperlukan dihapus dari komputer kita. langkah terakhir scan dengan antivirus dan yang terakhir laginya Allhamdullillah.....

wah akhirnya bersih juga tuh virus dari komputer keponakan saya, tepatnya di hari minggu pagi, keponakan saya yang kemaren menelpon lagi katanya komputernya kambuh lagi, wew kok bisa kenapa kenipi ya???? kesel juga kan akhirnya minggu sore saya kesana lagi,,,, wow beneran balik lagi fikir fikir akhirnya yang saya intrograsi bukan komputernya lagi tapi orangnya emangnya diapain, setelah ditelusuri ternyata penyebabnya ada di flashdisc yang tersimpan banyak virus, autorun inf yang running pada saat di colokin kekomouter menyebabkan virus itu berkembang biak kembali.

akhirnya saya matikan dulu autorunya dengan cara :
click start > run > gpedit.msc
user configuration > administrative templates > system
double click turn off autoplay
klik opsi enabled,
pilih all drives pada "turn off autoplay on"
click OK

langsung aous tuh aturunnya biar ga menyebar lagi,,,,
sampai disini dulu ah laen kali kalau ada virus yang lebih seru kita ngobrol lagi,,
oya kalau mau virus removal kitnya ambil aja di disini


Description: CARA MENONAKTIFKAN AUTORUN.INF Rating: 4.5 Reviewer: ukungzulfah - ItemReviewed: CARA MENONAKTIFKAN AUTORUN.INF Posted by: Get Answer
Get Answer, Updated at: 3:31 AM

Sunday, May 1, 2011

Yuk Bermain PTC

Ketika saya bergabung dengan bux.to, yang terfikir pada saat itu adalah bagaimana mengumpulkan uang secepat dan sebanyak mungkin, dalam hal PTC tentunya klik.

Kenyataanya? Saya sedikit terkejut ketika tahu berapa bayaran per-klik :

At Bux.to, you get paid to click on ads and visit websites. The process is easy! You simply click a link and view a website for 30 seconds to earn money. You’ll get paid $0.01 for each website you personally view…

Bila dibux.to ada 10 web site yang harus saya klik selama sehari. Berarti saya hanya akan memperoleh 10 X $0.01 = $0.1/hari!!!

Mana uang-nya ?!?

PTC di bux.to dan inventasi…
Tapi ketika saya perhatikan lebih jauh, ternyata bisnis PTC mempunyai karakter yang sama dengan sebuah proses inventasi. Memang, karena modal yang dikeluarkan tidak terlalu besar, hasil yang dicapai pun tidak seberapa. Tapi tetap prinsip-prinsip investasi bisa diterapkan dalam bisnis ini.

Coba kita melihat apa yang ditawarkan oleh bux.to :


Cara pertama yang ditawarkan saya simpulkan “normal” untuk tawaran PTC, dimana bila anda meng-klik sebuah iklan, anda mendapatkan $0.01 per klik per 30 detik.

Yang kedua adalah refferal link. Cara ini mengikuti proses affiliasi, Dimana bila anda mengajak orang lain untuk bergabung dibawah anda (referral), klik tersebut dihitung juga sebagai klik turunan kita. Nilainya untuk bux.to adalah setara dengan nilai klik yang kita buat.

Contoh perhitungan klik dengan 20 refferal :

Earnings Example
» You click 10 ads per day = $0.10
» 20 referrals click 10 ads per day = $2.00
» Your daily earnings = $2.10
» Your weekly earnings = $14.70
» Your monthly earnings = $63.00

Contoh ini saya ambil dari www.bux.to


Ini belum proses investasi.

Yang saya maksudkan adalah cara yang ketiga. Menggunakan dana-dana anda yang tidak dipakai untuk keperluan pokok anda pada alat-alat investasi sehingga secara tidak langsung menambah pendapatan anda.

Pada bux.to, ada beberapa program yang ditawarkan berdasarkan banyaknya non referral member yang sebenarnya secara perhitungan bisnis klik, masih memungkinkan untuk menghasilkan $ bagi pengelola web klik. Yaitu program membeli referral dari pengelola web. Misalanya lihat uraian berikut

Hard to find active members?

Why not let us do the referring for you? We know how difficult and time consuming referring others can be, especially when you simply don’t have the time. In fact, we’ve already got newly registered members who joined without a referrer who we can automatically place beneath you and let you reap the rewards!

Premium Membership
Click here to Purchase 15 Members for $16.98
Click here to Purchase 35 Members for $34.95 and save 10%
Click here to Purchase 100 Members for $98.00 ($5.00 Cashback Bonus)
Anniversary Special 150 referrals + Free Bux.to T-Shirt
Limited! 500 un-referred Members!


Pada mulanya saya berfikir, wah ujung - ujungnya kita ngeluarin duit lagi, padahal katanya free..

Tapi lihat ini : Yang bisa saya simpulkan disini adalah sebuah prospektus invenstasi yang lumayan bagus.

Dimana bila pada bulan pertama anda menanamkan $16.98, harapan kembalian investasi anda di bulan berikutnya adalah $45.00, tentunya dengan pengorbanan, anda harus melakukan proses klik-mengkik setiap hari selama 30 detik, untuk setiap 10 iklan yang dipasang di bux to.

Uang yang diperoleh, jangan di cash out dulu, tanamkan untuk membeli 35 member lagi. Harga yang ditawarkan untuk 35 member adalah 34.95$ Dengan perkiraan kembalian yang diperoleh sebanyak $105,00 sebulan, tentunya anda tidak perlu mengeluarkan sepeserpun untuk membeli 35 member.

Proses ini lanjutkan pada pembelian 100, 150 dan 500 member. Ingat anda masih punya kewajiban meng-klik 10 iklan yang ditawakan selama 30 detik perhari.

Lihat hasil investasi yang anda buat…

Ini yang saya maksud proses investasi. Menggunakan dana-dana anda yang tidak dipakai untuk keperluan pokok anda pada alat-alat investasi sehingga secara tidak langsung menambah pendapatan anda

Jadi, jangan cepat-cepat mengambil keuntungan yang anda peroleh dari program PTC (terutama di bux.to), cari kesempatan untuk memutar kembali uang yang anda peroleh dari setiap program yang mereka tawarkan…

Untuk informasi lebih jelas silahkan datang langsung ke bux.to

Description: Yuk Bermain PTC Rating: 4.5 Reviewer: ukungzulfah - ItemReviewed: Yuk Bermain PTC Posted by: Get Answer
Get Answer, Updated at: 8:05 AM

TATA CARA MENDAFTAR ADSENSE

Sebelum mendaftar di google adsense yang harus anda miliki adalah web/blog (ya iyalah kalo gak punya blog, adsense nya mau di taruh dimana he…he…). Ya udah langsung aja ya

1. Buka www.google.com/adsense, maka akan muncul window seperti dibawah ini



2. Setelah muncul window seperti diatas lalu klik “Sign up now” yang dilingkari seperti diatas
3. Lalu akan muncul tampilan formulir pendaftaran seperti dibawah ini dan isilah data-datanya






- Pada kolom Website Url isi dengan alamat web/blog anda
- Pada kolom Website Language anda bisa memilih bahasa Indonesia atau bahasa inggris
- Untuk kolom Account Type pilih sesuai web/blog anda apakah untuk bisnis atau individual (perorangan)
- Pada kolom Country of territory isi dengan Indonesia (kalau anda di Indonesia)
- Pada kolom Payee name isi dengan nama anda, karena ini untuk nama sebagai penerima pembayaran check google nantinya
- Dan untuk alamat anda isi dengan yang sebenar-benarnya

4. Setelah anda mengisi data-data diatas maka akan muncul window yang menanyakan apakah anda yakin dengan data-data yang anda buat. Jika ya maka lanjutkan
5. Jika berhasil maka akan muncul window seperti dibawah ini



Dan dekarang anda tinggal menunggu proses selama 1 – 2 hari dan jika diterima anda akan menerima e-mail konfirmasi dari team google adsense. Selamat mencoba semoga berhasil….!!


Read More

Description: TATA CARA MENDAFTAR ADSENSE Rating: 4.5 Reviewer: ukungzulfah - ItemReviewed: TATA CARA MENDAFTAR ADSENSE Posted by: Get Answer
Get Answer, Updated at: 7:59 AM

LEARNING ADSENSE

LEARNING ADSENSE


Description: LEARNING ADSENSE Rating: 4.5 Reviewer: ukungzulfah - ItemReviewed: LEARNING ADSENSE Posted by: Get Answer
Get Answer, Updated at: 7:49 AM