smadav pro gratis

lagi enak2 gogling dapat registrasi smadav pro dari http://www.remo-xp.com/2010/03/download-smadav-2010-rev-81-pro.html
lumayan ga pake bayar
ni registrasi
Nama : Yuda Pasna
Key : 081310338782
kalo registrasinya gagal dowload aja cracknya di http://www.remo-xp.com/2010/03/crack-smadav-81-pro.html

Penghianat

ada seorang penghianat dari kantorq yang dulu
dari ga bisa apa2 sampai jadi seorang ahli diajarin oleh pemilik perusahaan
saat dia udah bisa di lari dari perusahaan tampa bicara sepatah kata pun
sekarang dengan kesombongannya dia sering pake orang pintar dalam perusahaan itu tampa sepengetahuan orang lain apakah pantas orang seperti itu disebut manusia,atau disebu anjiiiiiiiiiiiiiiiii((*&&&***))) kalian yang menilai q yang ketawaaa     kekayaan bukan segalanya kepintaran bukan kehidupan

source code vb sms gateway Fbus

'==================================================================================

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim Red, Green, Blue As Integer
Dim Jam As String
Dim vButir As ListItem


Private Sub cmbSMS_Click()
'On Error GoTo Salah
If cmbSMS.Text <> "" Then
If FBus.Connected = True Then
    If cmbSMS.Text = "Inbox" Then
        DaftarInboxSMSHP
        If LvInbox.ListItems.Count = 0 Then
            MsgBox " Data Laporan SMS Masuk Kosong..", vbInformation
            LvInbox.Enabled = False
            Exit Sub
        End If
    Else
        DaftarOutboxSMSHP
        If LvInbox.ListItems.Count = 0 Then
            MsgBox " Data Laporan SMS Keluar Kosong..", vbInformation
            LvInbox.Enabled = False
            Exit Sub
        End If
    End If
Else
    MsgBox " Belum ada koneksi ke HP.." & vbCrLf & _
          "Coba Periksa Kembali Koneksi HP..", vbInformation
    PicKonfigurasi.Visible = True
End If

End If
End Sub

Private Sub cmdAlarm_Click()
Bar1.Panels(2).Text = "Tunggu...."
frmAlarm.Show vbModal, Me
Bar1.Panels(2).Text = "Alarm...."
End Sub

Private Sub cmdAuto_Click()
Me.MousePointer = 11
Bar1.Panels(2).Text = "Tunggu..."
frmAuto.Show vbModal, Me
Bar1.Panels(2).Text = "Auto Respo SMS"
Me.MousePointer = 1
End Sub

Private Sub cmdBatal_Click()
txtNomor.Text = "": txtNama.Text = ""
txtMessage.Text = ""
End Sub

Private Sub cmdConnect_Click()
tm_Koneksi.Enabled = True
fr_Koneksi.Enabled = False
End Sub

Private Sub cmdDisconnect_Click()
If FBus.Connected = True Then
    Bar1.Panels(1).Text = "Status: Disable Connect to port/com..."
    FBus.Disconnect
End If
For i = 1 To 10
    cmbPort.AddItem "COM" & i
Next i
Lv1.ListItems.Clear
Set vButir = Lv1.ListItems.Add(, , Lv1.ListItems.Count + 1 & ".")
    vButir.SubItems(1) = cmbPort.Text
    vButir.SubItems(2) = "Not Connect"
cmdDisconnect.Enabled = False
cmdRestart.Enabled = False
cmdConnect.Enabled = True
txtProvider.Text = "": txtNegara.Text = ""
txtKey.Text = "": txtSignal.Text = ""
txtBatterai.Text = "": fr_Koneksi.Enabled = True
txtTanggal.Text = ""
cmbPort.ListIndex = 0
'Bar1.Panels(3).Text = IIf(FBus.AlarmEnabled, "Alarm On", "Alarm Off")
End Sub

Private Sub cmdFind_Click()
Me.MousePointer = 11
Bar1.Panels(2).Text = "Proses Loading..."
frmBuku.Show vbModal, Me
Bar1.Panels(2).Text = "Buku Telp..."
Me.MousePointer = 1
End Sub

Private Sub cmdHapusSMS_Click()
On Error GoTo salah
    If MsgBox(" Anda Yakin akan menghapus SMS ini..", vbInformation + vbYesNo) = vbYes Then
        Kata = MsgBox("Anda Benar-benar yakin untuk menghapus SMS ini..", vbInformation + vbOKCancel, "Informasi ")
        If Kata = vbOK Then
            Me.MousePointer = 11
            DataSMS.BeginTrans
            DataSMS.Execute "Delete Form Terkirim where [No Telp]='" & txtNoHPTerkirim.Text & "' And [Tgl kirim]='" & txtTglTerkirim.Text & "'"
            DataSMS.CommitTrans
            DaftarTerkirim
            Me.MousePointer = 1
            MsgBox "SMS Terkirim sudah di hapus dari database...", vbInformation
            txtNoHPTerkirim = "": txtTglTerkirim = ""
            txtSMSTerkirim.Text = ""
            Exit Sub
        End If
    End If
    Exit Sub
salah:
    MsgBox " Data SMS Terkirim tidak dapat di hapus...", vbInformation
   
End Sub

Private Sub cmdInbox_Click()
PicTerkirim.Visible = False
PicMasuk.Visible = True
PicPesan.Visible = False
PicKonfigurasi.Visible = False
LblStatus.Caption = "Laporan Pesan"
Bar1.Panels(2).Text = "Laporan Pesan"
End Sub

Private Sub cmdKirim_Click()
Dim a As Boolean
'On Error GoTo Salah
    Me.MousePointer = 11
    If FBus.Connected = True Then
        If FBus.RfLevel > 0 Then
            If txtNomor.Text <> "" And txtMessage.Text <> "" Then
                a = FBus.SMS.SendMessage(txtNomor.Text, txtMessage.Text)
                If a = True Then
                    Me.MousePointer = 1
                    MsgBox "Pesan telah terkirim ke No Tujuan: " & txtNomor.Text & " "
                    Set vButir = Lv2.ListItems.Add(, , Lv2.ListItems.Count + 1 & ".")
                    vButir.SubItems(1) = txtNomor.Text
                    vButir.SubItems(2) = txtNama.Text
                    vButir.SubItems(3) = txtMessage.Text
                    vButir.SubItems(4) = "Terkirim"
                    vButir.SubItems(5) = FBus.DateTime
                    cmdBatal.Enabled = True
                    cmdSimpan.Enabled = True
                    aSMS = True
                    cmdBatal_Click
                Else
                    MsgBox " Pesan Tidak Terkirim ke No Tujuan : " & txtNomor.Text & ""
                    Set vButir = Lv2.ListItems.Add(, , Lv2.ListItems.Count + 1 & ".")
                    vButir.SubItems(1) = txtNomor.Text
                    vButir.SubItems(2) = txtNama.Text
                    vButir.SubItems(3) = txtMessage.Text
                    vButir.SubItems(4) = "tdk Terkirim"
                    vButir.SubItems(5) = FBus.DateTime
                    cmdSimpan.Enabled = True
                    cmdBatal_Click
                    aSMS = True
                End If
            Else
            Me.MousePointer = 1
                If txtNomor.Text = "" Then
                    MsgBox " Silahkan isi No Tujuan..", vbInformation
                    txtNomor.SetFocus
                    Exit Sub
                ElseIf txtMessage.Text = "" Then
                    MsgBox "Pesan teks yang akan di kirim masih kosong...", vbInformation
                    txtMessage.SetFocus
                    Exit Sub
                End If
            End If
        Else
        Me.MousePointer = 1
            MsgBox "No Tujuan:  " & txtNomor.Text & " berada di luar jangkauan sistem..", vbInformation
        End If
    Else
    Me.MousePointer = 1
        MsgBox "Pesan tidak dapat di kirim, coba Perisa koneksi port/com...", vbCritical
    End If

           
               
