İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

4 domaini bedava vericem(güncel başlık)

murdock

0
İyinet Üyesi
Katılım
28 Mart 2005
Mesajlar
1,273
Reaction score
3
msnp3.com
free-saks-saksy-videos-pictures-gallery.com
free-saks-saksy-gallery.org
otkum.com

arkadaşlar bu 4 domaini bedava vericem.. biraz yarışma tarzı olsunda hak eden alsın istedim..

asp hakkında olucak bu soru..

asp bölümünde vermiştim bu burç sayfasından terazi burcunun günlük yorumunu almaktadır asptear ile alınıyor. :

Kod:
<%
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=7"
Set alma = CreateObject("SOFTWING.ASPtear" )
Session.CodePage = 1254

On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
Session.CodePage = 1254
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
dim x , abc
x = 0
abc = 0
dim lale
lale = ""
Do Until abc = 2
x = x + 1
If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then
abc = abc + 1
End If
If Mid(haberim,x,Len(baslangic)) = baslangic Then
abc = abc + 1
Else
If abc = 1 Then
lale = lale + Mid(haberim,x,1)
End If
End If
Loop
Function seklesok(hammadde)
Dim gecicigeyik
gecicigeyik = hammadde
gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1)
gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1)
seklesok = gecicigeyik
End Function
Response.Write "<p align='justify'><font size=1 face=verdana color=000000>"
Response.Write seklesok(lale)
Response.Write "</b></font></p>"
%>

bunun yaptığı işlemin aynısını yaparak asptear ile değilde Microsoft.XMLHTTP ile alacak şekilde veren(özellikle başlangıç ve bitişin belirlenebileceği) kodu özelime çalışacak şekilde yollayan ilk kişiye domaini teslim edicem.

domain sadecehosting.com da bulunmaktadır.güvenli bir şirkettir hesap açıcak kazanan kişi ve benim bildirmemle domain onun hesabına geçicektir 1 gün içinde.

kolay gelsin.
 

webrlis

0
İyinet Üyesi
Katılım
23 Temmuz 2006
Mesajlar
467
Reaction score
2
buyur bakalım :)


Kod:
<%
private  Function GETHTTP(kadi) 
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )  
    StrHTTP.Open "GET" , kadi, false  
    StrHTTP.sEnd  
    GETHTTP = StrHTTP.Responsetext  
Set StrHTTP = Nothing  
End Function  


haberURL = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=7"


haberim = gethttp(haberurl)



If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "><strong><big>"
bitis = "<br> </big></strong></font>"
dim x , abc
x = 0
abc = 0
dim lale
lale = ""
Do Until abc = 2
x = x + 1
If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then
abc = abc + 1
End If
If Mid(haberim,x,Len(baslangic)) = baslangic Then
abc = abc + 1
Else
If abc = 1 Then
lale = lale + Mid(haberim,x,1)
End If
End If
Loop
Function seklesok(hammadde)
Dim gecicigeyik
gecicigeyik = hammadde
gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1)
gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1)
seklesok = gecicigeyik
End Function
Response.Write "<p align='justify'><font size=1 face=verdana color=000000>"
Response.Write seklesok(lale)
Response.Write "</b></font></p>"
%>
 

murdock

0
İyinet Üyesi
Katılım
28 Mart 2005
Mesajlar
1,273
Reaction score
3
tebrik ederim arkadaşım.. milletin gözü korkuyo girişmedi domainler için halbuki biliyorum basit birşey.. 4 domainde senindir.. sadecehosting.com dan kendine hesap aç kullanıcı adını özelden yolla yarın 4 domainde hesabındadır.. bekliyorum..
 

webrlis

0
İyinet Üyesi
Katılım
23 Temmuz 2006
Mesajlar
467
Reaction score
2
pm attım dostum.
domainler için teşekkürler
 

FileZilla

0
İyinet Üyesi
Katılım
16 Aralık 2006
Mesajlar
204
Reaction score
0
PHP:
<?php
## .... Söz-Müzik : haymac ;)

/*
1 Koç 
2 Boğa 
3 İkizler 
4 Yengeç 
5 Aslan 
6 Başak 
7 Terazi 
8 Akrep 
9 Yay 
10 Oğlak 
11 Kova 
12 Balık 
*/

$Fallar = array("","Koç","Boğa","İkizler","Yengeç","Aslan","Başak","Terazi","Akrep","Yay","Oğlak","Kova","Balık");

$FalKodu = '1';  // Fallar a göre düzenle

$Adres = "http://www.muneccim.com/gunluk_fal/bugun.asp?burc=$FalKodu";

## .... Desenler
$BurcDeseni = "|\<td\>\<p\salign\=\"center\"\>\<img\ssrc=\"\.\.\/images\/([a-z-A-z]+)\.gif\"\>\<\/td\>|si";
$GunDeseni = "|\<p.+><big><big><font.+>(.+)</font><\/big><\/big><\/p>|si";
$FalDeseni = "|\<p><font\scolor=\"#000000\"\sface=\"Arial\sNarrow\"><strong><big>(.+)<br>\s</big></strong></font>|si";

## .... Php değil ie'yim ben Tanımadınmı ?
@ini_set('user_agent', 'Mozilla/4.0 (compatible; MSIE 6.0;)');

## .... Veri Al

$icerik = file_get_contents($Adres);

## .... Formatla

preg_match($BurcDeseni,$icerik,$BurcCikti);
preg_match($GunDeseni,$icerik,$GunCikti);
preg_match($FalDeseni,$icerik,$FalCikti);

## .... Al Sana Değişkenler

$burc =$BurcCikti[1];
$TRburc = $Fallar[$FalKodu];
$gun = str_replace(' - Bugün','',$GunCikti[1]);
$fal = $FalCikti[1];

?>
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst