Foren Fun AutoIT Script

tobi_girst

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:

[autoit]

MsgBox (4, "Format C", "Wirklich Fortfahren?")

[/autoit]

progandy

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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")

[/autoit]

L3viathan

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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!!

[/autoit]

progandy

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

MatthiasG.

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

L3viathan

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit]

progandy

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit]

L3viathan

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

tobi_girst

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

[/autoit][autoit][/autoit][autoit]

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?

[/autoit]

L3viathan

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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?

[/autoit]

progandy

So, hab die Func mal mit @error gemacht zum beenden. Jetzt kommt die nächste

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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?

[/autoit]

tobi_girst

Ich setze mal fort...

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit]

L3viathan

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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...

[/autoit]

NoNever

[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

[/autoit][autoit][/autoit][autoit]

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)

[/autoit]

L3viathan

Spoiler anzeigen

[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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]