Hallo
Ich will eine Art Lexicon schreiben dazu fehlt mir nurnoch das der script das eingegebene Wort mit einer Liste abgleicht
und dann die Information Rausgibt.
Wer nett wenn einer schnellst möglich antwortet
MfG Brokolie
Hallo
Ich will eine Art Lexicon schreiben dazu fehlt mir nurnoch das der script das eingegebene Wort mit einer Liste abgleicht
und dann die Information Rausgibt.
Wer nett wenn einer schnellst möglich antwortet
MfG Brokolie
Kommt drauf an was das für eine Liste ist.
Datei,Listview,ListBox,...
P.S.:
Mit Code können wir dir wahrscheinlich besser helfen
datei
Wo ist Dein bisheriges Script?
ups sry
[autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\GUI\GUI'S\SceneLexicon.kxf
$SceneLexicon = GUICreate("Lexicon", 381, 104, 192, 124, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$wort = GUICtrlCreateInput("Lexicon by Brokolie", 16, 8, 145, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0x0080FF)
$Start = GUICtrlCreateButton("Start", 216, 8, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x646464)
$Close = GUICtrlCreateButton("Close", 216, 48, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x696969)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
$Icon1 = GUICtrlCreateIcon("C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\icons\Toolbox.ico", 0, 128, 32, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func _Check()
$read = GUICtrlRead($wort)
If $read = "UIN" Then
MsgBox(64,"Lösung","UIN ist eine ICQ-Nummer!")
Else
MsgBox(16,"Wort Unbekannt","Dieses Wort ist mir Unbekannt!")
EndIf
EndFunc
$read = GUICtrlRead($wort)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Close
Exit
Case $Start
_Check()
EndSwitch
WEnd
Eine Möglichkeit:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\GUI\GUI'S\SceneLexicon.kxf
$SceneLexicon = GUICreate("Lexicon", 381, 104, 192, 124, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$wort = GUICtrlCreateInput("Lexicon by Brokolie", 16, 8, 145, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0x0080FF)
$Start = GUICtrlCreateButton("Start", 216, 8, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x646464)
$Close = GUICtrlCreateButton("Close", 216, 48, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x696969)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
$Icon1 = GUICtrlCreateIcon("C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\icons\Toolbox.ico", 0, 128, 32, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Close
Exit
Case $Start
_Check()
EndSwitch
WEnd
Func _Check()
$file=FileRead("datei.txt")
$lines=StringSplit($file,@CRLF)
For $i = 1 to $lines[0]
$Split=StringSplit($lines[$i],"|")
If $Split[1] = GUICtrlRead($wort) Then
MsgBox(0,"Ergebnis",$Split[2])
ExitLoop
Else
MsgBox(0,"","Ende")
ExitLoop
EndIf
Next
EndFunc
Die Datei müsste dann so aussehen:
Suchwort|Erklärung
Suchwort2|Erklärung2
...
also schonmal danke...aber^^
wenn man was flasch eigitb kommt die ganze zeit "ende"
wenn man es wegdrückt kommt es neu
Geht auch mit IniRead:
#cs **************************************************************************
Wort abgleichn und Information widergeben
[/autoit] [autoit][/autoit] [autoit]http://www.autoit.de/index.php?page…0262#post120262
[/autoit] [autoit][/autoit] [autoit]#ce **************************************************************************
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\GUI\GUI'S\SceneLexicon.kxf
$SceneLexicon = GUICreate("Lexicon", 381, 104, 192, 124, BitOR($WS_POPUP, $WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$wort = GUICtrlCreateInput("Lexicon by Brokolie", 16, 8, 145, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0x0080FF)
$Start = GUICtrlCreateButton("Start", 216, 8, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x646464)
$Close = GUICtrlCreateButton("Close", 216, 48, 113, 33, 0)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
GUICtrlSetBkColor(-1, 0x696969)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0080FF)
$Icon1 = GUICtrlCreateIcon("C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\icons\Toolbox.ico", 0, 128, 32, 64, 64, BitOR($SS_NOTIFY, $WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Close
Exit
Case $Start
_Check()
EndSwitch
WEnd
Func _Check()
$read = GUICtrlRead($wort)
$answer = IniRead("Lexicon.ini", "Words", $read, "")
If $answer <> "" Then MsgBox(64, "Lösung", $answer)
EndFunc ;==>_Check
Die Inidatei muss dann so aussehen:
Habe den Code nochmal verbessert. Da fehlte nur der Befehl, die Schleife zu Beenden(Exitloop)
Oscar
Auch nicht schlecht
Danke klappt
ok is beides sehr buggi gibt es noch anderre möglichkeiten?
Was meinst Du mit "buggi"?
Wenn Fehler auftreten, dann bitte den Fehlertext posten.
kommt kein fehler wenn ich zb. den begriff "acc" (2. stelle im gesammten verzechnes) abfrage kommt die antwort wenn ich dann aber das letze "rofl" nehme passiert garnichts
Wie groß ist Deine Inidatei?
Es gab da AFAIR eine Größenbegrenzung. 64KB oder waren es 32KB?!
3kb daran kann es nicht liegen....
ps:nicht über die begriffe wundern/fragen stellen sie sind nicht von mir!
Du darfst in der Ini nur eine Sektion haben:
[Words]
6er-UIN="6-Stellige ICQ Nr"
Acc="Account"
Ano Sim="Anonyme Simkarte zum verifizieren von möglichem Mist"
AV="Antivirensoftware-AntiVir"
Binder="Bindet 2 EXE´n zu einer zusammen"
BD="Bankdrop"
BKD="Briefkastendrop"
Carden="mit einer geklauten Kreditkarte Sachen kaufen"
CC="Creditcard="Kreditkarte"
Clean="Frei von Viren-Trojanern"
Coden="Programmieren"
DDoS="Distributed Denial of Service - Angriff auf einen Host, um ihn lahmzulegen"
Deface="Eine Seite fremder Menschen übernehmen"
Drop="Ein Haus-Briefkasten-Packstation-Ort von Entgegennahme von gecardeter Ware"
Faken="mit einer geklauten Kreditkarte + Proxy Accounts usw kaufen auf Kosten anderer"
FF="Firefox"
FTP="File Transfer Protocol
FTP-Server="Webspace zum hochladen einer Website oder Viclogs"
FUD="Full Undetected="Nicht erkennbar von AV´s"
FUD Crypter="Ein Tool, welches deine Serverexe gegen AV sicher macht"
HD="Housedrop oder High Definition"
HDD="Hard Drive Disk"
Infected="Mit Viren-Trojaner infiziert"
Invalid="ungültig (zb Invalid CC)"
Kiddy="Unerfahrener und unreifer Noob"
Leecher="Jemand, der sich auf Boards geristriert um Accounts zu holen"
MD5="Ein bestimmter Hash, der Passwörter, etc verschlüsseln kann"
Noob-Newbie="Ein unwissender Neuling"
NP="Non Public - Nicht öffentlich"
Offline PSC="Offline erworbene Paysafecard, schwer fakebar! (Kauf an Tankstelle-kl Läden)"
Online PSC="Online erworbene Paysafecard, ist fakebar! (Kauf bei Paysafecardcom)"
OS="Betriebssystem"
PI="Poison Ivy - Ein bestimmter Trojaner"
Phishing="Nachgemachte Seiten, die Passwörter anderer auf deinem FTP Server speichern"
PP="Paypal - Zahlungsmethode (http:--wwwpaypalde-de)"
PS="Packstation"
PSC="Paysafecard"
Public="Etwas veröffentlichtes"
Rat="Remote Administrator Tool - Trojaner"
RS="Rapidshare"
SE="Social Engineering"
Selftested="Selbst getestet"
Spread(en)="Das Verteilen von Stealern-Rats-etc"
Stealer="Ein Tool, welches eine Datei erstellt, die durch klicken Passwörter anderer auf deinem FTP_Server speichert"
Socks5="Sicherer Proxy, der deine Ip versteckt, um anonym im Netz zu sein
Trade="Ein Handel"
TuT="Tutorial - Anleitung"
UD="Undetected="von manchen AV´s erkennbar"
UIN="Unique Identification Number - ICQ Nummer"
UL="Uploadedto"
Unused="Unbenutzt"
Valid="Gültig"
VB="Visual Basic"
Vic="Opfer"
Viclogs="Vom Stealer erstellte Textdateien in denen die Passwörter des Vics enthalten sind"
VM(Ware)="Virtual Machine, ein virtueller Computer auf dem man infizierte Programme ohne Bedenken öffnen kann"
VPN="Virtuelles privates Netzwerk"
VTut="Videotutorial"
WME-WMZ="Online Geldwährung"
XXX="Porns"
lol="Lachen"
rofl="Auf dem Boden kugeln vor Lachen"
omg="oh mein gott"
wtf="What the Fuck"
ftw="For the Win"
Alles anzeigen
Oscar ,
wenn Dein Name im Zusammenhang mit Lexika/Wörterbüchern fällt, assoziiere ich das SOFORT mit dem Dictionary-Objekt ...also lass die Jungs nicht hängen und zeig mal wie man so etwas "schnell" löst
Es stimmt zwar, dass ich das Dictionary-Objekt schon öfter benutzt habe, aber eigentlich verdanke ich das BugFix, denn der hat dazu ein schönes Tut geschrieben.
Und ich möchte Brokolie ja nicht einfach sein Programm schreiben. Er braucht doch noch etwas zum späteren optimieren.
Uii danke finds echt nice das man hier immer eine antwort bekommt
Klappt Super!
MfG Brokolie
@delet