Rabu, 21 Oktober 2009

Script untuk menampilkan semua hidden file dalam FD

Nih Anda tulis copy aja nih code ke notepad
Nieh Codenya :

'================================================================================
'PROGRAM REVEALER
'Created by fxsatriyo (c) 2009
'================================================================================


'MAIN CODE STARTS HERE
'================================================================================
If MsgBox("Tampilkan semua file tersembunyi di FlashDisk???", vbOKCancel + vbQuestion, "Revealer by fxsatriyo (c) 2009") = vbOK Then

Set FSO = CreateObject("Scripting.FileSystemObject")
Dim flashdrives

For i = Asc("C") To Asc("Z")
  If FSO.DriveExists(Chr(i) & ":") Then
     Set oDrive = FSO.GetDrive(Chr(i) & ":")
     If oDrive.DriveType = 1 Then
        RecursiveDir(Chr(i) & ":\")
        flashdrives = flashdrives & Chr(i) & ":, "
     End If
  End If
Next

if len(flashdrives) > 2 Then
  flashdrives = Mid(flashdrives, 1, Len(flashdrives) - 2)
  MsgBox "Semua file di drive: " & flashdrives &  " sudah ditampilkan!!", vbOKOnly + vbInformation, "Proses Selesai"
Else
  MsgBox "Tidak ada FlashDisk di komputer ini!!" , vbOKOnly + vbExclamation, "I QUIT"
End If

End If

'END OF MAIN CODE
'===============================================================================


'THE RECURSIVEDIR Function
'===============================================================================
function RecursiveDir (path)
  Set folderpath = fso.getfolder(path)
  Set fol = folderpath.SubFolders
  Set oFiles = folderpath.Files
  For Each Foldername In fol
     If Foldername.attributes And 1 Then Foldername.attributes = Foldername.attributes - 1
     If Foldername.attributes And 2 Then Foldername.attributes = Foldername.attributes - 2
     If Foldername.attributes And 4 Then Foldername.attributes = Foldername.attributes - 4
     RecursiveDir = FolderName
     RecursiveDir FolderName
  Next
  For Each file In oFiles
     If file.attributes And 1 Then file.attributes = file.attributes - 1
     If file.attributes And 2 Then file.attributes = file.attributes - 2
     If file.attributes And 4 Then file.attributes = file.attributes - 4
  Next  
End Function

Trus save dengan nama "Revealer.vbs" kagak pake tanda petik gan....

Klik 2 kali ja....trus OK....

hehehe................

Diposting oleh di Tidak ada komentar:

Rabu, 07 Oktober 2009

Daftar Harga WiFi D-Link

Lan Card / Ethernet Card UTP 10/100 32 Bit
Rp. 72.100 ,-

Lan Card /Gigabit Ethernet Card UTP 10/100/1000 32 Bit
Rp. 195.700 ,-

Lan Card/ Ethernet Card UTP 10/100 Server
Rp. 1.246.300 ,-

PCMCIA Ethernet 10/100 Mbps
Rp. 216.300 ,-

Switch 5 Port UTP 10/100 Mbps
Rp. 185.400 ,-

Switch E Port UTP 10/100 Mbps
Rp. 206.000 ,-

Switch 16 Port UTP 10/100 Mbps
Rp. 463.500 ,-

Switch 24 Part UTP 10/100 Mbps
Rp. 731.300 ,-

Switch 24 Port UTP 10/100 Mbps 19'' Rackmount
Rp. 1.153.600 ,-

Switch 5 Part Gigabit 10/100/1000 Mbps
Rp. 442.900 ,-

Switch 8 Port Gigabit 10/100/1000 Mbps
Rp. 618.000 ,-

Switch 16 Port Gigabit 10/100/1000 Mbps
Rp. 2.070.300 ,-

Switch 24 Port Gigabit 10/100/1000 Mbps
Rp. 3.182.700 ,-

Switch 24 Part 10/100 + 2 Slot Managable
Rp. 2.663.800 ,-

Switch 24 Port 10/100 + 2 SFP|Managed
Rp. 2.822.200 ,-

Switch 48 Port 10/100 + 2 SFP|Managed
Rp. 6.272.700 ,-

Switch 24 Port UTP 10/100 Mbps + 2 Gigabit Rackmount
Rp. 4.635.000 ,-

Switch 48 Part UTP 10/100 Mbps + 2 Gigabit Rackmount
Rp. 2.884.000 ,-

Splitter 1 to 2
Rp. 30.900 ,-

ADSL Modern + Router 1 Port
Rp. 309.000 ,-

ADSL Modem + Router 4 Part
Rp. 535.600 ,

Wireless ADSL Modem + Router 4 Part
Rp. 690.100 ,-

Wireless + Router 4 Port 54 Mbps
Rp. 412.000 ,-

Wireless + Router 4 Port 108 Mbps
Rp. 669.500 ,-

Wireless Access Point 54 Mbps
Rp. 535.600 ,-

Wireless Access Paint 54 Mbps (New Type)
Rp. 515.000 ,-

Wireless Access Point 108 Mbps
Rp. 679.800 ,-

Wireless Access Paint 10S Mbps 5.8 Ghz
Rp. 1.833.400 ,-

Wireless Access Point Outdoor w/ 2 Antenna 200 mW
Rp. 7.580.800 ,-

Wireless Access Point Outdoor 108 Mbps
Rp. 3.738.900 ,-

Wireless USB 54 Mbps
Rp. 278.100 ,-

Wireless USB 108 Mbps
Rp. 442.900 ,-

Wireless PCI Adapter 54 Mbps
Rp. 278.100 ,-

Wireless PCI Adapter 108 Mbps
Rp. 432.600 ,-

Wireless PCMCIA Adapter 54 Mbps
Rp. 278.100 ,-

Wireless PCMCIA Adapter 108 Mbps
Rp. 422.300 ,-

Wireless-N Access Point Rauter 4 Port (2 Antenna)
Rp. 679.800 ,-

Wireless-N Access Point Router 4 Port Gigabit
Rp. 1.133.000 ,-

Wireless-N Access Point
Rp. 1.143.300 ,-

Wireless-N Access Point Router 4 Port
Rp. 1.236.000 ,-

Wireless-N USB Adapter
Rp. 793.100 ,-

Wireless-N PCMCIA Adapter
Rp. 659.200 ,-

Wireless-N PCI Adapter
Rp. 690.100 ,-

Wireless-N Express Card Adapter
Rp. 854.900 ,-

Modem Internal 56K Voice/Fax/Data
Rp. 82.400 ,-

Modem USB 56K Voice/Fax/Data Modem
Rp. 206.000 ,-

Cable Modem D-Link Docsis 2.0 UTP & USB
Rp. 679.800 ,-

Router 4 Port UTP 10/100 Firewall
Rp. 381.100 ,-

Router 4 Port UTP 10/100 + 1 Paralel
Rp. 442.900 ,-

VPN Router 4 Port UTP 10/100 + 1 Port RS-232
Rp. 793.100 ,-
Diposting oleh di 2 komentar:

Sabtu, 03 Oktober 2009

Membuat Link dengan window baru

Mungkin anda punya pikiran, kalau anda membuat sebuah link trus pembaca mengkliknya, anda kwawatir kalau pengunjung blog kita akan meninggalkan blog kita. Untuk meminimalisir hal tersebut, bisa dilakukan dengan cara membuat window baru, jadi ketika pengunjung mengklik salah satu link yang kita buat, halaman blog kita tidak akan tertimpa dengan halaman baru tapi yang terjadi adalah halaman blog anda tetap ada dan halaman yang baru di klik akan muncul terpisah. Ketika anda mengkliknya, akan tercipta window baru. Untuk membuat link seperti itu nih ane kasih tau tutornye....

1. Apabila sudah melakukan cara membuat link seperti keterangan diatas, klik menu Edit HTML tab yang ada pada toolbar.


2. Pada tulisan yang kita link tadi akan muncul kode seperti ini :

Klik Dimari -> nih codingnya "a href="http://www.facebook.com/"
Nah Biar jadi link ke new window kita tambahin codinganya ...
jadinye kek gini nih gan

Klik Dimari -> a href="http://www.facebook.com/" target="new"

Mo belajar langsung dari sumbernye nih Klik Dimari
Diposting oleh di Tidak ada komentar:

membuat link pada blog

Dalam dunia blog, tentu anda tidak asing lagi dengan yang namanya link. Apabila anda seorang blogger , tentu saja membuat link adalah sebuah keharusan. Langsung aje blehhh...sikat tutornye

Link pada posting-an

Jika anda membuat sebuah artikel untuk di posting, trus di dalam nya ingin di buatkan sebuah link, misalkan artikel tersebut bercerita tentang bisnis yang anda ikuti pada sebuah website di internet, lalu anda ingin mengajak para pembaca artikel tersebut untuk mengunjungi website yang anda ceritakan. Misalkan dalam artikel tersebut ada kata –kata seperti Jika anda tertarik silahkan anda klik dimari, nah untuk membuat link dari kata-kata tersebut silahkan ikuti langkah-langkah berikut :

1. Blok kata-kata yang ingin di buat link,


2. Klik ikon yang bergambar seperti ini konci yang berada pada toolbar, maka setelah itu akan muncul tulisan http:// pada window baru . Isiin aje tuh mo di lInking ke mana.

3. Isi kotak yang ada tulisan tersebut dengan alamat situs yang anda inginkan, misalkan : http://www.wawawwiwiw-k30.blogspot.com/

4. Klik OK. Selesai

Mo belajar langsung dari sumbernye nih Kilk Dimari
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)