End Sub

Private Sub cmdKOnfigurasi_Click()
PicTerkirim.Visible = False
Bar1.Panels(2).Text = "Konfigurasi"
PicPesan.Visible = False
PicMasuk.Visible = False
LblStatus.Caption = "Konfigurasi"
PicKonfigurasi.Visible = True
End Sub

Private Sub cmdOutbox_Click()
PicMasuk.Visible = False
PicTerkirim.Visible = True
PicPesan.Visible = False
PicKonfigurasi.Visible = False
LblStatus.Caption = "Berita Terkirim"
Bar1.Panels(2).Text = "Berita Terkirim"
Me.MousePointer = 11
DaftarTerkirim
If LvTerkirim.ListItems.Count = 0 Then
    cmdHapusSMS.Enabled = False
Else
    cmdHapusSMS.Enabled = True
End If
Me.MousePointer = 1
End Sub

Private Sub cmdPesan_Click()
Bar1.Panels(2).Text = "Meesage"
PicTerkirim.Visible = False
LblStatus.Caption = "Message"
PicPesan.Visible = True
PicMasuk.Visible = False
PicKonfigurasi.Visible = False
End Sub

Private Sub cmdRestart_Click()
Bar1.Panels(1).Text = "Status: Restart Connect to port/com..."
tm_Koneksi.Enabled = True
End Sub

Private Sub cmdSimpan_Click()
Me.MousePointer = 11
SimpanSMS
Me.MousePointer = 1
aSMS = False
cmdSimpan.Enabled = False
End Sub

Private Sub FBus_IncomingCall(ByVal sIncomingNumber As String)
MsgBox "Ada panggilan masuk " & sIncomingNumber & "", vbInformation, "Panggilan"
   
End Sub

Private Sub Form_Activate()
CheckSoftware frmSMS_Manager
End Sub

Private Sub Form_Load()
xp.InitSubClassing

tm_Koneksi.Enabled = True
For i = 1 To 10
    cmbPort.AddItem "COM" & i
Next i
cmbPort.Text = "COM1"
Bar1.Panels(2).Text = "Konfigurasi"
LblStatus.Caption = "Konfigurasi"
End Sub

Private Sub Form_Unload(Cancel As Integer)
If FBus.Connected = True Then
    FBus.Disconnect
End If
If Not aSMS Then
    Tutup
Else
    Kata = MsgBox(" Data SMS yang di kirm belum di simpan..." & Chr(13) & _
          " Apakah Data SMS mau di simpan..", vbInformation + vbYesNo, "Informasi SMS")
    If Kata = vbYes Then
        cmdSimpan.Enabled = True
        cmdSimpan_Click
        Tutup
    Else
        Tutup
    End If
End If
End Sub


Private Sub Lv1_Click()
cmdRestart.Enabled = True
End Sub

Private Sub LvInbox_Click()
If LvInbox.ListItems.Count <> 0 Then
    txtNo.Text = LvInbox.SelectedItem.SubItems(1)
    txtTgl.Text = LvInbox.SelectedItem.SubItems(3)
    txtPesan.Text = LvInbox.SelectedItem.SubItems(2)
    Exit Sub
End If
End Sub

Private Sub LvInbox_ItemClick(ByVal Item As MSComctlLib.ListItem)
LvInbox_Click
End Sub

Private Sub LvTerkirim_Click()
If LvTerkirim.ListItems.Count <> 0 Then
    txtNoHPTerkirim.Text = LvTerkirim.SelectedItem.SubItems(1)
    txtTglTerkirim.Text = LvTerkirim.SelectedItem.SubItems(5)
    txtSMSTerkirim.Text = LvTerkirim.SelectedItem.SubItems(3)
End If
End Sub

Private Sub LvTerkirim_ItemClick(ByVal Item As MSComctlLib.ListItem)
LvTerkirim_Click
End Sub

Private Sub OsenXPButton5_Click()
If FBus.Connected = True Then
    FBus.Disconnect
End If
Unload Me
End Sub

Private Sub T_Timer()
If L1.Top <= -1000 Then L1.Top = 3480
If L2.Top <= -1000 Then L2.Top = 3480
If L3.Top <= -1000 Then L3.Top = 3480
If L4.Top <= -1000 Then L4.Top = 3480
If L5.Top <= -1000 Then L5.Top = 3480
If L6.Top <= -1000 Then L6.Top = 3480
If L7.Top <= -1000 Then L7.Top = 3480
If L8.Top <= -1000 Then L8.Top = 3480
L1.Top = L1.Top - 15
L2.Top = L2.Top - 15
L3.Top = L3.Top - 15
L4.Top = L4.Top - 15
L5.Top = L5.Top - 15
L6.Top = L6.Top - 15
L7.Top = L7.Top - 15
L8.Top = L8.Top - 15

End Sub

Private Sub Timer1_Timer()
If Blue <= 255 Then
    Blue = Blue + 50
Else
    Blue = 0
    Green = Green + 50
End If

If Green >= 255 Then
    Green = 0
    Red = Red + 50
End If

If Red >= 255 Then
    Red = 0
End If
L1.ForeColor = Int(RGB(Red, Green, Blue))
L1.Refresh
L2.ForeColor = Int(RGB(Blue, Red, Blue))
L2.Refresh
L3.ForeColor = Int(RGB(Red, Blue, Green))
L3.Refresh
L4.ForeColor = Int(RGB(Green, Blue, Red))
L4.Refresh
L5.ForeColor = Int(RGB(Blue, Red, Green))
L5.Refresh
L6.ForeColor = Int(RGB(Red, Green, Blue))
L6.Refresh
L7.ForeColor = Int(RGB(Blue, Red, Green))
L7.Refresh
L8.ForeColor = Int(RGB(Green, Red, Blue))
L8.Refresh
End Sub

Private Sub tm_Koneksi_Timer()

    On Error GoTo salah
    Me.MousePointer = 11
    Bar1.Panels(1).Text = "Silahkan Tunggu..."
    DoEvents
        FBus.Connect cmbPort.Text
            If FBus.Connected = True Then
                txtNegara.Text = FBus.ProviderCountry
                txtProvider.Text = FBus.ProviderName
                txtTanggal.Text = FBus.DateTime
                DoEvents
                Bar1.Panels(1).Text = "Connecting to phone ..."
                Bar1.Panels(3).Text = IIf(FBus.AlarmEnabled, "Alarm On", "Alarm Off")
                If FBus.KeyboardLocked Then
                    txtKey.Text = "Aktif"
                Else
                    txtKey.Text = "Not Aktif"
                End If
                DoEvents
                txtSignal.Text = FBus.RfLevel
                txtBatterai.Text = (FBus.BatteryLevel / 4) * 100 & "%"
                FBus.EnableNetMonitorEngineering
                Me.MousePointer = 1
                DoEvents
                Bar1.Panels(1).Text = "Status: Connect to port/com..."
                MsgBox "SMS Manager 1.0 Terhubung ke Hp/Port"
                Lv1.ListItems.Clear
                Set vButir = Lv1.ListItems.Add(, , Lv1.ListItems.Count + 1 & ".")
                vButir.SubItems(1) = cmbPort.Text
                vButir.SubItems(2) = "Connect"
                cmdConnect.Enabled = False
                cmdDisconnect.Enabled = True
                fr_Koneksi.Enabled = False
                tm_Koneksi.Enabled = False
            Else
            Bar1.Panels(1).Text = "Status: Not Connect to port/com..."
            Me.MousePointer = 1
            tm_Koneksi.Enabled = True
            MsgBox "SMS Manager 1.0 tidak terhubung ke HP/Port ....", vbInformation
            Set vButir = Lv1.ListItems.Add(, , Lv1.ListItems.Count + 1 & ".")
                vButir.SubItems(1) = cmbPort.Text
                vButir.SubItems(2) = "Not Connect"
            fr_Koneksi.Enabled = True
            End If
