Visual Basic ile deface alma programı yapalım
Kodlar bana aittir.Stiflerden biraz yardım o kadar
Şimdi foruma bir adet picture box 4 adet textbox 1 adetde buton
Text1 = Atacker
Text3 = Takım Örn("ajanlar.org")
Text4 = heklenen site
Text5 = Doğrulama Resimi
aşağıdaki kodları olduğu gibi general bölümüne yapıştırın
[hide]
[/hide]
Kodlar bana aittir.Stiflerden biraz yardım o kadar
Şimdi foruma bir adet picture box 4 adet textbox 1 adetde buton
Text1 = Atacker
Text3 = Takım Örn("ajanlar.org")
Text4 = heklenen site
Text5 = Doğrulama Resimi
aşağıdaki kodları olduğu gibi general bölümüne yapıştırın
[hide]
Kod:
Private Sub Form_Load()
On Local Error Resume Next
WebBrowser1.Navigate ("http://www.hack-db.com/notify.html")
End Sub
Private Sub PushButton1_Click()
On Local Error Resume Next
WebBrowser1.Document.All.Item("notifyer").Value = Text1.Text
WebBrowser1.Document.All.Item("team").Value = Text3.Text
WebBrowser1.Document.All.Item("urls").Value = Text4.Text
WebBrowser1.Document.All.Item("code").Value = Text2.Text
WebBrowser1.Document.All.Item("submit").Click
Shell "cmd /c start http://www.hack-db.com/"
End Sub
Private Sub webbrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Local Error Resume Next
Dim Nesne As Object
Set Nesne = WebBrowser1.Document.body.createControlRange()
Nesne.Add WebBrowser1.Document.Images(3)
Nesne.execCommand "Copy"
Picture1.Picture = Clipboard.GetData
End Sub[/hide]
