In Visual Studio läuft es, als .exe nicht

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von HappyHippoSnack.

    In Visual Studio läuft es, als .exe nicht

    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:
    • VisualStudio starten
    • Projekt öffnen
    • Auf "Erstellen" klicken
    • [Projektname]-Erstellen klicken
    • Abwarten
    • In dem Projektordner (C:\......\bin\Debug\app.publish) die .exe starten
    Hier der Code...

    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

    1. Public Class Form1
    2. Private Sub CheckedListBox2_SelectedIndexChanged(sender As Object, e As EventArgs)
    4. End Sub
    6. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    7. 'abmelden
    9. If CheckBox1.Checked Then
    10. 'Musik
    11. My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
    12. End If
    14. If CheckBox2.Checked Then
    15. 'Bilder
    17. Dim Wert2
    19. Randomize() ' Zufallszahlengenerator initialisieren.
    21. Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    23. Select Case Wert2
    25. Case 1
    26. PictureBox1.Image = My.Resources.DSC_0101
    27. PictureBox1.Refresh()
    29. Case 2
    30. PictureBox1.Image = My.Resources.DSC_0079
    31. PictureBox1.Refresh()
    33. Case 3
    34. PictureBox1.Image = My.Resources.DSC_0067
    35. PictureBox1.Refresh()
    37. Case 4
    38. PictureBox1.Image = My.Resources.DSC_0103
    39. PictureBox1.Refresh()
    41. Case Else
    43. End Select
    47. End If
    50. If CheckBox3.Checked Then
    51. 'Text
    52. Dim Wert1
    53. Dim Ausgabe As String
    54. Ausgabe = 1
    56. Randomize() ' Zufallszahlengenerator initialisieren.
    58. Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    60. Select Case Wert1
    61. Case 1
    62. Ausgabe = "Eigener Text hier"
    64. Case 2
    65. Ausgabe = "Eigener Text hier"
    67. Case 3
    68. Ausgabe = "Eigener Text hier"
    69. Case 4
    70. Ausgabe = "Eigener Text hier"
    71. Case 5
    72. Ausgabe = "Eigener Text hier"
    73. Case 6
    74. Ausgabe = "Eigener Text hier"
    75. Case 7
    76. Ausgabe = "Eigener Text hier"
    77. Case 8
    78. Ausgabe = "Eigener Text hier"
    79. Case 9
    80. Ausgabe = "Eigener Text hier"
    81. Case 10
    82. Ausgabe = "Eigener Text hier"
    83. Case Else
    84. MsgBox("Hoppala da ist was schief gegangen...")
    85. End Select
    87. Dim whshell As Object
    88. whshell = CreateObject("Wscript.shell")
    89. Dim i As Integer = whshell.popup(Ausgabe, 3, "Liebe")
    90. Debug.Print(i)
    93. End If
    94. ProgressBar1.Maximum = 50
    95. ProgressBar1.Value = 10
    96. System.Threading.Thread.Sleep(1000)
    97. ProgressBar1.Value = 20
    98. System.Threading.Thread.Sleep(1000)
    99. ProgressBar1.Value = 30
    100. System.Threading.Thread.Sleep(1000)
    101. ProgressBar1.Value = 40
    102. System.Threading.Thread.Sleep(1000)
    103. ProgressBar1.Value = 50
    104. System.Threading.Thread.Sleep(1000)
    105. Shell("shutdown -l -t 5")
    106. End Sub
    108. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    109. 'herunterfahren
    111. If CheckBox1.Checked Then
    112. 'Musik
    113. My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
    114. End If
    116. If CheckBox2.Checked Then
    117. 'Bilder
    119. Dim Wert2
    121. Randomize() ' Zufallszahlengenerator initialisieren.
    123. Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    125. Select Case Wert2
    127. Case 1
    128. PictureBox1.Image = My.Resources.DSC_0101
    129. PictureBox1.Refresh()
    131. Case 2
    132. PictureBox1.Image = My.Resources.DSC_0079
    133. PictureBox1.Refresh()
    135. Case 3
    136. PictureBox1.Image = My.Resources.DSC_0067
    137. PictureBox1.Refresh()
    139. Case 4
    140. PictureBox1.Image = My.Resources.DSC_0103
    141. PictureBox1.Refresh()
    143. Case Else
    145. End Select
    149. End If
    152. If CheckBox3.Checked Then
    153. 'Text
    154. Dim Wert1
    155. Dim Ausgabe As String
    156. Ausgabe = 1
    158. Randomize() ' Zufallszahlengenerator initialisieren.
    160. Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    162. Select Case Wert1
    163. Case 1
    164. Ausgabe = "Eigener Text hier"
    165. Case 2
    166. Ausgabe = "Eigener Text hier"
    167. Case 3
    168. Ausgabe = "Eigener Text hier"
    169. Case 4
    170. Ausgabe = "Eigener Text hier"
    171. Case 5
    172. Ausgabe = "Eigener Text hier"
    173. Case 6
    174. Ausgabe = "Eigener Text hier"
    175. Case 7
    176. Ausgabe = "Eigener Text hier"
    177. Case 8
    178. Ausgabe = "Eigener Text hier"
    179. Case 9
    180. Ausgabe = "Eigener Text hier"
    181. Case 10
    182. Ausgabe = "Eigener Text hier"
    184. Case Else
    185. MsgBox("Hoppala da ist was schief gegangen...")
    186. End Select
    188. Dim whshell As Object
    189. whshell = CreateObject("Wscript.shell")
    190. Dim i As Integer = whshell.popup(Ausgabe, 3, "Liebe")
    191. Debug.Print(i)
    194. End If
    195. ProgressBar1.Maximum = 50
    196. ProgressBar1.Value = 10
    197. System.Threading.Thread.Sleep(1000)
    198. ProgressBar1.Value = 20
    199. System.Threading.Thread.Sleep(1000)
    200. ProgressBar1.Value = 30
    201. System.Threading.Thread.Sleep(1000)
    202. ProgressBar1.Value = 40
    203. System.Threading.Thread.Sleep(1000)
    204. ProgressBar1.Value = 50
    205. System.Threading.Thread.Sleep(1000)
    206. Shell("shutdown -s -t 5")
    207. End Sub
    209. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    210. 'neustarten
    212. If CheckBox1.Checked Then
    213. 'Musik
    214. My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
    215. End If
    217. If CheckBox2.Checked Then
    218. 'Bilder
    220. Dim Wert2
    222. Randomize() ' Zufallszahlengenerator initialisieren.
    224. Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    226. Select Case Wert2
    228. Case 1
    229. PictureBox1.Image = My.Resources.DSC_0101
    230. PictureBox1.Refresh()
    232. Case 2
    233. PictureBox1.Image = My.Resources.DSC_0079
    234. PictureBox1.Refresh()
    236. Case 3
    237. PictureBox1.Image = My.Resources.DSC_0067
    238. PictureBox1.Refresh()
    240. Case 4
    241. PictureBox1.Image = My.Resources.DSC_0103
    242. PictureBox1.Refresh()
    244. Case Else
    246. End Select
    250. End If
    253. If CheckBox3.Checked Then
    254. 'Text
    255. Dim Wert1
    256. Dim Ausgabe As String
    257. Ausgabe = 1
    259. Randomize() ' Zufallszahlengenerator initialisieren.
    261. Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    263. Select Case Wert1
    264. Case 1
    265. Ausgabe = "Eigener Text hier"
    266. Case 2
    267. Ausgabe = "Eigener Text hier"
    268. Case 3
    269. Ausgabe = "Eigener Text hier"
    270. Case 4
    271. Ausgabe = "Eigener Text hier"
    272. Case 5
    273. Ausgabe = "Eigener Text hier"
    274. Case 6
    275. Ausgabe = "Eigener Text hier"
    276. Case 7
    277. Ausgabe = "Eigener Text hier"
    278. Case 8
    279. Ausgabe = "Eigener Text hier"
    280. Case 9
    281. Ausgabe = "Eigener Text hier"
    282. Case 10
    283. Ausgabe = "Eigener Text hier"
    284. Case Else
    285. MsgBox("Hoppala da ist was schief gegangen...")
    286. End Select
    288. Dim whshell As Object
    289. whshell = CreateObject("Wscript.shell")
    290. Dim i As Integer = whshell.popup(Ausgabe, 3, "Liebe")
    291. Debug.Print(i)
    294. End If
    295. ProgressBar1.Maximum = 50
    296. ProgressBar1.Value = 10
    297. System.Threading.Thread.Sleep(1000)
    298. ProgressBar1.Value = 20
    299. System.Threading.Thread.Sleep(1000)
    300. ProgressBar1.Value = 30
    301. System.Threading.Thread.Sleep(1000)
    302. ProgressBar1.Value = 40
    303. System.Threading.Thread.Sleep(1000)
    304. ProgressBar1.Value = 50
    305. System.Threading.Thread.Sleep(1000)
    307. Shell("shutdown -r -t 5")
    308. End Sub
    310. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    311. 'herunterfahren abbrechen
    312. ProgressBar1.Value = 50
    313. Shell("shutdown -a")
    314. End Sub
    316. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    317. 'tester
    319. If CheckBox1.Checked Then
    320. 'Musik
    321. My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
    322. End If
    324. If CheckBox2.Checked Then
    325. 'Bilder
    327. Dim Wert2
    329. Randomize() ' Zufallszahlengenerator initialisieren.
    331. Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    333. Select Case Wert2
    335. Case 1
    336. PictureBox1.Image = My.Resources.DSC_0101
    337. PictureBox1.Refresh()
    339. Case 2
    340. PictureBox1.Image = My.Resources.DSC_0079
    341. PictureBox1.Refresh()
    343. Case 3
    344. PictureBox1.Image = My.Resources.DSC_0067
    345. PictureBox1.Refresh()
    347. Case 4
    348. PictureBox1.Image = My.Resources.DSC_0103
    349. PictureBox1.Refresh()
    351. Case Else
    353. End Select
    357. End If
    360. If CheckBox3.Checked Then
    361. 'Text
    362. Dim Wert1
    363. Dim Ausgabe As String
    364. Ausgabe = 1
    366. Randomize() ' Zufallszahlengenerator initialisieren.
    368. Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    370. Select Case Wert1
    371. Case 1
    372. Ausgabe = "Eigener Text hier"
    373. Case 2
    374. Ausgabe = "Eigener Text hier"
    375. Case 3
    376. Ausgabe = "Eigener Text hier"
    377. Case 4
    378. Ausgabe = "Eigener Text hier"
    379. Case 5
    380. Ausgabe = "Eigener Text hier"
    381. Case 6
    382. Ausgabe = "Eigener Text hier"
    383. Case 7
    384. Ausgabe = "Eigener Text hier"
    385. Case 8
    386. Ausgabe = "Eigener Text hier"
    387. Case 9
    388. Ausgabe = "Eigener Text hier"
    389. Case 10
    390. Ausgabe = "Eigener Text hier"
    391. Case Else
    392. MsgBox("Hoppala da ist was schief gegangen...")
    393. End Select
    395. Dim whshell As Object
    396. whshell = CreateObject("Wscript.shell")
    397. Dim i As Integer = whshell.popup(Ausgabe, 3, "Liebe")
    398. Debug.Print(i)
    401. End If
    402. ProgressBar1.Maximum = 50
    403. ProgressBar1.Value = 10
    404. System.Threading.Thread.Sleep(1000)
    405. ProgressBar1.Value = 20
    406. System.Threading.Thread.Sleep(1000)
    407. ProgressBar1.Value = 30
    408. System.Threading.Thread.Sleep(1000)
    409. ProgressBar1.Value = 40
    410. System.Threading.Thread.Sleep(1000)
    411. ProgressBar1.Value = 50
    412. System.Threading.Thread.Sleep(1000)
    415. End Sub
    416. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „HappyHippoSnack“ ()

    Willkommen im Forum. :thumbup:

    HappyHippoSnack schrieb:

    und versuche dann die .exe zu starten
    In welchem Verzeichnis?

    HappyHippoSnack schrieb:

    VB.NET-Quellcode

    1. System.Threading.Thread.Sleep(1000)
    Ersetze diese Zeilen durch NAME_DES_BETREFFENDEN_CONTROLS.Update().
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @HappyHippoSnack,

    auch von mir willkommen im Forum !

    Wenn das dein ganzer Code ist muss, dein Programm zumindest starten.
    Jeder Codeteil ist ja mit einem Button verknüpft.

    Bleibt die exe wirklich beim Start hängen ?
    Oder drückst du vorher einen der Button ?

    Gruss

    mikeb69

    Hallo, ich starte die exe direkt in dem Verzeichnis, habe sie auch schon alternativ auf den Desktop kopiert...

    Wenn ich die exe anklicke, passiert nichts. Er zeigt endloss lange ein "lade-Mauszeiger" und das war es. Der Mauszeiger lädt nur wenn man über das Explorer fenster in dem der Ordner bzw. der Desktop offen ist.

    @RodFromGermany Bitte hass mich nicht, aber was soll ich da reinschreiben? und fehlt dann nicht eine Zeitangabe für das warten?

    Ich seh jetzt auf Anhieb nicht warum es nicht starten sollte. Ich kann ja mal morgen drüber guggn.
    Hast du Skype? Dann kann ich dir noch paar weitere Tipps geben.

    Lösch mal den ganzen debug und release ordner und lass ihn neu erstellen. (einfach app von VS aus starten)

    Alternativ stell mal dein AntiVir aus beim kompilieren und starten.

    Gruß

    HappyHippoSnack schrieb:

    eine Zeitangabe für das warten
    machst Du mit nem Timer.
    Sleep() lässt die GUI einfrieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende