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
chat di ym dengan habisi virus
Monday, August 9, 2010
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
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
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
Friday, July 30, 2010
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
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
Wednesday, July 7, 2010
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.
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.
Tuesday, June 29, 2010
Monday, June 28, 2010
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
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
Subscribe to:
Posts (Atom)