سلام. از کتابخانه استفاده کردم اما هیچ کاری انجام نمیده. لطفا کد های منو چک کنید ببینید کجا رو اشتباه رفتم:
Sub btn_send_Click
ExecuteRemoteQuery("SELECT email FROM users WHERE email = '" & et_email.Text & "' OR username= '" & et_email.Text & "'","forget")
End Sub
Sub ExecuteRemoteQuery(Query As String, jobname As String)
Dim pfn As PersianFastNetwork
pfn.Initialize(jobname).WithSSL.Build
Dim post As PostRequest = pfn.BuildPostQuery("http://parsprog.ir/apps_manage/question-mark/sql.php","query")
post.addParametrs("query",Query)
post.executRequestAsJSONObject
Log("query")
End Sub
Sub pfn_onPostJSONObjectOkListener(JsonString As String , Tag As String)
Log("OK")
End Sub
Sub pfn_onPostJSONObjectErrorListener(Error As ResponseError , Tag As String)
Log("Error")
End Sub