0

The Regex needs to be removed.
It is filtering out stuff from YOUR page.
I used it in MY example because it was necessary.

What do you see in the debugger?

0

Your code without edits does not work fella. no response when opening the program, opens fine but no notifications. Also no errors

0

Got your code working now.

Ive tryed mine and i get 404 error on line:

Dim fileWebIn As New StreamReader(wc.OpenRead(strUri))
0

A 404 would mean you are point to the wrong URL.
Check your query string in the debugger before you do the OpenRead()

0

thr url is the action url which you told me to enter fella. (/uk/jforum.page)

Function pmMe(ByVal strsubject As String, ByVal strmessage As String, ByVal UserID As Char) As String
        Dim strRetVal As String = ""
        Dim strUri As String =
           "http://forum.ea.com/uk/jforum.page?" &
           "&toUserId=" & UserID &
           "&subject=" & strsubject &
           "&message=" & strmessage
        Dim wc As New WebClient
        Dim fileWebIn As New StreamReader(wc.OpenRead(strUri))
        Dim rxGangsterName As New Regex("<Title>.**</Title>")
        Dim strData As String
        While Not fileWebIn.EndOfStream
            strData = fileWebIn.ReadLine()
            If (rxGangsterName.IsMatch(strData)) Then
                strRetVal = rxGangsterName.Match(strData).Groups(1).Value
            End If
        End While
        fileWebIn.Close()
        Return strRetVal
    End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(pmMe("hiiiiiiiiiiiiiiiii", "this is my message to you!", "300000"(0)))
    End Sub

I have also tryed to enter an extra field call action like:

Module Module1
    Function pmMe(ByVal strsubject As String, ByVal strmessage As String, ByVal action As String, ByVal UserID As Char) As String
        Dim strRetVal As String = ""
        Dim strUri As String =
           "http://forum.ea.com/uk/pm/sendTo/" & UserID & ".page?" &
           "action=" & action &
           "&toUserId=" & UserID &
           "&subject=" & strsubject &
           "&message=" & strmessage
        Dim wc As New WebClient
        Dim fileWebIn As New StreamReader(wc.OpenRead(strUri))
        Dim rxGangsterName As New Regex("<Title>.**</Title>")
        Dim strData As String
        While Not fileWebIn.EndOfStream
            strData = fileWebIn.ReadLine()
            If (rxGangsterName.IsMatch(strData)) Then
                strRetVal = rxGangsterName.Match(strData).Groups(1).Value
            End If
        End While
        fileWebIn.Close()
        Return strRetVal
    End Function
End Module

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(pmMe("hiiiiiiiiiiiiiiiii", "this is my message to you!", "http://forum.ea.com/uk/jforum.page", "300000"(0)))
    End Sub

