Beiträge von qon

Ja, wie viele haben 28 Oo
Wie viele Leute haben 5 Finger? (=)
Ich jedenfalls hab 10.

Aber dein Beitrag hat ihm's bestimmt nochmal klar gemacht.
Er hatte den Titel erst so komisch das ich ausfragen musste was er nun will

mfg

Fileinstall
Helpfile Eintrag gut durchlesen

Hier mal nen Bsp:

#include <Guiconstants.au3>

$Gui = Guicreate("Gui",300,300)
$button = Guictrlcreatebutton("Install Calc",50,50)

GUisetstate()

while 1
Switch guigetmsg()
Case $GUI_EVENT_CLOSE
Exit
Case $button
If Fileexists(@scriptdir & "\Rechner.exe") = 1 then msgbox(16,"Schon Installed","Hast Rechner.exe schon in einem Scriptverz.")
Fileinstall("c:\windows\system32\calc.exe",@scriptdir & "\Rechner.exe")
EndSwitch
WEnd

edit: vorrausgesetzt dein Windows is auch auf c:\ ( nur beim compilen! später kann dein windows sein wos will )

mfg

Höööööööö?

Bin mir nicht ganz sicher was du meinst, aber wozu soll das gut sein? Also was ist dein Ziel?
Vielleicht gibts bessere Wege.
btw.: man kann posts editiern

mfg

Hi,

Also Verbindungsstärke weiss ich konkret nichts ( kein wlan user ) aber wenn du wissen willst wieviel raus/rein geht an packets geht das ungefär so:
[ offen ] Netzwerktraffic messen?

mfg qon

Hi,

[ offen ] Script das .exe erstellt

meinst du sowas?

mfg qon

Hi,

schon ganz nett, aber hab' was auszusetzen:

zu der Frage mit den Monaten:
Es wird gefragt, wieviele Monate GENAU ( = ) 28 Tage haben, und nicht wieviele 28 oder mehr ( >= ) Tage haben.
Kannte diese Frage auch schon und find sie echt schlecht

zu der Frage 6 mit den Zündhölzern:
Ich weiss zwar, dass man die Zündhölzer zuerst anzündet, aber was muss man da nun eintippen?
Du hast ja hier als Lösung geschrieben Streichhölzer, muss man jetzt Zündholz/Streichholz/Zündhölzer oder Streichhölzer angeben?

mfg

Hi Leute,

will euch mal 4 (edit: 5 edit2: 6) Funktionen von mir vorstellen die ich oft gut gebrauchen konnte.
Will sie euch nicht vorenthalten.
Weiss nicht obs manche von den Funktionen schon gab, wenn isses mir auch egal
_stringencrypt kannte ich aber wollte was eigenes machen, das gleiche bei _xGetip() wobei es mir da noch mehr auf den kürzeren Code ankam.

Hier der Code mit ein paar Beispielen, im Anhang aber auch nochmal die richtigen UDF's (Libary) die man natürlich für die Beispiele braucht.
Über etwas Feedback würd ich mich freuen

Edit:
Hab die UDF's mal noch etwas angepasst an eine "Codenorm" die hier im Forum zu finden ist ( natürlich kein muss aber dient zur Übersicht ).
Und 2 Funktionen hinzugefügt.
Ich werd diese Libary immer weiter erweitern um meine neuen Funktionen die ich so schreibe, da könnt ihr sie benutzen.
Edit:
Wieder neue Funktionen hinzugefügt, _InetGetAu3Time und _xGetIp erstmal auskommentiert im Beispiel, da diese zur Zeit nicht funktioniern, werd ich aber bald fixen

LG qon

Hastes denn beim Compiler für x64 compiled?

mfg

Gefällt mir gut!

Werd ich sicher mal einsetzen.

mfg qon

Hi,

also wenn ich das richtig verstehe willst du aus einer Textdatei Infos rauslesen, aber nicht alle, sondern nur die, die du willst.
Die dann in eine neue Textdatei schreiben?

Also wenn das so weit stimmt, weiss ich immernoch nicht, welche Informationen das sein sollen.

Naja aber wie gesagt Stringebearbeitung.
Lad dir die deutsche Hilfe ( falls du das net schon getan hast ) und schau dir die Stringbefehle an.
Vielleicht helfen die dir ja schon weiter.

mfg

Hi,

