Beiträge von Jam00

Jam00

@ideas2code
Sie ist ja schon gelöscht, da steht jetzt einfahc nurnoch "Freier Speicherplatz"

Kev
habe doch geschrieben das ich es darüber schon probiert habe

Greenhorn
Also mit dem normalen Formatierungs-Programm was bei Ubuntu dabei hat es nicht Funktioniert, ich kann es ja mal mit den Programmen probieren

Jam00

Moin,
Ich habe ein Problem mit meiner Festplatte, es handelt sich um eine 300 GB Festplatte in meinem PC. Von dieser Festplatte habe ich ca. 80 gb für C: Formatiert und 180 gb für D:, wie ihr vllt. schon merkt Fehlen da noch 40 GB. Ich hatte mir mal 40 GB von meiner Festplatte für Ubuntu Formatiert, um da da drauf zu Installieren. Nun kann ich mit diesen 40 GB Festplatte aber nichts mehr anstellen, denn ich kann sie weder mit Ubuntu noch mit Windows Formatieren. DIe 40 GB sind auch keinem Laufwerksbuchstaben zugewiesen. Wenn ich es mit Windows formatieren möchte, beim PC-Neuinstallieren kommt einfach der Fehler "Formatierung fehlgeschlagen" wenn ich es über die Computeverwaltung von Win7 mache komtm eine ganz komischer Fehler:"Auf mindestens einem Datenträger steht nicht genügend Speicherplatz zur Verfügung, um den Vorgang fertig stellen zu können."
Aber auf C: habe ich noch über 9 GB frei und auf D: 17 GB

Hab ihr irgendeine Idee wie ich meine 40 GB wieder Nutzen kann denn ich breuchte den Speicherplatz dringen

Jam00

hast du mal den c-code probiert? was da so ruaskommt, ob das das rauskommst was su willst oder auch das was bei AutoIt raus kommt

Jam00

Zeig doch mal die Gui die du bisher hast

Jam00

Also ich bekomme so genau das gleiche raus
Naja ich habe noch keine Lösung da ich noch nicht ganz weiß wo das Problem ist, was müsste den Herrauskommen?

Jam00

Oder so mit meinem, ich glaub das ist ein bischen eleganter und du brauchst die time.au3 nicht mehr

Spoiler anzeigen

[autoit]

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=clock.ico
#AutoIt3Wrapper_Outfile=EXE\Shutdown.exe
#AutoIt3Wrapper_Res_Description=Ein Programm mit dem das Zeitliche Herunterfahren ein Kinderspiel wird.
#AutoIt3Wrapper_Res_Fileversion=0.1.6.1509
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIComboBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <String.au3>
#include <GUIConstants.au3>
#include <Date.au3>
Opt("TrayMenuMode", 1)

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

