MostWanted Posted July 7, 2009 Share Posted July 7, 2009 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ş Link to comment Share on other sites More sharing options...
wmismail Posted July 9, 2009 Share Posted July 9, 2009 Talhacım eline sağlık kodlar güzel olmuş Link to comment Share on other sites More sharing options...
dryusufbal Posted July 12, 2009 Share Posted July 12, 2009 elıne saglık dostum kullanıslı olmus güzel yazılmış Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.