VB Site Engelleme

V

VFor Vendetta '

Katılımcı Üye

2 Eki 2010

321

0

İzmir

Kredi

0

• 11 Kas 2010

• #1

"127.0.0.1 engellenicek site" & vbNewLine & "127.0.0.1 engellenicek site2"

Bölümünü kendinize göre düzenleyin . Sadece Varsayilan Tarayici'da çalışır .

PHP:

Private Sub Form_Load() ' Turkhackteam.Org / VFor Vendetta
On Error Resume Next
Text1.Text = "127.0.0.1 localhost" & vbNewLine & "127.0.0.1 engellenicek site" & vbNewLine & "127.0.0.1 engellenicek site2" ' vesaire çoğaltabilirsin.
Kill "C:\WINDOWS\system32\drivers\etc\hosts" ' Turkhackteam.Org / VFor Vendetta
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1 ' Turkhackteam.Org / VFor Vendetta
Print #1, Text1.Text; ' Turkhackteam.Org / VFor Vendetta
Close #1 ' Turkhackteam.Org / VFor Vendetta
End Sub ' Turkhackteam.Org / VFor Vendetta

 

6

6ok4y

Uzman üye

27 Tem 2008

1,234

4

(.*?)

Kredi

0

• 12 Kas 2010

• #2

Teşekkürler

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 12 Kas 2010

• #3

Teşekkürler çok lazımdı ip değiştirme programını versen çok mu istemiş olurum ?

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 12 Kas 2010

• #4

Private Sub Command1_Click()
On Error Resume Next
Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1
Print #1, ; "127.0.0.1 "; Text1.Text; '"127.0.0.1 Buradaki Boslugu azaltmayın yada arttırmayın "
Close #1
End Sub

KODU BU SEKİLDE DUZENLEDİM SENİNKİNDE SORUN ÇIKIYOR BU SORUNSUZDUR.

 

EnzMrc

Katılımcı Üye

17 Eki 2010

598

0

Adana

Kredi

0

• 12 Kas 2010

• #5

kral saolasin engelliim facei giremesin bizimkiler

 

V

VFor Vendetta '

Katılımcı Üye

2 Eki 2010

321

0

İzmir

Kredi

0

• 12 Kas 2010

• Konuyu başlatan
• #6

Magicleon ben teşekkür Ederim.

Hakan : http://turkhackteam.net/showthread.php?p=1869525#post1869525
ve Verdiğim kodlar'da sorunsuz denedim herhangi bir hata yok .

EnzMrc Sen sağol kardeşim .

 

By_OnEseLF

Katılımcı Üye

12 Eyl 2010

655

0

Kredi

0

• 12 Kas 2010

• #7

Eyw bideneyelim

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 13 Kas 2010

• #8

seninkinde text1.ee III harfi çıkıyordu

 

V

VFor Vendetta '

Katılımcı Üye

2 Eki 2010

321

0

İzmir

Kredi

0

• 13 Kas 2010

• Konuyu başlatan
• #9

Cunku multiline'yi false yapıyorsun .

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 13 Kas 2010

• #10

çok saol silme engeli kaldırmayı nasıl etcez ?

 

EnzMrc

Katılımcı Üye

17 Eki 2010

598

0

Adana

Kredi

0

• 13 Kas 2010

• #11

bak orada engellenecek site yaziyor.
sonra engellenecek site 2 onlara engellicegin siteleri yaz.

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 13 Kas 2010

• #12

tamamda engelledik nasıl engelini kaldırıcaz hoost dosyasından nasıl sildiricez? yazılan siteyi

 

V

VFor Vendetta '

Katılımcı Üye

2 Eki 2010

321

0

İzmir

Kredi

0

• 13 Kas 2010

• Konuyu başlatan
• #13

Hakan Tıkla

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 13 Kas 2010

• #14

Tamamda sildirmesini diyorum text2 ye yazcam www.google.com.tr bulucak host dosyasında silcek 127.0.0.1 ile beraber onu yaparsan varya harika olur her konuna tesekkür ederim ?????

 

V

VFor Vendetta '

Katılımcı Üye

2 Eki 2010

321

0

İzmir

Kredi

0

• 13 Kas 2010

• Konuyu başlatan
• #15

Kardeşim İşte oku 'ya basıcaksın txtnin adresini yazıcaksın içindekileri text'e aktaricak ardından text'e istediğin şeyi yaz yaz'a bas bu kadar

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 13 Kas 2010

• #16

tamam anladımda benim istediğim aktarmadan mesela dediğim gibi okuttuk ya açtı

Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1 dedik sonra ne dicez text1.text deki metini bulucak hosts ad ve silicek onu diyom ben otomatik olcak yani elle değil

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 13 Kas 2010

• #17

benim yapmak istediğim zararlı siteleri engelleyen program onun için Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As #1 dedikten sonra atıyorum hostta 127.0.0.1 www.google.com.tr yazıyor onu text2 ye yazınca www.google.com.tr diye 127.0.0.1 dahil olmak üzere bulup silicek 127.0.0.1 kalsada olur nasıl yapcaz işte onu diyorum sana =????

 

V

VFor Vendetta '

Katılımcı Üye

2 Eki 2010

321

0

İzmir

Kredi

0

• 13 Kas 2010

• Konuyu başlatan
• #18

PHP:

Option Explicit
Dim ArananKelime As String
Dim KelimeninYeri, AramayaBasla As Integer

Private Sub Bul_Click()
ArananKelime = "www.google.com.tr" ' burayı kafana göre değiştir .
AramayaBasla = Text1.SelStart + Text1.SelLength
If AramayaBasla = 0 Or AramayaBasla = Len(Text1.Text) Then AramayaBasla = 1
KelimeninYeri = InStr(AramayaBasla, Text1.Text, ArananKelime, vbTextCompare)
If KelimeninYeri = 0 Then
MsgBox "Metin içinde böyle bir kelime yok"
Else
Text1.SetFocus
Text1.SelStart = KelimeninYeri - 1
Text1.SelLength = Len(ArananKelime)
End If
SendKeys ("{Delete}")
End Sub

Başka sorun varsa özel mesaj at burda post kasmıyalım

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 13 Kas 2010

• #19

deneyicem hemen

 

H

hakan-589

Üye

21 Ocak 2009

91

0

Kredi

0

• 13 Kas 2010

• #20

arancak kelimeyi sen nerde arattın hiç host dosyasının adı geçmiyor?