salah:
        Me.MousePointer = 1
        If Err <> 0 Then
            Bar1.Panels(1).Text = "Status: Error to open to port/com..."
            MsgBox "Port/Hp tidak dapat di akses oleh Sistem...", vbInformation
            tm_Koneksi.Enabled = False
            fr_Koneksi.Enabled = True
            Exit Sub
        End If
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
txtMessage.SelText = Button.Key & " "
End Sub

Private Sub Toolbar2_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
On Error Resume Next
txtMessage.SelText = ButtonMenu.Text & " "
End Sub

Private Sub txtMessage_Change()

On Error Resume Next
Dim h As Long
h = Int(Len(txtMessage) / (MaxMsg))
If (Len(txtMessage) Mod MaxMsg) <> 0 Then h = h + 1
lblCount = "Count: " & h & ", " & _
           "Char Length: " & Len(txtMessage) & "  Char Left: " & ((MaxMsg) * h) - Len(txtMessage)
End Sub

Sub DaftarInboxSMSHP()
Me.MousePointer = 11
If FBus.Connected = True Then
  
        FBus.SMS.Refresh
        LvInbox.ListItems.Clear
        For i = 1 To Me.FBus.SMS.Inbox.Count
        Set vButir = Me.LvInbox.ListItems.Add(, , LvInbox.ListItems.Count + 1 & ".")
            vButir.SubItems(1) = FBus.SMS.Inbox(i).Sender
            vButir.SubItems(2) = FBus.SMS.Inbox(i).Text
            vButir.SubItems(3) = FBus.SMS.Inbox(i).DateTime
           
        Next
       
End If
'Prog.Visible = False
Me.MousePointer = 1
End Sub

Sub DaftarOutboxSMSHP()
Me.MousePointer = 11
If FBus.Connected = True Then
        FBus.SMS.Refresh
        LvInbox.ListItems.Clear
        For i = 1 To Me.FBus.SMS.Outbox.Count
        Set vButir = Me.LvInbox.ListItems.Add(, , LvInbox.ListItems.Count + 1 & ".")
            vButir.SubItems(1) = FBus.SMS.Outbox(i).Sender
            vButir.SubItems(2) = FBus.SMS.Outbox(i).Text
            vButir.SubItems(3) = FBus.SMS.Outbox(i).DateTime
           
        Next
       
End If

Me.MousePointer = 1
End Sub

Sub SimpanSMS()
    On Error GoTo salah
        DataSMS.BeginTrans
        For i = 1 To Lv2.ListItems.Count
       
        DataSMS.Execute "Insert Into Terkirim Values ('" & Lv2.ListItems(i).SubItems(1) & "'," & _
        "'" & Lv2.ListItems(i).SubItems(2) & "','" & Lv2.ListItems(i).SubItems(3) & "'," & _
        "'" & Lv2.ListItems(i).SubItems(4) & "','" & Lv2.ListItems(i).SubItems(5) & "')"
        DataSMS.CommitTrans
        Next i
        MsgBox " DAta SMS telah tersimpan ke dalam database SMS Manager...", vbInformation
        Lv2.ListItems.Clear
        aSMS = False
        txtNomor.SetFocus
        Exit Sub
salah:
        MsgBox " Data SMS tidak dapat di simpan..", vbInformation
       
End Sub

Sub DaftarTerkirim()
'    On Error GoTo Salah
    Me.MousePointer = 11
    Kata = "Select * From Terkirim Order By [No telp]"
    Set TSMS = New ADODB.Recordset
        TSMS.Open Kata, DataSMS, adOpenStatic, adLockReadOnly
        LvTerkirim.ListItems.Clear
        If Not TSMS.EOF Then
            TSMS.MoveFirst
            i = 1
            While Not TSMS.EOF
                Set vButir = LvTerkirim.ListItems.Add(, , i & ".")
                    vButir.SubItems(1) = TSMS![No telp]
                    vButir.SubItems(2) = TSMS![Nama]
                    vButir.SubItems(3) = TSMS![Pesan]
                    vButir.SubItems(4) = TSMS![Status]
                    vButir.SubItems(5) = TSMS![Tgl Kirim]
                    TSMS.MoveNext
                    i = i + 1
                Wend
            End If
            TSMS.Close
            Set TSMS = Nothing
            Me.MousePointer = 1
End Sub

send sms pake pc

Dim mOK
Dim mErr
Dim mResult

Dim doit As Boolean
Dim sdata As String

Private Sub cmdSend_Click()
    Dim n
    ' Setup PictureBox for Scale
    List1.Clear
    List1.AddItem "Starting..."
    ' Fire Rx Event Every Byte
    MSComm1.RThreshold = 1
    ' When Inputting Data, Input All Bytes
    MSComm1.InputLen = 0
    ' 19200 Baud, No Parity, 8 Data Bits, 1 Stop Bit
    MSComm1.Settings = "19200,N,8,1"
    ' Make sure DTR line is low to prevent Stamp reset
    MSComm1.DTREnable = True
    MSComm1.InBufferSize = 32
    MSComm1.OutBufferSize = 0
    ' Open COM1
    MSComm1.CommPort = 5
    MSComm1.RTSEnable = True
    'Me.MSComm1.Handshaking = 2 - comRTS
    MSComm1.PortOpen = True
    List1.AddItem "Port Opened"

    Dim what As Boolean
   
    what = sendIt("AT+CMGF=1", "OK", "ERROR")
    If what = True Then
        what = sendIt("AT+CMGS=" & Chr(34) & Me.txtMNo & Chr(34), ">", "ERROR")
        If what = True Then
            n = Now
            Me.txtMToSend = Me.txtMsg & n
            'MSComm1.Output = Me.txtMsg & n & Chr(26) & Chr(13)
            what = sendIt(Me.txtMToSend & Chr(26), "OK", "ERROR")
        End If
    End If
    Me.MSComm1.PortOpen = False
    List1.AddItem "Done..."
End Sub

Function sendIt(ByVal s, ByVal ok, ByVal eror, Optional ByVal TOut = 5) As Boolean
    mOK = ok
    mErr = eror
    List1.AddItem "Sending.." & s
    MSComm1.Output = s & Chr(13)
    Dim p
    p = 0.0001 * TOut
    doit = False
    sdata = ""
    Dim dt1 As Date, dt2 As Date
    dt1 = Now
    Dim p1
    While doit = False
        dt2 = Now
        p1 = (dt2 - dt1)
        If p1 >= p Then
            List1.AddItem "Timeout..."
            doit = True
            sendIt = False
            Exit Function
        End If
        DoEvents
    Wend
    sendIt = True
End Function


Sub wait()
    Dim p
    p = 0.0005
    doit = False
    Me.List1.AddItem "Waiting..."
    sdata = ""
    Dim dt1 As Date, dt2 As Date
    dt1 = Now
    Dim p1
    While doit = False
        dt2 = Now
        p1 = (dt2 - dt1)
        If p1 >= p Then
            List1.AddItem "Timeout..."
            doit = True
        End If
        DoEvents
    Wend
