ich hab keine Ahnung, sorry!
Beiträge von x0r
-
-
Du könntest auch alternativ die *.au3 hier anhängen
Da klickst einfach unter diesem Schreibfenster bei "Smileys" auf "Dateianhänge" - fertig!
Edit:
"Erlaubte Dateiendungen: 7z, au3, bmp, gif, ini, jpeg, jpg, lua, pdf, png, rar, txt, zip"
-
Hi tv_freeze,
sorry, aber ich werd mir garantiert keine fremde *.exe runterladen und ausführen
Tipp: "Kürzere" Codes erstellst du mit Mausklick auf das "AutoIT-Zeichen" und vorher ggf auf "SP" für Spoiler.
Beispiel:
Spoiler anzeigen
[autoit]For $i = 1 to 10
[/autoit]
Sleep($i)
NextGruß
x0r -
Hi,
liegt dran, dass Integer nicht mehr darstellen kann (vermute ich mal!)
Denn:
[autoit]MsgBox(0,"",test(10000000000000000))
[/autoit][autoit][/autoit][autoit]func test($i)
[/autoit]
return $i * $i
EndFunchier kommt auch was negatives raus
-
Hi,
also ich hätte es per "for next" gelöst, statt mit Rekursion
[autoit]MsgBox(0,"",fakultaet(20))
[/autoit][autoit][/autoit][autoit]func fakultaet($x)
[/autoit]
local $i, $res
$res = 1
for $i = 1 to $x
$res = $res * $i
Next
return $res
EndFuncGruß
x0r -
Edit: habs suboptimal gelöst, und zwar hab ich einfach pro partner je 1 kunden auslesen lassen und das ganze mit verschieden aufgereihten partnerlisten bewerkstelligt. reicht aber für meine zwecke, denke ich!
Dickes Danke an Redhead!
Gruß
x0r -
danke, das hab ich schon so gebastelt, dass es einigermaßen hin haut
code bis jetzt:
Spoiler anzeigen
[autoit]#include <file.au3>
[/autoit] [autoit][/autoit] [autoit]dim $a_inhalt_von_txt_partner, $a_inhalt_von_txt_kunden
[/autoit] [autoit][/autoit] [autoit]_FileReadToArray("Input_Partner.txt",$a_inhalt_von_txt_partner)
[/autoit] [autoit][/autoit] [autoit]
_FileReadToArray("Input_Kunden.txt",$a_inhalt_von_txt_kunden)$output = FileOpen("Output_KP.txt",2)
[/autoit] [autoit][/autoit] [autoit]$i_counter = 0
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To UBound($a_inhalt_von_txt_partner) - 1
[/autoit] [autoit][/autoit] [autoit]$partner_string = StringLeft($a_inhalt_von_txt_partner[$i],8)
[/autoit] [autoit][/autoit] [autoit]dim $a_inhalt_von_txt_kunden = ""
[/autoit] [autoit][/autoit] [autoit]_FileReadToArray("Input_Kunden.txt",$a_inhalt_von_txt_kunden)
[/autoit] [autoit][/autoit] [autoit]For $m = 1 To UBound($a_inhalt_von_txt_kunden) - 1
[/autoit] [autoit][/autoit] [autoit]If StringInStr($a_inhalt_von_txt_kunden[$m], $partner_string) Then
[/autoit] [autoit][/autoit] [autoit]
FileWriteLine($output, $a_inhalt_von_txt_partner[$i] & ";EOP;SOA;" & $a_inhalt_von_txt_kunden[$m])
_FileWriteToLine("Input_Kunden.txt",$m,"cleared",1)
$i_counter += 1
ElseIf $i_counter = 4 Then
$i_counter = 0
ExitLoop
EndIfNext
[/autoit] [autoit][/autoit] [autoit];~ If $i_counter = 4 Then ExitLoop
[/autoit] [autoit][/autoit] [autoit]Next
[/autoit]allerdings fügt er mir nun mehr als 4 partner mit entsprechenden kunden ein (kunden sind einzigartig, also das stimmt schonmal)
und das andere problem ist, ich müsste zuerst die kunden mit weniger nummern dran nehmen, denn die werden sonst gar nicht mehr gezählt und fallen weg (reinfolgen-problem).soweit läuft aber schonmal was dank dir
Gruß
x0r -
1000 Dank, werds morgen direkt testen
-
Hi all,
ich habe 2 Textdateien mit Informationen (aus Excel exportiert und als CSV bzw TXT gespeichert), die wie folgt aussehen:
PTNR.txt:
10001071;Diverse Informationen 1
36961238;Diverse Informationen 2KDNR.txt:
10000675,10046615,10001071,;Diverse andere Informationen 1
10039063,10000675,10046615,;Diverse andere Informationen 2Jetzt möchte ich die 8-stellige Zahl am Anfang der ersten Datei mit den Zahlen aus der zweiten Datei vergleichen und wenn diese drin vorkommt, in eine dritte Datei mit allen "Diverse Informationen" aus der entsprechenden Zeile ("KDNR" und "PTNR") schreiben.
Allerdings sollen für "PTNR" maximal 4 "KDNR"-Einträge eingetragen werden (die bereits genutzten Zeilen können gelöscht werden).Edit: Doppelte aus der "KDNR" löschen ist Blödsinn, sorry! (also bitte drin lassen!)
Mein Lösungsansatz wäre bis jetzt folgender:
Spoiler anzeigen
[autoit]#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]$x = 1
[/autoit] [autoit][/autoit] [autoit]$partner = FileOpen("PTNR.txt",0)
[/autoit] [autoit][/autoit] [autoit]
$kunde = FileOpen("KDNR.txt",0)
$kdpt = FileOpen("KDPT.txt",1)$rp = FileReadLine($partner,1)
[/autoit] [autoit][/autoit] [autoit]$rnum = StringLeft($rp,8)
[/autoit] [autoit][/autoit] [autoit]$rk = FileReadLine($kunde,1)
[/autoit] [autoit][/autoit] [autoit]if StringInStr($rk,$rnum) Then
[/autoit] [autoit][/autoit] [autoit]
FileWriteLine($kdpt,$rp & ";" & $rk)
_FileWriteToLine("PTNR.txt",$i,"",1)
$x += 1
EndIfif $x >= 4 Then
[/autoit]
_FileWriteToLine("KDNR.txt",1,"",1)
$x = 1
EndIfDa fehlt leider noch einiges, der Testlauf mit einem Testdatensatz in Zeile 1 hat funktioniert, aber leider wars das dann auch schon
Hoffe ihr könnt mir helfen
Grüße
x0r -
Hi,
nach Zeile 132 fehlt ein "EndIf"
Grüßle
x0r -
Hi Ilse,
um die Mausbewegung langsamer zu machen, einfach die "0" hintendran durch eine Zahl austauschen (je höher, desto langsamer):
z.b.:
MouseMove(10,$midy*2-10,1)Edit: "MouseMove(<x>,<y>,[speed])"
"1" ist schon langsamer, geht aber noch einiges, einfach mal in die Hilfe schauen
Bei Maus größer machen kann ich dir leider nicht helfen, sorry!!!
Grüße
x0r -
Hi Ilse,
du musst auch zuerst mal auf Space drücken zum aktivieren
Wenns schon beim Start direkt aktiviert sein soll, musst du halt $toggle auf 1 setzen
Edit: Hab oben mal noch Num0 hinzugefügt für "klick" an der Stelle.
Edit2: Noch schnell das zurücksetzen korrigiertGruß
x0r -
Hi,
coole Sache!!!
Könnte man da noch eine Computergegner-Option mit einbauen?
Grüße
x0r -
Facebook verkauft auch die Nutzerdaten, von daher ists nur fair wenn er ein paar automatische Klicks ausführt
Grüße
-
Hi,
Hätte eine schnelle Lösung, allerdings noch optimierbar
So würds ich lösen, und hauptsache es funktioniert!
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_UseX64=n
#include <misc.au3>dim $toggle = 1, $deskh, $deskw, $midx, $midy
[/autoit] [autoit][/autoit] [autoit]$deskw = @DesktopWidth
[/autoit] [autoit][/autoit] [autoit]
$deskh = @DesktopHeight
$midx = $deskw / 2
$midy = $deskh / 2HotKeySet("{space}","toggle")
[/autoit] [autoit][/autoit] [autoit]while 1
[/autoit] [autoit][/autoit] [autoit]
sleep(1)
if $toggle = 1 Then
HotKeySet("{numpad1}","dl")
HotKeySet("{numpad2}","dm")
HotKeySet("{numpad3}","dr")HotKeySet("{numpad4}","ml")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{numpad5}","mm")
HotKeySet("{numpad6}","mr")HotKeySet("{numpad7}","ul")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{numpad8}","um")
HotKeySet("{numpad9}","ur")HotKeySet("{numpad0}","click")
[/autoit] [autoit][/autoit] [autoit]
Else
HotKeySet("{numpad1}")
HotKeySet("{numpad2}")
HotKeySet("{numpad3}")HotKeySet("{numpad4}")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{numpad5}")
HotKeySet("{numpad6}")HotKeySet("{numpad7}")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{numpad8}")
HotKeySet("{numpad9}")HotKeySet("{numpad0}")
[/autoit] [autoit][/autoit] [autoit]
EndIf
WEnd;unten
[/autoit] [autoit][/autoit] [autoit]
func dl()
MouseMove(10,$midy*2-10,0)
EndFunc
func dm()
MouseMove($midx,$midy*2-10,0)
EndFunc
func dr()
MouseMove($midx*2-10,$midy*2-10,0)
EndFunc;mitte
[/autoit] [autoit][/autoit] [autoit]
func ml()
MouseMove(10,$midy,0)
EndFunc
func mm()
MouseMove($midx,$midy,0)
EndFunc
func mr()
MouseMove($midx*2-10,$midy,0)
EndFunc;oben
[/autoit] [autoit][/autoit] [autoit]
func ul()
MouseMove(10,10,0)
EndFunc
func um()
MouseMove($midx,10,0)
EndFunc
func ur()
MouseMove($midx*2-10,10,0)
EndFuncfunc click()
[/autoit] [autoit][/autoit] [autoit]
$coord = MouseGetPos()
MouseClick("left",$coord[0],$coord[1],1,0)
EndFuncfunc toggle()
[/autoit] [autoit][/autoit] [autoit][/autoit]
$toggle = _Iif($toggle = 1,0,1)
EndFuncKann es sein, dass man bei HotKeySet() keine Parameter übergeben kann? (sowas steht nämlich in der Hilfe :D)
Edit: Tasten aktualisiert
Gruß
x0r -
So,
die bis jetzt optimalste Lösung wäre folgende:
Dieses Sicherheits-Fenster wird einfach per ESC beendet und somit die komplette Datenbank, wenn die Shift-Taste in diesem Fenster gedrückt wird.
Lässt sich für 10 Sekunden deaktivieren, wenn man die "Admin-Tastenkombination" kennt, in dem fall WinTaste+N.Dann muss die Datenbank zwar geschlossen und wieder neu geöffnet werden, aber so lernen es die Leute wenigstens
Spoiler anzeigen
[autoit]#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\stop.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****#include <misc.au3>
[/autoit] [autoit][/autoit] [autoit]dim $enabled = 1, $time = TimerInit()
[/autoit] [autoit][/autoit] [autoit]HotKeySet("#n","disable")
[/autoit] [autoit][/autoit] [autoit]while 1
[/autoit] [autoit][/autoit] [autoit]
if WinExists("Sicherheitswarnung") and _IsPressed(10) and $enabled = 1 Then
send("{esc}")
EndIfif TimerDiff($time) > 10000 Then
[/autoit] [autoit][/autoit] [autoit]
$enabled = 1
$time = TimerInit()
EndIfsleep(1)
[/autoit] [autoit][/autoit] [autoit]
WEndfunc disable()
[/autoit]
$enabled = 0
EndFuncGrüße
x0r -
Schönen guten Morgen!
Habe es gerade getestet, selbes Problem, wie bei meinem Script.
Die Pfeiltasten sind _überall_ deaktiviert, ausser in diesem "Sicherheitswarnung"-Fenster von Access!
So ein Mist!
Gruß
x0r -
K4z: THX!! Ich werds morgen mal testen
Raupi : ich hatte das HotKeySet auch schon oben drin stehen, vor der While-Schleife (glaub ich hatte es in aller Eile nur nochmal drunter kopiert).
Wie gesagt, die Pfeiltasten waren auch gesperrt, nur eben nicht in diesem "Sicherheitswarung"-Fenster in AccessEdit: Das besagte Fenster ist auch kein Control, zumindest wird mir per Au3Info nichts dergleichen zurückgegeben. Schade!
Gruß
x0r -
Hi all,
wenn man MS Access öffnet, kommt zuerst die "Sicherheitswarnung". In dieser möchte ich die Pfeiltasten sperren.
Grund ist folgender:
Ich habe eine Routine erstellt, die beim Drücken der Shift-Taste die Controls deaktiviert und diese solange nicht mehr anklickbar sind, bis Shift losgelassen wird.
Das Problem ist aber, wenn man Shift gedrückt hält und dann mit den Pfeiltasten navigiert, kommt man trotzdem zum Ziel...Mit folgendem funktioniert dies aber leider nicht (dafür aber überall sonst!):
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{right}", "go")func go()
[/autoit]
sleep(1)
EndFuncEdit: Der bisherige Code:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#NoTrayIcon
#include <misc.au3>dim $enabled = 1, $time = TimerInit()
[/autoit] [autoit][/autoit] [autoit]HotKeySet("^!d","disable")
[/autoit] [autoit][/autoit] [autoit]while 1
[/autoit] [autoit][/autoit] [autoit]if WinExists("Sicherheitswarnung") and $enabled Then
[/autoit] [autoit][/autoit] [autoit]if _IsPressed(10) Then
[/autoit] [autoit][/autoit] [autoit]
WinSetState("Sicherheitswarnung","",@SW_DISABLE)
Else
WinSetState("Sicherheitswarnung","",@SW_ENABLE)
EndIf
EndIfif TimerDiff($time) > 10000 Then
[/autoit] [autoit][/autoit] [autoit]
$enabled = 1
$time = TimerInit()
EndIfsleep(1)
[/autoit] [autoit][/autoit] [autoit]
WEndfunc disable()
[/autoit] [autoit][/autoit] [autoit]
$enabled = 0
EndFuncHotKeySet("{right}", "go")
[/autoit] [autoit][/autoit] [autoit]func go()
[/autoit]
sleep(1)
EndFunc...lässt sich für ca 10 Sekunden per Strg+Alt+D deaktivieren.
Funktioniert soweit auch perfekt, Mausklicks sind nicht mehr möglich, nur leider die Pfeiltasten noch.
Danke und Grüße
x0r -
Hi,
wäre in dem Fall nicht einfacher, wenn man folgendes verwendet?
[autoit]
[/autoit]
#include <inet.au3>
$source = _INetGetSource('http://www.google.de')
MsgBox(0,"",$source)Gruß
x0r