Breadcrumbs

[CodenStuff]

Hello again,

Been having another play around with the User Data API and came up with another application concept.

This time its a simple block/pixel image maker tool that lets you share your art with everyone else..and see other users art lol

BlockArt.zip

Bit of fun :lol:

[Dummy1912]

where do i find the api from codevoo
because i only registered with the api from codenstuff

because this app ask for username and password
so no idea you meant password i used in codevoo or api

[CodenStuff]

On the website: http://www.codevoo.com/

But you need to register an account using the application just enter a username/password and email address and hit register button.

[Dummy1912]

i got this error when i want to register with email as well :(

[CodenStuff]

Hmm, can you actually get to the site via the url: http://www.codevoo.com/

Your ISP/Router hasn't blocked it as it :?

[Dummy1912]

yes i can open this site
i didn't get any message that it has been blocked
so no


i have tried it again
but :( same error

[CodenStuff]

Open a new project in VB and use this code, all you need is a button. Just test if it allows you to access the site or not from it...it should be working :?

The code won't register you or anything, its just a test.

Code: Select all

    Public PostGetData As New Dictionary(Of String, String)
    Public SiteAPIURL As String

    Public Function PostToSite(ByVal url As String, ByVal values As Dictionary(Of String, String)) As HttpWebResponse
        Dim request As HttpWebRequest = TryCast(WebRequest.Create(url), HttpWebRequest)
        Dim builder As New StringBuilder
        Dim value As KeyValuePair(Of String, String)
        For Each value In values
            builder.AppendFormat("{0}={1}&", value.Key, WebUtility.UrlEncode(value.Value))
        Next
        Dim postBytes As Byte() = Encoding.UTF8.GetBytes(builder.ToString(0, (builder.Length - 1)))
        request.Method = "POST"
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = postBytes.Length
        Using requestStream As Stream = request.GetRequestStream
            requestStream.Write(postBytes, 0, postBytes.Length)
        End Using

        Return TryCast(request.GetResponse, HttpWebResponse)
        PostGetData.Clear()

        'GC.Collect()
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SiteAPIURL = "http://www.codevoo.com/API/" & "UserReg.php"
        PostGetData.Add("username", "blah")
        PostGetData.Add("password", "blah")
        PostGetData.Add("email", "blah")
        PostGetData.Add("reglogin", "register")
        Try
            Dim myResponseStream As IO.Stream = PostToSite(SiteAPIURL, PostGetData).GetResponseStream()
            Using myStreamReader As New IO.StreamReader(myResponseStream)
                Dim result = myStreamReader.ReadToEnd()
                MsgBox("It works!")
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

[Dummy1912]

sorry for late reply
but i got the message: it works!


ps.

but i can't still run this app
same error :?

[Dummy1912]

#CodenStuff

it seems it works on my second computer
as you can see i have added a image in the app
still weird but i will look into it in my other pc why it wont work

sorry :?
and thanks love the app