End Sub

Private Sub MSComm1_OnComm()
    List1.AddItem "In OnComm"
    Dim sdata1
    If MSComm1.CommEvent = comEvReceive Then
        sdata1 = MSComm1.Input
        sdata = sdata & sdata1
        If InStr(sdata, mOK) > 0 Then
            doit = True
            mResult = "OK"
            List1.AddItem "--> " & sdata
        ElseIf InStr(sdata, "ERROR") > 0 Then
            doit = True
            List1.AddItem "Err--->" & sdata
            mResult = "ERR"
        ElseIf InStr(sdata, ">") > 0 Then
            doit = True
            List1.AddItem ">>---> " & sdata
            mResult = sdata
        Else
            List1.AddItem "?---> " & sdata
            mResult = sdata
        End If
    End If
End Sub

cowky kangen ceny

setelah sekian lama berpisah lebih dari 3 tahun wajah mu masih tersimpan dihati ini
 cenyq q masih kangen dan cinta kamu.
kumenyesal telah mencari penggantimu
kumenyesal telah meninggalkan mu
kumenyesal tidak memperbaiki saat ada kesempatan
satu kata untuk cenyq q sayang u

luna maya jadi virus

   Gila Mank Masa lunamaya dijadiin virus virusnya jorok lagi suka buka-bukaan masa gara2  luna maya bikin bokep jadi ada virus lunamaya kapan virus ariel yang keluar yach ,hehehehe tapi ada cara untuk ngilangin virus ini caranya dengdeng - deng
1. Lakukan pembersihan virus pada mode “safe mode”.
      Untuk masuk pada mode “safe mode”, tekan tombol F8 pada keyboard saat komputer dinyalakan.
      Pada menu Windows Advanced Options, anda dapat memilih mode “safe mode” atau dapat juga mode    “safe mode with networking” dan “command prompt”. Agar lebih mudah pilih saja mode “safe mode”.
      Biarkan windows berjalan hingga muncul jendela konfirmasi penggunaan “safe mode”.
      Klik pilihan “Yes”, untuk menggunakan mode “safe mode” pada jendela konfirmasi tersebut.
   2. Matikan proses virus yang aktif pada memory.
      Gunakan tools pengganti Task Manager dalam hal ini gunakan CurProcess. Download tools CurrProcess pada link ini.
      Jalankan CurrProcess, kemudian cari file virus “Amoumain.exe”. Klik kiri file virus, kemudian pilih “Kill Selected Processes”. Jika file virus sudah hilang, maka tutup jendela CurrProcess.
   3. Perbaiki registry windows yang sudah dimodifikasi oleh virus dengan langkah sebagai berikut :a. Salin script dibawah ini menggunakan wordpad. Klik menu [Start] à [All Programs] à [Accessoris] à [Wordpad].[Version]
      Signature=”$Chicago$”
      Provider=Vaksincom Oyee

      [DefaultInstall]
      AddReg=UnhookRegKey
      DelReg=del

      [UnhookRegKey]
      HKCU, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, ShowSuperHidden,0×00010001,1
      HKCU, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, SuperHidden,0×00010001,1
      HKCU, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, HideFileExt,0×00010001,0
      HKLM, SOFTWARE\CLASSES\batfile\shell\open\command,,,”"”%1″” %*”
      HKLM, SOFTWARE\CLASSES\comfile\shell\open\command,,,”"”%1″” %*”
      HKLM, SOFTWARE\CLASSES\exefile\shell\open\command,,,”"”%1″” %*”
      HKLM, SOFTWARE\CLASSES\piffile\shell\open\command,,,”"”%1″” %*”
      HKLM, SOFTWARE\CLASSES\regfile\shell\open\command,,,”regedit.exe “%1″”
      HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, Shell,0, “Explorer.exe”

      [del]
      HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\system, DisableTaskMgr
      HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\explorer, NoRun

      b. Simpan file dengan nama “repair.inf”. Gunakan pilihan Save as type menjadi Text Document agar tidak terjadi kesalahan.
      c. Klik kanan file “repair.inf” kemudian pilih “Install”.
   4. Hapus file virus “Luna Maya” dengan ciri-ciri sebagai berikut :
      Memiliki type file “Application”
      Memiliki ukuran file “37 kb”
      Memiliki icon file MS Word
   5. Untuk pembersihan yang optimal dan mencegah infeksi ulang, scan kembali menggunakan antivirus yang ter-update dan mengenali virus ini dengan baik.
   6. Untuk USB flash atau removable drive yang sudah dirusak atau format oleh virus, sebaiknya gunakan software recovery untuk mengembalikan data yang hilang.

    * Catatan :
      Untuk mempermudah pencarian sebaiknya gunakan fungsi Search Windows dengan menggunakan filter file *.exe dan *.inf dan berukuran 37 kb.
      Hapus file virus yang biasanya mempunyai date modified yang sama.
      Pastikan hapus file virus utama seperti : Amoumain.exe, Luna Maya.exe, Love.exe, dan nt.bat
      Log-off komputer, kemudian log-in kembali.

Konsultan HRD | Konsultan SOP | Feasibility Study | Konsultan UKL/UPL | Konsultan Finance: System Payroll

Konsultan HRD | Konsultan SOP | Feasibility Study | Konsultan UKL/UPL | Konsultan Finance: System Payroll

cara hack facebook 1

Sebenarnya banyak sekali Cara Hack Facebook atau Cara Hack Password Facebook, kali ini ada 3 cara Hack yang akan saya coba share untuk sahabat blog dofollow, Semoga tips dibawah ini bermanfaat ya.

Berikut ini adalah 3 Cara hack Facebook terbaru:
- Menggunakan FacebooZ
- Menggunakan Keylogger
- Menggunakan Social Attack

- Menggunakan FacebooZ
Hack facebook menggunakan FacebooZ adalah cara hack facebook yang cukup rumit , untuk cara hack facebook menggunakan FacebooZ , anda harus mempunyai program internet berupa software Java dari Sun Microsystem dan Framework minimal edisi 2.0 , bila di komputer anda tidak terpasang software ini , cobalah untuk melakukan cara hack facebook menggunakan FacebooZ ini di warnet , bila masih tidak ada fasilitas java dan Frameworknya , maka ikuti langkah langkah yang ada di bawah ini untuk cara hack facebook menggunakan FacebooZ.

Untuk Java :

1. Buka Alamat Web http://jdl.sun.com/webapps/getjava/BrowserRedirect?locale=en&host=www.java.com:80

2. Download Penginstall Java Tersebut ke Komputer anda , tetapi bila anda menemukan tulisan seperti di bawah ini , berarti anda tidak perlu menginstallnya lagi:

Verifying Java Version
Congratulations!
You have the recommended Java installed (Version - Update --).

If you want to download Java for another computer or Operating System, see all Java downloads here.

To find out if Java is working on your system please visit:
Test your Java Virtual Machine (JVM)

3. Install Program Java tersebut di komputer anda.

Untuk FrameWork :

1. Buka Alamat Web ,http://www.microsoft.com/downloads/en/confirmation.aspx?familyId=0856eacb-4362-4b0d-8edd-aab15c5e04f5&displayLang=en

2. Download FrameWork

3. Install program tersebut di komputer anda

Setelah mempersiapkan semua persiapan tadi , saatnya untuk ngopi menjalankan cara hack facebook menggunakan :D FacebooZ. Untuk menggunakan FacebooZ , silahkan ikuti langkah langkah di bawah ini.

1. Download Facebook di