and i added extra field to button (http://forum.ea.com/uk/jforum.page) and changed the URI to the PM page. No luck.

Update:

I have tryed also removing most fields. EXCEPT subject and message, this brings bak the box with title. But no action is applied. i dont know how to do this and the action page brings back a 404 error when browsing.

Edited by daydie: n/a

0

The URI has to be incorrect (something we missed).
It could have a different root -- meaning: when it is called, the root page is something different even though the part it appends is very visible.

0

Heres the real code, ive now got it working to login. But still 404 not found page for the POST request.

Hello guys, i need a little help with this httpwebrequest please...

Here is my VB code:

Function pmMe(ByVal strsubject As String, ByVal strmessage As String, ByVal UserID As Char) As String
        Dim strRetVal As String = ""
        Dim strUri As String =
           "http://forum.ea.com/uk/jforum.page?" &
           "&toUserId=" & UserID &
           "&subject=" & strsubject &
           "&message=" & strmessage
        Dim wc As New WebClient
        Dim fileWebIn As New StreamReader(wc.OpenRead(strUri))
        Dim rxGangsterName As New Regex("<Title>.*</Title>")
        Dim strData As String
        While Not fileWebIn.EndOfStream
            strData = fileWebIn.ReadLine()
            If (rxGangsterName.IsMatch(strData)) Then
                strRetVal = rxGangsterName.Match(strData).Groups(1).Value
            End If
        End While
        fileWebIn.Close()
        Return strRetVal
    End Function


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox(pmMe("hiiiiiiiiiiiiiiiii", "this is my message to you!", "300000"(0)))
    End Sub

And here is the page post request.

http://forum.ea.com/uk/jforum.page
 
POST /uk/jforum.page HTTP/1.1
Host: forum.ea.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:10.0.1) Gecko/20100101 Firefox/10.0.1
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip, deflate
Connection: keep-alive
Referer: http://forum.ea.com/uk/pm/sendTo/159628.page
Cookie: JSESSIONID=AD79E2D143FDB484CE663614CE5F61B4; __utma=197456312.1861519533.1326928794.1329101451.1329121686.37; __utmz=197456312.1326928794.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); _chartbeat2=8l3znty9iv1hfpjv.1326928793992; jforumUserId=1; __utma=103303007.1776102592.1327365065.1328704384.1328821924.3; __utmz=103303007.1327365065.1.1.utmcsr=forum.ea.com|utmccn=(referral)|utmcmd=referral|utmcct=/uk/pm/sentbox.page; FUTWebPhishing1799755051=338925976983986415; CEM-Rememberlogin=mRLLf4Ua9QJAz1J1va8yrhwlh9jFEaLsccY1Q3Ja7wQcFxfjzMy82dppsflyFzwgMi7cOO5BPLynRocqbFmxVjgrE74BOBWsuKBwaqtOG0ByN1iv9UWuOiTKPhChWnzYkSHyNYckzkaMNRK2qLEPF4cWnhAPAYDfXLcxQ8NYRB8zaHxeWdJndmGm4hFHZL2lNTSD1aKnZ1-RL77U_4_i8FfX9vdQg1e5saR7mOHjEdpmW7ojBQV_AiUnKfNJNYoV; cem-default-profile=I1aFxg7sTyT5Cr%2FlXWMOTr0Nji9ma%2F3DZKhQyMn4fAufdpt8pOJ0%2FGoWTAN4vi262bNrYGDClBLg%0AGwcZRvMnbJkYFNCuSMsR8eZOcHw%2FWKrMrCzyxEOovC46pL%2FlS8f72WbsVzC3tjRpx%2BJQeYDcpGYJ%0APSplr2iKOUbl%2FdjIzt2xuRury6x%2BgK8kVXRDP8hlIz3DepixkqjTOi1sm%2Fe2QcuFnoSvcQ58pIU3%0AdCQGaq2p8p2mca7dG61NV9I3CZeg; CEM-profile=2ABHqMt94BUrHEZJmebg3HJZzAGT%2FGN4Zr7tvMdo7UoxyJ3O7aiwy24Qn23%2FSzbqlT%2BZl8DjjcBL%0ASME6HSU7S5Are3wkimoVR%2BuWyEeqeNcDJK6sl55zWwKRxGr0ehA58R3WId8j%2Fi1T8DN0iqniez0W%0AwqtVTYRSxYOG9Na2k62w2DUZWBnzr6GP91aKIcAzyMrxpnk3TQ4OxvBkzTN9xSJtjwZXgb0r0vfC%0AshH5Fn3AKxVFsUEFkonPgTampCniT0vwimiwrmhO1zDs6QD%2FkULBMVKHwVZfpAALlVK72FKgWsrr%0AR4ipj8bIMX%2BlvYQf; BIGipServerPROD-FORUMS-POOL-UK=1685591050.20480.0000; CEM-session=5ah6spoidj7n15suuhfkcug980; __utmc=197456312; s_sivo=GB%3AFORUM%3ANONE; s_cc=true; s_ria=flash%2011%7Csilverlight%20not%20detected; s_ppv=61; s_sq=eaeacom%2Ceaeacomeu%2Ceaproducteaforumuk%3D%2526pid%253DEMEA%25253AGB%25253AEA%25253ANONE%25253AFORUM%25253ANONE%25253AFORUM%25253ANONE%25253APRIVATEMESSAGES%2526pidt%253D1%2526oid%253DSubmit%2526oidt%253D3%2526ot%253DSUBMIT; s_pv=EMEA%3AGB%3AEA%3ANONE%3AFORUM%3ANONE%3AFORUM%3ANONE%3APRIVATEMESSAGES; __utmb=197456312.22.10.1329121686
Content-Type: multipart/form-data; boundary=---------------------------114782935826962
Content-Length: 1683
-----------------------------114782935826962
Content-Disposition: form-data; name="action"
 
sendSave
-----------------------------114782935826962
Content-Disposition: form-data; name="module"
 
pm
-----------------------------114782935826962
Content-Disposition: form-data; name="preview"
 
0
-----------------------------114782935826962
Content-Disposition: form-data; name="bunker"
 
 
-----------------------------114782935826962
Content-Disposition: form-data; name="request_hash"
 
 
-----------------------------114782935826962
Content-Disposition: form-data; name="start"
 
 
-----------------------------114782935826962
Content-Disposition: form-data; name="toUserId"
 
159628
-----------------------------114782935826962
Content-Disposition: form-data; name="subject"
 
yooooooooooooooooooooooo
-----------------------------114782935826962
Content-Disposition: form-data; name="addbbcode24"
 
#444444
-----------------------------114782935826962
Content-Disposition: form-data; name="addbbcode26"
 
12
-----------------------------114782935826962
Content-Disposition: form-data; name="helpbox"
 
Quote: <div> <div class="quote"> <div class="quote_header">   Quote ...   </div> <blockquote class="quote_body"> Text </blockquote> </div> </div>  (alt+q)
-----------------------------114782935826962
Content-Disposition: form-data; name="message"
 
heeeeellllllllllllooooooooooooooooooooooooooooooooooooo
-----------------------------114782935826962
Content-Disposition: form-data; name="disable_html"
 
on
-----------------------------114782935826962
Content-Disposition: form-data; name="attach_sig"
 
on
-----------------------------114782935826962
Content-Disposition: form-data; name="topic_type"
 
0
-----------------------------114782935826962--
 
HTTP/1.1 200 OK
Date: Mon, 13 Feb 2012 08:53:00 GMT
Server: Apache-Coyote/1.1
Content-Type: text/html;charset=UTF-8
Via: 1.1 forum.ea.com
Vary: Accept-Encoding
Content-Encoding: gzip
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Transfer-Encoding: chunked

Edited by daydie: n/a

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.