Dengar BisikKu

Kadang aku berfikir
Dapatkah kita terus coba
Mendayung perahu kita
Menyatukan ingin kita

Sedang selalu saja
Khilaf yang kecil mengusik
Bagai angin berhembus kencang
Goyahkan kaki kita

Genggam tanganku jangan bimbang
Tak usahlah lagi dikenang
Naif diri yang pernah datang
Jadikan pelajaran sayang

Dengar bisikanku oh dinda
Coba lapangkan dada kita
T'rima aku apa adanya
Jujur hati yang kita jaga

Mengapa selalu saja
Khilaf yang kecil mengusik
Bagai ombak yang besar
Goyahkan kaki kita

Bila gundahmu tak menghilang
Hentikan dulu dayung kita
Bila kau ingin lupakan aku
Ku tak tahu apalah daya

Pedih

Engkau yang sedang patah hati
Menangislah dan jangan ragu ungkapkan
Betapa pedih hati yang tersakiti
Racun yang membunuhmu secara perlahan

Engkau yang saat ini pilu
Betapa menanggung beban kepedihan
Tumpahkan sakit itu dalam tangismu
Yang menusuk relung hati yang paling dalam

Hanya diri sendiri
Yang tak mungkin orang lain akan mengerti
Di sini ku temani kau dalam tangismu
Bila air mata dapat cairkan hati
Kan ku cabut duri pedih dalam hatimu
Agar kulihat, senyum di tidurmu malam nanti
Anggaplah semua ini
Satu langkah dewasakan diri
Dan tak terpungkiri
Juga bagi...

Engkau yang hatinya terluka
Di peluk nestapa tersapu derita
Seiring saat keringnya air mata
Tak mampu menahan pedih yang tak ada habisnya

Hanya diri sendiri
Yang tak mungkin orang lain akan mengerti
Di sini ku temani kau dalam tangismu
Bila air mata dapat cairkan hati
Kan ku cabut duri pedih dalam hatimu
Agar kulihat, senyum di tidurmu malam nanti
Anggaplah semua ini
Satu langkah dewasakan diri
Dan tak terpungkiri
Juga bagi..mu...

Find Something

Form

Option Explicit

Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub cmdActivate_Click()
Dim nRet As Long
Dim Title As String

nRet = AppActivatePartial(Trim(txtTitle.Text), _
Val(frmMethod.Tag), CBool(chkCase.Value))
If nRet Then
lblResults.Caption = “Found: &&H” & Hex$(nRet)
Title = Space$(256)
nRet = GetWindowText(nRet, Title, Len(Title))
If nRet Then
lblResults.Caption = lblResults.Caption & _
“, “”" & Left$(Title, nRet) & “”"”
End If
Else
lblResults.Caption = “Search Failed”
End If
End Sub

Private Sub Form_Load()

txtTitle.Text = “”
lblResults.Caption = “”
optMethod(0).Value = True
End Sub

Private Sub optMethod_Click(Index As Integer)

frmMethod.Tag = Index
End Sub

Module

Option Explicit

