Genel kullanılan html kodları //ZeRooCooL

ihan3t

Kadim Üye
7 Şub 2012
5,018
21
Konu sabitlenmiştir. Yeni başlayan arkadaşlara faydalı bilgiler bunlar :) Elinize sağlık komutanım.
 

ZeRooCooL

Kıdemli Üye
31 Ocak 2012
2,629
1
Sitene Tv Kodu

Kod:
<IFRAME id=yatay name=yatay marginWidth=0 marginHeight=0 src="http://www.tvmatik.com/webmaster/tvyatay.php?bolum=1&bgrenk=FFFFFF" frameBorder=0 width="668" scroll
 

ZeRooCooL

Kıdemli Üye
31 Ocak 2012
2,629
1
Sitene giriş sayfası yap

Kod:
<font face="Tahoma" size="2">
<a href=http://www.turkhackteam.net
onMouseOver="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.turkhackteam.net);"><b>Giriş sayfası yap</b></a></font>
 

ZeRooCooL

Kıdemli Üye
31 Ocak 2012
2,629
1
Youtube Widyolari İzletim 1.2.x

jscripts/codebuttons.js dosyasını açın.

Kod:
function insertImage() {
    var image = prompt("Please enter the remote URL of the image.", "http://");
    if(image) {
        doInsert("[img]"+image+"[/img]", "", false);
    } else {
        alert("Error!\n\nYou did not enter a URL for the image. Please try again.");
    }
}
 
Altına Ekleyin:
function insertYouTube() {
    var youtube = prompt("Please enter the YouTube video code.", "");
    if(youtube) {
        doInsert("[youtube]"+youtube+"[/youtube]", "", false);
    } else {
        alert("Error!\n\nYou did not enter a YouTube video code. Please try again.");
    }
}
 
