UnLock Them All

 UnLock Them All! (UTA) v3.7.3

UnLock Them All! adalah program sederhana yang dibuat untuk
membantu dalam memulihkan komputer yang terkena virus. Didalam
program ini terdapat 4 fungsi utama dan beberapa fungsi tambahan lainya


Fitur-fitur utama pada UnLock Them All :

1. Registry Manager

   Berguna untuk mengatur settingan umum yang biasa diubah melalui
   Windows Group Policy Editor (gpedit.msc). Terdapat juga fungsi
   untuk menyimpan hasil settingan ke file (UTASettings.ini).
   Untuk menyimpan settingan, klik kanan pada jendela Registry
   Manager dan pilih Save/Load Settings -> Save Settings.

2. Process Manager
 
   Berguna sebagai pengganti Windows Task Manager, yang memiliki
   kemampuan untuk mematikan banyak proses sekaligus. Saat berguna
   untuk virus yang memiliki banyak proses.

3. Startup Manager
 
   Berguna untuk mengatur program-program yang berjalan pada saat
   Startup. Anda dapat menghapus atau memindahkan setting startup
   program yang diinginkan.
  
4. Window Manager

   Berguna untuk mengatur window dari program yang sedang berjalan.
   Anda dapat menampilkan/menyembunyikan window dari program yang
   sedang berjalan, mengubah transparansi dari window, mengubah
   status window secara paksa (maximize, minimize atau restore) dan
   mengubah status control (enable/disable, visible/invisible).


Fitur-fitur tambahan pada UnLock Them All!:

1. Shutdown, Restart, Logoff, Stand by dan Hibernate melalui
   tray icon.

2. Fitur Quick Info, untuk menampilkan status secara cepat.

3. Fitur Disable Feature, untuk menonaktifkan : Tombol Start Menu,
   System Tray, Taskbar, Jam dan Quick launch pada windows.

4. Fitur Quick Access ketika program dalam keadaan minimized,
   dapat diakses dari tray icon.


File yang terdapat didalam paket :

1. UnLock Them All!.exe ---> Program utama UnLock Them All!.
2. UTASettings.ini ---> File untuk menyimpan settingan UnLock Them All!.
3. Readme.txt ---> File yang sedang anda baca sekarang.


Program History :


Version 3.7.3

- [Registry Manager] Perubahan User Interface.
- [Window Manager] Penambahan opsi filter.
- Perbaikan beberapa bug.
- Penggantian icon program (lagi).
- Optimasi kode.

Version 3.7.2

- Penggantian icon program.
- Perbaikan bug pada fungsi Incremental Refresh.

Version 3.7.1

- [Registry Manager] Penambahan tooltip untuk setiap opsi.
- [Process Manager] Perbaikan fungsi Incremental Refresh.
- [Process Manager] Perubahan metode Terminate Process.
- [Window Manager] Perbaikan fungsi Incremental Refresh.
- [Window Manager] Penambahan fungsi Control State.
- [Tray Menu] Perbaikan bug pada Quick Access.

Version 3.7.0

- [Registry Manager] Penambahan setting Hide My Computer.
- [Registry Manager] Penambahan setting Hide Username.
- [Process Manager] Penambahan fungsi Terminate & Delete Process.
- [Process Manager] Penambahan fungsi Suspend/Resume Process.
- [Process Manager] Penambahan fungsi Restart Process.
- [Process Manager] Sedikit perubahan pada context menu.
- [Process Manager] Penambahan Incremental Refresh.
- [Window Manager] Penambahan Incremental Refresh.
- [Tray Menu] Penambahan fitur Quick Access.

Version 3.6.5

- Perbaikan beberapa bug.
- Optimasi kode.

Version 3.6.4

- Penggantian compressor program (FSG >>> UPX)
  karena terdeteksi sebagai virus oleh beberapa antivirus.

Version 3.6.3

- Perbaikan pada fungsi Quick Info
- Sedikit perubahan pada antarmuka pengguna.
- Optimasi kode.

Read More

contoh penggunaan RDO

Contoh RDO berikut menggunakan koneksi ODBC "DSN-kurang" sehingga Anda tidak harus mengatur DSN dengan utilitas ODBC Admin sebelumnya.
Memulai sebuah proyek baru dalam Visual Basic. Form1 dibuat secara default.
Tambahkan tombol perintah untuk Form1, Command1 secara default.
Paste kode berikut ke bagian umum Deklarasi Form1.

