Beiträge von Pinguin

Pinguin

Danke dir so läuft es, jetzt analysiere ich es um zu verstehen

grüße

Edit

@ Bernd, habs mal umgeändert in Version 2, ist schneller, aber dennoch noch langsamer wie das von Xenobiologist

Danke für den Tipp

Spoiler anzeigen

[autoit]

$file = FileOpen("scan.txt", 0)

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

$Port1=IniRead ( "Port.ini", "Ports", "Port1", "default" )
$file15=Fileopen($Port1&".txt",1)

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

$Port2=IniRead ( "Port.ini", "Ports", "Port2", "default" )
$file16=Fileopen($Port2&".txt",1)

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

$Port3=IniRead ( "Port.ini", "Ports", "Port3", "default" )
$file17=Fileopen($Port3&".txt",1)

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

$Port4=IniRead ( "Port.ini", "Ports", "Port4", "default" )
$file18=Fileopen($Port4&".txt",1)

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

$Port5=IniRead ( "Port.ini", "Ports", "Port5", "default" )
$file19=Fileopen($Port1&".txt",1)

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

$Port6=IniRead ( "Port.ini", "Ports", "Port6", "default" )
$file20=Fileopen($Port6&".txt",1)

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

$Port7=IniRead ( "Port.ini", "Ports", "Port7", "default" )
$file21=Fileopen($Port7&".txt",1)

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

$Port8=IniRead ( "Port.ini", "Ports", "Port8", "default" )
$file22=Fileopen($Port8&".txt",1)

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

$Port9=IniRead ( "Port.ini", "Ports", "Port9", "default" )
$file23=Fileopen($Port9&".txt",1)

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

$Port10=IniRead ( "Port.ini", "Ports", "Port10", "default" )
$file24=Fileopen($Port10&".txt",1)

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

$Port11=IniRead ( "Port.ini", "Ports", "Port11", "default" )
$file25=Fileopen($Port11&".txt",1)

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

$Port12=IniRead ( "Port.ini", "Ports", "Port12", "default" )
$file26=Fileopen($Port12&".txt",1)

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

$Port13=IniRead ( "Port.ini", "Ports", "Port13", "default" )
$file27=Fileopen($Port13&".txt",1)

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

$Port14=IniRead ( "Port.ini", "Ports", "Port14", "default" )
$file28=Fileopen($Port14&".txt",1)

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

$Port15=IniRead ( "Port.ini", "Ports", "Port15", "default" )
$file29=Fileopen($Port15&".txt",1)

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

While 1
$file1 = FileReadLine($file)
If @error = -1 Then
FileClose($file)
ExitLoop
EndIf
If StringInStr($file1,$Port1) Then
FileWriteLine($file15, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port2) Then
FileWriteLine($file16, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port3) Then
FileWriteLine($file17, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port4) Then
FileWriteLine($file18, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port5) Then
FileWriteLine($file19, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port6) Then
FileWriteLine($file20, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port7) Then
FileWriteLine($file21, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port8) Then
FileWriteLine($file22, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port9) Then
FileWriteLine($file23, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port10) Then
FileWriteLine($file24, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port11) Then
FileWriteLine($file25, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port12) Then
FileWriteLine($file26, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port13) Then
FileWriteLine($file27, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port14) Then
FileWriteLine($file28, $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port15) Then
FileWriteLine($file29, $file1 & @CRLF)
EndIf
FileDelete("default.txt")
WEnd

[/autoit]

Pinguin

hi, ok du hast die eine Varibale geändert, nun kommt ein anderer hübscher Fehler

Neu AutoIt v3 Script (3).au3 (13) : ==> Expected a "=" operator in assignment statement.:
$ports_A[$i] = $ports_Section[$i][1]

das sagt mir nix, warum meckert der wegen der = Zeichen

Grüße

Pinguin

hi, aber es kommt leider ein error, Ports.ini ?

gut ist nur die msgbox, die Datei heißt Port.ini, also nicht der Fehler und die anderen Befehle muss ich mir erst genauer anschauen

Pinguin

Zitat

Original von gtaspider
Hallo

Capatcha Code, ich sag nur SMS Sender

