HE! Ich hab aber was anderes drinnen Stehn gehabt! Und das 0 ist für OK!
Hab jetzt noch mal nach geschaut: Flag ist 4!
Also noch mal die Zeile 30:
MsgBox (4, "Format C", "Wirklich Fortfahren?")
[/autoit]HE! Ich hab aber was anderes drinnen Stehn gehabt! Und das 0 ist für OK!
Hab jetzt noch mal nach geschaut: Flag ist 4!
Also noch mal die Zeile 30:
MsgBox (4, "Format C", "Wirklich Fortfahren?")
[/autoit]#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozenz)
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Die nächste Zeile (inclusive Ideen): Da gehört noch was dazwischen, falls ihrs nicht seht...
[autoit]#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
So, hab die Func mal mit @error gemacht zum beenden. Jetzt kommt die nächste
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Return SetError(1)
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
Ich setze mal fort...
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Return SetError(1)
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
GuiCreate ("Credits", $breite, $hoehe)
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Return SetError(1)
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
GuiCreate ("Credits", $breite, $hoehe)
GUIDelete();Liber TrayTip oder so...
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Return SetError(1)
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
;GuiCreate ("Credits", $breite, $hoehe)
;GUIDelete();Liber TrayTip oder so...
ToolTip("Creditz to:", @DesktopWidth / 2, @DesktopHeight / 2)
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd
Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next
Return SetError(1)
EndFunc
Func _credits () ;wie wärs mit unseren nickNames? Und Thread-Page?
;GuiCreate ("Credits", $breite, $hoehe)
;GUIDelete();Liber TrayTip oder so...
ToolTip("Creditz to:", @DesktopWidth / 2, @DesktopHeight / 2)
EndFunc