Software

Bagi para pengguna e-BAG, agar dapat kembali online anda harus melakukan update otomatis. Unduh file ini dan langsung dieksekusi saja.

Unduh e-BAG Updater

Setelah melakukan update, berilah komentar di halaman ini agar kami mengetahui bahwa anda telah/belum dan berhasil/gagal melakukan update dan bisa/tidak bisa online kembali.
Demikian saja dan terima kasih atas kerjasamanya.

Deni Setyawan
Programmer e-BAG

'Written by : Deni Setyawan @ 2 Februari 2012
'email      : ahdan1302@yahoo.com
'blog       : http://ahdani.blogspot.com

Option Explicit

Public AryQuest1() As String
Public AryQuest2() As String
Public CurrentID As String                              'Untuk menyimpan ID ketika login yang dibutuhkan dalam beberapa event selama logged in
Public Conn As ADODB.Connection                         'Deklarasi ADO

Sub Main()                                              'Aplikasi harus startup dari sini

Dim StrDbName As String
StrDbName = App.Path & "\DatabaseSaya.mdb"              'Alamat Database

Set Conn = New ADODB.Connection
Conn.Provider = "Microsoft.jet.oledb.4.0"               'Database Engine
Conn.Open StrDbName                                     'Buka Koneksi pada alamat itu

Form1.Show                                              'Tampilkan Form1


End Sub

'Pengisian data dari recordset ke Grid
Function LoadGrid(ByVal vGrid As MSFlexGrid, ByVal vRs As ADODB.Recordset)
Dim I As Long, U As Long
vGrid.Cols = vRs.Fields.Count
vGrid.Rows = getRecordCount(vRs) + 1
For I = 0 To vGrid.Rows - 1
    For U = 0 To vRs.Fields.Count - 1
        If I = 0 Then vGrid.TextMatrix(I, U) = vRs.Fields(U).Name & "" Else vGrid.TextMatrix(I, U) = Trim(vRs.Fields(U).Value & "")
    Next U
    If I > 0 Then vRs.MoveNext
Next I
End Function

'Mendapatkan jumlah record dan set ke awal record
Public Function getRecordCount(ByVal vRs As ADODB.Recordset) As Long
    On Error Resume Next

    vRs.MoveLast
getRecordCount = vRs.RecordCount
vRs.MoveFirst
End Function

Sub LoadQuestion(Optional Kombo1 As ComboBox, Optional Kombo2 As ComboBox)

Dim I As Integer
AryQuest1 = Split("Siapa nama kecil ayah anda?|" & _
            "Siapa guru favorit anda sewaktu SD?|" & _
            "Apa makanan favorit anda sewaktu kecil?|" & _
            "Sebutkan tempat kelahiran ayah anda|" & _
            "Sebutkan nama paman anda", "|")

AryQuest2 = Split("Apa Group musik anda sepanjang masa?|" & _
            "Siapakah tokoh film favorit anda sepanjang masa?|" & _
            "Apa judul buku favorit anda?|" & _
            "Siapakah tokoh kartun anda di masa kecil?|" & _
            "Sebutkan nama hewan peliharaan anda yang pertama", "|")

On Error GoTo Lewatlah

Kombo1.Clear
For I = LBound(AryQuest1) To UBound(AryQuest2)
Kombo1.AddItem AryQuest1(I)
Next I

Kombo2.Clear
For I = LBound(AryQuest2) To UBound(AryQuest2)
Kombo2.AddItem AryQuest2(I)
Next I

Lewatlah:
End Sub

Wah wah waaaah.... Jahat sekali virus akhir-akhir ini. Banyak yang kewalahan gara-gara virus ini. Sepertinya autorun.inf beraksi kembali untuk memasukkan para penjahat kelas kakap ke komputer anda.

Beberapa kelakuan bejat yang dibuat oleh virus varian baru yang mungkin berkolaborasi dengan virus-virus lain ini diantaranya adalah:

1. Mengunci Registry Editor (Nah tuh pesan yang mungkin gak asing ketika anda berusaha menjalankan regedit.
2. Mengunci Task Manager.
3. Menyembunyikan aplikasi yang kita jalankan.
4. Kemungkinan virus ini juga yang membuat kita gagal masuk save mode.
5. Meng-autorun file-file tertentu ketika terhubung ke internet
6. Mungkin meng-execute antivirus tertentu secara terus-menerus sampai 300 kali lebih untuk mengganggu aktivitas user atau mungkin agar antivirus tidak sempat mendeteksi virus ini.
7. Masih banyak lagi kerusakan yang dibuat oleh virus bejat ini.

Nah, dalam kondisi sibuk di kantor dan kita tidak sempat menginstall ulang virus, setidaknya kita masih bisa bekerja dengan komputer yang terinfeksi ini (bahkan kalau terhubung dengan LAN, semua akan mengalami gangguan yang bervariasi) dengan membuka paksa aplikasi kita yang diganggu sama virus, mengganti nilai di registry untuk membuka task manager. Eh... gimana bisa, wong regedit aja dikunci sama virus sial itu. Ah repot dah. Gimana kita bisa kerja... Uuuuuhhhh....

Oh, kalau untuk membuka regedit dan task manager aja sih kita masih bisa bantu.

Caranya:

1. Download file pembuka regedit dan task manager yang terkunci
2. Jalankan file itu.

Cara lain, anda membuat file pembuka sendiri.

1. Copas script ini di NotePad:
   
   On Error Resume Next
   Set WshShell = WScript.CreateObject("WScript.shell")
   
   y = msgbox("Apakah anda ingin membuka registry editor sekarang?",vbyesno,"Run registry sekarang")
   z = msgbox("Apakah anda ingin membuka Task Manager editor sekarang?",vbyesno,"Run Task Manager sekarang")
   
   'Unlock Regedit:
   wshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
   wshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableRegistryTools"
   
   'Unlock Task Manager:
   wshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
   wshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr"
   
   if y = vbyes then wshShell.run "regedt32.exe",1
   if z = vbyes then wshShell.run "taskmgr.exe",1
   
   sleep 1000
   
   x = MsgBox("Apakah registry windows dan task manager telah terbuka di desktop anda ?" & vbcrlf & vbcrlf & "Silakan coba kembali membuka registry dan task manager seperti biasanya. Bisa jadi dalam beberapa detik virus men-disable kembali registry dan task manager anda sehingga anda harus menjalankan file ini lagi. Kami tidak membunuh virusnya, sekedar membukakan apa yang telah dikunci oleh virus. Untuk mencabut virus dari sistem, anda membutuhkan antivirus. Mohon maaf baru ini yang bisa kami bantu...hicks..." & vbcrlf & vbcrlf & "Untuk mengetahui perkembangan informasi mengenai perangkat lunak, berkenan kiranya anda mengunjungi webblog kami di http://ahdani.blogspot.com",vbokOnly, "ahdan1302@yahoo.com")
   
   wshShell.run "http://ahdani.blogspot.com",1
   
   Set wshShell = Nothing
   Set fso = Nothing
   [/code]
   
   
2. dan simpan sebagai "NamaApaSaja.vbs"
3. Jalankan file buatan anda itu.

Cuma itu yang baru bisa kami bantu. Bagi yang lebih mengerti mengenai virus baru-baru ini mohon share disini. Kita semua membutuhkannya. Trims...

• Menambah fitur pengaturan Sistem reboot untuk clients

• Media Client Billing.exe
• Media Server Billing.exe
• UpdtInfo.Updt
• YMPingBox.ocx

• Memperbaiki sedikitnya 5 error yang ditemukan semenjak update versi terakhir.
• Memperbaiki display product code yang dobel karena pengulangan instalasi, kini telah diselaraskan.
• Penambahan fitur chat customer service pada menu Bantu. (Menggunakan YMPingbox.OCX)

Report a broken link to https://www.facebook.com/deni.setyawan1

Salah satu bagian dari modul Kasir ini adalah bagian dari Program Aplikasi Klinik yang terintegrasi. Kami akan menyesuaikan fiturnya sesuai dengan Klinik anda. Hubungi kami sekarang juga.