سلام من این آموزش روخریداری کردم
به این کتابخونه ارور میده در صورتی که کتابخونهper-gson.jar رو تو پوشه لایبری ریختم
Sub pr_onJSONObjectUploadOK(JsonString As String )
ProgressDialogHide
If JsonString<>Null Then
Dim prs As P_JsonOBject
prs.initialaizJsonString(JsonString)
Dim err As Boolean=prs.getBoolean("error")
If err=False Then
Dim Intent1 As Intent
Intent1.Initialize("", "")
Intent1.SetComponent("com.shahpiri.fastnet/.profile")
Intent1.PutExtra("username",prs.getString("username") )
StartActivity(Intent1)
End If
End If
End Sub