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();
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
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>
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
<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>
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.