diese funktionen hab ich garnicht o_O
Beiträge von akira2012
-
-
Ja das nutzt mir aber doch nichts - Das hat ja noch nichts mit den Zeiten zu tun. Das ist nur um die Themes alle einzulesen. Es geht sich ja um die Tatsache das in der Listbox nur die Dateinamen angezeigt werden und trotzdem durch ein auslesen dieser eine löschung in der ini möglich sein soll wo der Dateiname nur mit dem kompletten Pfad angegeben ist.
-
Hallo,
ich habe das Problem das ich Dateinamen in einer Listbox und parallel in einer .ini speichern lasse. Damit die Listbox nicht mit den Pfaden zugespammt wird füge ich die Dateinamen mit _guictrllistbox_addfile hinzu. In der Ini wird natürlich der komplette Name mit Pfad gespeichert.
Das klappt alles wunderbar bis ich eine löschfunktion geschrieben habe die beides löschen sollte (eintrag in Listbox und ini-File. Der Eintrag sollte gelöscht werden wenn man einen Namen anklickt in der Box und dann den "lösch-Button" drückt. Nunja den Eintrag aus der Listbox zu bekommen ist kein Problem aber aus dem ini-File.....Das Problem ist das guictrlread(listbox) nur den Namen der Datei wie sie dort steht übermittelt und nicht mehr den kompletten Pfad. Darum klappt es auch nicht wenn ich versuche einfach das ergebnis aus der ini zu löschen.
Meine Frage: Wie bekomme ich die Einträge aus dem ini-File (als sections gespeichert) heraus UND behalte trotzdem NUR die Dateinamen in der Box. Ich habe wirklich schon alles mögliche ausprobiert und bin ratlos
Spoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
AutoIt Version: 3.2.10.0
Author: Marko H.
Script Function: Dieses Programm wechselst automatisch zwischen verschiedenen Designs von WindowsXP
#ce ----------------------------------------------------------------------------#include
[/autoit] [autoit][/autoit] [autoit]
#include
#include
#include
#include
#Include
#include
#includeGlobal $themes, $test = 0, $confirmation = 0, $what_now = 0, $liste, $time_now, $timesave, $time_to_save, $x, $top, $timefield[10], $themefield[10], $y
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$data = @ScriptDir & "\Data\themes.ini"
[/autoit] [autoit][/autoit] [autoit]
$data2 = @ScriptDir & "\Data\time.ini"$hauptgui = GUICreate("Designswitcher 2008", 300, 300)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")
$tab = GUICtrlCreateTab(1, 1, 600, 600)$tab1 = GUICtrlCreateTabItem("settings")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$durchsuchen = GUICtrlCreateButton("durchsuchen...", "30", "100", "90", "25")
GUICtrlSetOnEvent($durchsuchen, "durchsuchen")
$delete = GUICtrlCreateButton("loeschen", "130", "100", "90", "25")
GUICtrlSetOnEvent(-1, "loeschen")
$auflistung = GUICtrlCreateList("", "30", "150", "220", "100")
$themes = IniReadSectionNames($data)
If @error = 0 Then
For $i = 1 To $themes[0]
_GUICtrlListBox_AddString ($auflistung, $themes[$i])
Next
Else
$themes = "X"
EndIf$tab2 = GUICtrlCreateTabItem("zeit")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$number_of_timefields = GUICtrlCreateInput("1", 30, 50, 30, 25, $ES_NUMBER)
GUICtrlCreateUpdown($number_of_timefields)
$create_timefields = GUICtrlCreateButton("Zeitfelder erstellen", 90, 50, 100, 25)
GUICtrlSetOnEvent($create_timefields, "timefields")$tab = GUICtrlCreateTabItem("start")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$start = GUICtrlCreateButton("start", 50, 30)
GUICtrlSetOnEvent($start, "start")GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(1000)
WEndFunc test()
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>test
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func timefields()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($tab2, $GUI_show)
FileOpen($data2, 2)
GUISwitch($hauptgui, $tab2)
$top = 100
Global $x = GUICtrlRead($number_of_timefields)
$themes = IniReadSectionNames($data)
Switch $x
Case 1 To 9
For $i = 1 To $x
$timefield[$i] = GUICtrlCreateDate("", 30, $top, 100, 25, $DTS_TIMEFORMAT)
$themefield[$i] = GUICtrlCreateCombo(" Theme wählen...", 150, $top, 100, 25)
For $s = 1 To $themes[0]
GUICtrlSetData($themefield[$i], $themes[$s])
;MsgBox(0, "", $themes[$s])
Next
$top = $top + 30
Next
Case 10 To 255555555555555
MsgBox(0, "Achtung!!", "Bitte wähle eine Zahl zwischen 1 und 9 um das Fenster nicht zu sprengen." & @LF & "Wenn du mehr Designs wählen willst solltest du nochmal mit den Programmierer sprechen!")
Case Else
MsgBox(0, "Achtung!!", "Schonmal versucht ein negatives Feld zu erstellen? DAS GEHT NICHT!!!")
EndSwitch
GUICtrlSetState($create_timefields, $gui_disable)
GUICtrlSetState($number_of_timefields, $gui_disable)
$timesave = GUICtrlCreateButton("Zeiten und Themes übernehmen", 300, $top)
GUICtrlSetOnEvent($timesave, "timesave")
FileClose($data2)
GUICtrlCreateTabItem("")EndFunc ;==>timefields
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func start()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$y = "25:25:25"
Global $time_ini = IniReadSectionNames($data2)
Do
$time_now = @HOUR & ":" & @MIN & ":" & @SEC
For $i = 1 To $time_ini[0]
If $time_now = $time_ini[$i] Then themechange_theme()
Global $y = $time_ini[$i]
Next
Sleep(100)
Until $y = $time_now
EndFunc ;==>startFunc timesave()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
For $i = 1 To $x
$time_to_save = GUICtrlRead($timefield[$i])
$theme_to_save = GUICtrlRead($themefield[$i])
IniWrite($data2, $time_to_save, $theme_to_save, $x)
Next
EndFunc ;==>timesaveFunc themechange_theme()
[/autoit] [autoit][/autoit] [autoit]
$theme = IniReadSection($data2, $y)
If @error = 0 Then
ShellExecute($theme[1][0])
EndIf
EndFunc ;==>themechange_themeFunc SpecialEvents()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Select
[/autoit] [autoit][/autoit] [autoit]
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
ExitCase @GUI_CtrlId = $GUI_EVENT_MINIMIZE
[/autoit] [autoit][/autoit] [autoit]Case @GUI_CtrlId = $GUI_EVENT_RESTORE
[/autoit] [autoit][/autoit] [autoit]
EndSelectEndFunc ;==>SpecialEvents
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func loeschen()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$themes_delete=IniReadSectionNames($data)
$listitem = GUICtrlRead($auflistung)
$nummer = _GUICtrlListBox_FindString ($auflistung, $listitem)
_GUICtrlListBox_DeleteString ($auflistung, $nummer)
IniDelete($data, $listitem)
EndFunc ;==>loeschenFunc durchsuchen()
[/autoit] [autoit][/autoit] [autoit]
$themes = IniReadSectionNames($data)
_ArrayDisplay($themes)
$files_chose_theme = FileOpenDialog("Wählen Sie ein Design aus", "C:\", "Windwos Themes(*.msstyles)", 1)
If Not $files_chose_theme = "" Then
$confirmation = MsgBox(0x4, "Echt jetzt?", "Willst du diese Theme (" & $files_chose_theme & ") wirklich übernehmen?")
If $confirmation = 6 Then
If Not $themes = "X" Then
For $i = 1 To $themes[0]
If $themes[$i] = $files_chose_theme Then
MsgBox(0, "Pustekuchen", "Dieses Theme wurde bereits hinzugefügt!")
$test = 1
EndIf
Next
EndIf
If $test <> 1 Then
_GUICtrlListBox_AddString ($auflistung, $files_chose_theme)
IniWriteSection($data, $files_chose_theme, "1")
Else
_insert()
EndIf
Else
_insert()
EndIf
EndIf
EndFunc ;==>durchsuchenFunc _insert()
[/autoit]
Do
$test = 0
$what_now = MsgBox(0x4, "Was nun?", "Willst du eine anderes Theme wählen?")
If $what_now = 6 Then
$files_chose_theme = FileOpenDialog("Wählen Sie ein Design aus", "C:\", "Windwos Themes(*.msstyles)", 1)
If Not $files_chose_theme = "" Then
$confirmation = MsgBox(0x4, "Echt jetzt?", "Willst du diese Theme (" & $files_chose_theme & ") wirklich übernehmen?")
If $confirmation = 6 Then
If Not $themes = "X" Then
For $i = 1 To $themes[0]
If $themes[$i] = $files_chose_theme Then
MsgBox(0, "Pustekuchen", "Dieses Theme wurde bereits hinzugefügt!")
$confirmation = 7
$test = 1
EndIf
Next
EndIf
If $test <> 1 Then
_GUICtrlListBox_AddString ($auflistung, $files_chose_theme)
IniWriteSection($data, $files_chose_theme, "1")
EndIf
EndIf
EndIf
EndIf
Until $confirmation = 6 Or $what_now = 7
EndFunc ;==>_insert
</GuiTab.au3></GuiConstantsEx.au3></GuiDateTimePicker.au3></File.au3></guilistbox.au3></guilistview.au3></Date.au3></GuiConstants.au3> -
danke und *dooooh* Die einfachsten sachen sieht man immer nicht... naja ich werds mir merken. Das guiswitch war auf jedenfall ein sehr guter hinweis!
Danke nochmal
EDIT: Mir ist grad noch was aufgefallen! Ich habe bemerkt das keine Daten mehr übernommen werden im "themefield" Wodran kann das liegen?
-
versteh ich nicht wieso der wichtig ist aber gut
[autoit]#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]
AutoIt Version: 3.2.10.0
Author: Marko H.
Script Function: Dieses Programm wechselst automatisch zwischen verschiedenen Designs von WindowsXP
#ce ----------------------------------------------------------------------------#include
[/autoit][autoit][/autoit][autoit]
#include
#include
#include
#include
#Include
#include
#includeGlobal $themes, $test = 0, $confirmation = 0, $what_now = 0, $liste, $time_now, $timesave, $time_to_save, $x, $top, $timefield[10], $themefield[10], $y
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Opt("GUIOnEventMode", 1)
[/autoit][autoit][/autoit][autoit]$data = @ScriptDir & "\Data\themes.ini"
[/autoit][autoit][/autoit][autoit]
$data2 = @ScriptDir & "\Data\time.ini"$hauptgui = GUICreate("Designswitcher 2008", 300, 300)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")
$tab=GUICtrlCreateTab(1, 1, 600, 600)$tab1=GUICtrlCreateTabItem("settings")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$durchsuchen = GUICtrlCreateButton("durchsuchen...", "30", "100", "90", "25")
GUICtrlSetOnEvent($durchsuchen, "durchsuchen")
$delete = GUICtrlCreateButton("loeschen", "130", "100", "90", "25")
GUICtrlSetOnEvent(-1, "loeschen")
$auflistung = GUICtrlCreateList("", "30", "150", "220", "100")
$themes = IniReadSectionNames($data)
If @error = 0 Then
For $i = 1 To $themes[0]
_GUICtrlListBox_Addfile ($auflistung, $themes[$i])
Next
Else
$themes = "X"
EndIf$tab2=GUICtrlCreateTabItem("zeit")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$number_of_timefields = GUICtrlCreateInput("1", 30, 50, 30, 25, $ES_NUMBER)
GUICtrlCreateUpdown($number_of_timefields)
$create_timefields = GUICtrlCreateButton("Zeitfelder erstellen", 90, 50, 100, 25)
GUICtrlSetOnEvent($create_timefields, "timefields")$tab=GUICtrlCreateTabItem("start")
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
$start = GUICtrlCreateButton("start", 50, 300)
GUICtrlSetOnEvent($start, "start")GUISetState()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit]
Sleep(1000)
WEndfunc test()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
EndFuncFunc timefields ()
[/autoit][autoit][/autoit][autoit]
GUICtrlSetState($tab2, $GUI_show)
FileOpen($data2, 2)
$top = 100
Global $x = GUICtrlRead($number_of_timefields)
$themes = IniReadSectionNames($data)
Switch $x
Case 1 To 9
For $i = 1 To $x
$timefield[$i] = GUICtrlCreateDate("", 300, $top, 100, 25, $DTS_TIMEFORMAT)
$themefield[$i] = GUICtrlCreateCombo(" Theme wählen...", 410, $top, 100, 25)
For $s = 1 To $themes[0]
GUICtrlSetData(-1, $themes[$s])
Next
$top = $top + 30
Next
Case 10 To 255555555555555
MsgBox(0, "Achtung!!", "Bitte wähle eine Zahl zwischen 1 und 9 um das Fenster nicht zu sprengen." & @LF & "Wenn du mehr Designs wählen willst solltest du nochmal mit den Programmierer sprechen!")
Case Else
MsgBox(0, "Achtung!!", "Schonmal versucht ein negatives Feld zu erstellen? DAS GEHT NICHT!!!")
EndSwitch
GUICtrlSetState($create_timefields, $gui_disable)
GUICtrlSetState($number_of_timefields, $gui_disable)
$timesave = GUICtrlCreateButton("Zeiten und Themes übernehmen", 300, $top)
GUICtrlSetOnEvent($timesave, "timesave")
FileClose($data2)EndFunc ;==>timefields
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Func start ()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$y = "25:25:25"
Global $time_ini = IniReadSectionNames($data2)
Do
$time_now = @HOUR & ":" & @MIN & ":" & @SEC
For $i = 1 To $time_ini[0]
If $time_now = $time_ini[$i] Then themechange_theme ()
Global $y = $time_ini[$i]
Next
Sleep(100)
Until $y = $time_now
EndFunc ;==>startFunc timesave ()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
For $i = 1 To $x
$time_to_save = GUICtrlRead($timefield[$i])
$theme_to_save = GUICtrlRead($themefield[$i])
IniWrite($data2, $time_to_save, $theme_to_save, $x)
Next
EndFunc ;==>timesaveFunc themechange_theme ()
[/autoit][autoit][/autoit][autoit]
$theme = IniReadSection($data2, $y)
If @error = 0 Then
ShellExecute($theme[1][0])
EndIf
EndFunc ;==>themechange_themeFunc SpecialEvents ()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Select
[/autoit][autoit][/autoit][autoit]
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
ExitCase @GUI_CtrlId = $GUI_EVENT_MINIMIZE
[/autoit][autoit][/autoit][autoit]Case @GUI_CtrlId = $GUI_EVENT_RESTORE
[/autoit][autoit][/autoit][autoit]
EndSelectEndFunc ;==>SpecialEvents
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Func loeschen ()
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$listitem = GUICtrlRead($auflistung)
$nummer = _GUICtrlListBox_FindString ($auflistung, $listitem)
_GUICtrlListBox_DeleteString ($auflistung, $nummer)
IniDelete($data, $listitem)
EndFunc ;==>loeschenFunc durchsuchen ()
[/autoit][autoit][/autoit][autoit]
$themes = IniReadSectionNames($data)
$files_chose_theme = FileOpenDialog("Wählen Sie ein Design aus", "C:\", "Windwos Themes(*.msstyles)", 1)
$confirmation = MsgBox(0x4, "Echt jetzt?", "Willst du diese Theme (" & $files_chose_theme & ") wirklich überconfirmation?")
If $confirmation = 6 Then
If Not $themes = "X" Then
For $i = 1 To $themes[0]
If $themes[$i] = $files_chose_theme Then
MsgBox(0, "Pustekuchen", "Dieses Theme wurde bereits hinzugefügt!")
$test = 1
EndIf
Next
EndIf
If $test <> 1 Then
_GUICtrlListBox_Addfile ($auflistung, $files_chose_theme)
IniWriteSection($data, $files_chose_theme, "1")
Else
_insert ()
EndIf
Else
_insert ()
EndIfEndFunc ;==>durchsuchen
[/autoit][autoit][/autoit][autoit]Func _insert ()
[/autoit]
Do
$test = 0
$what_now = MsgBox(0x4, "Was nun?", "Willst du eine anderes Theme wählen?")
If $what_now = 6 Then
$files_chose_theme = FileOpenDialog("Wählen Sie ein Design aus", "C:\", "Windwos Themes(*.msstyles)", 1)
$confirmation = MsgBox(0x4, "Echt jetzt?", "Willst du diese Theme (" & $files_chose_theme & ") wirklich überconfirmation?")
If $confirmation = 6 Then
If Not $themes = "X" Then
For $i = 1 To $themes[0]
If $themes[$i] = $files_chose_theme Then
MsgBox(0, "Pustekuchen", "Dieses Theme wurde bereits hinzugefügt!")
$confirmation = 7
$test = 1
EndIf
Next
EndIf
If $test <> 1 Then
_GUICtrlListBox_Addfile ($auflistung, $files_chose_theme)
IniWriteSection($data, $files_chose_theme, "1")
EndIf
EndIf
EndIf
Until $confirmation = 6 Or $what_now = 7
EndFunc ;==>_insert
</GuiTab.au3></GuiConstantsEx.au3></GuiDateTimePicker.au3></File.au3></guilistbox.au3></guilistview.au3></Date.au3></GuiConstants.au3>Es geht sich um den Reiter Zeit. Dort werden nicht die Felder erstellt.
-
So gleiches Thema neues Problem - habe oben editiert und brauche hüüülfe
-
Hallo,
Problem doch nicht gelöst
Also das mit den Tabs funktioniert ganz gut aber wenn ich in einem Reiter bin und dann dort eine Funktion ausführe die neue Buttons oder edits erstellen soll dann werden diese nicht angezeigt!! habe schon versucht mit guictrlsetstate was dran zu ändern aber nutzt nichts... NEED HELP
MfG
-
Ja ich meine halt wie in HLSW einen Serverbefehl zu senden halt nur ohne hlsw. Naja das Programm einfach zu starten und mein Ziel durch Mausklicks zu erreichen ginge natürlich ist aber nur suboptimal würde ich sagen.
Per TCP denke ich auch aber ich weiß nicht wie der befehl aussehen soll der gesendet wird. Immerhin muß das rcon passwort ja mit gesendet werden und dann der befehl. Also 3 große ???Wer eine idee hat immer her damit.
-
Keiner eine Idee? o_O
-
Hallo alle miteinander,
ich wollte nur mal fragen ob jemand weiß ob eine Möglichkeit besteht mit AutoIt ein tool zu schreiben, mit dem man eine Nachricht via svsay (funzt bei JKA-Servern) unter Nutzung des rcon-passwortes, senden kann.
Hoffe das hat jetzt auch einer verstanden
MfG
akira2012
P.S. Sorry ich glaub das ist TEILWEISE das falsche Forum -.-
-
Zitat
Also der Einzige der hier jemand anderen beleidigt bist wohl du.
Genauso trittst du hier als Einziger vollkommen kindisch auf...
Und achja: Ich lass mir sowas nur von Personen bieten, die der deutschen Sprache mächtig sind und keine großen Grammatikfehler in ihre Sätze bauen.Von daher: Wenn es dir Spaß macht andere zu beleidigen: Ab innen Kindergarten, da sind die Leute wenigstens zum Großteil mit dir auf einer Niveaustufe
"innen Kindergarten"? Einwandfreie Grammatik!
Ich möchte mich bei euch entschuldigen das war wirklich nicht in Ordnung. Weiß auch nicht was mich da geritten hat aber ich wollte anfangs einfach nur nen blöden Scherz machen und das ganze ist einfach aus dem Ruder gelaufen. Ich hab mich nur über die aggressive Antwort von DJB aufgeregt und überreagiert. Trotz alledem ist das natürlich keine Rechtfertigung. Ich hoffe Ihr könnt die Sache wieder vergessen und nehmt meine Entschuldigung an. Ich freue mich schon hoffentlich bald wieder was von eurem Pokerspiel zu hören.
P.S. Mein "Pokerspiel oder was das sein sollte" ist auf Eis gelegt, da ich leider wegen meiner Arbeit im Moment nicht zum Programmieren komme. Ich weiß nichtmal welche Version von AutoIT grad aktuell ist.
P.P.S: Für die 1000 Grammatikfehler kann ich nichts ich tippe die Antworten mit 100 zeichen pro Sekunde, da ist keine Zeit für ne Grammatikprüfung ^^.
MfG
akira2012
-
Angriff ist die beste Verteidigung was?
Naja wenn dir intelligenten Menschen auch noch aufgefallen wäre das ich die letzten Monate nicht auf dieser Seite war.Naja wenigstens bin ich nicht beleidigend geworden aber was soll man von solch kleinen Kindern wie dich und deinen Kumpel schon erwarten.
Trotzdem wird das Game von euch vor der nächsten Jahrtausendwende nicht fertig - aber Hauptsache Ihr habt mal das Maul aufgerissen. Also gl & hf auch weiterhin beim nichtstun.
,,I,,
Verwarnung GtaSpider: [29.10.2007 21:23]
Sowas ist echt eine Unverschämtheit. Du kannst gerne deine Meinung frei äußern, aber bitte in einem anderen Ton.
Bleibt bei einer Verwarnung, aber ich hoffe, dass das nicht nochmal vorkommt. -
Lol. Hmm ich warte ja sehnsüchtig auf den Threat. NOOB-Hold'em JETZT ABER WIRKLICH ECHT DIE 3. ACTION!
Nehmts mir nicht übel aber als ich das letzte mal hier war vor Monaten wart ihr glaub ich genauso weit.... xDKennt ihr Michael Ende? xD
MfG
akira2012
-
würde sich einer von den admins erbarmen dieses thema zu schließen und nie wieder ans tageslicht zu lassen? Ich kann diese ewigen Diskussionen nicht mehr hören. Das ist doch alles Kinderkacke ob aimbot oder nicht. Ich dachte hier gehts ums programmieren - also entweder helft ihr ihm oder lasst es ganz sein.
MfG
akira2012
EDIT BugFix:
Ich sehe keinen zwingenden Grund zum Eingriff (auch wenn ich das Thema persönlich nicht besonders toll finde).
Ich möchte nur alle Beteiligten bitten, sich auf das Sachliche zu beschränken und emotionale 'Entgleisungen' außen vorzulassen.
Keinerlei Antwort wäre eine viel deutlichere Mißachtung des Projekts als der etwas wilde verbale Schlagabtausch.
:mod: -
Spoiler anzeigen
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.4.9
[/autoit] [autoit][/autoit] [autoit]
Author: myNameScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]
#NoTrayIcon
#include <Date.au3>
#include <GUIConstants.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Player", 636, 124, 197, 126, BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("RePlay", 368, 20, 65, 33, 0)
$Pausebutton = GUICtrlCreateButton("&Pause", 432, 20, 65, 33, 0)
$Button3 = GUICtrlCreateButton("&Next", 496, 20, 65, 33, 0)
$Button4 = GUICtrlCreateButton("&Open", 560, 20, 65, 33, 0)
$Button5 = GUICtrlCreateButton("EXIT", 24, 20, 41, 25, 0)
$Volume = GUICtrlCreateSlider(0, 100, 640, 25)
GUICtrlSetData(-1, 50)
GUISetCursor (3)
GUISetBkColor(0x000000)$Input1 = GUICtrlCreateInput("Notizen:", 88, 16, 249, 57)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ;
Dim $re = 0 ; Das hier ist ein so blöder Fehler
;das man merkt das du einfach nicht weißt was du tust und NICHTS
;selber versucht hast. Ich übersetze mal für dich was du da stehen
;hast: $re=0 Wenn $re = 1 ist DANN _soundplay(1). Allein bis dahin ist
;es so ein blöder 'Fehler... Sry aber ich schließe mich Bugfix an. Les die
;Links durch die ich dir weiter oben genannt habe anpnsten hat es
;keinen Sinn und ich helfe auczh nicht weiter!
IF $re = 1 Then
SoundPlay($re)
Else
If $re = 0 Then
MsgBox(64, "Error", "Keine Datei geöffnet!")
EndIf
EndIf
Case $Pausebutton ;|
Dim $Pause = 0 ;|
If $pause = 1 Then ;|
_SoundResume($re) ;|
$pause = 0 ;| ; und das hier habe ich doch genau nach seiner Beschreibung gemacht ..! ?
Else ;|
_SoundPause($re) ;|
$pause = 1 ;|
EndIf ;|
Case $Button4
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)', 1)
If @error = 2 Then
MsgBox(0, "Error", "The file does not exist")
Exit
ElseIf @error = 3 Then
MsgBox(0, "Error", "The alias was invalid")
Exit
ElseIf @extended <> 0 Then
$extended = @extended
$errorstring = DllCall("winmm.dll","int","mciGetErrorStringA","str",$extended,"str","","int",65534,"hwnd",0)
MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & $errorstring[2] & @CRLF & "Please Note: The sound may still play correctly.")
Else
MsgBox(0, "Success", "The file opened successfully")
EndIf
Case $Volume
SoundSetWaveVolume(100)
Case $Button5
WinClose("Player")
MsgBox(0,'',"The time is:" & _NowTime())
EndSwitch
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd -
Wie alt bist du eigentlich? o_O Nur so aus reinem interesse. Es scheint als würdest du einfach nicht verstehn was Bugfix von dir will. Natürlich kannst du immer irgendwas hinschreiben und dann fragen "SO?" Aber nach dem 1000 mal wird das echt nervig.
Wenn du eine Aufgabe haben willst dann klicke hier links auf AutoIT Tutorial und AutoIT Doku - die Links sind beide erstklassig zum erlenen von den AutoIT Grundfunktionen. Na klar könnte jeder von uns dir das Skript innerhalb von 5 min grade biegen aber dann wärs nicht mehr deins...MfG
akira2012
EDIT: Da du ja kein Englisch kannst. https://autoit.de/www.leo.org ist ein Online Wörterbuch zum üersetzen. Und "Variable used without beeing declared" heißt soviel wie das du eine Variable benutzt hast bevor du ihr einen Wert zugewiesen hast. (das war eine Gratisübersetzung alle weiteren kosten Kohle )
-
Spoiler anzeigen
[autoit]#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <Sound.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Player", 633, 226, 193, 115, BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Replay", 368, 152, 65, 33, 0)
$Pausebutton = GUICtrlCreateButton("&Pause", 432, 152, 65, 33, 0)
$Button3 = GUICtrlCreateButton("&Next", 496, 152, 65, 33, 0)
$Button4 = GUICtrlCreateButton("&Open", 560, 152, 65, 33, 0)
$Button5 = GUICtrlCreateButton("EXIT", 24, 160, 41, 25, 0)
$Volume = GUICtrlCreateSlider(0, 192, 625, 25)
GUICtrlSetData(-1, 50)
GUICtrlSetCursor($Volume, 5)
$List1 = GUICtrlCreateList("Halllo Du Da !", 0, 0, 625, 149)
$Checkbox2 = GUICtrlCreateCheckbox("Repeat All!", 104, 160, 73, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Repeat ", 200, 160, 57, 17)
$Input1 = GUICtrlCreateInput("0", 280, 160, 17, 21)
$Label1 = GUICtrlCreateLabel("ALabel1", 376, 152, 43, 17)
$Label2 = GUICtrlCreateLabel("Times", 304, 160, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
;hier muß die IF abfrage beginnen (wenn pause schon gedrückt ($pause=1 oder so)
;dann wieder abspielen und $pause = 0 setzen
; wenns nicht so ist dann pause machen und $pause = 1 setzen
SoundPlay($re)
case $Pausebutton
_SoundPause($re)
Dim $Pause = 0Case $Button4
[/autoit] [autoit][/autoit] [autoit]
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)')
SoundPlay($re) ; das hier macht absolout keinen sinn. Wenn du den
Case $Button3 ;Open Button nimmst um an das MP3 zu kommen und $re = FileFindNextFile("start.wav") ;dann das wieder zunichte machstSoundPlay($re)
[/autoit] [autoit][/autoit] [autoit]
Case $Volume
SoundSetWaveVolume(1)
Case $Button5
WinClose("Player")EndSwitch
[/autoit]
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd -
du hast den Pause Button doch garnicht eingebaut wie soll er denn dann funzen? -.-
Du musst ihn erstmal in die $msg schleife reinbaun und dir überlegen was passieren soll wenn du "pause" drückst (in dem fall also _soundpause) aber NUR wenn die Pause nicht schon aktiv ist und dafür war denke ich auch Bugfix variable gedacht. sozusagen als AN und AUS schalter....MfG
akira2012
-
nein - mega meint den AUTOIT Code - der der in Scite steht ...
-
ich hatte mal 2 wasserschildkröten. Also lass dir gesagt sein Lina - das ist verdammt viel Arbeit! Und sehr alt werden die kleinen süßen auch noch....