MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > VB.Net > Kodlar

Ekran resmi çek

Ekranın resmini çeker. Daha gelişmiş kod için test adresinden zip dosyasını indirebilirsiniz

Kategori : VB.Net
Gönderen : seref
Telif :
Tarih : 13 Temmuz 2006
Örnek Dosya : İndir
Okunma Sayısı : 20621
Puan
: 8,2 / 10 (41 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
Private Declare Sub AVIStreamCreate Lib "avifil32.dll" (ByVal ppavi As Long, ByVal lParam1 As Long, ByVal lParam2 As Long, ByRef pclsidHandler As Long)

    Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As String) As Integer

    Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Integer) As Integer

    Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

    Private Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hdc As Integer, ByVal nIndex As Integer) As Integer

    Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer

    Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer

    Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As Integer

    Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As Integer

    Const SRCCOPY As Integer = &HCC0020
    Private oBackground As Bitmap
    Private FW, FH As Integer






    Protected Sub CaptureScreen()

        Dim hSDC, hMDC As Integer
        Dim hBMP, hBMPOld As Integer
        Dim r As Integer

        hSDC = CreateDC("DISPLAY", "", "", "")
        hMDC = CreateCompatibleDC(hSDC)

        FW = GetDeviceCaps(hSDC, 8)
        FH = GetDeviceCaps(hSDC, 10)
        hBMP = CreateCompatibleBitmap(hSDC, FW, FH)

        hBMPOld = SelectObject(hMDC, hBMP)
        r = BitBlt(hMDC, 0, 0, FW, FH, hSDC, 0, 0, 13369376)
        hBMP = SelectObject(hMDC, hBMPOld)

        r = DeleteDC(hSDC)
        r = DeleteDC(hMDC)

        oBackground = Image.FromHbitmap(New IntPtr(hBMP))
        DeleteObject(hBMP)

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load


        CaptureScreen()
        Me.BackgroundImage = oBackground

    End Sub

' ibisseref@hotmail.com
' www.vbkodindir.com
 
 

Ekran resmi çek için yazılan yorumlar

BAYPA bayrakpazarı  { 19 Ekim 2011 }
Sitemde ornegini kullanacagim cok tesekkurler

ilker   { 15 Nisan 2009 }
abi calısıyo mu calısmıyo mu biri yardım ederse iyi olur calısıyorsa donem odevimi bunu yapcam

ebru   { 22 Mart 2009 }
ben bunu anlamadın. yani nasıl foto. çekileceğini

arda   { 20 Şubat 2009 }
s.a. abi bu kod için kullanılacak araç çubukları neler yardım edin lütfen çdk lazım yıllık ödev için şimdiden teşekkürler

yavuz   { 10 Kasım 2007 }
s.a iyi bir kod kardeş saolsın öncelikle.bide kaydetmesini göstersene:))

Başak   { 09 Eylül 2007 }
Arkadaşım paylaştığın için çok saol.

Mehmet   { 16 Nisan 2007 }
Abicim çok saoalsın kod çok işime yaradı ALLAH razı olsun...

Yorum ekleyin

Anasayfa > VB.Net > Kodlar > Ekran resmi çek
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.80.219.137 | 0,11 Saniye
© Copyright 2004-2017 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.