Für alle nicht eingeweihten: Versucht es erst garnicht. es ist Illegal, den Capatcha Code (Die buchstaben in dem Bild die man selbst nochmal eingeben muss) zu Automatisieren und darüber hinaus mit AutoIt auch nahezu unmöglich.

Mfg Spider

Zum Automatisieren ist es schon, sogar relativ einfach, mit einen Zusatzprogramm, und per batch Aufruf, aber wie du meintest, wird gegen die Nutzungbedingungen sein, man könnte aber jedoch, nen Fenster aufgehen lassen wo man den Code Anzeigt und eingeben kann.

Fertig

Pinguin

Zitat

Original von Xenobiologist
Hi,

ich würde die Ini mit IniReadSection('port.ini', 'Ports') einlesen und dann in Wete in ein 1-D Array schreiben.

So long,

Mega

Hi kannst du das bitte näher beschreiben, so fit bin ich leider noch nicht

Ich weiß schon wie mit IniReadSection, aber wie meinst du das in 1-D Array schreiben?

Danke

Grüße

Pinguin

ok hier die datei

http://rapidshare.com/files/63639617/scan.zip.html

Board kann ichs net anhängen, zu groß

Wollte eben gern so machen das User selber in die ini schreiben können, und keine starre Vorgaben haben

danke für eure Hilfe

EDIT

Xenobiologist , das ist schneller wie Version 1;), wie baut man da jetzt dasmit der ini ein?

grüße

Pinguin

also wie soll ichs erklären, ich starte das script, diese erstellt die txt und schriebt daten rein, dan drücke ich f5 und bleibt drauf, und sehe wie die Dateigröße der erstellten datei wächst.

mit v1 in 50 schritten in allen anderen in 1-3 schritten.

deshalb ist die zeit die das script zum auslesen benötigt doch unerheblich ?, weil ich ja erst gucke wenn die daten erstellt wurden.

ich versuchs mal

Version 1

knapp 5 Sekunden

Zeit deiner Version
ca 176,2 Sekunden

Pinguin

naja auslesen falsche ausdruck, ich drück f5, bei version 1 ist die dateigröße jedesmal 50kb größer geworden ich mein, warum dauert es bei deiner und meiner so lange?

ich les die werte aus der ini, dann sind sie in script, warum dauerts dann beim schreiben in die txt so lange?

verstehe das nicht
Edit

Xenobiologist . nein das juckt nicht zum einlesen,ich mein wenns die daten erstellt hat, wächst dessen größe nur in schneckenmodus, bei version eins war es extrem schnell

Pinguin

hi, danke leider nur 1kb/s, ich mein warum dauerts so lange, bei der ersten habe ich eben die werte nur in script drinnenO.o

Pinguin

hi versuch einfach fileinstall

[autoit]

FileInstall("exennamer.exe","")
FileInstall("exenname2.exe","")

[/autoit]

so mach ichs

Pinguin

Habe mir 2 Programme erstellt, Zwischen Version 1 und 2 habe ich nur ne ini hinzugefügt, wo User selber Eingaben tätigen können, diese ist aber extrem langsamer gegen der ersten, beim suchen.

Also Version 1 schriebt mit ungefähr 50kb/s in die txt, die 2er mit 5kb/s warum?

Version 1

Spoiler anzeigen

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

#include<string.au3>
#include<array.au3>
#include <file.au3>
$file = FileOpen("scan.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open scan.txt.")
Exit
EndIf
$file2 = FileOpen("80.txt", 1)
If $file2 = -1 Then
MsgBox(0, "Error", "Unable to open 80.txt.")
Exit
EndIf
$file3 = FileOpen("1433.txt", 1)
If $file3 = -1 Then
MsgBox(0, "Error", "Unable to open 1433.txt.")
Exit
EndIf
$file4 = FileOpen("3306.txt", 1)
If $file4 = -1 Then
MsgBox(0, "Error", "Unable to open 3306.txt.")
Exit
EndIf
$file5 = FileOpen("3386.txt", 1)
If $file5 = -1 Then
MsgBox(0, "Error", "Unable to open 3386.txt.")
Exit
EndIf
$file6 = FileOpen("21.txt", 1)
If $file6 = -1 Then
MsgBox(0, "Error", "Unable to open 21.txt.")
Exit
EndIf

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