Catatan Anda harus mengubah Username = <username>dan PWD =<strong password=""> untuk nilai-nilai yang benar sebelum Anda menjalankan kode ini. Pastikan bahwa nama pengguna memiliki izin yang sesuai untuk melakukan operasi ini pada database.</strong> </username>Dim en As rdoEnvironment Dim cn As rdoConnection

 Private Sub Form_Load()
        MousePointer = vbHourglass
        Dim strConnect As String
        ' Change the next line to reflect your driver and server.
        strConnect = "driver={SQL Server};server=jonfo5;" & _"database=pubs;Username=<username>;PWD=<strong password>;"
        Set en = rdoEngine.rdoEnvironments(0)
        Set cn = en.OpenConnection(dsName:="", _Prompt:=rdDriverNoPrompt, _ ReadOnly:=False, _Connect:=strConnect)
        cn.QueryTimeout = 600
        MousePointer = vbNormal
      End Sub
Private Sub Command1_Click() MousePointer = vbHourglass
        Dim rs As rdoResultset
        Set rs = cn.OpenResultset(Name:="Select * from authors", _Type:=rdOpenForwardOnly, _ LockType:=rdConcurReadOnly, _ Options:=rdExecDirect)
        Debug.Print rs(0), rs(1), rs(2)
        MousePointer = vbNormal
 End Sub

Read More

contoh program visual basic

import system.data.sqlclient
module module1
sub main()
dim constring,db,user,pwd as string
pwd

'set up query
dim sql as string="select*from tbbarang"

'set up dml
dim ins as string
sqlins="insert into tbbarang(kodebarang,namabarang,satuan,hargabeli,hargajual)"
sqlins=sqlins&"values(@vkode,@vnama,@vsatuan,@vbeli,@vjual)"

'isi variabel sebagai data mentah
dim vkode as string="BR002"
dim vnama as string="sepeda"
dim vsatuan as string="pcs"
dim vbeli as single=100000
dim vjaul as single=150000

'menciptakan string query
dim sqlqry as string="select count(*)from tbbarang

'menciptakan pernyataan insert
dim sqlins as string
sqlins="insert into tbbarang(kodebarang,namabarang,satuan,hargabeli,hargajual)"
sqlins=sqlins&"values(@vkode,@vnama,@vsatuan,@vbeli,@vjual)"

'menciptakan pernyataan delete
dim sqldel as string
sqldel="delete from tbbarang where"
sqldel=sqldel&"kodebarang=@vkode"
sqldel=sqldel&"and satuan=@satuan"

'menciptakan connection
dim conn as sqlconnection=new sqlconnection(connstring)

try
'membuka connection
conn.open()

'menciptakan data adapter
dim da as sqladapter=new sqladapter(sql,conn)

'menciptakan dan mengisi dataset
dim ds as dataset=new dataset()
da.fill(ds,"tbbarang")

'mendapatkan referensi table
dim dt as datatable=ds.tables("tbbarang")

'menampilkan baris dari data table sebelum ditambah
console.writeline("sebelum ditambah")

for each row as datarow in dt.row
    console.wrilteline("{0}{1}{2}{3}",_
    row("kodebarang").tostring().padright(6),_
    row("namabarang").tostring().padright(51),_
    row("satuan"),row("hargabeli))
next

'menambah baris
dim newrow as datarow=dt.newrow()
newrow("kodebarang")="cpu01"
newrow("namabarang")="cpubaru"
newrow("satuan")="unit"
newrow("hargabeli")=200000
newrow("hargajual")=250000
dt.row.add(newrow)

'menampilkan baris dari data table setelah ditambah
console.writeline("setelah ditambah")
for each row as datarow in dt.rows
    console.wrilteline("{0}{1}{2}{3}",_
    row("kodebarang").tostring().padright(6),_
    row("namabarang").tostring().padright(51),_
    row("satuan"),row("hargabeli))
next

'menambah barang
'menciptakan command
dim cmd as sqlcommand=new sqlcommand(ins,con)

'memetakan parameter
cmd.parameter.add("@vkode",sqldbtype.char,5,"kodebarang")
cmd.parameter.add("@vnama",sqldbtype.char,50,"namabarang")
cmd.parameter.add("@vsatuan",sqldbtype.char,5,"satuan")
cmd.parameter.add("@vbeli",sqldbtype.decimal,18,"hargabeli")
cmd.parameter.add("@vjual",sqldbtype.decimal,18,"hargajual")
'update database
    da.insertcommand=cmd
    da.update(ds,"tbbarang")
catch ex as exception

'menampilkan pesan kesalahan
console.writeline("error":&ex.tostring)
finally

'menutup connection
console.write("tekan enter untuk melanjutkan")
console.readline()
conn.close()
end try

end sub

Read More