IP Adresse ermittelt. Nun Ausgabe als Textdateiname, wie? ^^

  • VB.NET

    IP Adresse ermittelt. Nun Ausgabe als Textdateiname, wie? ^^

    Hey,

    ich habe mal wieder ein Problemchen. Und zwar schaffe ich derzeit am Fileshare Programm. Nun möchte ich das er seine rausgefundene IP Adresse benutzt um mit der Adresse eine .txt Datei zu erstellen.

    IP Ermitteln habe ich hinbekommen. Nen Streamwriter auch. Aber irgendwie nimmt er meine Ausgabe nicht an und produziert keine Textdatei X(

    Könnt ihr mir helfen? ^^

    Das der Code beim Button.Click Event.

    VB.NET-Quellcode

    1. Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://gtaiv-clan.de/ip.php"), HttpWebRequest) 'in dieser Zeile deine URL angeben
    2. Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
    3. Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
    4. Dim myString As String = reader.ReadToEnd() 'das hier ist dein String
    5. If Not response Is Nothing Then response.Close()
    6. Dim FiStr As FileStream = New FileStream(CurDir() & myString + ".txt", FileMode.Create)
    7. Dim StrWr As StreamWriter = New StreamWriter(FiStr)
    8. Dim j As Integer
    9. Dim lvwItem As ListViewItem
    10. Dim count As Integer = 0
    11. ' Loop through checked items in Listview7 on form 1
    12. For Each j In ListView2.CheckedIndices
    13. ' Clone the item first (make a copy before moving)
    14. lvwItem = CType(ListView2.Items(j - count).Clone(), ListViewItem)
    15. StrWr.WriteLine(lvwItem)
    16. Next
    17. StrWr.Close()
    18. My.Computer.Network.UploadFile(CurDir() & myString + ".txt", "ftp://ftp.bulldozer1930.bu.funpic.de" & myString + ".txt", "#######", "#########")


    Ahja und er soll dann die Textdatei mit der IP-Adresse hochladen :)

    Habe es versucht wie ihr es seht aber vergebens....

    //EDIT: Ok danke an kevin89! Er hats mir gezeigt ;) Hat sich erledigt... :thumbsup:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „DJ_Mic“ ()