Ja, wie viele haben 28 Oo
Wie viele Leute haben 5 Finger? (=)
Ich jedenfalls hab 10.
Beiträge von qon
-
-
Aber dein Beitrag hat ihm's bestimmt nochmal klar gemacht.
Er hatte den Titel erst so komisch das ich ausfragen musste was er nun willmfg
-
Fileinstall
Helpfile Eintrag gut durchlesenHier mal nen Bsp:
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <Guiconstants.au3>$Gui = Guicreate("Gui",300,300)
[/autoit][autoit][/autoit][autoit]
$button = Guictrlcreatebutton("Install Calc",50,50)GUisetstate()
[/autoit][autoit][/autoit][autoit]while 1
[/autoit]
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
WEndedit: 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 editiernmfg
-
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,
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 schlechtzu 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 freuenSpoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include "qonLibary.au3";Beispiele _random09az
[/autoit] [autoit][/autoit] [autoit]
$lol = _Random09az(5000)
msgbox(0,"_random19az",$lol)$lol = _Random09az(5)
[/autoit] [autoit][/autoit] [autoit]
msgbox(0,"_random19az",$lol)$lol = _Random09az()
[/autoit] [autoit][/autoit] [autoit]
msgbox(0,"_random19az",$lol);Beispiele _inetgetau3time
[/autoit] [autoit][/autoit] [autoit]
;~ $lol = _inetgetau3time()
;~ msgbox(64,"Autoit.de Zeit","Autoit.de sagt mir, dass es jetzt " & $lol[0] & " Uhr ist.")
;~ _arraydisplay($lol);Beispiele _regread
[/autoit] [autoit][/autoit] [autoit]
$lol = _regread("Derkey\wirdsicher\nichgefunden","Wert","Der Standard :)")
msgbox(0,"_regread",$lol)$lol = _regread("Derkey\wirdsicher\nichgefunden","Wert")
[/autoit] [autoit][/autoit] [autoit]
msgbox(0,"_regread",@error);Beispiele _wordinstr
[/autoit] [autoit][/autoit] [autoit]
$lol = _wordinstr("Dies ist kein Sachtext","ein")
msgbox(0,"_wordinstr - stringinstr würde ja sagen (falsch wenn man ein wort sucht)",$lol)$lol = _wordinstr("Dies ist ein Sachtext","ein")
[/autoit] [autoit][/autoit] [autoit]
msgbox(0,"_wordinstr - stringinstr würde ja sagen (richtig auch wenn man ein wort sucht)",$lol);Beispiele _qoncrypt
[/autoit] [autoit][/autoit] [autoit]
$lol = _qoncrypt("Das hier ist ein Text",1)
msgbox(0,"_qoncrypt",$lol)
$lol = _qoncrypt($lol,0)
msgbox(0,"_qoncrypt",$lol)$lol = _qoncrypt("Das auch",1,10)
[/autoit] [autoit][/autoit] [autoit]
msgbox(0,"_qoncrypt",$lol)
$lol = _qoncrypt($lol,0,10)
msgbox(0,"_qoncrypt",$lol);Beispiel _xGetIp
[/autoit] [autoit][/autoit] [autoit]
;~ $lol = _xgetip()
;~ msgbox(0,"IP Address",$lol);Beispiele _IsPrime
[/autoit] [autoit][/autoit] [autoit]
$File = FileOpen("primenumbers.txt",1)
FileWriteLine($File,"all prime numbers between 1 and 1000")
For $i = 1 to 1000
If _IsPrime($i) = 1 Then
FileWriteLine($File,$i)
EndIf
Next
FileClose($File)
msgbox(0,"2063",_IsPrime(2063))
msgbox(0,"1385",_IsPrime(1385));Beispiele _GetCountry
[/autoit] [autoit][/autoit] [autoit]
$lol = _GetCountry()
msgbox(0,"Your Country",$lol);Beispiele _CheckIpConnect
[/autoit] [autoit][/autoit] [autoit]
$lol = _CheckIpConnect("192.168.0.200")
If $lol = 1 then
msgbox(0,"","du hast eine connection zur ip 192.168.0.200 [das ist in qons fall ein router]")
Else
msgbox(0,"","du hast KEINE connection zur ip 192.168.0.200 [das ist in qons fall ein router]")
EndIf;Beispiele _CheckProcessConnect
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
$lol = _CheckProcessConnect("icq.exe")
$lol2 = _CheckProcessConnect("icqlite.exe")
If $lol = 1 or $lol2 = 1 then
msgbox(0,"","du bist im icq connected ;)")
Else
msgbox(0,"","dein icq ist nicht connected")
EndIfEdit:
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 fixenLG 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
[autoit]
[/autoit][autoit][/autoit][autoit]
Func _checkWord($string, $word)
$string = $string & " "
If StringRegExp($string, '\b' & $word & '\b', 0) Then Return 1
Return 0
EndFuncIf _checkword("das ist ein test","test") = 1 then msgbox(0,"","Wort 'test' gefunden")
[/autoit]oder mal mit stringinstr ( soll angeblich schneller sein als stringregexp )
[autoit]
[/autoit][autoit][/autoit][autoit]
Func _wordinstr($iString, $iWord)
$iString = " " & $iString & " "
If Stringinstr($iString," " & $iWord & " ") Then Return 1
Return 0
EndFuncIf _wordinstr("testen","test") = 1 then msgbox(0,"Versuch 1","Wort 'test' gefunden")
[/autoit]
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,
[autoit]
hab jetzt mal selbst eine geschrieben, funzt wunderbar
[/autoit]
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:
[autoit]
[/autoit]
$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:
[autoit]
[/autoit]
For $i = $words[0] to 1 step -1
If $words[$i] = "Text" then msgbox(0,"","Das Wort 'Text' wurde gefunden")
NextKö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 istFragen über Fragen ..
mfg qon
-
Hi,
wie auch schon im andern Thread siehst du die Syntax sozusagen "Falsch".
[autoit]
Lad dir dochmal die deutsche Hilfe Datei runter, da sind unter anderem 2 Beispiele zu dem Thema:
[/autoit]
MouseMove(10,100)
MouseMove(700,700,0)für deins würde dann zutreffen:
[autoit]
[/autoit]
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