[Snippet] "Real IP"

[mnpeepno2]

i got error

Error	1	Local variable 'resp' cannot be referred to before it is declared.	C:\Users\Owner\Documents\Visual Studio 2008\Projects\IP Banner\IP Banner\Module1.vb	14	39	IP Banner

[Lolland]

Post your code, there's obviously an undeclared variable/function.

[NextGen1]

Post your code, there's obviously an undeclared variable/function.

Yeah , You missed something, You get errors for double posting

[mnpeepno2]

Imports System.Net
Imports System.IO
Module Module1


    Public Function ShowIp() As String

        Dim uri_val As New Uri("https://innovatorsworldwide.com/MPGH/ip/myip.php")
        Dim request As HttpWebRequest = HttpWebRequest.Create(uri_val)

        request.Method = WebRequestMethods.Http.Get


        Dim readr As New StreamReader(resp.GetResponseStream())
        Dim resp As HttpWebResponse = request.GetResponse()
        Dim myip As String = readr.ReadToEnd()

        resp.Close()

        Return myip
    End Function

End Module

same exact code...

[NextGen1]

You didnt declare resp (response)

Edit: NVM You did

[mnpeepno2]

so how i fix?

EDIT: how i become invisible?

[NextGen1]

/offtopic @ invisibility mode

abacabaca (really fast) as your coming in the thread , it's the MK Forum Code

/Ontopic

Did you create a module or add the code to the form (not that it should matter, Depending on placement)

[mnpeepno2]

module......

[NextGen1]

Works for me, just to be sure, add the reference system.net from the add reference menu

[mnpeepno2]

??? 0_0 ???

[NextGen1]

??? 0_0 ???

...... Goto my Local Ip Tutorial, there is screenshots there for adding system.net reference

https://www.mpgh.net/forum/33-visual-...-local-ip.html

(Not that it should matter in this case, but to be safe)

[mnpeepno2]

same error...

[NextGen1]

Oh, One sec, I see why

[mnpeepno2]

maybe team viewer?

[NextGen1]

Nah, I got the reason

"resp" isn't declared until line 2 in your code (from me, my fault)

Code goes top to bottom when it comes to declarations

So it should be

         Dim resp As HttpWebResponse = request.GetResponse()
         Dim readr As New StreamReader(resp.GetResponseStream())
         Dim myip As String = readr.ReadToEnd()