#include <file.au3>
_FileWriteToLine ( "1.txt", 1 , "test" )
so würde es reichen wenn sich die 1.txt im gleichen ordner befindet wie dein script
leider noch nicht getestet aber klingt vernünftig und sieht gut aus 
ich finds auch nich schlecht
natürlich isses für erfahrene pc-nutzer kein problem das zu umgehn, und für autoit'ler ja erst recht nich, aber für alle anderen völlig ausreichend
P.S. noch ne frage
wie kann man machen das das beim pcstart mitstartet ?
am einfachsten indem du das script, bestenfalls als exe in den autostartordner legst
z.B. "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart"
hab letztens auch erst mit sowas rumprobier, jetz weiß ichs wies geht
danke 
#include <File.au3>
_FileWriteToLine ( $sFile, $iLine, $sText [, $fOverWrite] )
das vllt?
am besten siehst du dir einfach nochmal das scipt von mcpoldy an.
wenn dus nicht mehr weißt:
http://video.kroegers-web.de/video02/skript.au3
da ist diese von dir gefragte endlosschleife nämlich drin...
ne bei mir funktionierts auch, aber ich glaub er will dass es automatisch weiterklickt, also auf die 2 eingestellten farben.
in seinem script muss er ja immer wieder !a drücken um die beiden anzuklicken...
aber das script alleine so wie er es gepostet hat funktioniert
am besten wärs er würd selber mal antworten und sagen was er genau will. trotzdem sollte man sich überlegen bei einem bot zu helfen...
hast du dir sein script überhaupt mal angesehn, er hat ne endlosschleife drin, siehe:
[/autoit]
While 1
WEnd
nicht die schönste weil die für recht viel auslastung sorgt, aber ne endlosschleife.
es ist wie ich gesagt hab, er hat das für ihn richtige Script von McPoldi genommen, und wie ich denke hat er es sich selbst kaputt gemacht.
oder er wollte es umbaun, dann hat er aber nicht genau genug beschrieben was genau er will...
so wie das ganze aussieht hast du McPoldy 's video-tutorial zum thema pixelsearch angesehn.
da ist doch das fertige skript dabei...
aber du hast es anscheinend verändert und jetz läufts nich mehr, was soll man dazu noch sagen 
auserdem fällt sowas ja wohl unter die kategorie Bot und wird hier nicht ( oder nicht mehr, soweit ich weiß) supportet
wtf. ich war gestern echt noch für 5 min im serverraum eingesperrt. heftiger zufall, oder hast du unsere webcam gehackt? xD
Nun zum eigentlichen:
Es ist ende Oktober, dafür fällst du in einen winterschlaf und wachst erst im märz wieder auf.
ich wünschte ich wäre Linux-Profi 
bekommst du, dafür musst du zur kinderarbeit nach zimbabwe
________________________________________________________
ich wünsche mir feierabend
wie zeigt sich dieses problem?
öffnet sich irgendwas oder kommt eine fehlermeldung, oder tut sich einfach garnichts?
als ich angefangen hab, hatte ich auch mal sowas geschrieben, um bei html-codes immer gleich die passenden hexwerte rausfinden zu können.
fands interessant wie du das ganze gelöst hast, vllt gefällt dir ja meins auch
#include <GUIConstants.au3>
#NoTrayIcon
HotKeySet("{F10}", "Pixelfarbe")
Global $maus, $farbe
$Wurm = GUICreate("Colorname", 242, 320, 194, 127)
GUICtrlCreateGroup("Farbe:", 120, 8, 113, 49)
GUICtrlCreateGroup("", 8, 56, 225, 65)
GUICtrlCreateGroup("Rot", 16, 64, 65, 49)
GUICtrlCreateGroup("Grün", 88, 64, 65, 49)
GUICtrlCreateGroup("Blau", 160, 64, 65, 49)
$Rot = GUICtrlCreateInput("0", 25, 81, 48, 25, 0x2001)
GUICtrlSetLimit(GUICtrlCreateUpdown($Rot), 255, 0)
$Gruen = GuiCtrlCreateInput("0", 97, 81, 48, 25, 0x2001)
GUICtrlSetLimit(GUICtrlCreateUpdown($Gruen), 255, 0)
$Blau = GuiCtrlCreateInput("0", 169, 81, 48, 25, 0x2001)
GUICtrlSetLimit(GUICtrlCreateUpdown($Blau), 255, 0)
GUICtrlCreateGroup("Hexwert", 8, 8, 105, 49)
$Color = GUICtrlCreateInput("", 17, 24, 86, 24)
GUICtrlSetLimit($Color, 6)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Graphic = GUICtrlCreateGraphic(128, 24, 94, 21)
If FileExists(@MyDocumentsDir & "\Farbpalette.bmp") = 0 Then
Fileinstall("C:\Dokumente und Einstellungen\gm30307\Desktop\Farbpalette.bmp", @MyDocumentsDir & "\Farbpalette.bmp")
FileSetAttrib(@MyDocumentsDir & "\Farbpalette.bmp", "+H")
EndIf
GUICtrlCreatePic( @MyDocumentsDir & "\Farbpalette.bmp", 15, 132, 212, 180)
GUISetState(@SW_SHOW)
WinSetOnTop("Colorname", "", 1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Color
GUICtrlSetBkColor($Graphic, "0x"&GUICtrlRead($Color))
GUICtrlSetData( $Rot, Dec(StringLeft(GUICtrlRead($Color), 2)))
GUICtrlSetData( $Gruen, Dec(StringMid(GUICtrlRead($Color), 3, 2)))
GUICtrlSetData( $Blau, Dec(StringRight(GUICtrlRead($Color), 2)))
Case $Rot
GUICtrlSetData( $Color, StringRight(Hex(Guictrlread($Rot)), 2) & StringRight(Hex(GUICtrlRead($Gruen)), 2) & StringRight(Hex(Guictrlread($Blau)), 2))
GUICtrlSetBkColor($Graphic, "0x"&GUICtrlRead($Color))
Case $Gruen
GUICtrlSetData( $Color, StringRight(Hex(Guictrlread($Rot)), 2) & StringRight(Hex(GUICtrlRead($Gruen)), 2) & StringRight(Hex(Guictrlread($Blau)), 2))
GUICtrlSetBkColor($Graphic, "0x"&GUICtrlRead($Color))
Case $Blau
GUICtrlSetData( $Color, StringRight(Hex(Guictrlread($Rot)), 2) & StringRight(Hex(GUICtrlRead($Gruen)), 2) & StringRight(Hex(Guictrlread($Blau)), 2))
GUICtrlSetBkColor($Graphic, "0x"&GUICtrlRead($Color))
EndSwitch
WEnd
Func Pixelfarbe()
$maus = MouseGetPos()
$farbe = PixelGetColor( $maus[0], $maus[1])
GUICtrlSetData( $Color, StringRight(Hex($farbe), 6))
GUICtrlSetBkColor($Graphic, "0x"&guictrlread($Color))
GUICtrlSetData( $Rot, Dec(StringLeft(GUICtrlRead($Color), 2)))
GUICtrlSetData( $Gruen, Dec(StringMid(GUICtrlRead($Color), 3, 2)))
GUICtrlSetData( $Blau, Dec(StringRight(GUICtrlRead($Color), 2)))
EndFunc
so nach ner stunde suchen und sortieren der ganzen scripte auf meinem rechner hab ichs jetz
weiß leider nichmehr wer das geschrieben hat aber es war mal hier im forum gepostet:
#include <GUIConstants.au3>
#include <Array.au3>
#include <string.au3>
; Url zum Webverzeichnis
Dim $ServerUrl = "http://blog.kroegers-web.de/videos/autoit/"
;Dim $ServerUrl = "http://testuser:qwert@http://www.kroegers-web.de/testdaten/"
; Dateiliste die runtergeladen werden soll
Dim $FileList = "files.txt"
;Speicherpfad für die Liste
Dim $SaveFileList = @TempDir & "\files.txt"
;Textdatei laden
If InetGet($ServerUrl & $FileList, $SaveFileList, 1) = 0 Then
MsgBox(48, "Fehler...", "Fehler beim download der Dateiliste")
Exit 1
EndIf
;Dateiliste zum lesen öffnen
Dim $fso = FileOpen($SaveFileList, 0)
;Inhalt der Datei einlesen
Dim $txt = FileRead($fso)
;Dateiliste schliessen
FileClose($fso)
;@CRLF aus der $txt Variabele entfernen
$txt = StringReplace($txt, @CRLF, "|")
$txtList = StringSplit($txt, "|")
[/autoit] [autoit][/autoit] [autoit]$txt = ""
For $i = 1 To $txtList[0]
$txtlistlen = StringLen($txtList[$i]) + 1
$txtliststart = StringInStr($txtList[$i], "/") + 1
If $txtliststart = 0 Then
$txt = $txt & $i & "-" & $txtlist[$i] & "|"
Else
$txtlistcount = $txtlistlen - $txtliststart
$txtlistresult = StringMid($txtList[$i], $txtliststart, $txtlistcount)
$txt = $txt & $i & "-" & $txtlistresult & "|"
EndIf
Next
$txt = StringTrimRight($txt, 1)
[/autoit] [autoit][/autoit] [autoit];Form
$frmMain = GUICreate("FileLoader", 285, 150, 993, 325)
$pcbDownload = GUICtrlCreateProgress(24, 64, 233, 17)
$infoLabel = GUICtrlCreateLabel("", 24, 84, 233, 25);, $SS_CENTER )
$cmdButton = GUICtrlCreateButton("Start Download", 24, 104, 233, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$FileList = GUICtrlCreateCombo("FileList", 24, 24, 233, 25)
GUICtrlSetData(-1, $txt)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit];Variable für die derzeit Ausgewählte Datei
Dim $selectet
;Variable für die Dateiendung
Dim $mediaformat
;Speicherort
Dim $SaveFile
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdButton
$SaveFile = FileSaveDialog("Datei Speichern...", @DesktopDir, "Video (*." & $mediaformat & ")", 2, GUICtrlRead($FileList))
If Not @error Then RunDownload()
Case $FileList
GUICtrlSetData($infoLabel,"")
$id = StringLeft(GUICtrlRead($FileList),StringInStr(GUICtrlRead($FileList),"-")- 1)
$selectet = $ServerUrl & $txtList[$id]
InetGetSize($selectet)
If @error Then
GUICtrlSetState($cmdButton, $GUI_DISABLE)
Else
GUICtrlSetState($cmdButton, $GUI_ENABLE)
EndIf
$mediaformat = StringRight(GUICtrlRead($FileList), 3)
EndSwitch
WEnd
Func RunDownload()
GUISetState(@SW_DISABLE)
$FileSize = InetGetSize($selectet)
InetGet($selectet, $SaveFile, 1, 1)
$curSize = 0
Do
GUICtrlSetData($pcbDownload, $curSize)
$curFileSize = FileGetSize($SaveFile)
$curSize = $curFileSize * 100
$curSize = $curSize / $FileSize
$curSize = Ceiling($curSize)
$curFileSize = Round($curFileSize / 1024 / 1024, 2)
GUICtrlSetData($infoLabel, $curFileSize & " - " & Round($FileSize / 1024 / 1024, 2) & " MB (" & $curSize & "%)")
Sleep(200)
Until $curSize >= 99
GUISetState(@SW_ENABLE)
GUICtrlSetData($infoLabel, "Download beendet!!!")
GUICtrlSetData($pcbDownload, 0)
EndFunc ;==>RunDownload
des wär dann schonmal recht schön für deine downloads.
wie mache ich das wenn eine Datei verändert wurde also ungleich mit der Datei auf dem FTP server das gleich die neue gedownloadet wird?
ich denke des geht am besten indem du als dateinamen einfach die versionsnummer deiner scripte nimmst. d.h.:
wenn versionsnummer auf server > als installierte version dann runterladen
musst aber mal ausprobiern wies am besten geht, aber es wird sich ein weg finden
ja weil keiner genau weiß was du willst... irgendwohinklicken und dann ne taste senden gibt nich wirklich sinn wenns zufällig passiert.
auserdem sind die befehle :
MouseClick ( "button" [, x, y [, clicks [, speed ]]] )
Send ( "keys" [, flag] )
wie man sie in der hilfe lesen kann ziemlich selbsterklärend.
Lies dir die hilfe zu den beiden befehlen durch und du brauchst keine 5 minuten und es läuft
Ja ich weiß das dieser Post ziemlich alt is und trotzdem:
Dankeschön an progandy.
Durch diesen link eröffnen sich förmlich neue Welten für mich
hm wäre auch mal ein versuch wert.
habs aber etwas anders gelöst. und zwar hab ich $msg = guigetmsg(1) eingebaut und dann kann man mit $msg[2] die id des elements abfragen.
Gruß
Schnitzel
Danke nochmal für eure hilfe. Problem ist jetzt gelöst.
ok ich hab jetz mal
[autoit]$msg = GUIGetMsg ( )
Switch $msg
Case $aCombo[0] To $aCombo[$iCount-1]
MachWas ("Irgendetwas")
eingebaut und es funktioniert soweit prächtig.
ich musste nur die erste Combobox quasi die $aCombo[0] von anfang an erstellen lassen da es sonst natürlich einen fehler gibt.
ob ich den 2ten quellcode-teil jetzt noch brauche weiß ich nicht, aber ich denk mir reicht es so.
ich brauch nurnochwas womit ich rauskriege welche der comboboxen geändert wurde, damit ich mit der nummer der box auch die in der selben zeile befindliche inputbox bzw checkbox ändern kann.
Gruß
Schnitzel
Hallo Greenhorn
erstmal danke für die schnelle antwort.
den ersten quellcode kapier ich noch, da is ja auch nich soviel dabei. ich muss zwar ein bisschen was an meinen bisherigen programm ändern aber das ist kein problem. wenn nicht sogar besser so.
probleme hab ich leider ein bisschen mit dem zweiten quellcode:
also durchnummerriert sind meine comboboxen ja, zumindest vom quellcode. du sagtest quasi dass es auch durchnummerierte ID's haben muss oder. d.h. wenn man sich die ID's der comboboxen mit dem "Autoit Window Info"-Tool anschauen würde müssten die durchnummeriert sein, stimmts?
wenn das stimmt schonmal soweit so gut. dann hab ich nur noch das problem das ich nicht genau weiß wie ich den zweiten quellcode richtig einbaue, da ich ja die comboboxen bereits erstellt habe. Kann ich sie weiterhin so erstellen wie in meinem beispiel und muss nur einen teil des quellcodes hinzufügen oder muss ich sie über deinen weg erstellen lassen.
Gruß
Schnitzel
Hallo Autoit'ler
habe ein problem mit meinem script. habs mal auf das wichtigste runtergekürzt um euch das Problem besser erklären zu können (lasst euch nicht vom aussehn ablenken, is ja gekürzt 
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#NoTrayIcon
Opt('GUIResizeMode', 802)
Global $iCount = 1, $iHeight = 145, $iPosH = 60, $chr = Chr(34)
Global $aCombo[$iCount], $aInput[$iCount], $aCheckbox[$iCount]
$Schnitzel = GUICreate("Programm", 500, $iHeight - 65, (@DesktopWidth - 500)/ 4, 150)
GUICtrlCreateGroup("", 5, 0, 110, 50)
$Addbutton = GUICtrlCreateButton("+", 15, 17, 25, 25, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Delbutton = GUICtrlCreateButton("-", 49, 17, 25, 25, 0)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$addx = GUICtrlCreateInput("", 84, 19, 20, 21, 0x2001)
GUICtrlCreateGroup("", 125, 0, 150, 50)
$accs = GUICtrlCreateCombo("", 135, 19, 131, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlCreateGroup("", 285, 0, 210, 50)
$create = GUICtrlCreateButton("Button1", 296, 17, 123, 25, 0)
$backup = GUICtrlCreateCheckbox("Check1", 428, 16, 63, 26)
$Gruppe1 = GUICtrlCreateGroup("", 5, 53, 220, $iPosH + 5)
$Gruppe2 = GUICtrlCreateGroup("", 224, 53, 222, $iPosH + 5)
$Gruppe3 = GUICtrlCreateGroup("", 445, 53, 50, $iPosH + 5)
$text1 = GUICtrlCreateLabel("Text1", 20, 67, 194, 17)
$text2 = GUICtrlCreateLabel("text2", 245, 67, 174, 17)
$text3 = GUICtrlCreateLabel("text3", 450, 67, 42)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Left()
Case $Addbutton
AddButton()
Case $Delbutton
DelButton()
Case $addx
For $addy = 1 To GUICtrlRead($addx) Step +1
AddButton()
Next
GUICtrlSetData($addx, "")
Case $create
Create()
EndSwitch
WEnd
Func AddButton()
If ($iCount <= 20) Then
HotKeySet("{NUMPADADD}")
$size = WinGetPos("")
$iCount += 1
ReDim $aCombo[$iCount], $aInput[$iCount], $aCheckbox[$iCount]
$iPosH += 30
$aCombo[$iCount - 1] = GUICtrlCreateCombo("", 14, $iPosH, 205, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData($aCombo[$iCount - 1], "Auswahl1|Auswahl2|Auswahl3|Auswahl4|Auswahl5|Auswahl6")
GUICtrlSetPos($Gruppe1, 5, 53, 220, $iPosH - 25)
GUICtrlSetPos($Gruppe2, 224, 53, 222, $iPosH - 25)
GUICtrlSetPos($Gruppe3, 445, 53, 50, $iPosH - 25)
$aInput[$iCount - 1] = GUICtrlCreateInput("", 230, $iPosH, 210, 21)
$aCheckbox[$iCount - 1] = GUICtrlCreateCheckbox("", 465, ($iPosH - 4), 28, 28)
$iHeight += 30
WinMove($Schnitzel, '', $size[0], $size[1], 506, $iHeight)
HotKeySet("{NUMPADADD}","AddButton")
EndIf
EndFunc
Func DelButton()
If ($iCount > 2) Then
HotKeySet("{NUMPADSUB}")
$size = WinGetPos("")
GUICtrlDelete($aCombo[$iCount - 1])
GUICtrlDelete($aInput[$iCount - 1])
GUICtrlDelete($aCheckbox[$iCount - 1])
$iCount -= 1
ReDim $aCombo[$iCount], $aInput[$iCount], $aCheckbox[$iCount]
$iPosH -= 30
$iHeight -= 30
GUICtrlSetPos($Gruppe1, 5, 53, 220, $iPosH - 25)
GUICtrlSetPos($Gruppe2, 224, 53, 222, $iPosH - 25)
GUICtrlSetPos($Gruppe3, 445, 53, 50, $iPosH - 25)
WinMove($Schnitzel, '', $size[0], $size[1], 506, $iHeight)
HotKeySet("{NUMPADSUB}","DelButton")
EndIf
EndFunc
Func Left()
$beenden = MsgBox( 4 + 48 + 256 + 262144, "Beenden", "Soll das Programm wirklich geschlossen werden???" & @CRLF & "Alle Ungespeicherten Daten gehen damit Verloren")
if $beenden = 6 then Exit
EndFunc
Func Create()
MsgBox(0,"","Hauptfunktion")
EndFunc
Also mein problem ist:
Wenn die Combobox geändert wird soll je nach auswahl verschiedene sachen ausgeführt werden.
z.b. wenn Combobox auf Auswahl1 dann Inputbox
wenn Combobox auf auswahl2 dann schreibe etwas in die inputbox und setzte die checkbox auf Checked
usw
das funktioniert ja egtl ganz gut mit switch case. aber ich bekomms bei mir einfach nicht hin weil immer das mit dem array nicht passt
meine ideen waren zuerst:
Switch $nMsg
Case $aCombo[$iCount]
MACH Irgendwas
funktioniert natürlich nicht weil $aCombo[$iCount] immer nur die letzte combobox ist
dann hab ich sowas in der art probiert:
for $i = 1 to $iCount
Switch $nMsg
Case $aCombo[$iCount]
MACH Irgendwas
next
hab ich aber auch nicht hingebracht
und noch einige andere methoden von denen egtl mehr oder weniger klar war dass die nicht funktionieren.
wär cool wenn mir jemand einen vernünftigen tipp geben könnte wie es funktioniert
Mfg Schnitzel
