Autoit İçin Fonksiyon "rapidshare Hesap Bilgisi"

[MostWanted]

Autoit İçin Fonksiyon "RapidShare Hesap Bilgisi"

#include <INet.au3>
Func RapidBilgi($ad, $sifre, $tip)
$id=""
$puan=""
$mail=""
$antihack=""
$toplamalan=""
$toplamdosya=""
$trafik="Free hesaplarda yoktur."
	Switch $tip
		Case 0
			$tip = "col"
			$tip2 = "Free"
		Case 1
			$tip = "prem"
			$tip2 = "Premium"
	EndSwitch
$oku=_INetGetSource("http://api.rapidshare.com/cgi-bin/rsapi.cgi?sub=getaccountdetails_v1&type="& $tip &"&login="& $ad &"&password="&$sifre)
$ayir=StringSplit($oku, @LF)
If $ayir[0] > 14 Then
$kontrol=True
	For $i=1 To $ayir[0] - 1
	$tnctr=StringSplit($ayir[$i], "=")
		Switch $tnctr[1]
			Case "accountid"
				$id=$tnctr[2]
			Case "email"
				$mail=$tnctr[2]
			Case "rsantihack"
				If $tnctr[2] = 1 Then
				$antihack="Açık"
				Else
				$antihack="Kapalı"
				EndIf
			Case "points"
				$puan=$tnctr[2]
			Case "curfiles"
				$toplamdosya=$tnctr[2]
			Case "curspace"
				$toplamalan=boyut($tnctr[2])
			Case "premkbleft"
				$trafik=$tnctr[2]
		EndSwitch
	Next
Else
$kontrol=False
EndIf
Dim $donus[10]
$donus[0]=$kontrol
$donus[1]=$ad
$donus[2]=$id
$donus[3]=$tip2
$donus[4]=$puan
$donus[5]=$mail
$donus[6]=$antihack
$donus[7]=$toplamdosya
$donus[8]=$toplamalan
$donus[9]=$trafik
Return $donus
EndFunc   ;==>RapidBilgi

Func boyut($uyu)
		If $uyu < 1048576 Then
			Return Round($uyu / 1024, 2) & " KB"
		ElseIf $uyu > 1048576 And $uyu < 1073741824 Then
			Return Round($uyu / 1048576, 2) & " MB"
		ElseIf $uyu > 1073741824 Then
			Return Round($uyu / 1073741824, 2) & " GB"
		EndIf
EndFunc   ;==>boyut

Dün canım sıkıldığında aklıma gelen bir projedi yazıp sunayım dedim hem de yararımız olmuş olur autoit meraklılarına Şimdi fonksiyonu tanıtayım biraz..

$tnctr=RapidBilgi("kullanıcıadı", "sifre", buraya eğer hesap free ise 0 premium ise 1 yazacağız)[/CODE]

Kullanımı böyle ya peki returnlar?

[CODE]$tnctr[0]=Bu dönüş işlemin başarılı ve ya başarısız olup olmadığını gösterir.(True ve ya False olarak döner.)
$tnctr[1]=Kullanıcı Adı
$tnctr[2]=Hesap ID'si
$tnctr[3]=Hesap Türü (Free ya da Premium)
$tnctr[4]=Hesaptaki Puan
$tnctr[5]=Hesaba ait Mail adresi
$tnctr[6]=Antihack i kontrol eder.(Açık ise "Açık" diye Kapalı ise "Kapalı" olarak döner.)
$tnctr[7]=Toplam Dosya Sayısı
$tnctr[8]=Toplam Kullanılan Alan
$tnctr[9]=Trafik Bilgisi (Premium hesaplar için..)[/CODE]

Not:Sanırım hesaplarda Premium Kullanıcılarının oluşturduğu puan sistemi kaldırıldı.O yüzden onu fonksiyondan çıkardım.

Önerileri olanlar ve ya hata görenler burdan bildirirseler sevinirim.Fonksiyonu tamamıyle ben yazdım yakında bir de örnek yaparım inş

[wmismail]

Talhacım eline sağlık kodlar güzel olmuş

[dryusufbal]

elıne saglık dostum kullanıslı olmus güzel yazılmış