http://www.ziddu.com/download/6202817/Groundfacebook.rar.html
dan
http://www.ziddu.com/download/6202880/Document1.pdf.html

2. Gunakan FacebooZ dengan bijak mengextract file zip tersebut , kalau anda belum punya WinZip silahkan cari di google dengan kata kunci "WinZip gratis atau Free WinZip" .Maaf untuk link untuk download WinZip ini tidak disediakan berhubung saya capek :D

3. Klik File yang bernama facebooZ.jar, kalau sudah memenuhi 2 syarat penggunaan cara hack facebook menggunakan facebooZ , lihat di atas

4. Maka akan tampil program FacebooZ , lalu anda kira kira sendiri, buka notepad , diisikan dengan kata kunci dari kamus indonesia-inggris dan data data si korban , misalkan di notepad diisikan tanggal lahir , alamat , hobi dan lain lain , lihat saja tulisan di bawah ini.

17 Agustus 1945 (merdeka !)
Jalan Di Hack Nomor 666 , Perumahan Nge Hack Gile Ajib !
Mancing,Hack Orang,Nungging Jangan Ditiru , Bahaya !

Makanan
Minuman
Berlari
Bekerja
Bermain
Eating
Drinking
Running
Playing

Lalu save dengan nama password.txt

5. Tunggu Hasilnya , hasilnya agak lama tapi cobalah untuk bersabar dengan cara hack facebook yang satu ini :D

- Menggunakan Keylogger
Cara hack facebook yang satu ini juga termasuk sulit dalam pengoperasiannya tapi cara hack facebook ini sangat efektif dan dapat memberikan anda banyak password selain password facebook , untuk menjalankan cara hack facebook ini langsung saja ikuti langkah langkah di bawah ini :

Download Perfect Keylogger di blazingtools.com .Perfect keylogger bisa berjalan pada Windows 95, NT4, 98, Me, 2000, XP, Server 2003/2008, Vista. Serta internet Explorer 5.0 atau yang terbaru.

Untuk membuktikan kehebatan perfect keylogger, berikut ini langkah-langkahnya :

1. Jalankan file setupnya

2. Ketika dalam proses instalasi anda akan diminta memasukan nama panggilan untuk perfect keylogger, ini juga kelebihan perfect keylogger. Dengan begini maka perfect keylogger lebih dapat tersamarkan keberadaanya.

3. Setelah itu anda diminta untuk menentukan keberadaan instalasi program perfect keylogger ini, apabila anda menaruh di tempat-tempat yang lebih dalam di folder WINDOWS maka ini juga dapat menghindari perfect keylogger ketahuan. Dan dalam bagian proses instalasi ini terdapat jenis instalasi perfect keylogger, apakah anda ingin menginstall secara regular atau stealth. Apabila anda menginstall Stealth maka yang akan di install hanya mesin programnya saja tanpa file Help dan Uninstaller.

4. Karena softwae ini adalah versi trial, jadi hanya berlaku 5 hari saja. Untuk bisa menggunakan dalam jangka waktu panjang, anda harus membeli serial numbernya. Meski demikian, semua fitur dalam versi trial ini sudah terbuka dan cukup untuk membuktikan kecanggihannya.

5. Klik Continue Evaluation untuk melanjutkan dengan Demo version ini. Lalu akan terbuka programnya. Untuk melihat properti dan settingan dari keylogger ini anda dapat lihat di pojok kanan bawah monitor anda.

6. Klik kanan logo tersebut dan akan muncul pop up menu dari perfect keylogger. Pilih menu Option untuk melihat dan men-setting keylogger-nya.

7. Pertama-tama kita set terlebih dahulu Hotkeys untuk memanggil Perfect Keylogger, secara default kombinasi tombol Ctrl+Alt+L dipakai untuk memanggil Perfect Keylogger. Untuk lebih aman anda atur sendiri kombinsai tombol tersebut. Lalu setting Invisibility untuk mengatur kesamaran keylogger.

8. Lalu kita lihat menu Logging, disini dapat anda set objek/hal apa saja yang anda ingin rekam dalam keylogger ini. Lalu anda dapat menset password keylogger ini supaya tidak ada orang lain yang dapat mengakses keylogger ini selain anda.

9. Hasil logging terhadap hentakan keyboard dapat dilihat dengan akses pop up menu tadi dalam jendela Log Viewer.

10. Lalu di dalam menu Screenshots, anda dapat menset settingan Perfect Keylogger untuk merekam screenshot komputer korban. Disini dapat di setting waktu, kualitas gambar, ukuran gambar dan screenshots ketika adanya hentakan pada tombol mouse.

11. Di menu E-mail, anda dapat mengatur laporan log Perfect Keylogger untuk dikirimkan ke email anda. Disini anda dapat men-set waktu pengiriman, log apa saja yang akan dikirim, besar limit file dan lainnya.

12. Dalam tab Delivery anda diharuskan mengisi form yang disediakan sebagai syarat dalam pengiriman file ke email anda. Perfect Keylogger hanya bisa mengirim file ke email yang memiliki smtp dan fasilitas POP3 jadi hotmail dan yahoo tidak bisa digunakan. Untuk lebih mudahnya, sebaiknya gunakan email telkomnet atau plasa karena setting pop3 dan smtp untuk keduanya sangat mudah. Pada kotak isian smtp, isilah dengan “smtp.telkom.net” tanpa tanda kutip.

13. FTP akses pun perlu apabila port 80 ataupun 25 ditutup, supaya jaga-jaga file anda tidak terkirim. Di tab Delivery anda harus menset alamat FTP dan user password maupun direktori FTP tersebut.

14. Remote Installation. Menu ini adalah keunggulan lainnya dari Perfect Keylogger, karena Perfect Keylogger akan membentuk sebuah executable file yang digabungkan dengan file apapun. Jadi lebih mirip trojan yang dibungkus file gambar. Perlu diingatkan file remote executable yang telah terbentuk tadi terbentuk dengan settingan Perfect Keylogger anda pada awal tadi.

15. Ketika anda masuk ke menu dimana anda diminta untuk memilih sebuah file untuk di kombinasikan dengan Perfect Keylogger remote exe.anda dapat men-set juga tanggal uninstalisasi apabila anda ingin menghilangkan keylogger tersebut di komputer korban pada waktu tertentu. Untuk kombinasi file lebih baik menggunakan gambar agar korban tidak curiga. Dan isikan juga lokasi folder instalasi keylogger di komputer korban nantinya.

16. File remote pun terbentuk. Silahkan tes remote file tadi. Pengetesan sebaiknya dilakuan pada Vmware ataupun Virtual PC agar anda tidak menjadi korban. Perlu diingatkan file remote executable yang telah terbentuk tadi terbentuk dengan settingan Perfect Keylogger anda pada awal tadi.

17. Perfect Keylogger tidak terdeteksi Remove program dan Window Task Manager. Ini berarti Perfect Keylogger benar-benar tidak terdeteksi dan patut dikatakan PERFECT.

Jika Perfect Keylogger bekerja dengan baik, semua aktifitas user di komputer tersebut akan terpantu dengan baik termasuk password emailnya. Lebih celakanya lagi, jik auser tersebut melakukan transaksi jual beli online menggunakan kartu kredit atau e-banking. Maka semuanya akan terpantau.

- Menggunakan Social Attack
Cara hack facebook yang ini paling sederhana dan mudah dilakukan semua orang , dengan bermodalkan keakraban , anda bisa mengatahui password orang tersebut dengan memintanya saja. Untuk itu anda harus mempunyai status sosial yang agak tinggi supaya anda bisa mendapatkan password dengan social attack.

Sekali lagi semoga bermanfaat ya informasi Cara Hack Facebook yang telah saya share di atas. Salam timontius-pangestu.blogspot.com

games pedang

games tinju

games berantem uy

games Petualangan

games sepeda

lowongan Pekerjaan

perusahaan yang bergerak di bidang Asuransi mencari tenaga trampil untuk posisi : sales dibutuhkan 25 orang anda berminat hubungi yusep di 021 91996287 untuk wilayah jakarta pengumuman ini sampai akhir juni 2010,tq

send email pake vb

Private Sub SendMail_Click()
 Dim AOL As Long, MDI As Long, tool As Long, Toolbar As Long
    Dim ToolIcon As Long, OpenSend As Long, DoIt As Long
    Dim Rich As Long, EditTo As Long, EditCC As Long
    Dim EditSubject As Long, SendButton As Long
    Dim Combo As Long, fCombo As Long, ErrorWindow As Long
    Dim Button1 As Long, Button2 As Long
    AOL& = FindWindow("AOL Frame25", vbNullString)
    MDI& = FindWindowEx(AOL&, 0&, "MDICLIENT", vbNullString)
    tool& = FindWindowEx(AOL&, 0&, "AOL Toolbar", vbNullString)
    Toolbar& = FindWindowEx(tool&, 0&, "_AOL_Toolbar", vbNullString)
    ToolIcon& = FindWindowEx(Toolbar&, 0&, "_AOL_Icon", vbNullString)
    ToolIcon& = FindWindowEx(Toolbar&, ToolIcon&, "_AOL_Icon", vbNullString)
    Call PostMessage(ToolIcon&, WM_LBUTTONDOWN, 0&, 0&)
    Call PostMessage(ToolIcon&, WM_LBUTTONUP, 0&, 0&)
    DoEvents
    Do
        DoEvents
        OpenSend& = FindWindowEx(MDI&, 0&, "AOL Child", "Write Mail")
        EditTo& = FindWindowEx(OpenSend&, 0&, "_AOL_Edit", vbNullString)
        EditCC& = FindWindowEx(OpenSend&, EditTo&, "_AOL_Edit", vbNullString)
        EditSubject& = FindWindowEx(OpenSend&, EditCC&, "_AOL_Edit", vbNullString)
        Rich& = FindWindowEx(OpenSend&, 0&, "RICHCNTL", vbNullString)
        Combo& = FindWindowEx(OpenSend&, 0&, "_AOL_Combobox", vbNullString)
        fCombo& = FindWindowEx(OpenSend&, 0&, "_AOL_Fontcombo", vbNullString)
        Button1& = FindWindowEx(OpenSend&, 0&, "_AOL_Icon", vbNullString)
        Button2& = FindWindowEx(OpenSend&, Button1&, "_AOL_Icon", vbNullString)
        SendButton& = FindWindowEx(OpenSend&, 0&, "_AOL_Icon", vbNullString)
        For DoIt& = 1 To 13
            SendButton& = FindWindowEx(OpenSend&, SendButton&, "_AOL_Icon", vbNullString)
        Next DoIt&
    Loop Until OpenSend& <> 0& And EditTo& <> 0& And EditCC& <> 0& And EditSubject& <> 0& And Rich& <> 0& And SendButton& <> 0& And Combo& <> 0& And fCombo& <> 0& & SendButton& <> Button1& And SendButton& <> Button2&
    Call SendMessageByString(EditTo&, WM_SETTEXT, 0, Person)
    DoEvents
    Call SendMessageByString(EditSubject&, WM_SETTEXT, 0, Subject)
    DoEvents
    Call SendMessageByString(Rich&, WM_SETTEXT, 0, Message)
    DoEvents
    Pause 0.2
    Call SendMessage(SendButton&, WM_LBUTTONDOWN, 0&, 0&)
    Call SendMessage(SendButton&, WM_LBUTTONUP, 0&, 0&)
End Sub


copy aja code ini,k

dowload 7 sins

kunjungi beberapa situs ini w pernah coba satu dan dan berhasil akhirnya w
bisa main game yang w suka terima kasih free game ah ternyata  ga bisa

http://www.megaupload.com/?d=WJP520RE
http://www.megaupload.com/?d=ITZM0LA7
http://www.megaupload.com/?d=WF0ZP8BF
http://www.megaupload.com/?d=6B8KFEDV
http://www.megaupload.com/?d=FX63N64A
http://www.megaupload.com/?d=VFPRFO89
Password:www.warezakias.info

masa kini

jika bicara tentang masa kini apa yang kamu pikir kan

pusing2

tiap pagi cuma nongkrong mau kerja ga ada yang sesuai profesi
pusing2 ingin bebassssssssssssssssssssssssssssssssssssssssssssssssssssgila
gila pokoknya gila kerja berangkat pagi pulang pagi
kapan w bisa tidur sehari apakah cukup tidur 5 jam makan kurang juga
kapan w bisa bebas
pusing 2 pengen lepas

source vb delete no entry

Private Sub btFind_Click(Index As Integer)
Select Case Index
Case 0 '--- From Entry No. ----
F_EntryNo = 1
FindEntryNo.Show 1
Me.Text1.Text = E_Map_01
E_Map_01 = ""

Case 1 '--- To Entry No. ----
F_EntryNo = 1
FindEntryNo.Show 1
Me.Text2.Text = E_Map_01
E_Map_01 = ""

End Select
End Sub

Private Sub btFinish_Click()
Unload Me
End Sub

Private Sub btProses_Click()
On Error GoTo ErrorMSG
Select Case MsgBox("Do you want to delete the record's?", vbQuestion + vbYesNo, "Confirmation")
Case vbYes
Call SqlCONN
Me.MousePointer = 11
Me.pBAR.Value = 0
Me.pBAR.Visible = True
Me.btProses.Enabled = False
Call Me.Delete
Call SqlDisCONN
MsgBox "Records Delete...!!", vbInformation, "Accounting System"
Me.MousePointer = 0
Me.pBAR.Visible = False
Me.btFinish.Enabled = True
Call SqlDisCONN
Call CloseRS
Set rs1 = Nothing
Set Cmd = Nothing
Case vbNo

End Select
Exit Sub
ErrorMSG:

End Sub

Private Sub Timer1_Timer()
If Me.Label3.Visible = True Then
Me.Label3.Visible = False
Else
Me.Label3.Visible = True
End If
End Sub

Sub Delete()
strSQL = "SELECT NO_ENTRI FROM Table " & _
"WHERE NO_ENTRI >= '" & Me.Text1 & "' and NO_ENTRI <='" & Me.Text2 & "' "
Set rs = Conn.Execute(strSQL)
If rs.EOF = False Then
rs.MoveFirst
Do While rs.EOF = False
strSQL = "DELETE Table WHERE NO_ENTRI = '" & rs.Fields(0) & "' "
Conn.Execute (strSQL)
Me.pBAR.Value = rs.AbsolutePosition / rs.RecordCount * 100
rs.MoveNext
Loop
End If
End Sub

game

hehehe

kalian yang masuk kesini klik follow yach kalo ada pertanyaan kirim email aja entar w jawab hehehehe

ngehack chip poker

bagi yang mw nghack chip klik follow ntar 7 hari lagi masuk ke blog ini w tunjukin 2 cara

NAruto

Asing Nama Ku March 11 at 5:36am Reply

Komik Naruto 486; Tobi alias Madara punya RINNEGAN juga? naruto vs sasuke di undur

