1 Text
1 Commandbuton
1 İmage
Vw Ağağıdaki Kodu Olduğu Gibi Yapıştırın !
Kod:
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()
MsgBox "Lutfen Yorum !
", vbDefaultButton1, "BlackHkacer -Starhack"Form1.Width = 7705
Form1.Height = 3945
Form1.Caption = "Black-Hacker //Lutfen Yorum Yapın pls
"Text1.Text = "c:lackhacker.bmp"
Command1.Caption = "Goruntu Al ve Kaydet"
Image1.Stretch = True
End Sub
Public Function Screenshot(ByVal Destination$) As Boolean
On Error Resume Next
DoEvents
Call keybd_event(vbKeySnapshot, 1, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), Destination$
Screenshot = True
End Function
Private Sub Command1_Click()
Form1.Hide
Screenshot Text1.Text
Image1.Picture = LoadPicture(Text1.Text)
Form1.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
__________________