Global $Cfg
Global $Shutdown
Global $Shtd
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Shutdown", 217, 199, -1, -1)
$Button1 = GUICtrlCreateButton("Letzte Einstellungen starten", 16, 72, 185, 33, $WS_GROUP)
GUICtrlSetTip(-1, "Startet einen Shutdown mit den zuletzt gespeicherten Daten.")
$Button2 = GUICtrlCreateButton("Einstellungen", 16, 112, 185, 33, $WS_GROUP)
GUICtrlSetTip(-1, "Einstellungen um einen Benutzerdefinierten Shutdown zu generieren.")
$Button3 = GUICtrlCreateButton("Laufenden Shutdown abbrechen", 16, 152, 185, 33, $WS_GROUP)
GUICtrlSetTip(-1, "Ein laufender Shutdown wird abgebrochen. Benötigt möglicherweise ein Passwort.")
$Label1 = GUICtrlCreateLabel("Bitte die auszuführende", 8, 8, 201, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
$Label2 = GUICtrlCreateLabel("Aktion wählen.", 40, 40, 130, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Times New Roman")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button2
GUIDelete($Form1)
_Einst()
Case $Button1
GUIDelete($Form1)
_Start()
Case $Button3
_Abbrechen()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _Abbrechen()
If WinExists("1 Click Shutdown") Then
ProcessClose("Shutdown.exe")
Else
MsgBox(48, "1-Click Shutdown", "Es läuft kein Shutdown.")
EndIf
EndFunc ;==>_Abbrechen
Func _Einst()
If FileExists("shutdown.cfg") Then
_FileReadToArray("shutdown.cfg", $Cfg)
$Shtd = 1
EndIf
#Region ### START Koda GUI section ### Form=E:\Dokumente und Einstellungen\Sven.CHANGEME\Desktop\AutoIt\Programme\Shutdown\Main.kxf
$Form1 = GUICreate("1-Click Shutdown - Einstellungen", 330, 197, -1, -1)
GUISetIcon("E:\Dokumente und Einstellungen\Sven.CHANGEME\Desktop\AutoIt\Icons\Icon_28.ico")
$Group1 = GUICtrlCreateGroup("Shutdownart", 8, 0, 145, 65)
GUICtrlSetTip(-1, "")
$Combo1 = GUICtrlCreateCombo("Herunterfahren", 16, 16, 129, 25)
GUICtrlSetTip(-1, "Art des Shutdowns")
GUICtrlSetData(-1, "Neustarten|Abmelden|Standby|Ruhezustand")
$Checkbox1 = GUICtrlCreateCheckbox("Force Shut", 16, 40, 97, 17)
GUICtrlSetTip(-1, "Erzwingt das schliessen aller Programme")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Zeit", 8, 64, 145, 73)
$Combo2 = GUICtrlCreateCombo("Eigene Zeit (Min)", 16, 80, 129, 25)
GUICtrlSetTip(-1, "Zeit bis zum Shutdown")
GUICtrlSetData(-1, "15 Minuten|30 Minuten|45 Minuten|1 Stunde|2 Stunden|3 Stunden|5 Stunden")
$Edit1 = GUICtrlCreateEdit("", 16, 112, 129, 17, BitOR($ES_RIGHT, $ES_WANTRETURN, $ES_NUMBER))
GUICtrlSetTip(-1, "Zeit in Minuten")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Meldung", 160, 0, 161, 81)
$Edit2 = GUICtrlCreateEdit("", 168, 16, 145, 57, $ES_WANTRETURN)
GUICtrlSetTip(-1, "Meldung im Shutdownfenster")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Einstellungen speichern", 8, 144, 129, 25, $WS_GROUP)
GUICtrlSetTip(-1, "Speichert die aktuellen Einstellungen")
$Button2 = GUICtrlCreateButton("Shutdown starten", 144, 144, 129, 25, $WS_GROUP)
GUICtrlSetTip(-1, "Startet den Shutdown mit den aktuellen Einstellungen")
$Button3 = GUICtrlCreateButton("Exit", 280, 144, 41, 25, $WS_GROUP)
GUICtrlSetTip(-1, "Schliesst das Programm")
$Button4 = GUICtrlCreateButton("Shutdown abbrechen", 8, 169, 313, 25, $WS_GROUP)
GUICtrlSetTip(-1, "Bricht einen laufenden Shutdown ab.")
$Group4 = GUICtrlCreateGroup("Passwort zum Abbrechen", 160, 96, 161, 41)
$Edit3 = GUICtrlCreateEdit("", 168, 112, 145, 17, $ES_WANTRETURN)
GUICtrlSetTip(-1, "Passwort. Noch nicht Implementiert")
GUICtrlCreateGroup("", -99, -99, 1, 1)
If $Shtd = 1 Then
$Inx = _GUICtrlComboBox_FindString($Combo1, _StringEncrypt(0, $Cfg[1], "Safe", 4))
_GUICtrlComboBox_SetCurSel($Combo1, $Inx)
If Not StringInStr(_StringEncrypt(0, $Cfg[2], "Safe", 4), "Own") Then
$Inx = _GUICtrlComboBox_FindString($Combo2, _StringEncrypt(0, $Cfg[2], "Safe", 4))
_GUICtrlComboBox_SetCurSel($Combo2, $Inx)
Else
$sCfg2 = StringSplit(_StringEncrypt(0, $Cfg[2], "Safe", 4), "|")
GUICtrlSetData($Edit1, $sCfg2[2])
EndIf
If $Cfg[0] > 2 Then
GUICtrlSetData($Edit3, _StringEncrypt(0, $Cfg[3], "Safe", 4))
EndIf
If $Cfg[0] > 3 Then
GUICtrlSetData($Edit2, _StringEncrypt(0, $Cfg[4], "Safe", 4))
EndIf
If _StringEncrypt(0, $Cfg[5], "Safe", 4) = "Force" Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
EndIf
EndIf
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$Zeit = GUICtrlRead($Combo2)
If $Zeit <> "Eigene Zeit (Min)" Then
If GUICtrlGetState($Edit1) = 80 Then
GUICtrlSetState($Edit1, $GUI_DISABLE)
EndIf
Else
If GUICtrlGetState($Edit1) = 144 Then
GUICtrlSetState($Edit1, $GUI_ENABLE)
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$SArt = ""
$Time = ""
$Msg = ""
$PW = ""
$Force = ""
$SArt = GUICtrlRead($Combo1)
$Time = GUICtrlRead($Combo2)
If $Time = "Eigene Zeit (Min)" Then
$Time = "Own|" & GUICtrlRead($Edit1)
EndIf
If Not StringIsSpace(GUICtrlRead($Edit2)) Then
$Msg = GUICtrlRead($Edit2)
EndIf
If Not StringIsSpace(GUICtrlRead($Edit3)) Then
$PW = GUICtrlRead($Edit3)
EndIf
If GUICtrlRead($Checkbox1) = 1 Then
$Force = "Force"
EndIf
If FileExists("shutdown.cfg") Then
FileDelete("shutdown.cfg")
EndIf
FileWriteLine("shutdown.cfg", _StringEncrypt(1, $SArt, "Safe", 4))
FileWriteLine("shutdown.cfg", _StringEncrypt(1, $Time, "Safe", 4))
FileWriteLine("shutdown.cfg", _StringEncrypt(1, $PW, "Safe", 4))
FileWriteLine("shutdown.cfg", _StringEncrypt(1, $Msg, "Safe", 4))
FileWriteLine("shutdown.cfg", _StringEncrypt(1, $Force, "Safe", 4))
Case $Button2
ToolTip("")
$SArt = ""
$Time = ""
$Msg = ""
$PW = ""
$SArt = GUICtrlRead($Combo1)
$Time = GUICtrlRead($Combo2)
If $Time = "Eigene Zeit (Min)" Then
$Time = GUICtrlRead($Edit1)
ElseIf $Time = "15 Minuten" Then
$Time = 15
ElseIf $Time = "30 Minuten" Then
$Time = 30
ElseIf $Time = "45 Minuten" Then
$Time = 45
ElseIf $Time = "1 Stunde" Then
$Time = 60
ElseIf $Time = "2 Stunden" Then
$Time = 120
ElseIf $Time = "3 Stunden" Then
$Time = 180
ElseIf $Time = "5 Stunden" Then
$Time = 300
EndIf
If Not StringIsSpace(GUICtrlRead($Edit2)) Then
$Msg = GUICtrlRead($Edit2)
EndIf
If Not StringIsSpace(GUICtrlRead($Edit3)) Then
$PW = GUICtrlRead($Edit3)
EndIf
GUIDelete($Form1)
#Region ### START Koda GUI section ### Form=E:\Dokumente und Einstellungen\Sven.CHANGEME\Desktop\AutoIt\Programme\Shutdown\Shtd.kxf
$Form2 = GUICreate("1 Click Shutdown", 170, 158, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
GUISetIcon("E:\Dokumente und Einstellungen\Sven.CHANGEME\Desktop\AutoIt\Icons\Icon_28.ico")
$Label1 = GUICtrlCreateLabel("1-Click Shutdown", 8, 8, 87, 17)
$Label2 = GUICtrlCreateLabel($SArt, 16, 32, 91, 17)
$Label3 = GUICtrlCreateLabel("Noch: ZEIT", 104, 32, 60, 34)
$Label5 = GUICtrlCreateLabel("Startet um: ZEITZEITZEITZEIT", 29, 145)
WinSetOnTop("1 Click Shutdown", "", 1)
If $Msg <> "" Then
$Group1 = GUICtrlCreateGroup("Meldung", 8, 56, 153, 89)
$Label4 = GUICtrlCreateLabel($Msg, 16, 72, 137, 64)
EndIf
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Start = _SecToTime($Time, 1)
GUICtrlSetData($Label5, "Startet um: " & $Start)
$Secs = $Time * 60
For $i = $Secs To 0 Step -1
$Noch = _SecToTime($i, 1)
GUICtrlSetData($Label3, "Noch: " & @CRLF & $Noch)
Sleep(1000)
Next
If $Cfg[5] = "Force" Then
If $SArt = "Herunterfahren" Then
Shutdown(5)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Neustarten" Then
Shutdown(6)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Abmelden" Then
Shutdown(4)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Standby" Then
Shutdown(36)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Ruhezustand" Then
Shutdown(68)
FileWrite("Sucess.txt", $SArt)
EndIf
Else
If $SArt = "Herunterfahren" Then
Shutdown(1)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Neustarten" Then
Shutdown(2)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Abmelden" Then
Shutdown(0)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Standby" Then
Shutdown(32)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Ruhezustand" Then
Shutdown(64)
FileWrite("Sucess.txt", $SArt)
EndIf
EndIf
Case $Button3
Exit
Case $Button4
If WinExists("1 Click Shutdown") Then
ProcessClose("Shutdown.exe")
Else
MsgBox(48, "1-Click Shutdown", "Es läuft kein Shutdown.")
EndIf
EndSwitch
WEnd
EndFunc ;==>_Einst
Func _Start()
If FileExists("shutdown.cfg") Then
_FileReadToArray("shutdown.cfg", $Cfg)
$SArt = _StringEncrypt(0, $Cfg[1], "Safe", 4)
#Region ### START Koda GUI section ### Form=E:\Dokumente und Einstellungen\Sven.CHANGEME\Desktop\AutoIt\Programme\Shutdown\Shtd.kxf
$Form2 = GUICreate("1 Click Shutdown", 170, 158, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
GUISetIcon("E:\Dokumente und Einstellungen\Sven.CHANGEME\Desktop\AutoIt\Icons\Icon_28.ico")
$Label1 = GUICtrlCreateLabel("1-Click Shutdown", 8, 8, 87, 17)
$Label2 = GUICtrlCreateLabel($SArt, 16, 32, 91, 17)
$Label3 = GUICtrlCreateLabel("Noch: ZEIT", 104, 32, 60, 34)
WinSetOnTop("1 Click Shutdown", "", 1)
If _StringEncrypt(0, $Cfg[4], "Safe", 4) <> "" Then
$Group1 = GUICtrlCreateGroup("Meldung", 8, 56, 153, 89)
$Label4 = GUICtrlCreateLabel(_StringEncrypt(0, $Cfg[4], "Safe", 4), 16, 72, 137, 64)
EndIf
$Label5 = GUICtrlCreateLabel("Startet um: ZEITZEITZEITZEIT", 29, 145)

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

If StringInStr(_StringEncrypt(0, $Cfg[2], "Safe", 4), "Own") Then
$sCfg2 = StringSplit(_StringEncrypt(0, $Cfg[2], "Safe", 4), "|")
$Time = $sCfg2[2]
ElseIf _StringEncrypt(0, $Cfg[2], "Safe", 4) = "15 Minuten" Then
$Time = 15
ElseIf _StringEncrypt(0, $Cfg[2], "Safe", 4) = "30 Minuten" Then
$Time = 30
ElseIf _StringEncrypt(0, $Cfg[2], "Safe", 4) = "45 Minuten" Then
$Time = 45
ElseIf _StringEncrypt(0, $Cfg[2], "Safe", 4) = "1 Stunde" Then
$Time = 60
ElseIf _StringEncrypt(0, $Cfg[2], "Safe", 4) = "2 Stunden" Then
$Time = 120
ElseIf _StringEncrypt(0, $Cfg[2], "Safe", 4) = "3 Stunden" Then
$Time = 180
ElseIf _StringEncrypt(0, $Cfg[2], "Safe", 4) = "5 Stunden" Then
$Time = 300
EndIf
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Start1 = _SecToTime($Time, 1)
$Start2 = StringSplit($Start1, ":")
If $Start2[2] + @MIN < 60 Then
$Minut = $Start2[2] + @MIN
$Stund = $Start2[1] + @HOUR
Else
$Minut = $Start2[2] + @MIN - 60
$Stund = $Start2[1] + @HOUR + 1
EndIf
$Sekund = $Start2[3] + @SEC
$Start = $Stund & ":" & $Minut & ":" & $Sekund
GUICtrlSetData($Label5, "Startet um: " & $Start)
$Secs = $Time * 60
For $i = $Secs To 0 Step -1
$Noch = _SecToTime($i, 1)
GUICtrlSetData($Label3, "Noch: " & $Noch)
Sleep(1000)
Next
If _StringEncrypt(0, $Cfg[5], "Safe", 4) = "Force" Then
If $SArt = "Herunterfahren" Then
Shutdown(5)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Neustarten" Then
Shutdown(6)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Abmelden" Then
Shutdown(4)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Standby" Then
Shutdown(36)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Ruhezustand" Then
Shutdown(68)
FileWrite("Sucess.txt", $SArt)
EndIf
Else
If $SArt = "Herunterfahren" Then
Shutdown(1)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Neustarten" Then
Shutdown(2)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Abmelden" Then
Shutdown(0)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Standby" Then
Shutdown(32)
FileWrite("Sucess.txt", $SArt)
ElseIf $SArt = "Ruhezustand" Then
Shutdown(64)
FileWrite("Sucess.txt", $SArt)
EndIf
EndIf
Else
MsgBox(48, "Shutdown", "Die Config-Datei konnte nicht gefundn werden. Entweder benutzt du 1-Click Shutdown zum ersten mal oder du hast die Datei versehentlich gelöscht. Bitte benutze die Einstellungen, damit das Programm deinen Wünschen entsprechen kann.")
_Einst()
EndIf
EndFunc ;==>_Start
Func _SecToTime($Sec, $Flag = 0)
;By Hendrik Norkowski (Jam00)
;Rückgabewert: $Array[Sekunden][Minuten][Stunden][Tage]
Local $Rechner, $1, $Rest
Local $Zeit[4] = [0, 0, 0, 0]
$Zeit[0] = $Sec
For $1 = 0 To 2
If $1 < 2 Then
$Rechner = 60
Else
$Rechner = 24
EndIf
If $Zeit[$1] > $Rechner - 1 Then
$Rest = Mod($Zeit[$1], $Rechner)
$Zeit[$1 + 1] = ($Zeit[$1] - $Rest) / $Rechner
$Zeit[$1] = $Rest
EndIf
Next
If $Flag = 1 Then
Local $sZeit, $State = 0
For $1 = 3 To 0 Step -1
If $Zeit[$1] > 0 Then
$State = 1
$sZeit &= $Zeit[$1] & ":"
ElseIf $State = 1 Then
$sZeit &= $Zeit[$1] & ":"
EndIf
Next
Return StringTrimRight($sZeit, 1)
EndIf
Return $Zeit
EndFunc ;==>_SecToTime

[/autoit]

Jam00

Oh ja stimmt hab ich garnicht dran gedacht

Jam00

ja da ist die time.au3 drinne, aber wir haben die time.au3 nicht, wir brauchen sie!! Wir meinten du solltest du datei Time.au3 als Dateianhang an deinen Post anhängen

EDIT: AutoBert war schneller^^

Jam00

Spoiler anzeigen

[autoit]

HotKeySet ("0", "_kombi0")
HotKeySet ("1", "_kombi1")
HotKeySet ("2", "_kombi2")
HotKeySet ("3", "_kombi3")
HotKeySet ("4", "_kombi4")
HotKeySet ("5", "_kombi5")
HotKeySet ("6", "_kombi6")
HotKeySet ("7", "_kombi7")
HotKeySet ("8", "_kombi8")
HotKeySet ("9", "_kombi9")

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

HotKeySet ("^0", "_kombi10")
HotKeySet ("^1", "_kombi11")
HotKeySet ("^2", "_kombi12")
HotKeySet ("^3", "_kombi13")
HotKeySet ("^4", "_kombi14")
HotKeySet ("^5", "_kombi15")
HotKeySet ("^6", "_kombi16")
HotKeySet ("^7", "_kombi17")
HotKeySet ("^8", "_kombi18")
HotKeySet ("^9", "_kombi19")

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

HotKeySet ("!0", "_kombi20")
HotKeySet ("!1", "_kombi21")
HotKeySet ("!2", "_kombi22")
HotKeySet ("!3", "_kombi23")
HotKeySet ("!4", "_kombi24")
HotKeySet ("!5", "_kombi25")
HotKeySet ("!6", "_kombi26")
HotKeySet ("!7", "_kombi27")
HotKeySet ("!8", "_kombi28")
HotKeySet ("!9", "_kombi29")

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

HotKeySet ("^!0", "_kombi30")
HotKeySet ("^!1", "_kombi31")
HotKeySet ("^!2", "_kombi32")
HotKeySet ("^!3", "_kombi33")
HotKeySet ("^!4", "_kombi34")
HotKeySet ("^!5", "_kombi35")
HotKeySet ("^!6", "_kombi36")
HotKeySet ("^!7", "_kombi37")
HotKeySet ("^!8", "_kombi38")
HotKeySet ("^!9", "_kombi39")

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

Func _kombi0()
send ("a")
endfunc
Func _kombi1()
send ("")
endfunc
Func _kombi2()
send ("")
endfunc
Func _kombi3()
send ("")
endfunc
Func _kombi4()
send ("")
endfunc
Func _kombi5()
send ("")
endfunc
Func _kombi6()
send ("")
endfunc
Func _kombi7()
send ("")
endfunc
Func _kombi8()
send ("")
endfunc
Func _kombi9()
send ("")
endfunc
Func _kombi10()
send ("Hallo")
endfunc
Func _kombi11()
send ("")
endfunc
Func _kombi12()
send ("")
endfunc
Func _kombi13()
send ("")
endfunc
Func _kombi14()
send ("")
endfunc
Func _kombi15()
send ("")
endfunc
Func _kombi16()
send ("")
endfunc
Func _kombi17()
send ("")
endfunc
Func _kombi18()
send ("")
endfunc
Func _kombi19()
send ("")
endfunc
Func _kombi20()
send ("20")
endfunc
Func _kombi21()
send ("")
endfunc
Func _kombi22()
send ("")
endfunc
Func _kombi23()
send ("")
endfunc
Func _kombi24()
send ("")
endfunc
Func _kombi25()
send ("")
endfunc
Func _kombi26()
send ("")
endfunc
Func _kombi27()
send ("")
endfunc
Func _kombi28()
send ("")
endfunc
Func _kombi29()
send ("")
endfunc
Func _kombi30()
send ("30")
endfunc
Func _kombi31()
send ("")
endfunc
Func _kombi32()
send ("")
endfunc
Func _kombi33()
send ("")
endfunc
Func _kombi34()
send ("")
endfunc
Func _kombi35()
send ("")
endfunc
Func _kombi36()
send ("")
endfunc
Func _kombi37()
send ("")
endfunc
Func _kombi38()
send ("")
endfunc
Func _kombi39()
send ("")
endfunc

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

While 1
sleep (1000)
WEnd

[/autoit]

Nein das stimmt nicht, sleep beeinfluss HotKeys nicht, die gehen immer, probier mal so mein script ich habe es mal so Probier und es geht

Jam00

Hmm komisch, ich habe die dll in den Script-Ordner getan und auch den Pfad nochmal geändert, aber es geht nicht immer den Fehler

Spoiler anzeigen

Code

$rslt2IOW = DllCall($dllIOW, "dword", "IowKitGetProductId", "ptr", $ptrIOW[0])
$rslt2IOW = DllCall($dllIOW, "dword", "IowKitGetProductId", "ptr", $ptrIOW^ ERROR
->20:43:47 AutoIT3.exe ended.rc:1

Jam00

Also bei mir nichts, bricht zusammen

Jam00

Hast du mal ausprobier ob die exe bei dir geht

Jam00

Nein bei Sleep gibts eine Zeit in ms an und solnage wartet er, wenn du auf enter warten willst musst du Fabians lösung nehmen nur auch da noch eine Schleife einbauen

Jam00

ok tut mir leid, ich wollte nur Klar machen das man das Problem das es beim Compiler nicht geht nicht löschen kann wenn es auch in SciTE nicht geht

Ich habe das Script jetzt einfach mal so Compiler:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <GuiStatusBar.au3>

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

Enum $MGUI, $hMGUI, $hMGUISB, $MGUIanz
Global $aMGUI[$MGUIanz],$bTest = True

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

Opt("GUIOnEventMode",1)
$aMGUI[$MGUI] = GUICreate("Test",200,200)
$aMGUI[$hMGUI] = WinGetHandle($aMGUI[$MGUI])
Local $aParts[3] = [150, -1]
$aMGUI[$hMGUISB] = _GUICtrlStatusBar_Create($aMGUI[$hMGUI])
_GUICtrlStatusBar_SetParts($aMGUI[$hMGUISB], $aParts)
_GUICtrlStatusBar_SetText($aMGUI[$hMGUISB], "Bereit...", 0 )
GUISetOnEvent(-3,"_exit")
GUISetState()

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

AdlibRegister("Chance",2000)

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

While 1
If $bTest Then
If _GUICtrlStatusBar_GetText($aMGUI[$hMGUISB],0) <> "Warte..." Then _GUICtrlStatusBar_SetText($aMGUI[$hMGUISB], "Warte...", 0 )
Else
If _GUICtrlStatusBar_GetText($aMGUI[$hMGUISB],0) <> "Bereit..." Then _GUICtrlStatusBar_SetText($aMGUI[$hMGUISB], "Bereit...", 0 )
EndIf
Sleep(100)
WEnd

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

Func Chance()
Local $aText[10] = ["Test","loooooool","huhuhuuhuh","12345","nixxxx","hmmmm","naaaaaja","blaaaaaa","bkuuub","soooo"]
_GUICtrlStatusBar_SetText($aMGUI[$hMGUISB], $aText[Random(0,UBound($aText)-1,1)], 0 )
Sleep(1000)
;~ $bTest = Random(0,1,1)
EndFunc

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

Func _exit()
Exit
EndFunc

[/autoit]

Erst kammen als Fehler doch jetz geht es, Compilert und in SciTE ausgeführt, ich hänge die exe mal an
Da man exen nicht anhängen darf habe ich einfach mal die Dateiendung geändert, müsst es nur wieder in .exe umbennen

Jam00

Also ich glaube das größe Problem ist das es überhaubt icht Funktioniert

Jam00

Du bekommst eine Fehlermedung weil dir die DLL fehlt und mir auch, könntest du die mal Posten?

Jam00

Warum so kompliziert? Warum nicht einfach mit Sleep?

Spoiler anzeigen

[autoit]

Opt("WinTitleMatchMode", 2)

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

Global $sTime = 2000 ;Zeit in Millisekunden -> 2 Sekunden

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

WinActivate("Microsoft Excel - Adressen-Datenbank-SHOP.xls")
WinWait("Microsoft Excel","Adressen-Datenbank-SHOP.xls",10)
; wartet auf das EXCEL-Fenster
; Wechselt zu EXCEL (was nicht unbedingt im Hintergrund liegen muss)
Send("!b")
; öffnet das "Bearbeiten" Fenster
Send("s")
Send("{TAB 4}")
;schließt das "Bearbeiten" Fenster (falls da schon was drin steht...)
Send("{ENTER}")
Send("!b")
; öffnet erneut das "Bearbeiten" Fenster (Eingabe ist nun markiert)
Send("s")
; Befehl: Suchen...

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

Sleep ($sTime)

[/autoit]

Wenn das aber das Komplette Script sit musst du natürlich auch noch eine Schleife einbauen damit es sich immer wieder wiederholt

Spoiler anzeigen

[autoit]

While 1
Opt("WinTitleMatchMode", 2)

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

Global $sTime = 2000 ;Zeit in Millisekunden -> 2 Sekunden

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

WinActivate("Microsoft Excel - Adressen-Datenbank-SHOP.xls")
WinWait("Microsoft Excel","Adressen-Datenbank-SHOP.xls",10)
; wartet auf das EXCEL-Fenster
; Wechselt zu EXCEL (was nicht unbedingt im Hintergrund liegen muss)
Send("!b")
; öffnet das "Bearbeiten" Fenster
Send("s")
Send("{TAB 4}")
;schließt das "Bearbeiten" Fenster (falls da schon was drin steht...)
Send("{ENTER}")
Send("!b")
; öffnet erneut das "Bearbeiten" Fenster (Eingabe ist nun markiert)
Send("s")
; Befehl: Suchen...

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

Sleep ($sTime)
WEnd

[/autoit]

Jam00

Könntest du vllt. auch mal Zeigen was in der Ini steht damit man ausprobieren kann was man gescriptet hat?

Edit:
Vllt. hat sich der Fehler doch geändert, guck mal ob er sich noch auf die gleiche Variable bezieht

So dürfte eigentlich kein Fehler mehr kommen, wenn doch musst du mal alles Posten, denn so kann man nicht viel machen

Spoiler anzeigen

[autoit]

$params = IniReadSection($s_iniFile,"templatevars")
$anzahl = $params[0][0]

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

; Zeiger auf Excelfile
$xlsfile = _ExcelBookOpen($s_addressfile, 0, False)
$headerarray = _ExcelReadArray($xlsfile, 2, 1, 100, 0, 1)
_ArrayDisplay($headerarray)

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

; HTML Template einlesen
$htmlfile = FileRead($s_htmltemplate, FileGetSize($s_htmltemplate))

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

for $n = 0 To ubound($headerarray) -1
if $headerarray[$n][1] = $params[$n][0] then
msgBox(0,"Gefunden","Wert: " & $headerarray[$n][1] & " an Pos: " & $n)
EndIf
Next
_ArrayDisplay($params)

[/autoit]

Jam00

Zitat von multitoeat

Time.au3 is drin

Zitat von AutoBert

im übrigen muss das

AutoIt-QuellcodeCode kopieren

1

$Noch = _CalcTime(Round($i / 60,0))

ebenso wie

AutoIt-QuellcodeCode kopieren

1

$Noch = _CalcTime(Int($i / 60))

funktionieren

Alles anzeigen

Es Funktionier auch, nur er wil das von 4799999 auf 46 und nicht auf 47 gerechnet wird, was aber total unlogisch ist, denn die 4799999 ist ganz klar ein rechenfehler seiner Funktion, deshalb habe ich ihm ja acuh mal meine Funktion _SecToTime gezeigt

Jam00

Also bei mir kommt der Fehler auch wenn ich es in SciTE ausführe

Beiträge von Jam00

[gelöst] 40 GB meiner 300 GB Festplatte lassen sich nicht mehr Formatieren

[gelöst] 40 GB meiner 300 GB Festplatte lassen sich nicht mehr Formatieren

Variable richtig deklarieren

GUI Unklarheiten

Variable richtig deklarieren

1-Click-Shutdown

Variable richtig deklarieren

1-Click-Shutdown

Problem mit Send und Hotkeyset

Variable richtig deklarieren

Variable richtig deklarieren

GUI Status Bar Bug?!?

Nach "enter" soll Script automatisch oder nach Zeit weiter ausgeführt werden

GUI Status Bar Bug?!?

GUI Status Bar Bug?!?

Variable richtig deklarieren

Nach "enter" soll Script automatisch oder nach Zeit weiter ausgeführt werden

Array aus IniReadSection um einen Eintrag erweitern

1-Click-Shutdown

GUI Status Bar Bug?!?