rasengan dan chidori seberapa besar berkembang? pertemuan rasengan dan chidori membuat ledakan besar dan membuat mereka sama-sama terpental. naruto terpental ke arah kakashi dan ditangkap kakashi. sedangkan sasuke terlempar ke arah tebing sungai. tiba-tiba zetsu putih muncul di belakangnya dan berubah menjadi gumpalan sehingga membuat sasuke tak terhempas ke dinding batu.

"kau... kapan kau...." kata sasuke terbata-bata. "saya sudah mengawasimu cukup lama... tobi memerintahkan saya untuk berkeliaran dan menyembunyikan kehadiran saya darimu.kita dalam masalah bagaiamanapun kau mengusahakannya" kata zetsu pada sasuke. "sebaiknya saya memanggil tobi, saya rasa saya tak bisa sendiri menghadapi mereka" pikir zetsu.

"sudah kubilang untung pergi dari sini naruto" kata kakashi pada naruto. "sekarang saya yakin" kata naruto pasti.

sementara di markas akatsuki, tobi sedang membuka topengnya [sayangnya ga menghadap ke kita]. "saya harus mempersiapkan diri untuk peperangan, ini kesempatan baik untuk mengeluarkan rinnegan" kata tobi. tiba-tiba zetsu muncul dari permukaan lantai. "sasuke dalam masalah, apa yang harus saya lakukan?" tanya zetsu pada tobi.

kembali ke naruto, "yakin terhadap apa? apa yang kau bicarakan?" tanya kakashi heran. naruto dan sasuke saling melihat satu sama lain. tiba-tiba disamping zetsu muncul pusaran tobi. "sudah kubilang kau kembali dan beristirahat.." kata tobi pada sasuke.

kakashi terkejut, "madara" pikirnya. "oh siluman ekor 9 ya... ketika kita bertarung dengan mereka mungkin ditempat yang labih pas, untuk sekarang kita mundur dulu" kata tobi melihat naruto dkk.

"biar saya yang urus mereka, bukankah suatu waktu nanti kita juga akan menangkap ekor sembilan...." kata zetsu dan dari sekitarnya muncul banyak setengah zetsu. "pertama madara, lalu zetsu.. saya tak bisa menghadapai mereka sendirian.. apa yang harus saya lakukan..?" pikir kakashi bersiap.

"jangan zetsu, aku tak yakin kau bisa menangkap naruto, kau bukan petarung garis depan tapi ekor sembilan sangat kuat. kita akan menyerahkan perburuan ekor 9 pada sasuke.. itu akan sangat menghibur.. tambahan saya khawatir dengan kisame coba cek dia dan bergabunglah dengan bagian mu yang hitam dijalan."perintah tobi pada zetsu. "ya tuan" jawab zetsu.

naruto melangkah maju beberapa langkah. "naruto!" kata kakashi terkejut. "saya tahu... tapi ada sesuatu yang mau saya katakan pada sasuke" kata naruto. "mari kita berangkat sasuke" kata tobi memegang punggung sasuke. "tunggu" kata sasuke. sasuke dan naruto kembali saling berpandangan.

"sasuke apa kau masih ingat kata-katamu padaku di valley of the end? tentang ninja top class? kau bilang bila ninja top class bertarung mereka akan bisa saling merasakan perasaan ketika pertama pukulan mereka beradu... kita tak butuh kata-kata... kau lemah naruto. sekarang katakan padaku apa yang kau lihat di hatiku.. apa yang sedang kurasakan" kata-kata sasuke ketika naruto dan sasuke bertarung di valley of the end. beberapa waktu kemudian aku mengerti, kita menjadi ninja top class sasuke, kita berdua. jadi katakan padaku apa yang kau lihat dihatiku, apa yang sedang kurasakan? apa kau lihat apa yang akan terjadi jika kita bertarung lagi? KITA BERDUA AKAN MATI! pertarungan kita takkan terelakkan jika kau menyerang konoha. jadi jaga kebencianmu biarkan membara dan pukul aku dengan seluruh kekuatanmu. sayalah yang akan menanggung penuh kebencianmu ini tugasku. tak ada yang lain. say aakan menanggung beban kebencianmu dan kita akan mati bersama" kata naruto.

"apa yang salah padamu! mengapa kau begitu peduli padaku?" teriak sasuke. "KARENA AKU TEMANMU" jawab naruto tersenyum. "sasuke kita takkan bisa mengerti orang lain dengan kata-kata sendiri, saya tahu ketika saat saya bertemu denganmu. satu-satunya jalan kita berkomunikasi adalah dengan tinju kita. ingat kata-kataku kita berdua ninja top class sekarang" kata naruto.

"mungkin dengan mengerti satu sama lain mungkin saya bisa merubah kebencian seperti yang guru iruka lakukan padaku" pikir naruto. "saya belum menyerah" kata naruto pada sasuke. "saya masih mengomelimu.. seharusnya saya tak menguliahi orang lain. hehehe jika kita memang mengambil jalan akhir ini dan mati bersama kita takkan jadi uchiha, jinchuriki atau apapun. takkan ada beban yg akan ditanggung mungkin kita bisa menegerti di dunia berikutnya" sambung naruto.

"naruto kau..." kata sakura menangis terharu. "saya takkan pernah berubah.. saya tak ingin kita saling mengerti.. saya takkan mati cuma kau" jawab sasuke dingin.

"cukup naruto.. saya akan menangani sasuke kau masih punya impian jadi hokage. sasuke mungkin telah jatuh janganbiarkan dia membawamu juga. " kata kakashi. "bagaiama mungkin saya mengatakan saya hokage jika saya tak bisa menyelamatkan 1 temanku?" jawab naruto.

"satu-satunya orang yang akan melawan sasuke adalah aku" kata naruto lagi.

Bersambung Komik Naruto 487 kamis depan.. c u


Sumber :
http://www.hilman.web.id/posting/blog/841/komik-naruto-486-tobi-alias-madara-punya-rinnegan-juga-naruto-vs-sasuke-di-undur.html

tq

terima kasih untuk kawan yang datang mengungunjugi blog gw
ayo sama2 basmi virus dengan menghancurkan komputer masing yang dirumah.hehehehehe
banyak virus banting ajaaaaaaaaaaaaaaaaaa

slank

Download slank telanjang video

ungu Cinta gila

Download Ungu Cinta gila video klip video

Iwan Fals Kumenanti Seorang Kekasih

Bila mentari bersinar lagi

Hatikupun ceria kembali ... Asyik

Kutatap mega tiada yang hitam

Betapa indah hari ini

Kumenanti seorang kekasih

Yang tercantik yang datang dihari ini

Adakah dia kan selalu setia

Bersanding hidup penuh pesona

Harapanku

Jangan kau tak menepati

Datanglah dengan kasihmu

Andai kau tak datang kali ini

Punah harapanku

Biographi Slank

Slank Biography

Slank adalah sebuah grup musik terkenal di Indonesia. Dibentuk oleh Bimbim pada 26 Desember 1983 karena bosan bermain musik menjadi cover band dan punya keinginan yang kuat untuk mencipta lagu sendiri.

AWAL KARIR

Cikal bakal lahirnya Slank adalah sebuah grup bernama Cikini Stones Complex (CSC) bentukan Bimo Setiawan Sidharta (Bimbim) pada awal tahun 80-an. Band ini hanya memainkan lagu-lagu Rolling Stones dan tak mau memainkan lagu dari band lain, alhasil mereka akhirnya jenuh dan menjelang akhir tahun 1983 grup ini dibubarkan.

