da gibts sooo viele. grundsätzlich dass du zwischen den einzelnen leuten unterscheiden kannst
also wer wann wo was gemacht hat^^
ob das für dich sinnvoll ist weißt nur du, aber das anlegen is echt sehr einfach und geht schnell
da gibts sooo viele. grundsätzlich dass du zwischen den einzelnen leuten unterscheiden kannst
also wer wann wo was gemacht hat^^
ob das für dich sinnvoll ist weißt nur du, aber das anlegen is echt sehr einfach und geht schnell
die hier mit Wörtern wie Forenregeln und AGB's um sich werfen
das wiederspricht doch keinem von beiden oder sehe ich da was falsch.
umgangen werden die captcha's ja nicht. dazu bräuchte man ja irgendwelche methoden zum auswerten der bilder
und in den AGB's kann ich auch nichts wiedersprüchliches finden
1.) http://http://GratisSimsen.de ermöglicht das kostenlose Versenden von SMS-Nachrichten über das Internet.
2.) Wir können die Verfügbarkeit und den sofortigen Versand der SMS nicht garantieren. Wir versuchen aber eine Zeitgerechte SMS-Zustellung zu ermöglichen. Eine Garantie für den Versand der kostenlosen SMS kann daher nicht übernommen werden. Eine Haftung für verspätete oder nicht zugestellte SMS ist ausgeschlossen.
3.) Der Versand von strafrechtlich relevanten Inhalten, Beleidigungen und Werbung ist ausdrücklich verboten. Wir behalten uns auf Basis der Protokollierung straf- und zivilrechtliche Schritte vor.
4.) Eine gewerbliche Nutzung dieses Service schließen wir hiermit aus.
5.) Die Handynummern werden streng vertraulich behandelt und an keine Dritten weitergegeben.
6.) Um eine straf- und zivilrechtliche Verfolgung im Ernstfall zu ermöglichen, werden Datum, Uhrzeit, Nachrichtentext, IP-Adresse und SMS-Nummer aufgezeichnet.
7.) Der Benutzer erkennt mit dem Versenden einer SMS-Nachricht die hier
wenn ihr euch nicht sicher seit würde ich sagten: "Im Zweifel für den Angeklagten"
ok. viel spaß
edit: falls dus nicht verstehst:
dass du hilfe willst is mir schon klar
blos bei was. erst selber probieren und dann ausführlich dein problem posten.
gib dir bitte mehr mühe beim erstellen deiner threads
bei mir erstellt das script keine gespeicherte datei
kann das sein oder mach ich was falsch?
dacht ich mir^^
das verstößt gegen unsere forenregeln.
bitte lesen:
Für was braucht man denn sowas?
ob du es dir einigermaßen so vorstellst weiß ich nicht
besser kann ich leider nicht helfen.
sitz in der schule und hab hier nur den editor^^
d.h. das is alles ausn kopf geschrieben, gut möglich das syntax fehler drin sind
#Include <File.au3>
#Include <Array.au3>
Dim $read
_Filereadtoarray(@Scriptdir &"\BMC_Di.txt", $read); datei in array einlesen
$i = 1; zähler für die zeilen
dim $erg[8]; für die ausgelesenen zeilen, als zwischenspeicher
while $i < $read[0] ; von der ersten bis zur letzten zeile
while Not (Stringleft($read[$i], 1) = "-"); suche die zeilen die mit "-" beginnen
$split = Stringsplit($read[$i], "|"); die zeile mit | splitten
for $k = 0 to $split[0]-3; das gesplittete in ein temp array schreiben
while (StringRight($split[$k+2], 1) = " "); geht mit regex viel besser aber ohne hilfedatei bekomm ich das nicht hin
$split[$k+2] = StringTrimRight($split[$k+2], 1)
wend
$erg[$k] &= $split[$k+2]
next
$i += 1
wend
_arraydisplay($erg); das kannste dann in deine listview schreiben
$i += 1
wend
nö so speziell gibts das jetz nicht, zumindest nicht das ich das wüsste.
aber mit rich edit könnte man das umsetzen
oh sry die txt hatte ich übersehn^^
komische anordnung in ner txt aber auswerten geht schon...
bin in der schule, kann dir also kein script beispiel basteln. aber ich würde in etwa so vorgehn:
datei in array einlesen (_Filereadtoarray oder so ähnlich)
$i = 1
while $i < anzahlzeilen
while Zeile nr $i not = "-------" (am besten mit stringleft oder so)
zeile $i mit stringsplit und trennzeichen "|" trennen
die einzelnen gesplitteten inhalte in variable speichern
$i +1
wend
zwischengespeicherte variable in listbox eintragen
wend
ich glaub zwar jetz nachdem ich den pseudocode geschrieben hab nicht dass du es verstehst aber probiern tu ichs mal^^
scripten wär leichter
kannste dann als trenner denn nicht @Crlf nehmen?
oder was trennt denn die einträge jetz?
ob du das profil laden willst oder nicht weißt doch nur du
woher sollen wir wissen was du willst?
Anfänger reagieren i-wie allergisch auf Arrays und ihre möglichkeiten
jup da geb ich dir recht.
aber dann am besten ganz rauslassen
ging mir anfangs auch so, nach der art: wieso muss ich jetz auf einmal [1] machen!?!^^
@Cartan: wenn du schon ein array beispiel machst würd ich auch die vorteile ausnutzen
quick and dirty hätt ich das mal so:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Dim $Input[10]
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To 10
HotKeySet("{NUMPAD" & $i & "}", "Sendtext")
Next
$Form1 = GUICreate("Form1", 322, 210, 255, 230)
For $i = 0 To 4
$Input[$i] = GUICtrlCreateInput("Input" & $i, 16, 16 + $i * 32, 137, 21)
Next
For $i = 5 To 9
$Input[$i] = GUICtrlCreateInput("Input" & $i, 168, 16 + ($i - 5) * 32, 137, 21)
Next
$Label = GUICtrlCreateLabel("© by Technoboy", 120, 184, 84, 17)
GUISetState(@SW_SHOW)
$ini = IniReadSection(@ScriptDir & "\test.ini", "section")
If $ini[0][0] >= 10 Then
For $i = 1 To 10
GUICtrlSetData($Input[$i-1], $ini[$i][1])
Next
EndIf
Run("notepad.exe")
WinWaitActive("Unbenannt - Editor")
While 1
If GUIGetMsg() = $GUI_EVENT_CLOSE Then
For $i = 0 To 9
IniWrite(@ScriptDir & "\test.ini", "section", $i, GUICtrlRead($Input[$i]))
Next
Exit
EndIf
WEnd
Func Sendtext()
$zahl = Stringtrimright(StringTrimLeft(@HotKeyPressed, 7), 1)
Send(GUICtrlRead($Input[$zahl]))
EndFunc ;==>Send1
jup zufallszahlen sind echt ein interessantes thema.
eben deshalb weil man sie nicht einfach erzeugen kann.
zu pseudozufallszahlen denke ich wurde alles gesagt. wollte hier nur noch ne recht interessante news von heise posten.
http://www.heise.de/newsticker/mel…men-995035.html
da versuchen sie auch die ersten "echten" zufallszahlen zu generieren.
durchlesen dann kann man sich vllt etwas besser vorstellen wie schwer es ist
habs grade getestet.
so gehts bei mir schonmal besser
Func tastenklick()
GUICtrlSetState($Inputtaste, $GUI_FOCUS)
Wenn man auf den button klickt erhält dieser ja den fokus. und mit Enter und Space drückt man fokusierten button.
das problem sollte also weg sein wenn du bei buttonclick den focus auf das Input legst
aber wo das problem mit den F* tasten liegt weiß ich nicht.
ich glaube allerdings auch eher dass du (Freaky) die anderen beiträge nicht gelesen hast.
diese diskussion hatten wir doch schon 100 mal.
du kannst es nicht verhindern.
gegen gute decompiler hast du 0 chance
dann solteste aber auch den parameter 0 für arrayrückgabe verwenden
und nen gültigen pfad statt 111 und 222 eintragen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
; Variable
$filesIn111 = _GetFilesFolder_Rekursiv('111', 'txt', 0, 0)
$filesIn222 = _GetFilesFolder_Rekursiv('222', 'txt', 0, 0)
#Region ### START GUI section ### Form=c:\users\rs\desktop\auit\start\form1.kxf
$Form1_1 = GUICreate("Form1", 436, 388, 261, 124)
$List1 = GUICtrlCreateList("", 8, 64, 417, 279, BitOR($LBS_SORT,$LBS_STANDARD,$WS_HSCROLL,$WS_VSCROLL,$WS_BORDER))
$Button1 = GUICtrlCreateButton("&Öffnen", 176, 352, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("111", 8, 32, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("222", 88, 32, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END GUI section ###
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
MsgBox(0, 'Öffnen', 'Button 1 was pressed')
Case $msg = $Button2
GUICtrlSetData($List1, '') ; Inhaltliches Löschen des Listboxes
If IsArray($filesIn111) Then
For $i = 1 To $filesIn111[0]
GUICtrlSetData($List1, $filesIn111[$i])
Next
EndIf
Case $msg = $Button3
GUICtrlSetData($List1, '') ; Inhaltliches Löschen des Listboxes
If IsArray($filesIn222) Then
For $i = 1 To $filesIn222[0]
GUICtrlSetData($List1, $filesIn222[$i])
Next
EndIf
EndSelect
WEnd
;==================================================================================================
; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0]]])
; Description: Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
; optional: $iRetType 0 gibt Array, 1 gibt String zurück (Einträge @LF-getrennt)
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0)
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFiles = ''
If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
If $sExt = -1 Then $sExt = '*'
If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
_ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir)
If $iRetType = 0 Then
Local $aOut
$aOut = StringSplit(StringTrimRight($strFiles,1), @LF)
If $aOut[1] = '' Then
ReDim $aOut[1]
$aOut[0] = 0
EndIf
Return $aOut
Else
Return StringTrimRight($strFiles,1)
EndIf
EndFunc
Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1)
If ($Dir = -1) Or ($Dir = 0) Then
For $file In $Folder.files
If $Ext <> '*' Then
If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
$strFiles &= $file.Path & @LF
Else
$strFiles &= $file.Path & @LF
EndIf
Next
EndIf
For $Subfolder In $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & @LF
_ShowSubFolders($Subfolder, $Ext, $Dir)
Next
EndFunc
edit: man da is für 10 min n kollege da und schon is man 9 min zu langsam
was fertiges ist mir nicht bekannt. wird wohl auch selten gebraucht.
selber basteln oder SuFu nutzen...
(aber anpassen wirst du es dir wohl auf jeden fall müssen, weil 3x mausklick doch eher komisch sind)