Form'a
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 "Lütfen Yorum !
", vbDefaultButton1, "BlackHkacer -Starhack"
Form1.Width = 7705
Form1.Height = 3945
Form1.Caption = "Black-Hacker //Lütfen Yorum Yapın pls
"
Text1.Text = "c:\blackhacker.bmp"
Command1.Caption = "Görüntü 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
Evet bu kadar.............................................
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 "Lütfen Yorum !
Form1.Width = 7705
Form1.Height = 3945
Form1.Caption = "Black-Hacker //Lütfen Yorum Yapın pls
Text1.Text = "c:\blackhacker.bmp"
Command1.Caption = "Görüntü 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
Evet bu kadar.............................................
