RapidShare Account Detail

[talha252]

expandcollapse popup

#include <INet.au3>
Func RapidBilgi($ad, $sifre, $tip)
$id=""
$puan=""
$mail=""
$antihack=""
$toplamalan=""
$toplamdosya=""
$trafik="Only Premium User"
    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="Active"
                Else
                $antihack="Deactive"
                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

Parameter(s):

$ad= Account Name or id

$sifre= Account Password

$type= 0=Free, 1=premium

Requirement(s):

#include <INet.au3>

Return(s):

[0]= Success

[1]=Account Name

[2]=Account Id

[3]=Account Type

[4]=Point

[5]=Mail Adress

[6]=Antihack Check (Active, Deactive)

[7]=Total File

[8]=Total Size

[9]=Trafic Share (Only Premium User)

Sorry for my bad English..

Edited July 9, 2009 by talha252