$file7 = FileOpen("2100.txt", 1)
If $file6 = -1 Then
MsgBox(0, "Error", "Unable to open 21.txt.")
Exit
EndIf

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

While 1
$file1 = FileReadLine($file)
If @error = -1 Then Call("ende")

;MsgBox(0,"",$file1)
If StringInStr($file1, ":80") Then
;MsgBox(0,"",$file1)
FileWriteLine($file2, $file1 & @CRLF)
EndIf
If StringInStr($file1, ":1433") Then
FileWriteLine($file3, $file1 & @CRLF)
EndIf
If StringInStr($file1, ":3306") Then
FileWriteLine($file4, $file1 & @CRLF)
EndIf
If StringInStr($file1, ":3386") Then
FileWriteLine($file5, $file1 & @CRLF)
EndIf
If StringInStr($file1, ":21") Then
FileWriteLine($file6, $file1 & @CRLF)
EndIf
If StringInStr($file7, ":2100") Then
FileWriteLine($file6, $file1 & @CRLF)
EndIf
WEnd

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

Func ende ()
; MsgBox(0,"Info", "Alles durch")
Exit
EndFunc ;==>ende

[/autoit]

Version 2

Spoiler anzeigen

[autoit]

$file = FileOpen("scan.txt", 0)

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

$Port1=IniRead ( "Port.ini", "Ports", "Port1", "default" )
$Port2=IniRead ( "Port.ini", "Ports", "Port2", "default" )
$Port3=IniRead ( "Port.ini", "Ports", "Port3", "default" )
$Port4=IniRead ( "Port.ini", "Ports", "Port4", "default" )
$Port5=IniRead ( "Port.ini", "Ports", "Port5", "default" )
$Port6=IniRead ( "Port.ini", "Ports", "Port6", "default" )
$Port7=IniRead ( "Port.ini", "Ports", "Port7", "default" )
$Port8=IniRead ( "Port.ini", "Ports", "Port8", "default" )
$Port9=IniRead ( "Port.ini", "Ports", "Port9", "default" )
$Port10=IniRead ( "Port.ini", "Ports", "Port10", "default" )
$Port11=IniRead ( "Port.ini", "Ports", "Port11", "default" )
$Port12=IniRead ( "Port.ini", "Ports", "Port12", "default" )
$Port13=IniRead ( "Port.ini", "Ports", "Port13", "default" )
$Port14=IniRead ( "Port.ini", "Ports", "Port14", "default" )
$Port15=IniRead ( "Port.ini", "Ports", "Port15", "default" )

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

While 1
$file1 = FileReadLine($file)
If @error = -1 Then
FileClose($file)
ExitLoop
EndIf
If StringInStr($file1,$Port1) Then
FileWriteLine($Port1&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port2) Then
FileWriteLine($Port2&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port3) Then
FileWriteLine($Port3&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port4) Then
FileWriteLine($Port4&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port5) Then
FileWriteLine($Port5&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port6) Then
FileWriteLine($Port6&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port7) Then
FileWriteLine($Port7&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port8) Then
FileWriteLine($Port8&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port9) Then
FileWriteLine($Port9&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port10) Then
FileWriteLine($Port10&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port11) Then
FileWriteLine($Port11&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port12) Then
FileWriteLine($Port12&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port13) Then
FileWriteLine($Port13&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port14) Then
FileWriteLine($Port14&".txt", $file1 & @CRLF)
EndIf
If StringInStr($file1,$Port15) Then
FileWriteLine($Port15&".txt", $file1 & @CRLF)
EndIf
FileDelete("default.txt")
WEnd

[/autoit]

die ini

Code

[Ports]
Port1=2100
Port2=1433
Port3=80

User ist Infomiert das sie maximal 15 Ports Eintragen können

was könnte man bei Version 2 verbessern das es schneller läuft?

Pinguin

jop habe es nur noch Gröber gemacht

[autoit]

#include<File.au3>
Global $lines
_FileReadToArray(@ScriptDir & '\log.txt', $lines)

For $i = 1 To UBound($lines) - 1
If StringInStr($lines[$i], '9.2.0.1.0') <> 0 Then
For $y = $i - 6 To $i
If StringRegExp($lines[$y], '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}', 0) Then
MsgBox(64, "Found", 'Found : ' & $lines[$y])
FileWriteLine("Ausgabe.txt", $lines[$y])
ExitLoop
EndIf
Next
EndIf
Next

