Benutzernamen herausfinden

Page 2 of 2 1 2
04/07/2010 16:52 x]vIrus[x#16
Quote:
Originally Posted by General Desert View Post
Macht es nicht so schwer und nutzt die Registry
ja genau, das ist ja viiiiiel leichter als 1 zeile code ;)
04/07/2010 19:38 Katzenstreu#17
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?
04/07/2010 22:37 cakeflavor#18
Du meinst, wir sollen dir erklären, wie man ein Setup programmiert? Und man da auch automatisch den Pfad zum Desktop eingeben kann..?

EDIT:
Code:
 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?
04/07/2010 23:13 Katzenstreu#19
Quote:
Originally Posted by PsychoWar View Post
Du meinst, wir sollen dir erklären, wie man ein Setup programmiert? Und man da auch automatisch den Pfad zum Desktop eingeben kann..?

EDIT:
Code:
 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
04/15/2010 19:57 Elite-1337#20
vielleicht erzählste mal was nicht geht, z.B. eine Fehlermeldung oder so?
04/15/2010 21:15 Elite-1337#21
ohne den ganzen Thread gelesen zu haben, aktuellen Benutzer ermitteln dürfte so gehen:

Code:
Dim name() As String = My.User.Name.Split("\")
MsgBox(Name(1).ToString)
Page 2 of 2 1 2