Benutzernamen herausfinden

[x]vIrus[x]

Originally Posted by General Desert

Macht es nicht so schwer und nutzt die Registry

ja genau, das ist ja viiiiiel leichter als 1 zeile code

[Katzenstreu]

Ich habe ne Idee: Der Benutzer darf denn Pfad selber bestimmen ^^ xD

Hat einer eine Idee wie man das wie z.B. bei einem Steup machen kann?

[cakeflavor]

Du meinst, wir sollen dir erklären, wie man ein Setup programmiert? Und man da auch automatisch den Pfad zum Desktop eingeben kann..?

EDIT:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text = WebBrowser1.Document.GetElementById("countdown").OuterText
        If Label2.Text = 1 Then
            Timer1.Stop()
            ListBox1.Items.Clear()
            Dim links As HtmlElementCollection
            links = WebBrowser1.Document.GetElementsByTagName("a")
            For Each link As HtmlElement In links
                ListBox1.Items.Add(link.GetAttribute("href"))

            Next
            ListBox1.SelectedIndex = 13
            down.DownloadFileAsync(New Uri(ListBox1.Text), System.Environment.SpecialFolder.Desktop + "\Download.exe")
        End If
    End Sub

So vielleicht?

[Katzenstreu]

Originally Posted by PsychoWar

Du meinst, wir sollen dir erklären, wie man ein Setup programmiert? Und man da auch automatisch den Pfad zum Desktop eingeben kann..?

EDIT:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text = WebBrowser1.Document.GetElementById("countdown").OuterText
        If Label2.Text = 1 Then
            Timer1.Stop()
            ListBox1.Items.Clear()
            Dim links As HtmlElementCollection
            links = WebBrowser1.Document.GetElementsByTagName("a")
            For Each link As HtmlElement In links
                ListBox1.Items.Add(link.GetAttribute("href"))

            Next
            ListBox1.SelectedIndex = 13
            down.DownloadFileAsync(New Uri(ListBox1.Text), System.Environment.SpecialFolder.Desktop + "\Download.exe")
        End If
    End Sub

So vielleicht?

Setup Programmieren? xD Das mein ich nicht

Geht i-wie auch nix -.-

Trotzdem thx

[Elite-1337]

vielleicht erzählste mal was nicht geht, z.B. eine Fehlermeldung oder so?

[Elite-1337]

ohne den ganzen Thread gelesen zu haben, aktuellen Benutzer ermitteln dürfte so gehen:

Dim name() As String = My.User.Name.Split("\")
MsgBox(Name(1).ToString)