ProgressDialogShow2("در حال اتصال به سرور...",False)
Dim Login_http As HttpJob
Login_http.Initialize("Login", Me)
Login_http.Download2("https://skynet2.ir/hamid/RahvarPHP/Login.php", Send)
Wait For (Login_http) JobDone (Login_http As HttpJob)
If Login_http.Success = True Then
strReturnServer = Login_http.GetString
If strReturnServer = "Wrong" Then
ProgressDialogHide
MsgboxAsync(CS.Initialize.Typeface(Typeface.LoadFromAssets("font.ttf")).Append("نام کاربری یا کلمه عبور اشتباه است!").PopAll,"")
Wait For MsgBox_Result (Result As Int)
Else If strReturnServer = "Exception" Then
ProgressDialogHide
MsgboxAsync(CS.Initialize.Typeface(Typeface.LoadFromAssets("font.ttf")).Append("خطا در اتصال به سرور!").PopAll,"")
Wait For MsgBox_Result (Result As Int)
else if strReturnServer = "" Then
ProgressDialogHide
MsgboxAsync(CS.Initialize.Typeface(Typeface.LoadFromAssets("font.ttf")).Append("خطا در اتصال به سرور!").PopAll,"")
Wait For MsgBox_Result (Result As Int)
else If strReturnServer = "Admin" Then
AdminMember.Adminmemberloaded = False
IsAdmin = True
StartActivity("AdminMember")
Else
Member.memberloaded = False
IsAdmin = False
StartActivity("Member")
End If
Else
ProgressDialogHide
MsgboxAsync(CS.Initialize.Typeface(Typeface.LoadFromAssets("font.ttf")).Append("خطایی رخ داده است!").PopAll,"")
Wait For MsgBox_Result (Result As Int)
End If
ProgressDialogHide
Login_http.Release