Bimbim meneruskan semangat bermusik mereka dengan kedua saudaranya Denny dan Erwan membentuk Red Evil yang kemudian berganti nama jadi Slank, sebuah nama yang diambil begitu saja dari cemoohan orang yang sering menyebut mereka cowok selengean dengan personel tambahan Bongky (gitar) dan Kiki (gitar). Kediaman Bimbim di Jl. Potlot 14 jadi markas besar mereka.

Mereka sempat tampil di beberapa pentas dengan membawakan lagu-lagu sendiri sebelum Erwan memutuskan mundur karena merasa tidak punya harapan di Slank. Dengan perjuangan panjang terbentuklah formasi ke-13, Bimbim, Kaka, Bongky, Pay dan Indra, Slank baru solid.

Dengan formasi Bimbim (Drum), Bongky (Bass), Pay (Gitar), Kaka (Vokal) dan Indra (Keyboard) mereka mulai membuat demo untuk ditawarkan ke perusahaan rekaman.

Setelah berulang kali ditolak, akhirnya tahun 1990 demonya diterima dan mulai rekaman debut album Suit-Suit... He He He (Gadis Sexy). Album yang menampilkan hit Memang dan Maafkan itu meledak dipasaran sehingga mereka pun diganjar BASF Award untuk kategori pendatang baru terbaik. Album kedua mereka, Kampungan pun meraih sukses yang sama.

NARKOBA

Keterlibatan para personelnya dengan narkoba sempat melahirkan keretakan di tubuh band yang bermarkas di jalan Potlot ini. Pada saat menggarap album keenam (Lagi Sedih), Bimbim selaku leader akhirnya memutuskan untuk memecat Bongky, Pay dan Indra. Kaka dan Bimbim tetap menggarap album ke-6 dengan bantuan additional player.

Sebagai gantinya mereka merekrut Ivanka (Bass), Mohamad Ridho Hafiedz (Ridho) dan Abdee Negara (Abdee). Formasi ini bertahan hingga saat ini dan mereka terus melahirkan karya-karya yang menegaskan eksistensi mereka di dunia musik Indonesia.

Bimo Setiawan Almachzumi
Nick Name : Bimbim
D.O.B : Jakarta, 25 December
Believe : Islam
Height/Weight : 173 cm / 52 kgs
Hobby : Soccer
Influence : Van Hallen, Rolling Stones, Queen
Position : Drums / Percussions / Guitar
Musical Background :
Self learning to drumming at the age of 13. First gigs in Junior High with Cikini Stones Complex. Former member of SLANK.

Akhadi Wira Satriaji
Nick Name : Kaka
D.O.B : Jakarta, 10 March
Believe : Islam
Height/Weight : 171 cm / 60 kgs
Hobby : Soccer
Influence : Bob Marley, David Coverdale
Position : Guitars / Vocal Cord
Musical Background :
Learnt to sing at the age 9, Forming a band with cousins and friends in Junior High. Self learn to sing by listening his favourites musician's recorded tapes, Vocalist of LOVINA band, borrowed as vocalist

Ivan Kurniawan Arifin
Nick Name : Ivanka
D.O.B : Jakarta, 9 Desember
Believe : Islam
Height/Weight : 170 cm / 55 kgs
Hobby : Musics
Influence : Rolling Stones, Beatles
Position : Bass / Guitars
Musical Background :
Began to learn guitar at the age of 14 . Finalist at West Java Rock Festival. Foemer member of House Of The Rising Sun Band, Bass player for Imanez' Otto Jam, Supporting musician for SLANK's 6th local album.

Mohammad Ridwan Hafiedz
Nick Name : Ridho
D.O.B : Ambon, 3 September
Believe : Islam
Height/Weight : 173 cm / 50 kgs
Hobby : Soccer
Influence : Blues Saraceno, Nick Nolan, Beatles, Jimmy Hendrix
Position : Guitars
Musical Background :
Began to learn music in Samarinda at the age 12. Former member of Cat Power Band. Took a musical course with Didi AGP and Bintang Indiarto in high school. Former member of Last Few Minutes (LFM) Band. Took a guitar course at Musician Institute Hollywood,LA. Supporting musician for Vina Panduwinata, Nita Tilana, Nugie, Vony Sumlang. Joining SLANK in the recording album "TUJUH".

Abdee Negara
Nick Name : Abdee
D.O.B : Donggala, 28 June
Believe : Islam
Height/Weight : 170 cm / 50 kgs
Hobby : Motor Cross
Influence : Keith Richard, Jimmy Hendrix
Position : Guitars
Musical Background :
Took a guitar course at ILW Farabi in 1988. Supporting musician for Gideon Tengker, Ermy Kulit, Michael "Sket" Meyer, Eki Lamoh. Former member of Interview Band with Hengky Supit, DOR Band with Wawan and Michael Meyer, ENEMES Band with Sandy and Iram "U" Camp, Makhatana Band with Dino and Yoyo "Bayou", KRS with Cendy Luntungan, Harry Anggoman. ARJACO with Arthur Kaunang and James F. Sundah.

Joining SLANK in the recording album "TUJUH".

PENGGEMAR

Slank adalah grup cinta damai dan pada kenyataanya Slank tidak saja berhasil merebut hati penggemar, tapi Slank juga telah berhasil membangkitkan semangat dan solidaritas dari sebuah generasi untuk punya sikap. Dan Slank memiliki kelompok penggemar yang fanatik dan kreatif, yang dikenal sebagai Slankers.

SLANK FANS CLUB

Slank Fan Club (SFC) adalah club resmi yang dibentuk oleh manajemen Slank untuk menampung para penggemar fanatik Slank.

BULETIN SLANK

Untuk menyampaikan informasi kepada para Slanker, Slank dan manajemennya memutuskan untuk membuat sebuah newsletter yang kemudian disebut dengan nama Buletin Slank. Buletin ini berisi jadual, kisah-kisah pendek perjalanan tur panggung slank dan sebagainya. Nama buletin sendiri dipakai sebagai simbol agar para slanker melingkari (buletin) jadwal kegiatan slank di kalender kegiatan mereka masing-masing.

Buletin Slank inilah yang kemudian berkembang menjadi Koran Slank.

KORAN SLANK

Koran Slank diterbitkan pertama kali pada 10 Maret 2002.

DISKOGRAFI

1. 1990 - Suit-Suit....Hehehe (Gadis Sexy)
2. 1991 - Kampungan
3. 1993 - Piss
4. 1995 - Generasi Biru
5. 1996 - Minoritas
6. 1996 - Lagi Sedih
7. 1997 - Tujuh
8. 1998 - Mata Hati Reformasi
9. 1999 - 999+09
10. 2001 - Virus
11. 2003 - Satu Satu
12. 2003 - Bajakan!
13. 2004 - Road to Peace
14. 2005 - PLUR
15. 2006 - Slankissme
16. 2007 - Slow But Sure
17. 2007 - Original Soundtrack "Get Married"
18. 2008 - Slank - The Big Hip
19. 2008 - Anthem For The Broken Hearted
20. 2009 - Original Soundtrack Generasi Biru


Personil : Bim-Bim · Kaka · Ridho · Ivanka · Abdee
Mantan Personil : Bongky · Pay · Indra · Reynold
Album Studio : Suit... Suit... He... He... (Gadis Sexy) - Kampungan - Piss! - Generasi Biru - Minoritas - Lagi Sedih - Tujuh - Mata Hati Reformasi - 999 - 09 - Virus - Satu Satu - PLUR - Slankkissme - Slow But Sure
Album Lain : Konser Piss 30 kota - Virus Roadshow - Bajakan - Road to Peace - Ost. Get Married

Copyright © 2009, ExeLaZ
All Right Reserved.