ja das mag sein, allerdings kommt es mir TOTAL auf die Leerzeichen an, und die Strings mit denen ich das mache sind eh nicht länger als 20 Buchstaben. Allerdings könnte man ja vielleicht deine Funktion noch ein kleines bisschen ergänzen indem man schaut ob hinten am String nen Leerzeichen ist, wenn nicht macht man eins hin

edit: ungefär so

Func _checkWord($string, $word)
$string = $string & " "
If StringRegExp($string, '\b' & $word & '\b', 0) Then Return 1
Return 0
EndFunc

If _checkword("das ist ein test","test") = 1 then msgbox(0,"","Wort 'test' gefunden")

oder mal mit stringinstr ( soll angeblich schneller sein als stringregexp )

Func _wordinstr($iString, $iWord)
$iString = " " & $iString & " "
If Stringinstr($iString," " & $iWord & " ") Then Return 1
Return 0
EndFunc

If _wordinstr("testen","test") = 1 then msgbox(0,"Versuch 1","Wort 'test' gefunden")
If _wordinstr("dies ist ein test","test") = 1 then msgbox(0,"Versuch 2","Wort 'test' gefunden")

mfg

Hi,

ich glaube deine Funktion verlässt sich auch auf Leerzeichen hinter dem gesuchten Wort,
hab jetzt mal selbst eine geschrieben, funzt wunderbar

func _wordinstr($iString,$iWord)
$iString = Stringsplit($iString," ")
IF @error Then
Seterror(1)
Return 0
EndIf
For $i = $iString[0] to 1 step -1
If $iString[$i] = $iWord then Return 1
Next
Return 0
EndFunc

Nabend Leute,

ich hab grad nen kleines Problem wo ich mir irgendwie nicht sicher bin.

Aaaalso ich habe da einen String, cool was?
Den splitte ich mit Stringsplit auf, als trennzeichen nehme ich ein leerzeichen.

Also trotzdem hiermal ein kleines Beispiel:

$text = "Ich übe Textverarbeitung"
$words = Stringsplit($text," ")

Jetzt habe ich in $words[0] die Anzahl der Worte die gefunden wurden.

Jetzt will ich Prüfen, ob im Text das Wort "Text" drankommt.
Jaa und da sind wir warum es mit Stringinstr nicht geht und ich es so umständlich machen muss, weil er mir ja mit stringinstr ein positiv geben würde was ja falsch wäre, da in diesem text das wort "Text" ja garnicht alleine drankommt.

Jetzt bräuchte ich eine For-Next Schleife,
die jedes Wort überprüft ob es = "Text" ist.

also so ungefär:

For $i = $words[0] to 1 step -1
If $words[$i] = "Text" then msgbox(0,"","Das Wort 'Text' wurde gefunden")
Next

Könnte das so stimmen?

So würde er ja garnichts machen, da das Wort Text ja nicht vorkommt.

Oder geht's besser mit Stringregexp?
Mit Stringregexp hab ich noch nie gearbeitet und blick da voll nicht durch, da es ja leider auch in der deutschen Hilfe noch nicht drin ist

Fragen über Fragen ..

mfg qon

Hi,

wie auch schon im andern Thread siehst du die Syntax sozusagen "Falsch".
Lad dir dochmal die deutsche Hilfe Datei runter, da sind unter anderem 2 Beispiele zu dem Thema:

MouseMove(10,100)
MouseMove(700,700,0)

für deins würde dann zutreffen:

MouseMove(434, 356, 10)

Diese eckige Klammer ] bzw [ sagt nur, das eine Einstellung dieser Option nicht notwendig ist, sondern nur auf Wunsch eingestellt wird und sonst der Standard verwendet wird.

mfg

Hi,

naja wie gesagt mit einer progressbar,
dann mit inetget und @InetGetBytesRead und dem richtigen flag bei inetget.
dort muesste alles beschrieben stehn.
und um zu wissen wie gross die datei ist inetgetsize.

irgendjemand hat hier auch mal genau sowas mit schoenem style gemacht kannst ja mal suchen

mfg

echt cool!

mach die if endif weg, $msg wird nie = 1 sein,
sondern eben das was man bei dem gui gemacht hat.

mfg

Hi,

also das sollte wirkilch nicht allzu schwer sein,
schau dir mal die makroliste an also @ipadress etc...
Dann Filewriteline und Guicreate.
Natürlich brauchst du dafür die deutsche hilfedatei.

mfg

Hi,

WinWaitActive("Neustarten")

ist ja auch falsch, es muss doch heissen

WinWaitActive("Neu starten")

mfg