[سعود]

PHP كود :

       Dim lp As Integer = Txtmain.Text.LastIndexOf("&")
        Dim fp As Integer = Txtmain.Text.LastIndexOf("&ses=")
        Dim r As String = Strings.Left(Txtmain.Text, lp)
        Dim r2 As String = Mid(r, fp)
        Dim r3 As String = Replace(r2, Strings.Left(r2, r2.IndexOf("=") + 1), "")
        Txtresult.Text = r3