Sign in to follow this  
Followers 0
talha252

RapidShare Account Detail

1 post in this topic

#1 ·  Posted (edited)

#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 by talha252

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0