maestro00 / htmlparse-scraper Goto Github PK

    Dim client As RestSharp.RestClient = New RestSharp.RestClient(Me.HaftalikTaylan.Url)
    Me.HaftalikTaylan.Request = New RestSharp.RestRequest(RestSharp.Method.GET) With {.Timeout = 5 * 60 * 1000}
    Me.HaftalikTaylan.Response = client.Execute(Me.HaftalikTaylan.Request)

    If Me.HaftalikTaylan.Response.Cookies.Count > 0 Then

        For i As Integer = 0 To Me.HaftalikTaylan.Response.Cookies.Count - 1
            If Me.HaftalikTaylan.Response.Cookies(i).Name.Contains("__RequestVerificationToken_L0J1bHRlbkhhZnRhbGlr0") Then
                __RequestVerificationToken = Me.HaftalikTaylan.Response.Cookies(i).Value
            End If
        Next
    End If
    Me.Deneme_post(__RequestVerificationToken)
End Sub

Private Sub Deneme_post(__RequestVerificationToken As String)


    Dim client As RestSharp.RestClient = New RestSharp.RestClient(Me.HaftalikTaylan_post.Url)
    Me.HaftalikTaylan_post.Request = New RestSharp.RestRequest(RestSharp.Method.POST) With {.Timeout = 5 * 60 * 1000}
    Me.HaftalikTaylan_post.Request.AddHeader("cahce-control", "no-cache")
    Me.HaftalikTaylan_post.Request.AddHeader("content-type", "application/x-www-form-urlencoded")

        Dim parameterString As String = "__RequestVerificationToken=" & __RequestVerificationToken & "&dil=tr&tarih=8.3.2019&id=154&parabirimi=TL&sutun=154&tarafKodu=10001&gun=90"

    Me.HaftalikTaylan_post.Request.AddParameter("application/x-www-form-urlencoded", parameterString, RestSharp.ParameterType.RequestBody)
    Me.HaftalikTaylan_post.Response = client.Execute(Me.HaftalikTaylan_post.Request)

End Sub`