[/autoit]

ich danke dir

Pinguin

sorry mein fehler die zeile die gesucht wird

Code

Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production

wenn ich die Zeile einfüge finde ich mehr, glaube das ises

Pinguin

nicht alle sondern nur die ip wo die zeile in Block ist

Code

[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]

Pinguin

im anhang ist alles zu finden

Pinguin

Hallo ich versuche seit zich stunden was zu machen, was absolut nicht hinhaut, über google bin ich dann zu euch gestoß

Also ich habe eine txt Datei

dort raus sollen bestimmte Ip gefiltert werden

Spoiler anzeigen

Code

-------------------------------------------------------------------------------
195.56.119.122
Responds with ICMP unreachable: No
TCP ports: 2100




-------------------------------------------------------------------------------
195.56.119.123
Responds with ICMP unreachable: No
TCP ports: 2100




-------------------------------------------------------------------------------
195.56.119.124
Responds with ICMP unreachable: No
TCP ports: 2100




-------------------------------------------------------------------------------
195.56.119.125
Responds with ICMP unreachable: No
TCP ports: 2100




-------------------------------------------------------------------------------
195.56.250.126
Responds with ICMP unreachable: No
TCP ports: 2100




-------------------------------------------------------------------------------
195.56.251.254
Responds with ICMP unreachable: No
TCP ports: 2100






-------------------------------------------------------------------------------
195.57.93.96
Responds with ICMP unreachable: No
TCP ports: 2100




TCP 2100:
[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]


-------------------------------------------------------------------------------

Alles anzeigen

mich interessiert da nur dieser Block (kommt öftern darinnen vor, txt würde aber sonst den Rahmen Sprengen)

Code

195.57.93.96
Responds with ICMP unreachable: No
TCP ports: 2100




TCP 2100:
[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]

Ansatz habe ich

Spoiler anzeigen

C

#include<string.au3>
#include<array.au3>
#include <file.au3>
$file = FileOpen("Log.txt", 0)
if not $file = -1 Then
	MsgBox(0, "Error", "Unable to open log.txt.")
	Exit
endif


While 1


	$ip = FileReadLine($file)
		if  @error = -1 Then Call("ende")


if  StringInStr($ip, "0"&".") or StringInStr($ip, "1"&".")or StringInStr($ip, "2"&".")or StringInStr($ip, "3"&".")or StringInStr($ip, "4"&".")or StringInStr($ip, "5"&".")or StringInStr($ip, "6"&".")or StringInStr($ip, "7"&".")or StringInStr($ip, "8"&".")or StringInStr($ip, "9"&".") Then
;MsgBox(0,"",$ip)


;Hier muss die Erkennung der Oracl version rein "[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]"
;Aber wie machen?


EndIf

	_ArrayDisplay($arFound,"Found")









	
EndIf






	



	
WEnd


Func ende ()
	Exit
EndFunc   ;==>ende

Alles anzeigen

er findest jetzt ip, nun müsste er bis zur nächsten ip gucken ob die Zeile dazwischen drinnen ist

Code

[220 vm-planning FTP Server (Oracle XML DB/Oracle9i Enterprise Edition Release 9.2.0.1.0 - Production) ready.]

und wenn ja in eine neue Txt schreiben

[SIZE=7]Bitte auf keinen falschen Gedanken, ich habe damit nichts illigales vor[/SIZE]

Beiträge von Pinguin

Problem zwischen 2 Scriptversionen

Problem zwischen 2 Scriptversionen

Problem zwischen 2 Scriptversionen

Geiz ist geil.

Problem zwischen 2 Scriptversionen

Problem zwischen 2 Scriptversionen

Problem zwischen 2 Scriptversionen

Problem zwischen 2 Scriptversionen

Problem zwischen 2 Scriptversionen

exe in autoitscript mit einbinden

Problem zwischen 2 Scriptversionen

Bestimmte Blöcke aus TXT auslesen

Bestimmte Blöcke aus TXT auslesen

Bestimmte Blöcke aus TXT auslesen

Bestimmte Blöcke aus TXT auslesen

Bestimmte Blöcke aus TXT auslesen