Bulun:
 
} else if(myCode == "img") {
        insertImage();
 
Altına Ekleyin:
} else if(myCode == "youtube") {
        insertYouTube();
 

ZeRooCooL

Kıdemli Üye
31 Ocak 2012
2,629
1
3.6.2 Ceza Sisteminin Kaldırılması

Kod:
<if condition="$show['infraction']"><div>$vbphrase[infractions]: $post[warnings]/$post[infractions] ($post[ipoints])</div></if>
 

ZeRooCooL

Kıdemli Üye
31 Ocak 2012
2,629
1
Adres Defteri Açık Kaynak Kodlarıyla Birlikte

Kod:
Private Sub aç_Click()
CommonDialog1.Action = 1
End Sub

Private Sub Command1_Click() 'ekle düğmesi
List1.AddItem Text1
List2.AddItem Combo1.Text
List3.AddItem Combo2.Text
Label5 = List1.ListCount
End Sub

Private Sub Command2_Click() 'sil düğmesi
If List1.ListIndex < 0 Then
MsgBox ("önce silinecek elemanı seçiniz")
Exit Sub
End If
Dim ind, c
c = MsgBox(List1.List(ind) & " silinsin mi", vbYesNo + vbExclamation + vbDefaultButton2, "sil")
ind = List1.ListIndex
If c = vbNo Then Exit Sub
List1.RemoveItem ind
List2.RemoveItem ind
List3.RemoveItem ind
Label5 = List1.ListCount

End Sub

Private Sub Command3_Click() 'bul düğmesi
Dim i
For i = 0 To List1.ListCount - 1
If UCase(List1.List(i)) = UCase(Text1) Then
'bulundu ise seç
List1.ListIndex = i
Exit Sub
End If
Next
MsgBox (Text1 & "bululamadı")
End Sub

Private Sub Command4_Click()
Dim ind
If List1.ListIndex < 0 Then
MsgBox ("önce değiştirilecek elemanı seçiniz")
Exit Sub
End If
ind = List1.ListIndex
List1.List(ind) = Text1
List2.List(ind) = Combo1.Text
List3.List(ind) = Combo2.Text
End Sub

Private Sub Command5_Click() 'Araya ekle düğmesi
Dim İnd
If List1.ListIndex < 0 Then
MsgBox ("önce elemanın nereye ekleneceğini seçiniz")
Exit Sub
End If
ind = List1.ListIndex
List1.AddItem Text1, ind
List2.AddItem Combo1.Text, ind
List3.AddItem Combo1.Text, ind
Label6 = List1.ListCount


End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
If Text1 = "saygın" Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Else
If Text1 = "cengiz" Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Else
If Text1.Text = "erkut" Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
Else
If Text1 = "şükrü" Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
Else
If Text1 = "nuri" Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
End If
End If
End If
End If
End If
End Sub

Private Sub Command8_Click()

End Sub

Private Sub Form_Load()
Combo1.AddItem "Öğrenci"
Combo1.AddItem "Öğretmen"
Combo1.AddItem "Proğramcı"
Combo1.AddItem "İşçi"
Combo1.AddItem "Muhasebeci"
Combo1.AddItem "Mühendis"
Combo1.AddItem "Donanımcı"
Combo1.AddItem "İşletmeci"
Combo1.AddItem "Doktor"
Combo1.AddItem "Polis"
Combo1.AddItem "Hemşire"
Combo1.AddItem "Çiftçi"
Combo1.AddItem "İşçi"
Combo2.AddItem "Adana"
Combo2.AddItem "Adıyaman"
Combo2.AddItem "Ağrı"
Combo2.AddItem "Afyon"
Combo2.AddItem "Amasya"
Combo2.AddItem "Ankara"
Combo2.AddItem "Aksaray"
Combo2.AddItem "Artvin"
Combo2.AddItem "Antalya"
Combo2.AddItem "Ardahan"
Combo2.AddItem "Aydın"
Combo2.AddItem "Bayburt"
Combo2.AddItem "Bartın"
Combo2.AddItem "Bitlis"
Combo2.AddItem "Bingöl"
Combo2.AddItem "Bolu"
Combo2.AddItem "Bilecik"
Combo2.AddItem "Balıkesir"
Combo2.AddItem "Batman"
Combo2.AddItem "Burdur"
Combo2.AddItem "Bursa"
Combo2.AddItem "Çanakkale"
Combo2.AddItem "Çankırı"
Combo2.AddItem "Çorum"
Combo2.AddItem "Denizli"
Combo2.AddItem "Düzce"
Combo2.AddItem "Edirne"
Combo2.AddItem "Erzincan"
Combo2.AddItem "Erzurum"
Combo2.AddItem "Eskişehir"
Combo2.AddItem "Elazığ"
Combo2.AddItem "Gümüşhane"
Combo2.AddItem "G.Antep"
Combo2.AddItem "Giresun"
Combo2.AddItem "Hatay"
Combo2.AddItem "Hakkari"
Combo2.AddItem "Iğdır"
Combo2.AddItem "Isparta"
Combo2.AddItem "İzmir"
Combo2.AddItem "İstanbul"
Combo2.AddItem "K.Maraş"
Combo2.AddItem "Kayseri"
Combo2.AddItem "Kırkşehir"
Combo2.AddItem "Kırıkkale"
Combo2.AddItem "Karabük"
Combo2.AddItem "Kilis"
Combo2.AddItem "Konya"
Combo2.AddItem "Kocaeli"
Combo2.AddItem "Kırlareli"
Combo2.AddItem "Kastamonu"
Combo2.AddItem "Kars"
Combo2.AddItem "Manisa"
Combo2.AddItem "Mardin"
Combo2.AddItem "Muğla"
Combo2.AddItem "Malatya"
Combo2.AddItem "Mersin"
Combo2.AddItem "Muş"
Combo2.AddItem "Niğde"
Combo2.AddItem "Nevşehir"
Combo2.AddItem "Osmaniye"
Combo2.AddItem "Ordu"
Combo2.AddItem "Rize"
Combo2.AddItem "Samsun"
Combo2.AddItem "Sinop"
Combo2.AddItem "Sakarya"
Combo2.AddItem "Siirt"
Combo2.AddItem "Sivas"
Combo2.AddItem "Şırnak"
Combo2.AddItem "Ş.urfa"
Combo2.AddItem "Tokat"
Combo2.AddItem "Trabzon"
Combo2.AddItem "Tunceli"
Combo2.AddItem "Tekirdağ"
Combo2.AddItem "Van"
Combo2.AddItem "Yozgat"
Combo2.AddItem "Yalava"
Combo2.AddItem "Zonguldak"

Dim x, y, z
'daha önce kaydedilmiş dosya varsa aç
If Dir("pers.dat") <> "" Then 'dosya varsa aç
Open "pers.dat" For Input As #1
While Not EOF(1) 'dosya sonuna kadar
Input #1, x, y, z
List1.AddItem x
List2.AddItem y
List3.AddItem z
Wend
Close #1
End If
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
'çıkışta listeleri pers.dat dosyasına kaydet
Dim x, y, z, i
Open "pers.dat" For Output As #1
For i = 0 To List1.ListCount - 1
x = List1.List(i)
y = List2.List(i)
z = List3.List(i)
Write #1, x, y, z
Next
Close #1
End Sub

Private Sub KAYDET_Click()
CommonDialog1.Action = 2

End Sub

Private Sub List1_Click()
'birinde seçileni diğerlerinde de seç
List2.ListIndex = List1.ListIndex
List3.ListIndex = List1.ListIndex
List2.TopIndex = List1.TopIndex
List3.TopIndex = List1.TopIndex
Label6 = List1.ListIndex + 1
Text1 = List1.Text


End Sub
Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
List3.ListIndex = List2.ListIndex
List1.TopIndex = List2.TopIndex
List3.TopIndex = List2.TopIndex
Label6 = List2.ListIndex + 1
Combo1.Text = List2.Text
End Sub

Private Sub List3_Click()
List2.ListIndex = List3.ListIndex
List1.ListIndex = List3.ListIndex
List2.TopIndex = List3.TopIndex
List1.TopIndex = List3.TopIndex
Label6 = List3.ListIndex + 1
End Sub
 

By Jasper

Katılımcı Üye
27 Haz 2012
879
0
Las Wegas
Kod:
<form method="GET" action="http://sozluk.turklist.com/default.asp" target="_blank">
<table border="0" width="100%">
<tr><td width="100%"><font size="2" face="Arial"><b>İngilizce - Türkçe Sözlük</b></font></td></tr>
<tr><td width="100%">
<table border="0" width="100%">
<tr>
<td width="100" valign="top"><font face="Arial" size="2">İngilizce Kelime:</font></td>
<td valign="top"><font face="Arial" size="2"><input type="text" name="eng" size="30"><br>
<input type="radio" value="bas" name="yer" "checked" checked>ile başlayan kelimeleri, <input type="radio" value="orta" name="yer">içeren kelimeleri</font></td>
</tr>
<tr><td width="100" valign="top"></td>
<td valign="top"><font face="Arial" size="2"><input type="submit" value="Türkçeye Çevir" name="B2"></font></td>
</tr>
</table>
</td></tr>
</table>
</form>

Ölüüüü :) ÇÇalışmıyor Bu Kodun..
 

