How to Back Up Regystry
Before you edit the registry, export the keys in the registry that you plan to edit, or back up the whole registry. If a problem occurs, you can then follow the steps how-to restore the registry to its previous state.
How to Export Registry Keys
Click Start, and then click Run.
In the Open box, type regedit, and then click OK.
On the File menu, click Export.
In the Save in box, select the boxs at the bottom the bottom according to weather you want to export all or only selected branches of the registry.
Next select a location in which to save the backup .reg file. In the File name box, type a file name, and then click Save.
How to Restore the Registry
To restore registry keys that you exported, double-click the .reg file that you saved.
Sabtu, 19 September 2009
How to speed Up HTTP Requests On Internet Explorer
How to speed Up HTTP Requests On Internet Explorer
To comply with current Internet standards, Internet Explorer limits the number of simultaneous downloads to two downloads, plus one queued download. This configuration is a function of the browser. However, as connection speeds increase, and the number of total connections that are allowed to Internet servers increase, the two-connection limit may be restrictive.
Please Note: Changing the maximum number of connections beyond two is a violation of Internet standards; use at your own risk!
To increase the number of simultaneous connections that are allowed, follow these steps:
1. Start the Registry Editor
2. Go to HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Internet Settings
3. Select New > DWORD Value from the Edit menu
4. Name the new value MaxConnectionsPer1_0Server
5. Right-click the MaxConnectionsPer1_0Server value and choose Modify
6. Under Base, click the radio button next to Decimal
7. In the Value Data: box enter the number of simultaneous connections you want to set (for example 10 is a good value), and 8. click OK
9. Repeat steps 3 - 7 using the new value MaxConnectionsPerServer
10. Exit the registry editor
To comply with current Internet standards, Internet Explorer limits the number of simultaneous downloads to two downloads, plus one queued download. This configuration is a function of the browser. However, as connection speeds increase, and the number of total connections that are allowed to Internet servers increase, the two-connection limit may be restrictive.
Please Note: Changing the maximum number of connections beyond two is a violation of Internet standards; use at your own risk!
To increase the number of simultaneous connections that are allowed, follow these steps:
1. Start the Registry Editor
2. Go to HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Internet Settings
3. Select New > DWORD Value from the Edit menu
4. Name the new value MaxConnectionsPer1_0Server
5. Right-click the MaxConnectionsPer1_0Server value and choose Modify
6. Under Base, click the radio button next to Decimal
7. In the Value Data: box enter the number of simultaneous connections you want to set (for example 10 is a good value), and 8. click OK
9. Repeat steps 3 - 7 using the new value MaxConnectionsPerServer
10. Exit the registry editor
Selasa, 25 Agustus 2009
Windows XP Tips Collection
Windows XP Tips Collection
Here's how to check if your copy of XP is Activated
Go to the run box and type in oobe/msoobe /a
and hit ok ...theirs your answer
Windows Explorer Tip
When launched in Windows Millennium/Win2k/WinXP,Explorer by default will open the "My Documents" folder. Many people prefer the behavior from previous versions of Windows, where Windows Explorer would open and display "My Computer" instead of the new way. To revert to the old way [My Computer by default rather than My Documents as the default], simply edit the shortcut to Windows Explorer, by right clicking on it, and left clicking "Properties" and changing the "Target" box to: "C:\WINDOWS\EXPLORER.EXE /n,/e," [adjust the path/drive letter if needed]. The key is to add the "/n,/e," to the end of the shortcut (don't type the quotes).
Backup your Fresh install
After you complete your clean install and get all your software installed I would recommend that you use something like Drive Image 3 or 4 to do an image of your install partition, then burn the image to CD and keep it. XP is a different creature for some people. If you mess it up when playing around with it, just bring the image back. You can be up and running again in 20 minutes vs. the two to three hours it will take to get the whole thing and all your stuff installed again.
Note the default install of XP is about 1.5gigs and the DI image may be larger that 700 meg. So don't install too much on the OS partition. To help downsize the Image I run the System file checker and reset the cache size to 40 or 50 meg (It's well over 300 by default).
To run it open the command prop and type:
SFC /?
SFC /purgecache
SFC /cachesize=50
and finally rebuild the cache with SFC /scannow (have the CD ready)
I also Delete the Pagefile.sys and hibernate.sys files before running Drive Image..
Group Policy for Windows XP
===========================
One of the most full featured Windows XP configuration tools available is hidden right there in your system, but most people don't even know it exists. It's called the Local Group Policy Editor, or gpedit for short. To invoke this editor, select Start and then Run, then type the following:
gpedit.msc
After you hit ENTER, you'll be greeted by gpedit, which lets you modify virtually every feature in Windows XP without having to resort to regedit. Dig around and enjoy!
Forgetting What Your Files Are?
===============================
This procedure works under NTFS.
As times goes along you have a lot files on your computer. You are going to forget what they are. Well here is way to identify them as you scroll through Windows Explorer in the future.
This procedure works under NTFS.
1.. Open up a folder on your system that you want to keep track of the different files you might one to identify in the future.
2.. Under View make certain that you set it to the Details.
3.. Highlight the file you want to keep more information on. Right click the file and you will get a pop up menu. Click on properties.
4.. Click on the Summary Tab (make sure it says simple not advanced on the button in the box), You should now get the following fields,
Title,Subject, Author, Category, Keywords, Comments
You will see advanced also if you have changed it to simple, Here will be other fields you can fill in.
5.. Next you can fill in what ever field you want.
6.. After you finished click the apply button then OK.
7.. Next right click the bar above your files, under the address bar and you should get a drop down menu. Here you can click the fields you want to display.
8.. You should now see a list with the new fields and any comments you have done.
9.. Now if you want to sort these just right click a blank spot and then you sort the information to your liking.
Create a Shortcut to Start Remote Desktop
=========================================
Tip: You can add a shortcut to the desktop of your home computer to quickly start Remote Desktop and connect to your office computer.
To create a shortcut icon to start Remote Desktop
Click Start, point to More Programs, point to Accessories, point to Communications, and then click on Remote Desktop Connection.
Click Options.
Configure settings for the connection to your office computer.
Click Save As, and enter a name, such as Office Computer. Click Save.
Open the Remote Desktops folder.
Right-click on the file named Office Computer, and then click Create Shortcut.
Drag the shortcut onto the desktop of your home computer.
To start Remote Desktop and connect to your office computer, double-click on the shortcut
Instantly Activate a Screen saver
================================
Turn on a screen saver without having to wait by adding a shortcut to your desktop:
Click the Start button, and then click Search.
In the Search Companion window, click All file types.
In the file name box, type *.scr
In the Look in box, choose Local Hard Drives (C or the drive where you have system files stored on your computer.
Click Search.
You will see a list of screen savers in the results. Pick a screen saver you want. You can preview it by double-clicking it.
Right click on the file, choose Send To, and then click Desktop (create shortcut).
To activate the screen saver, double-click the icon on your desktop
Speed up the Start Menu
=======================
The default speed of the Start Menu is pretty slow, but you can fix that by editing a Registry Key. Fire up the Registry Editor and navigate to the following key:
HKEY_CURRENT_USER \ Control Panel \ Desktop \ MenuShowDelay
By default, the value is 400. Change this to a smaller value, such as 0, to speed it up.
Speed up the Start Menu (Part two)
==================================
If your confounded by the slow speed of the Start Menu, even after using the tip above, then you might try the following: Navigate to Display Properties then Appearance then Advanced and turn off the option titled Show menu shadow . You will get much better overall performance.
Here's how to check if your copy of XP is Activated
Go to the run box and type in oobe/msoobe /a
and hit ok ...theirs your answer
Windows Explorer Tip
When launched in Windows Millennium/Win2k/WinXP,Explorer by default will open the "My Documents" folder. Many people prefer the behavior from previous versions of Windows, where Windows Explorer would open and display "My Computer" instead of the new way. To revert to the old way [My Computer by default rather than My Documents as the default], simply edit the shortcut to Windows Explorer, by right clicking on it, and left clicking "Properties" and changing the "Target" box to: "C:\WINDOWS\EXPLORER.EXE /n,/e," [adjust the path/drive letter if needed]. The key is to add the "/n,/e," to the end of the shortcut (don't type the quotes).
Backup your Fresh install
After you complete your clean install and get all your software installed I would recommend that you use something like Drive Image 3 or 4 to do an image of your install partition, then burn the image to CD and keep it. XP is a different creature for some people. If you mess it up when playing around with it, just bring the image back. You can be up and running again in 20 minutes vs. the two to three hours it will take to get the whole thing and all your stuff installed again.
Note the default install of XP is about 1.5gigs and the DI image may be larger that 700 meg. So don't install too much on the OS partition. To help downsize the Image I run the System file checker and reset the cache size to 40 or 50 meg (It's well over 300 by default).
To run it open the command prop and type:
SFC /?
SFC /purgecache
SFC /cachesize=50
and finally rebuild the cache with SFC /scannow (have the CD ready)
I also Delete the Pagefile.sys and hibernate.sys files before running Drive Image..
Group Policy for Windows XP
===========================
One of the most full featured Windows XP configuration tools available is hidden right there in your system, but most people don't even know it exists. It's called the Local Group Policy Editor, or gpedit for short. To invoke this editor, select Start and then Run, then type the following:
gpedit.msc
After you hit ENTER, you'll be greeted by gpedit, which lets you modify virtually every feature in Windows XP without having to resort to regedit. Dig around and enjoy!
Forgetting What Your Files Are?
===============================
This procedure works under NTFS.
As times goes along you have a lot files on your computer. You are going to forget what they are. Well here is way to identify them as you scroll through Windows Explorer in the future.
This procedure works under NTFS.
1.. Open up a folder on your system that you want to keep track of the different files you might one to identify in the future.
2.. Under View make certain that you set it to the Details.
3.. Highlight the file you want to keep more information on. Right click the file and you will get a pop up menu. Click on properties.
4.. Click on the Summary Tab (make sure it says simple not advanced on the button in the box), You should now get the following fields,
Title,Subject, Author, Category, Keywords, Comments
You will see advanced also if you have changed it to simple, Here will be other fields you can fill in.
5.. Next you can fill in what ever field you want.
6.. After you finished click the apply button then OK.
7.. Next right click the bar above your files, under the address bar and you should get a drop down menu. Here you can click the fields you want to display.
8.. You should now see a list with the new fields and any comments you have done.
9.. Now if you want to sort these just right click a blank spot and then you sort the information to your liking.
Create a Shortcut to Start Remote Desktop
=========================================
Tip: You can add a shortcut to the desktop of your home computer to quickly start Remote Desktop and connect to your office computer.
To create a shortcut icon to start Remote Desktop
Click Start, point to More Programs, point to Accessories, point to Communications, and then click on Remote Desktop Connection.
Click Options.
Configure settings for the connection to your office computer.
Click Save As, and enter a name, such as Office Computer. Click Save.
Open the Remote Desktops folder.
Right-click on the file named Office Computer, and then click Create Shortcut.
Drag the shortcut onto the desktop of your home computer.
To start Remote Desktop and connect to your office computer, double-click on the shortcut
Instantly Activate a Screen saver
================================
Turn on a screen saver without having to wait by adding a shortcut to your desktop:
Click the Start button, and then click Search.
In the Search Companion window, click All file types.
In the file name box, type *.scr
In the Look in box, choose Local Hard Drives (C or the drive where you have system files stored on your computer.
Click Search.
You will see a list of screen savers in the results. Pick a screen saver you want. You can preview it by double-clicking it.
Right click on the file, choose Send To, and then click Desktop (create shortcut).
To activate the screen saver, double-click the icon on your desktop
Speed up the Start Menu
=======================
The default speed of the Start Menu is pretty slow, but you can fix that by editing a Registry Key. Fire up the Registry Editor and navigate to the following key:
HKEY_CURRENT_USER \ Control Panel \ Desktop \ MenuShowDelay
By default, the value is 400. Change this to a smaller value, such as 0, to speed it up.
Speed up the Start Menu (Part two)
==================================
If your confounded by the slow speed of the Start Menu, even after using the tip above, then you might try the following: Navigate to Display Properties then Appearance then Advanced and turn off the option titled Show menu shadow . You will get much better overall performance.
Sabtu, 22 Agustus 2009
firefox Setting Speed
Yes, firefox is already pretty damn fast but did you know that you can tweak it and improve the speed even more?
That's the beauty of this program being open source.
Here's what you do:
In the URL bar, type “about:config” and press enter. This will bring up the configuration “menu” where you can change the parameters of Firefox.
Note that these are what I’ve found to REALLY speed up my Firefox significantly - and these settings seem to be common among everybody else as well. But these settings are optimized for broadband connections - I mean with as much concurrent requests we’re going to open up with pipelining… lol… you’d better have a big connection.
Double Click on the following settins and put in the numbers below - for the true / false booleans - they’ll change when you double click.
Code:
browser.tabs.showSingleWindowModePrefs – true
network.http.max-connections – 48
network.http.max-connections-per-server – 16
network.http.max-persistent-connections-per-proxy – 8
network.http.max-persistent-connections-per-server – 4
network.http.pipelining – true
network.http.pipelining.maxrequests – 100
network.http.proxy.pipelining – true
network.http.request.timeout – 300
One more thing… Right-click somewhere on that screen and add a NEW -> Integer. Name it “nglayout.initialpaint.delay” and set its value to “0”. This value is the amount of time the browser waits before it acts on information it receives. Since you’re broadband - it shouldn’t have to wait.
Now you should notice you’re loading pages MUCH faster now!
That's the beauty of this program being open source.
Here's what you do:
In the URL bar, type “about:config” and press enter. This will bring up the configuration “menu” where you can change the parameters of Firefox.
Note that these are what I’ve found to REALLY speed up my Firefox significantly - and these settings seem to be common among everybody else as well. But these settings are optimized for broadband connections - I mean with as much concurrent requests we’re going to open up with pipelining… lol… you’d better have a big connection.
Double Click on the following settins and put in the numbers below - for the true / false booleans - they’ll change when you double click.
Code:
browser.tabs.showSingleWindowModePrefs – true
network.http.max-connections – 48
network.http.max-connections-per-server – 16
network.http.max-persistent-connections-per-proxy – 8
network.http.max-persistent-connections-per-server – 4
network.http.pipelining – true
network.http.pipelining.maxrequests – 100
network.http.proxy.pipelining – true
network.http.request.timeout – 300
One more thing… Right-click somewhere on that screen and add a NEW -> Integer. Name it “nglayout.initialpaint.delay” and set its value to “0”. This value is the amount of time the browser waits before it acts on information it receives. Since you’re broadband - it shouldn’t have to wait.
Kamis, 30 Juli 2009
Koding VB menambahkan efek suara ketika form muncul.
' Deskription : menambahkan Epek suara ketika form muncul
'Penulis : vatensquare.blogspot.com
'Persiapan : 1.buat 1 buah project baru degan 1 form
'2. siapkan file yang berexstensi wap simpan di folder yang sama dengan projetcnya
'3. copykan koding berikut ke editor form tersebut
'----------------------------------------------
'----------------------------------------------
Private Declare Function sndPlaySound _
Lib "winmm" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Sub PlaySound(NamaFile As String)
sndPlaySound NamaFile, 1
End Sub
Private Sub Form_Load()
PlaySound App.Path & "\sound.wav"
End Sub
'Penulis : vatensquare.blogspot.com
'Persiapan : 1.buat 1 buah project baru degan 1 form
'2. siapkan file yang berexstensi wap simpan di folder yang sama dengan projetcnya
'3. copykan koding berikut ke editor form tersebut
'----------------------------------------------
'----------------------------------------------
Private Declare Function sndPlaySound _
Lib "winmm" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Sub PlaySound(NamaFile As String)
sndPlaySound NamaFile, 1
End Sub
Private Sub Form_Load()
PlaySound App.Path & "\sound.wav"
End Sub
Koding VB Cara menampilkan database dari Ms.Access ke ListView
'Deskripsi: Menampilkan data dari database MS Access ke
' dalam control ListView dan memungkinkan untuk
' penyortiran data pada setiap field atau kolom di
' ListView jika header ybt diklik. Menggunakan
' reference "Microsoft ActiveX Data Objects 2.0
' Library" untuk coding database, dan control
' "Microsoft Windows Common Control 6.0"
' untuk control ListView.
'Persiapan: 1. Buat 1 Project baru dengan 1 Form.
' 2. Tambahkan reference dan component sesuai dengan
' yang disebutkan di atas.
' 3. Tambahkan satu ListView ke dalam form, beri nama
' ListView ini dengan LV.
' 4. Copy-kan coding berikut ke dalam editor form ybt.
'---------------------------------------------------------------
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'Buka koneksi ke database...
cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" _
& "Data Source=" & _
App.Path & "\Data.mdb"
'Buka tabel "Orders"
rs.Open "Orders", cn, adOpenForwardOnly, adLockReadOnly
'Tentukan tampilan ListView...
LV.View = lvwReport 'Jangan lupa yang ini...!
'Ambil data dari recordset...
LoadListViewFromRecordset LV, rs
'Atur ukuran/lebar kolom di setiap listview...
ListViewAdjustColumnWidth LV, True
End Sub
Sub LoadListViewFromRecordset(LV As ListView, _
rs As ADODB.Recordset, Optional MaxRecords As Long)
'Prosedur mengambil data dari Recordset (tabel database)
Dim fld As ADODB.Field, alignment As Integer
Dim recCount As Long, i As Long, fldName As String
Dim li As ListItem
'Bersihkan isi dari ListView.
LV.ListItems.Clear
LV.ColumnHeaders.Clear
'Buat kumpulan ColumnHeader.
For Each fld In rs.Fields
'Menyaring tipe field untuk keperluan
'perataan tampilan teks di ListView
Select Case fld.Type
Case adBoolean, adCurrency, adDate, adDecimal, adDouble
alignment = lvwColumnRight
Case adInteger, adNumeric, adSingle, adSmallInt, adVarNumeric
alignment = lvwColumnRight
Case adBSTR, adChar, adVarChar, adVariant
alignment = lvwColumnLeft
Case Else
alignment = -1 'Berarti: "Unsupported field type".
'atau tipe field tdk mendukung
End Select
'Jika tipe field OK, buat sebuah kolom
'dengan perataan (alignment) yang benar.
If alignment <> -1 Then
'Kolom pertama haruslah rata kiri.
If LV.ColumnHeaders.Count = 0 Then alignment = lvwColumnLeft
LV.ColumnHeaders.Add , , fld.Name, fld.DefinedSize * 200, _
alignment
End If
Next
'Keluar jika tidak ada field yg dapat ditampilkan.
If LV.ColumnHeaders.Count = 0 Then Exit Sub
'Tambahkan semua records dalam recordset.
rs.MoveFirst
Do Until rs.EOF
recCount = recCount + 1
'Tambahkan object utama ListItem.
fldName = LV.ColumnHeaders(1).Text
Set li = LV.ListItems.Add(, , rs.Fields(fldName) & "")
'Tambahkan semua sub (ListSubItems.Add).
For i = 2 To LV.ColumnHeaders.Count
fldName = LV.ColumnHeaders(i)
li.ListSubItems.Add , , rs.Fields(fldName) & ""
Next
If recCount = MaxRecords Then Exit Do
rs.MoveNext
Loop
End Sub
Sub ListViewAdjustColumnWidth(LV As ListView, _
Optional AccountForHeaders As Boolean)
'Prosedur untuk menyesuaikan ukuran/lebar kolom ListView
Dim row As Long, col As Long
Dim width As Single, maxWidth As Single
Dim saveFont As StdFont, saveScaleMode As Integer, cellText As String
'Langsung keluar dari prosedur jika tidak ada
'items yang akan ditampilkan.
If LV.ListItems.Count = 0 Then Exit Sub
'Simpan huruf yang digunakan oleh form,
'dan sesuaikan ke huruf di ListView.
'Kita membutuhkan ini dengan tujuan untuk
'menggunakan metode dari TextWidth milik form.
Set saveFont = LV.Parent.Font
Set LV.Parent.Font = LV.Font
'Sesuaikan ScaleMode = vbTwips untuk form (parent).
saveScaleMode = LV.Parent.ScaleMode
LV.Parent.ScaleMode = vbTwips
For col = 1 To LV.ColumnHeaders.Count
maxWidth = 0
If AccountForHeaders Then
maxWidth = LV.Parent.TextWidth(LV.ColumnHeaders(col).Text) + 200
End If
For row = 1 To LV.ListItems.Count
'Ambil teks dari ListItems atau ListSubItems.
If col = 1 Then
cellText = LV.ListItems(row).Text
Else
cellText = LV.ListItems(row).ListSubItems(col - 1).Text
End If
'Hitung lebarnya, dan tetapkan untuk batas.
'Catatan: Tidak berlaku untuk "multiple-line text fields"
'atau teks yang fieldnya mengandung dari banyak baris.
width = LV.Parent.TextWidth(cellText) + 200
'Update lebar maksimum jika kita menemukan
'sebuah string yang lebih lebar.
If width > maxWidth Then maxWidth = width
Next
'Ubah lebar kolom sekarang...
LV.ColumnHeaders(col).width = maxWidth
Next
'Ganti property parent milik ListView
Set LV.Parent.Font = saveFont
LV.Parent.ScaleMode = saveScaleMode
End Sub
Private Sub Form_Resize()
On Error Resume Next
LV.Move 0, 0
LV.Height = Me.ScaleHeight - 250
LV.width = Me.ScaleWidth - 20
End Sub
'Menyortir data di ListView jika header kolom ybt
'diklik
Private Sub LV_ColumnClick(ByVal ColumnHeader As _
MSComctlLib.ColumnHeader)
'Urutkan data berdasarkan di kolom ybt...
If LV.Sorted And _
ColumnHeader.Index - 1 = LV.SortKey Then
'Telah diurutkan di kolom ini,
'balikkan urutan sortir.
LV.SortOrder = 1 - LV.SortOrder
Else
LV.SortOrder = lvwAscending
LV.SortKey = ColumnHeader.Index - 1
End If
LV.Sorted = True
End Sub
' dalam control ListView dan memungkinkan untuk
' penyortiran data pada setiap field atau kolom di
' ListView jika header ybt diklik. Menggunakan
' reference "Microsoft ActiveX Data Objects 2.0
' Library" untuk coding database, dan control
' "Microsoft Windows Common Control 6.0"
' untuk control ListView.
'Persiapan: 1. Buat 1 Project baru dengan 1 Form.
' 2. Tambahkan reference dan component sesuai dengan
' yang disebutkan di atas.
' 3. Tambahkan satu ListView ke dalam form, beri nama
' ListView ini dengan LV.
' 4. Copy-kan coding berikut ke dalam editor form ybt.
'---------------------------------------------------------------
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'Buka koneksi ke database...
cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" _
& "Data Source=" & _
App.Path & "\Data.mdb"
'Buka tabel "Orders"
rs.Open "Orders", cn, adOpenForwardOnly, adLockReadOnly
'Tentukan tampilan ListView...
LV.View = lvwReport 'Jangan lupa yang ini...!
'Ambil data dari recordset...
LoadListViewFromRecordset LV, rs
'Atur ukuran/lebar kolom di setiap listview...
ListViewAdjustColumnWidth LV, True
End Sub
Sub LoadListViewFromRecordset(LV As ListView, _
rs As ADODB.Recordset, Optional MaxRecords As Long)
'Prosedur mengambil data dari Recordset (tabel database)
Dim fld As ADODB.Field, alignment As Integer
Dim recCount As Long, i As Long, fldName As String
Dim li As ListItem
'Bersihkan isi dari ListView.
LV.ListItems.Clear
LV.ColumnHeaders.Clear
'Buat kumpulan ColumnHeader.
For Each fld In rs.Fields
'Menyaring tipe field untuk keperluan
'perataan tampilan teks di ListView
Select Case fld.Type
Case adBoolean, adCurrency, adDate, adDecimal, adDouble
alignment = lvwColumnRight
Case adInteger, adNumeric, adSingle, adSmallInt, adVarNumeric
alignment = lvwColumnRight
Case adBSTR, adChar, adVarChar, adVariant
alignment = lvwColumnLeft
Case Else
alignment = -1 'Berarti: "Unsupported field type".
'atau tipe field tdk mendukung
End Select
'Jika tipe field OK, buat sebuah kolom
'dengan perataan (alignment) yang benar.
If alignment <> -1 Then
'Kolom pertama haruslah rata kiri.
If LV.ColumnHeaders.Count = 0 Then alignment = lvwColumnLeft
LV.ColumnHeaders.Add , , fld.Name, fld.DefinedSize * 200, _
alignment
End If
Next
'Keluar jika tidak ada field yg dapat ditampilkan.
If LV.ColumnHeaders.Count = 0 Then Exit Sub
'Tambahkan semua records dalam recordset.
rs.MoveFirst
Do Until rs.EOF
recCount = recCount + 1
'Tambahkan object utama ListItem.
fldName = LV.ColumnHeaders(1).Text
Set li = LV.ListItems.Add(, , rs.Fields(fldName) & "")
'Tambahkan semua sub (ListSubItems.Add).
For i = 2 To LV.ColumnHeaders.Count
fldName = LV.ColumnHeaders(i)
li.ListSubItems.Add , , rs.Fields(fldName) & ""
Next
If recCount = MaxRecords Then Exit Do
rs.MoveNext
Loop
End Sub
Sub ListViewAdjustColumnWidth(LV As ListView, _
Optional AccountForHeaders As Boolean)
'Prosedur untuk menyesuaikan ukuran/lebar kolom ListView
Dim row As Long, col As Long
Dim width As Single, maxWidth As Single
Dim saveFont As StdFont, saveScaleMode As Integer, cellText As String
'Langsung keluar dari prosedur jika tidak ada
'items yang akan ditampilkan.
If LV.ListItems.Count = 0 Then Exit Sub
'Simpan huruf yang digunakan oleh form,
'dan sesuaikan ke huruf di ListView.
'Kita membutuhkan ini dengan tujuan untuk
'menggunakan metode dari TextWidth milik form.
Set saveFont = LV.Parent.Font
Set LV.Parent.Font = LV.Font
'Sesuaikan ScaleMode = vbTwips untuk form (parent).
saveScaleMode = LV.Parent.ScaleMode
LV.Parent.ScaleMode = vbTwips
For col = 1 To LV.ColumnHeaders.Count
maxWidth = 0
If AccountForHeaders Then
maxWidth = LV.Parent.TextWidth(LV.ColumnHeaders(col).Text) + 200
End If
For row = 1 To LV.ListItems.Count
'Ambil teks dari ListItems atau ListSubItems.
If col = 1 Then
cellText = LV.ListItems(row).Text
Else
cellText = LV.ListItems(row).ListSubItems(col - 1).Text
End If
'Hitung lebarnya, dan tetapkan untuk batas.
'Catatan: Tidak berlaku untuk "multiple-line text fields"
'atau teks yang fieldnya mengandung dari banyak baris.
width = LV.Parent.TextWidth(cellText) + 200
'Update lebar maksimum jika kita menemukan
'sebuah string yang lebih lebar.
If width > maxWidth Then maxWidth = width
Next
'Ubah lebar kolom sekarang...
LV.ColumnHeaders(col).width = maxWidth
Next
'Ganti property parent milik ListView
Set LV.Parent.Font = saveFont
LV.Parent.ScaleMode = saveScaleMode
End Sub
Private Sub Form_Resize()
On Error Resume Next
LV.Move 0, 0
LV.Height = Me.ScaleHeight - 250
LV.width = Me.ScaleWidth - 20
End Sub
'Menyortir data di ListView jika header kolom ybt
'diklik
Private Sub LV_ColumnClick(ByVal ColumnHeader As _
MSComctlLib.ColumnHeader)
'Urutkan data berdasarkan di kolom ybt...
If LV.Sorted And _
ColumnHeader.Index - 1 = LV.SortKey Then
'Telah diurutkan di kolom ini,
'balikkan urutan sortir.
LV.SortOrder = 1 - LV.SortOrder
Else
LV.SortOrder = lvwAscending
LV.SortKey = ColumnHeader.Index - 1
End If
LV.Sorted = True
End Sub
Free Hosting
Free Hosting
Unlimited Bandwidth
Unlimited Webspace
Domain Hosting
PHP, FTP
Price: FREE!
there Free Web Hosting Package contains the following features:
Unlimited Data Transfer
Unlimited Disk Space
100mbps Network Connection
99.9% Uptime
Free Sub Directory ( hostultra.com/~you )
Cool yourname.vzz.net URL!
Free Subdomains ( Many domains to choose from! )
Free Domain Hosting ( yourdomain.com )
Custom Domain DNS Control ( A/CNAME/MX Records )
Browser and FTP Uploading
PHP / MySQL*
Unlimited Domains / Unlimited Subdomains
Free Search Engine Submission
http://www.hostultra.com/signup.html
Mail, FTP, CGI, Perl, SSI, PHP, ASP (FrontPage), MySQL, CPanel, and many, many more. You really will be your own webmaster. Our thoughtful and patient staff will guide you. Forums for when you seek the help of your peers. Emergency contacts for when you need concentrated one-on-one help.
What's the catch? There isn't one. PortalWorlds.NET is advertising and sponsor supported. Your site will show ads (your choice as to placement, side towers, top banners, popups, and similar) and earn money to cover PortalWorlds.NET's server and administrative costs. You do agree to do nothing offensive nor illegal.
In addition to the many things mentioned, you will also receive a Script Center (crammed with ready to use Perl), 100M diskspace, 250M bandwidth, 1 MySQL database, unlimited POP3 mailboxes (including autoresponders and forwarders), 1 mail list, Oscommerce package, PHP-Nuke, Invision Board, full CPanel.
.www.portalworlds.net thank "agresssor" for this one
GreatNow
USA, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://www.greatnow.com/
Space 100 MB
Upload FTP Browser
Editor Advanced Basic
Ads Banner/Popup
Webaddress Subdomain
Features Domainhosting Subdomain Counter Form Guestbook
Beige Tower
USA, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://beigetower.org
Space 100 MB
Upload FTP
Editor Advanced Basic
Ads No ads
Webaddress domain
Features PHP POP Email Domainhosting Telnet mySQL SSI CGI-BIN Guestbook
Comet Stream
Canada, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://www.cometstream.net
Space 50 MB
Upload FTP Browser FrontPage
Editor Advanced Basic
Ads No ads
Webaddress Subdomain, Domain
Features PHP POP Email Domainhosting Subdomain mySQL SSI CGI-BIN Shopping Cart Counter Form Guestbook
Unlimited Bandwidth
Unlimited Webspace
Domain Hosting
PHP, FTP
Price: FREE!
there Free Web Hosting Package contains the following features:
Unlimited Data Transfer
Unlimited Disk Space
100mbps Network Connection
99.9% Uptime
Free Sub Directory ( hostultra.com/~you )
Cool yourname.vzz.net URL!
Free Subdomains ( Many domains to choose from! )
Free Domain Hosting ( yourdomain.com )
Custom Domain DNS Control ( A/CNAME/MX Records )
Browser and FTP Uploading
PHP / MySQL*
Unlimited Domains / Unlimited Subdomains
Free Search Engine Submission
http://www.hostultra.com/signup.html
Mail, FTP, CGI, Perl, SSI, PHP, ASP (FrontPage), MySQL, CPanel, and many, many more. You really will be your own webmaster. Our thoughtful and patient staff will guide you. Forums for when you seek the help of your peers. Emergency contacts for when you need concentrated one-on-one help.
What's the catch? There isn't one. PortalWorlds.NET is advertising and sponsor supported. Your site will show ads (your choice as to placement, side towers, top banners, popups, and similar) and earn money to cover PortalWorlds.NET's server and administrative costs. You do agree to do nothing offensive nor illegal.
In addition to the many things mentioned, you will also receive a Script Center (crammed with ready to use Perl), 100M diskspace, 250M bandwidth, 1 MySQL database, unlimited POP3 mailboxes (including autoresponders and forwarders), 1 mail list, Oscommerce package, PHP-Nuke, Invision Board, full CPanel.
.www.portalworlds.net thank "agresssor" for this one
GreatNow
USA, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://www.greatnow.com/
Space 100 MB
Upload FTP Browser
Editor Advanced Basic
Ads Banner/Popup
Webaddress Subdomain
Features Domainhosting Subdomain Counter Form Guestbook
Beige Tower
USA, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://beigetower.org
Space 100 MB
Upload FTP
Editor Advanced Basic
Ads No ads
Webaddress domain
Features PHP POP Email Domainhosting Telnet mySQL SSI CGI-BIN Guestbook
Comet Stream
Canada, English
Hosting category: REG,BUSINESS,GAME,OTHER
http://www.cometstream.net
Space 50 MB
Upload FTP Browser FrontPage
Editor Advanced Basic
Ads No ads
Webaddress Subdomain, Domain
Features PHP POP Email Domainhosting Subdomain mySQL SSI CGI-BIN Shopping Cart Counter Form Guestbook
Senin, 20 Juli 2009
Password merupakan salah satu cara untuk mengamankan suatu sistem komputer.
Password merupakan salah satu cara untuk mengamankan suatu sistem komputer. Sistem komputer ini bisa berupa aplikasi, database ataupun sistem operasi. Oleh karena itu menentukan password sebaiknya jangan sembarangan dan harus memperhatikan beberapa hal tertentu. Password harus dibuat dengan memperhatikan beberapa hal berikut ini :
*. Setidaknya panjang karakter password adalah 7 (tujuh) karakter. Anda juga bisa membuat password yang lebih panjang lagi demi keamanan.
*. Menggunakan sedikitnya 1 (satu) karakter simbol pada deretan karakter password Anda.
*. Jika sistem Anda menerapkan password history, maka pastikan password baru Anda selalu berbeda jauh dengan password sebelumnya.
*. Password Anda jangan sampai mengandung nama atau username.
*. Jangan gunakan kata-kata yang umum digunakan pada karaktar password. Ini termasuk kata-kata yang digunakan dalam kamus.
Beberapa contoh password yang kuat misalnya sebagai berikut.
*. a4$Jhi&] *. 3k>i%uA *. O@u#5nQ
Password sebenarnya merupakan sistem proteksi yang paling lemah dalam sistem komputer. Maka dari itu memilih password yang kuat merupakan suatu keharusan. Mengapa demikian? Tool password cracking semakin canggih dalam usahanya membongkar password, plus juga komputer yang digunakan dalam password cracking semakin baik performanya. Password yang sebelumnya butuh waktu seminggu untuk di-crack, maka saat ini bisa di-crack hanya dalam beberapa jam saja.
Software untuk meng-crack password biasa menggunakan tiga macam pendekatan yaitu: menebak secara pintar (intelligent guessing), serangan kamus (dictionary attack) dan juga otomatisasi yang berusaha mencoba untuk menggunakan kombinasi karakter. Jika diberi waktu yang cukup, maka metode otomatisasi tersebut bisa meng-crack password apa saja. Tetapi jika password yang digunakan sangat kuat, maka akan membutuhkan waktu yang sangat lama untuk memecahkannya.
Demikian tips singkat mengenai membuat password yang baik dan kuat. Semoga bermanfaat bagi Anda semua
*. Setidaknya panjang karakter password adalah 7 (tujuh) karakter. Anda juga bisa membuat password yang lebih panjang lagi demi keamanan.
*. Menggunakan sedikitnya 1 (satu) karakter simbol pada deretan karakter password Anda.
*. Jika sistem Anda menerapkan password history, maka pastikan password baru Anda selalu berbeda jauh dengan password sebelumnya.
*. Password Anda jangan sampai mengandung nama atau username.
*. Jangan gunakan kata-kata yang umum digunakan pada karaktar password. Ini termasuk kata-kata yang digunakan dalam kamus.
Beberapa contoh password yang kuat misalnya sebagai berikut.
*. a4$Jhi&] *. 3k>i%uA *. O@u#5nQ
Password sebenarnya merupakan sistem proteksi yang paling lemah dalam sistem komputer. Maka dari itu memilih password yang kuat merupakan suatu keharusan. Mengapa demikian? Tool password cracking semakin canggih dalam usahanya membongkar password, plus juga komputer yang digunakan dalam password cracking semakin baik performanya. Password yang sebelumnya butuh waktu seminggu untuk di-crack, maka saat ini bisa di-crack hanya dalam beberapa jam saja.
Software untuk meng-crack password biasa menggunakan tiga macam pendekatan yaitu: menebak secara pintar (intelligent guessing), serangan kamus (dictionary attack) dan juga otomatisasi yang berusaha mencoba untuk menggunakan kombinasi karakter. Jika diberi waktu yang cukup, maka metode otomatisasi tersebut bisa meng-crack password apa saja. Tetapi jika password yang digunakan sangat kuat, maka akan membutuhkan waktu yang sangat lama untuk memecahkannya.
Demikian tips singkat mengenai membuat password yang baik dan kuat. Semoga bermanfaat bagi Anda semua
Minggu, 05 Juli 2009
PUsing Bikin TA
Tidur bentar, dah bangun lagi trus nyalain komputer... pusing siy.... tapi,, ya,, gitu deh.... bantuin gw dong bikin Tugas akhir.... Program blum jadi,, Nyusun baru ampe bab 2 bingung niy nyari tambahan dmana lagi... bantuin dong,, cariin cript,,, atao koding Visual Basik,,,, Bwat bikinprogram .....
Kegagalan tidak sama artinya dengan kekalahankarna
Kegagalan tidak sama artinya dengan kekalahankarna kekalahan adalah saat anda tidak dapat bangkitdari kegagalanBanyak orang belajar supaya pintartapi sedikit orang yangmempergunakan kepintarannya untuk belajar