Private Declare Function EnumWindows Lib “user32″ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function GetClassName Lib “user32″ Alias “GetClassNameA” (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function IsIconic Lib “user32″ (ByVal hWnd As Long) As Long
Private Declare Function IsWindowVisible Lib “user32″ (ByVal hWnd As Long) As Long
Private Declare Function ShowWindow Lib “user32″ (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetForegroundWindow Lib “user32″ (ByVal hWnd As Long) As Long

Private Const SW_RESTORE = 9

Private m_hWnd As Long
Private m_Method As FindWindowPartialTypes
Private m_CaseSens As Boolean
Private m_Visible As Boolean
Private m_AppTitle As String

Public Enum FindWindowPartialTypes
FwpStartsWith = 0
FwpContains = 1
FwpMatches = 2
End Enum

Public Function AppActivatePartial(AppTitle As String, Optional Method As FindWindowPartialTypes = FwpStartsWith, Optional CaseSensitive As Boolean = False) As Long
Dim hWndApp As Long

hWndApp = FindWindowPartial(AppTitle, Method, CaseSensitive, True)
If hWndApp Then

If IsIconic(hWndApp) Then
Call ShowWindow(hWndApp, SW_RESTORE)
End If
Call SetForegroundWindow(hWndApp)
AppActivatePartial = hWndApp
End If
End Function

Public Function FindWindowPartial(AppTitle As String, _
Optional Method As FindWindowPartialTypes = FwpStartsWith, _
Optional CaseSensitive As Boolean = False, _
Optional MustBeVisible As Boolean = False) As Long

m_hWnd = 0
m_Method = Method
m_CaseSens = CaseSensitive
m_AppTitle = AppTitle

If m_CaseSens = False Then
m_AppTitle = UCase$(m_AppTitle)
End If

Call EnumWindows(AddressOf EnumWindowsProc, MustBeVisible)
FindWindowPartial = m_hWnd
End Function

Private Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
Static WindowText As String
Static nRet As Long

If lParam Then
If IsWindowVisible(hWnd) = False Then
EnumWindowsProc = True
Exit Function
End If
End If

WindowText = Space$(256)
nRet = GetWindowText(hWnd, WindowText, Len(WindowText))
If nRet Then

WindowText = Left$(WindowText, nRet)
If m_CaseSens = False Then
WindowText = UCase$(WindowText)
End If

Select Case m_Method
Case FwpStartsWith
If InStr(WindowText, m_AppTitle) = 1 Then
m_hWnd = hWnd
End If
Case FwpContains
If InStr(WindowText, m_AppTitle) <> 0 Then
m_hWnd = hWnd
End If
Case FwpMatches
If WindowText = m_AppTitle Then
m_hWnd = hWnd
End If
End Select
End If

EnumWindowsProc = (m_hWnd = 0)
End Function

Show Your IP Address

Add Microsoft Winsock Control 6.0 component
Insert 1 Textbox
Insert 2 Command Buttons Rename Caption as Display and Clear

Private Sub Command1_Click()
If Text1.Text = “” Then
Command1.Enabled = False
Text1.Text = Winsock1.LocalIP
Else
Command1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Text1.Text = “”
If Text1.Text = “” Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

Private Sub Form_Load()
Text1.Text = “”
If Text1.Text = “” Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
Text1.Text = Winsock1.LocalIP
End Sub

Check For a File

Public Function FileExist(asPath as string) as Boolean
If UCase(Dir(asPath))=Ucase(trimPath(asPath)) then
FileExist=true
Else

FileExist=False
End If
End Function

Public Function TrimPath(ByVal asPath as string) as string

if Len(asPath)=0 then Exit Function
Dim x as integer
Do

x=Instr(asPath,”\”)
if x=0 then Exit Do
asPath=Right(asPath,Len(asPath)-x)
Loop
TrimPath=asPath
End Function

Private sub command1_Click()
if fileExist(Text1.text) then
Label1=”YES”
else
Label1=”NO”
End if
End Sub

Private sub form_Load()
End sub

Bekerjalah Dengan Cinta

Wanita paruh baya itu berperawakan pendek dan sedikit gemuk. Beberapa helai uban turut menghiasi mahkota kepalanya yang diikat dengan penjepit rambut. Namun raut wajah bulat telur itu seakan tak pernah sekalipun terlihat cemberut. Ia selalu tampak riang, sehingga menyembunyikan parasnya yang jelas telah digurati keriput.

Wanita itu memang tidak terlalu rentan, tetapi kekuatan dan kegesitan di masa mudanya niscaya telah direnggut usia. Karenanya, percayakah bahkan dari dirinya pun akan ada sebuah pelajaran tentang makna cinta?

* * *

Selalu…

Sabtu adalah hari yang ditunggu. Hari di mana nafas bisa dihela dengan panjang, dan sejenak mengistirahatkan raga dari rentetan kesibukan yang melelahkan. Saatnya pula untuk menikmati kebersamaan dengan seisi anggota keluarga. Sehingga, berbelanja di sebuah supermarket dekat rumah pun menjadi hiburan yang tak kalah meluahkan kebahagiaan.

Namun sepertinya tidak bagi wanita itu. Bagaikan tak mengenal hari libur, nyaris setiap waktu sosoknya selalu kutemui di sekitar kokusai kouryuu kaikan serta kampus.


Layaknya hari kerja, dikemasnya sampah-sampah yang berserakan serta dipisahkan antara yang terbakar dan tidak. Lantas ditaruhnya pada plastik yang berbeda warna. Sebentar kemudian diambilnya kain untuk mengelap kursi dan meja. Tak lupa, dengan vacuum cleaner dibersihkannya juga permukaan lantai. Setelah selesai ia segera beranjak ke toilet, lalu dengan mengenakan sarung tangan plastik dibersihkannya bekas kotoran manusia tersebut tanpa raut muka jijik.

Ia seperti tak peduli rasa lelah atau letih, walaupun terlihat pakaian seragam cleaning service biru mudanya telah basah bersimbah keringat. Tak juga kepenatan menyurutkan keramahannya untuk bertegur sapa dengan siapa saja saat bertemu muka.

Wanita itu entah siapa namanya. Hanya dengan panggilan obachan ia biasa disapa. Saat bersua denganku, juga selalu disempatkannya bertanya kabar. Bahkan ia pernah bercerita panjang lebar tentang anak-anak serta cucunya karena sering melihatku berjalan-jalan dengan keluarga. Beberapa kali pula saat usai kerja kulihat ia sedang berbelanja, masih lengkap dengan seragam biru mudanya. Lantas ditaruh barang-barang tersebut dikeranjang, dan perlahan dikayuhnya pedal sepeda tua untuk beranjak pulang.

Entahlah, rasanya tak ada perasaan iri dihatinya saat di hari libur ia ternyata harus bekerja, sementara aku justru berleha-leha. Ia bahkan tetap saja semangat bekerja dengan penuh suka cita. Begitu pula dengan obachan dan ojichan lain yang pernah kutemui, mereka selalu asyik menikmati pekerjaannya. Mencabut rumput liar di pekarangan kampus ketika musim panas, menyapu jalanan dari daun yang berserakan pada musim gugur, bahkan dengan bersusah payah turut menyerok tumpukan bongkahan salju di musim dingin.

Terlihat betapa bergairahnya mereka ketika memang waktunya harus bekerja. Gairah dalam bentuk kesungguhan dalam menekuni apapun jenis pekerjaan, yang mungkin tak dipandang orang walau dengan sebelah mata. Karenanya, tak terdengar ngalor-ngidul obrolan hingga jam istirahat tiba untuk sejenak melepaskan lapar dan dahaga. Berselang satu jam kemudian, mereka akan kembali sibuk menekuni pekerjaannya. Senantiasa egitu, dari waktu ke waktu.

Rutinitas mereka mungkin tidaklah istimewa. Bekerja demi memperoleh sedikit nafkah atau sekedar menghabiskan waktu luang, tentu lebih baik dari bermalas-malasan di rumah. Terlebih-lebih itu adalah pekerjaan kasar, bukan kerja kantoran yang menyenangkan dengan penyejuk atau pemanas ruangan.

Lalu mengapa mereka selalu saja bekerja seolah tak pupus oleh lelah? Bahkan bekerja bagaikan sebuah energi yang tak kunjung padam, mengalir dalam pembuluh darah serta menggerakkan jiwa dan raganya.

Sekejap akupun tepekur, kemudian mahsyuk merenung…

Dan kulihat ada gairah membara yang berpendar dari balik kerut-merut kelopak mata tua itu. Seolah sinar matanya menyiratkan pesan agar bekerjalah dengan cinta. Karena bila engkau tiada sanggup, maka tinggalkanlah. Kemudian ambil tempat di depan gapura candi untuk meminta sedekah dari mereka yang bekerja dengan suka cita.