bl4ckse4

Üye
7 Ocak 2012
195
0
Artvin/Hopa
YouTube Arama Motoru

Arkadaşlar ne kadar işinize yarayıp yaramayacağını bilemiyorum. Sitenize direkt olarak youtube'da arama yapan motor

Kod:
<b><h2> YOUTUBE ARAMA MOTORU </h2></b>
<TABLE BORDER=0 BGCOLOR="#FF0000" CELLSPACING=4 CELLPADDING=4><TR><TD BGCOLOR="#FFCC99"><CENTER><FONT SIZE="-1" FACE="Times New Roman" COLOR="#000000"><B>BL4CKSE4 YOUTUBE ARAMA MOTORU</B></FONT><P><FORM ACTION="http://www.youtube.com/results" METHOD=GET><P><INPUT TYPE=text NAME=search_query VALUE="" SIZE=30><INPUT TYPE=submit NAME=Submit VALUE="ARA" ></FORM></P></CENTER></TD></TR></TABLE>
 
Son düzenleme:

AhmetMeLiq

Üye
7 Ağu 2011
231
0
agalar peki bu kodlarla hazırladığımız siteyi webe nasıl çevirecez nasıl googleda bulacaz? bu konularda acemiyi şimdiden teşekkürler[/COLOR]
:trl :trl :trl :trl :trl :trl :trl :trl
 
Ü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.