نشان دادن کد امنیتی در pic box

[saeedhord]

با سلام

اساتید محترم یه سایت هست میخوام کد امنیتیشو داخل pic box لود کنم کمک میکنید لطفا

سایت : http://deadfake.com/Send.aspx


با تشکر

[niksalehi]

سلام ...


Private Sub Form_Load()
WebBrowser1.Navigate "http://deadfake.com/Send.aspx"
End Sub

Private Sub Command1_Click()
Dim A As Object
Set A = WebBrowser1.Document.body.createControlRange()
Call A.Add(WebBrowser1.Document.Images.Item(WebBrowser1 .Document.Images.Length - 1))
Call A.execCommand("Copy")
Set Picture1.Picture = Clipboard.GetData
End Sub

[saeedhord]

دستت درد نکنه :دی

خیلی کمک کردی :دی :ایکس