Hallo,
ich bin am Rande der Verzweiflung, ich habe ein sehr einfaches Programm geschrieben welches im Grunde genommen nix anderes macht als einen PC herunterzufahren. Es hat 4 Buttons die die Funktionen "Herunterfahren", "Neustarten", "Abmelden" und "Herunterfahren abbrechen" haben. Desweiteren gibt es 3 CheckBoxen die (bei Auswahl) Musik abspielen, Bilder anzeigen und eine Nachricht anzeigen.
Das ganze läuft in Visual Studio (Community Edition) im "Test" auch ohne Probleme und macht genau das was es soll.
Wenn ich aber das Projekt erstelle und versuche dann die .exe zu starten, passiert nichts außer das sich das Explorer Fenster aufhängt bzw. eine Endlos-Lade-Schleife entsteht. Ich habe bereits den Code geprüft und nichts gefunden was so große Probleme machen kann. Des weiteren habe ich die .exe als Admin ausgeführt.
Mein erstellen geht wie folgt:
JA, ich weiß es ist unsauber und nicht Qualitativ gut geschrieben, jedoch als absoluter Anfänger bin ich stolz wie Oskar darauf.
Bitte habt erbarmen mit mir und macht es DAU tauglich...
ich bin am Rande der Verzweiflung, ich habe ein sehr einfaches Programm geschrieben welches im Grunde genommen nix anderes macht als einen PC herunterzufahren. Es hat 4 Buttons die die Funktionen "Herunterfahren", "Neustarten", "Abmelden" und "Herunterfahren abbrechen" haben. Desweiteren gibt es 3 CheckBoxen die (bei Auswahl) Musik abspielen, Bilder anzeigen und eine Nachricht anzeigen.
Das ganze läuft in Visual Studio (Community Edition) im "Test" auch ohne Probleme und macht genau das was es soll.
Wenn ich aber das Projekt erstelle und versuche dann die .exe zu starten, passiert nichts außer das sich das Explorer Fenster aufhängt bzw. eine Endlos-Lade-Schleife entsteht. Ich habe bereits den Code geprüft und nichts gefunden was so große Probleme machen kann. Des weiteren habe ich die .exe als Admin ausgeführt.
Mein erstellen geht wie folgt:
- VisualStudio starten
- Projekt öffnen
- Auf "Erstellen" klicken
- [Projektname]-Erstellen klicken
- Abwarten
- In dem Projektordner (C:\......\bin\Debug\app.publish) die .exe starten
JA, ich weiß es ist unsauber und nicht Qualitativ gut geschrieben, jedoch als absoluter Anfänger bin ich stolz wie Oskar darauf.
Bitte habt erbarmen mit mir und macht es DAU tauglich...
Visual Basic-Quellcode
- Public Class Form1
- Private Sub CheckedListBox2_SelectedIndexChanged(sender As Object, e As EventArgs)
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- 'abmelden
- If CheckBox1.Checked Then
- 'Musik
- My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
- End If
- If CheckBox2.Checked Then
- 'Bilder
- Dim Wert2
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert2
- Case 1
- PictureBox1.Image = My.Resources.DSC_0101
- PictureBox1.Refresh()
- Case 2
- PictureBox1.Image = My.Resources.DSC_0079
- PictureBox1.Refresh()
- Case 3
- PictureBox1.Image = My.Resources.DSC_0067
- PictureBox1.Refresh()
- Case 4
- PictureBox1.Image = My.Resources.DSC_0103
- PictureBox1.Refresh()
- Case Else
- End Select
- End If
- If CheckBox3.Checked Then
- 'Text
- Dim Wert1
- Dim Ausgabe As String
- Ausgabe = 1
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert1
- Case 1
- Ausgabe = "Eigener Text hier"
- Case 2
- Ausgabe = "Eigener Text hier"
- Case 3
- Ausgabe = "Eigener Text hier"
- Case 4
- Ausgabe = "Eigener Text hier"
- Case 5
- Ausgabe = "Eigener Text hier"
- Case 6
- Ausgabe = "Eigener Text hier"
- Case 7
- Ausgabe = "Eigener Text hier"
- Case 8
- Ausgabe = "Eigener Text hier"
- Case 9
- Ausgabe = "Eigener Text hier"
- Case 10
- Ausgabe = "Eigener Text hier"
- Case Else
- MsgBox("Hoppala da ist was schief gegangen...")
- End Select
- Dim whshell As Object
- whshell = CreateObject("Wscript.shell")
- Dim i As Integer = whshell.popup(Ausgabe, 3, "Liebe")
- Debug.Print(i)
- End If
- ProgressBar1.Maximum = 50
- ProgressBar1.Value = 10
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 20
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 30
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 40
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 50
- System.Threading.Thread.Sleep(1000)
- Shell("shutdown -l -t 5")
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- 'herunterfahren
- If CheckBox1.Checked Then
- 'Musik
- My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
- End If
- If CheckBox2.Checked Then
- 'Bilder
- Dim Wert2
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert2
- Case 1
- PictureBox1.Image = My.Resources.DSC_0101
- PictureBox1.Refresh()
- Case 2
- PictureBox1.Image = My.Resources.DSC_0079
- PictureBox1.Refresh()
- Case 3
- PictureBox1.Image = My.Resources.DSC_0067
- PictureBox1.Refresh()
- Case 4
- PictureBox1.Image = My.Resources.DSC_0103
- PictureBox1.Refresh()
- Case Else
- End Select
- End If
- If CheckBox3.Checked Then
- 'Text
- Dim Wert1
- Dim Ausgabe As String
- Ausgabe = 1
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert1
- Case 1
- Ausgabe = "Eigener Text hier"
- Case 2
- Ausgabe = "Eigener Text hier"
- Case 3
- Ausgabe = "Eigener Text hier"
- Case 4
- Ausgabe = "Eigener Text hier"
- Case 5
- Ausgabe = "Eigener Text hier"
- Case 6
- Ausgabe = "Eigener Text hier"
- Case 7
- Ausgabe = "Eigener Text hier"
- Case 8
- Ausgabe = "Eigener Text hier"
- Case 9
- Ausgabe = "Eigener Text hier"
- Case 10
- Ausgabe = "Eigener Text hier"
- Case Else
- MsgBox("Hoppala da ist was schief gegangen...")
- End Select
- Dim whshell As Object
- whshell = CreateObject("Wscript.shell")
- Dim i As Integer = whshell.popup(Ausgabe, 3, "Liebe")
- Debug.Print(i)
- End If
- ProgressBar1.Maximum = 50
- ProgressBar1.Value = 10
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 20
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 30
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 40
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 50
- System.Threading.Thread.Sleep(1000)
- Shell("shutdown -s -t 5")
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- 'neustarten
- If CheckBox1.Checked Then
- 'Musik
- My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
- End If
- If CheckBox2.Checked Then
- 'Bilder
- Dim Wert2
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert2
- Case 1
- PictureBox1.Image = My.Resources.DSC_0101
- PictureBox1.Refresh()
- Case 2
- PictureBox1.Image = My.Resources.DSC_0079
- PictureBox1.Refresh()
- Case 3
- PictureBox1.Image = My.Resources.DSC_0067
- PictureBox1.Refresh()
- Case 4
- PictureBox1.Image = My.Resources.DSC_0103
- PictureBox1.Refresh()
- Case Else
- End Select
- End If
- If CheckBox3.Checked Then
- 'Text
- Dim Wert1
- Dim Ausgabe As String
- Ausgabe = 1
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert1
- Case 1
- Ausgabe = "Eigener Text hier"
- Case 2
- Ausgabe = "Eigener Text hier"
- Case 3
- Ausgabe = "Eigener Text hier"
- Case 4
- Ausgabe = "Eigener Text hier"
- Case 5
- Ausgabe = "Eigener Text hier"
- Case 6
- Ausgabe = "Eigener Text hier"
- Case 7
- Ausgabe = "Eigener Text hier"
- Case 8
- Ausgabe = "Eigener Text hier"
- Case 9
- Ausgabe = "Eigener Text hier"
- Case 10
- Ausgabe = "Eigener Text hier"
- Case Else
- MsgBox("Hoppala da ist was schief gegangen...")
- End Select
- Dim whshell As Object
- whshell = CreateObject("Wscript.shell")
- Dim i As Integer = whshell.popup(Ausgabe, 3, "Liebe")
- Debug.Print(i)
- End If
- ProgressBar1.Maximum = 50
- ProgressBar1.Value = 10
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 20
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 30
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 40
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 50
- System.Threading.Thread.Sleep(1000)
- Shell("shutdown -r -t 5")
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- 'herunterfahren abbrechen
- ProgressBar1.Value = 50
- Shell("shutdown -a")
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- 'tester
- If CheckBox1.Checked Then
- 'Musik
- My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
- End If
- If CheckBox2.Checked Then
- 'Bilder
- Dim Wert2
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert2
- Case 1
- PictureBox1.Image = My.Resources.DSC_0101
- PictureBox1.Refresh()
- Case 2
- PictureBox1.Image = My.Resources.DSC_0079
- PictureBox1.Refresh()
- Case 3
- PictureBox1.Image = My.Resources.DSC_0067
- PictureBox1.Refresh()
- Case 4
- PictureBox1.Image = My.Resources.DSC_0103
- PictureBox1.Refresh()
- Case Else
- End Select
- End If
- If CheckBox3.Checked Then
- 'Text
- Dim Wert1
- Dim Ausgabe As String
- Ausgabe = 1
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert1
- Case 1
- Ausgabe = "Eigener Text hier"
- Case 2
- Ausgabe = "Eigener Text hier"
- Case 3
- Ausgabe = "Eigener Text hier"
- Case 4
- Ausgabe = "Eigener Text hier"
- Case 5
- Ausgabe = "Eigener Text hier"
- Case 6
- Ausgabe = "Eigener Text hier"
- Case 7
- Ausgabe = "Eigener Text hier"
- Case 8
- Ausgabe = "Eigener Text hier"
- Case 9
- Ausgabe = "Eigener Text hier"
- Case 10
- Ausgabe = "Eigener Text hier"
- Case Else
- MsgBox("Hoppala da ist was schief gegangen...")
- End Select
- Dim whshell As Object
- whshell = CreateObject("Wscript.shell")
- Dim i As Integer = whshell.popup(Ausgabe, 3, "Liebe")
- Debug.Print(i)
- End If
- ProgressBar1.Maximum = 50
- ProgressBar1.Value = 10
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 20
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 30
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 40
- System.Threading.Thread.Sleep(1000)
- ProgressBar1.Value = 50
- System.Threading.Thread.Sleep(1000)
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „HappyHippoSnack“ ()