Kann ich jetzt ned viel zu sagen, ICQ6 ist das Programm mit den meisten Bugs, das ich kenne, so ein schei** benutz ich nicht.
Aber ich denke mal, das dieses Fenster das aufgeht einen Titel hat. (Musste mal mit dem AutoIt Window Info Tool guggen)
Und dann musst du nur in einer Endloschelife überprüfen ob dieses Fenster existiert, wenn ja dann halt einen text schreiben.
Beiträge von anno2008
-
-
Hi,
Projekt? Was soll das fürn Projkt sein
Also kommt drauf an welche ICQ-Verson du hast. Mit einer Version, bei der immer Fenster aufgehen, sobald jmd. online kommt ist das eigentlich recht einfach./Edit: Willkommen im Forum .
-
Hi,
ich hab das mal gemacht, aber total komische Variablen benutzt, und ist auch nicht sehr übersichtlich. Werde das morgen alles verbessern, bin jetzt zu müde :).
FileWrite fehlt auch noch, bis jetzt gibt er alles nur als msgbox aus. Ich weis nicht ob das die einfachste Möglichkeit ist, bestimmt kommt jetzt einer und packt das in 2 Zeilen. So genug gelabert.Spoiler anzeigen
[autoit]$ersatzbuchstabe = "e:\"
[/autoit] [autoit][/autoit] [autoit]$file = FileOpen("muster.txt", 0)
[/autoit] [autoit][/autoit] [autoit]
$file2 = FileOpen("muster.txt", 1)While 1
[/autoit] [autoit][/autoit] [autoit]
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$laufwerksbuchstabe = stringleft($line, 3)
$ende = stringright($line, 3)
$ohnelaufwerksbuchstabe = StringReplace($line, $laufwerksbuchstabe, "")
[/autoit] [autoit][/autoit] [autoit]
$line2 = StringReplace($line, $laufwerksbuchstabe, "move" & " " & $laufwerksbuchstabe)
$line3 = StringReplace($line2, $ende, $ende & " " & $ersatzbuchstabe & $ohnelaufwerksbuchstabe)
msgbox(0,"",$line3)Wend
[/autoit] -
Hi,
benutzt die FF Funktionen von Stilgar, ...
FF FunktionenOder wenn du nur Internet Explorer benutzen kannst/willst benutzt _IE funktionen (siehe Hilfe)
Die IE Funktionen sind aber um einiges schwerer und komisch aufgebaut, beides lässt sich unsichtbar machen.
Und nenn sowas nicht Bot, weil der Name Bot in diesem Forum schon ein komischer Begriff darstellt .
-
Hi,
sieht mal wieder sehr nach Keylogger aus, ...WIe wäre wenn du mal einen Code posten würdest, umindest mal deinen Anfang, oder glaubst du wir schreiben dir hier ein ganzes Porgramm?
-
Hi,
du hast anstatt Null-D O-D geschrieben.Also:
Spoiler anzeigen
[autoit]#include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]Global $dll = DllOpen("user32.dll")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
If _IsPressed("0D", $dll) Then ExitLoop
Sleep(10)
WEndBeep(500, 500)
[/autoit] -
Mit dem Script funzts wunderbar
Spoiler anzeigen
[autoit]HotKeySet("{NUMPAD1}", "_1")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
HotKeySet("{NUMPAD2}", "_2")
HotKeySet("{NUMPAD3}", "_3")
HotKeySet("{NUMPAD4}", "_4")
HotKeySet("{NUMPAD5}", "_5")
HotKeySet("{NUMPAD6}", "_6")
HotKeySet("{NUMPAD7}", "_7")
HotKeySet("{NUMPAD8}", "_8")
HotKeySet("{NUMPAD9}", "_9")While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
sleep(100)
WEndFunc _1()
[/autoit]
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "1", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _2()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "2", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _3()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "3", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _4()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "4", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _5()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "5", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _6()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "6", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _7()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "7", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _8()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "8", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _9()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "9", ""))
sleep(50)
Send("{Enter}")
EndFunc -
-
-
Hi,
ich weis ja ned so genau was du machen willst, aber wenn du in die Hilfe geschaut hätest, hättest du gewusst, dass man das so schreiben muss:Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
HotKeySet("{NUMPAD1}", "_1")
HotKeySet("{NUMPAD2}", "_2")
HotKeySet("{NUMPAD3}", "_3")
HotKeySet("{NUMPAD4}", "_4")
HotKeySet("{NUMPAD5}", "_5")
HotKeySet("{NUMPAD6}", "_6")
HotKeySet("{NUMPAD6}", "_7")
HotKeySet("{NUMPAD6}", "_8")
HotKeySet("{NUMPAD6}", "_9")While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
sleep(100)
WEndFunc _1()
[/autoit] [autoit][/autoit] [autoit][/autoit]
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "1", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _2()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "2", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _3()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "3", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _4()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "4", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _5()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "5", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _6()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "6", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _7()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "7", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _8()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "8", ""))
sleep(50)
Send("{Enter}")
EndFunc
Func _9()
Send("{Enter}")
sleep(50)
Send(IniRead("Makro.ini", "System", "9", ""))
sleep(50)
Send("{Enter}")
EndFuncAußerdem hast du deine letzten 3 Tasten vergessen anzupassen, da hast du 3 mal NUMPAD6 stehn:
[autoit]HotKeySet("{NUMPAD1}", "_1")
[/autoit]
HotKeySet("{NUMPAD2}", "_2")
HotKeySet("{NUMPAD3}", "_3")
HotKeySet("{NUMPAD4}", "_4")
HotKeySet("{NUMPAD5}", "_5")
HotKeySet("{NUMPAD6}", "_6")
HotKeySet("{NUMPAD6}", "_7")
HotKeySet("{NUMPAD6}", "_8")
HotKeySet("{NUMPAD6}", "_9")Ich schätze das soll heißen
[autoit]HotKeySet("{NUMPAD1}", "_1")
[/autoit]
HotKeySet("{NUMPAD2}", "_2")
HotKeySet("{NUMPAD3}", "_3")
HotKeySet("{NUMPAD4}", "_4")
HotKeySet("{NUMPAD5}", "_5")
HotKeySet("{NUMPAD6}", "_6")
HotKeySet("{NUMPAD7}", "_7")
HotKeySet("{NUMPAD8}", "_8")
HotKeySet("{NUMPAD9}", "_9")Außerdem benutz doch bitte für längere Script Spoiler. Die kannst du entweder mit dem Button SP machen, oder mit [ Spoiler] ... [ /Spoiler] (ohne Leerzeichen).
-
Hi
Hab ma was geabstelt:
/Edit: Script VerbessertSpoiler anzeigen
[autoit]#Include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]HotKeySet("{END}", "Schleife")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
HotKeySet("{HOME}", "Close")While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
WEndFunc Schleife()
[/autoit] [autoit][/autoit] [autoit]
$dll = DllOpen("user32.dll")
While 1
If _IsPressed("41", $dll) Then
Send("y")
EndIf
If _IsPressed("53", $dll) Then
Send("x")
EndIf
If _IsPressed("44", $dll) Then
Send("x")
EndIfIf _IsPressed("0D", $dll) Then
[/autoit] [autoit][/autoit] [autoit]
While _IsPressed("0D", $dll)
Sleep(5)
WEnd
MsgBox(0,"","Anfang des Sleeps")Do
[/autoit] [autoit][/autoit] [autoit]
Sleep(5)
Until _IsPressed("0D", $dll)
While _IsPressed("0D", $dll)
Sleep(5)
WEnd
msgbox(0,"","Ende des Sleeps")
EndIf
WEnd
EndFunc ;==>SchleifeFunc Close()
[/autoit]
Exit 0
EndFunc ;==>Close -
Schliessen oder löschen?
Schliessen wäre exit, dann ist aber das Progrmam komplett aus.
Mit GUIDelete löscht man nur die GUI und kann dann ohne GUI weiterarbeiten. -
Du musst die msgbox wegdrücken
-
Das is in meinem Script schon gemacht, hab ich doch geschrieben :).
Du musst halt noch ein neues case machen, in dem der Name des Button geschrieben wird.
Also wie bei deinem ersten Beispiel mit dem input, nur, dass statt dem Namen des Inputs der Buttonname steht. -
GUICtrlReadist auch noch wichtig, das hatte Leupy auch noch vergessen gehabt. Man kann nämlich sehr wohl "http://" davor setzen.
-
Hi,
so reagiert er jetzt auf ENTER und auf den Knopfdruck alledings stimmt irgendwas mit deinen Befehlen nicht, weil die Msgbox leerbleibt.
/Edit: Verbessert, das $Input1 darf nicht in "" stehn, hab ich übersehen, so gehts:Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <misc.au3>#Region ### START Koda GUI section ### Form=D:\Eigene Dateien D\Programme\IPinger.kxf
[/autoit] [autoit][/autoit] [autoit]
$IPinger = GUICreate("IPinger", 603, 450, 193, 125)
GUISetBkColor(0xFFFFFF)
$IPinger = GUICtrlCreateLabel("IPinger", 224, 24, 160, 66)
GUICtrlSetFont(-1, 36, 800, 0, "Sylfaen")
$Schriftzug = GUICtrlCreateLabel ( "Das Tor zur Welt der IPs - Das Internet zeigt seine Namen", 160, 120, 283, 17)
$Input1 = GUICtrlCreateInput("Geben sie hier die URL ein", 136, 208, 329, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Lucida Console")
GUICtrlSetCursor (-1, 5)
$GO_IP = GUICtrlCreateButton("FIND IP", 256, 248, 75, 65, 0)
GUICtrlSetFont(-1, 12, 800, 2, "Sylfaen")
$Copyright = GUICtrlCreateLabel("(c) 2008 by Roman Leuprecht; Picture from NASA", 152, 416, 280, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
$Made_with_AutoIT = GUICtrlCreateLabel("Made with AutoIT(http://www.autoit.de)", 192, 432, 195, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GO_IP
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
Case $Copyright
EndSwitch
if _IsPressed("0D") Then
TCPStartup()
MsgBox(1+64, "IP",TCPNameToIP(GUICtrlRead($Input1)))
endif
WEnd -
Ohne code kann man da nicht viel sage.
Aber ich denke du benutzt den voreingestelleten oneventmode von koda, oder?
Du musst das dann mit _ispressed machen.
Post mal das Script, und man kann dir viel besser helfen . -
Zum Teil,...
die 2. while schleife wartet solange bis die Taste wieder losgelassen wird. D.h. solange die Taste runtergedrückt wird passiert noch gar ix, und erst wenn sie losgelassen wurde, wird der Text in das TExtdokument geschrieben. Vorher war es so, dass sobald es runtergedrückt wurde mehrmals erkannt wurde, dass m gedrückt ist.Der andere Fehler ist halt, wie du schon erkannt hast, dass die _Isperessed funtkion nicht von GUIGetMsg() zurückgegeben wird, und dass das halt dann nicht in die selbe Switch...Case...EndSwitch funktion reinkann.
-
Bei einer Anzahl von Möglickeiten, die kleiner ist als 9999999 ist es doch gar nicht so unwahrscheinlich, dass bei 1000000 Durchläufen doppelte Zahlen auftreten.
Es ist sogar wahrscheinlich, dass ncoh viel mehr doppelte Zahlen auftreten. -
Vielleicht Glück?
Ich weiß, das müsste mega Glück sein, aber bei mri wiederholt sich die Zahl keineswegs.Auszug aus der Hilfe:
ZitatThe Mersenne Twister is an algorithm for generating random numbers. It was designed with consideration of the flaws in various other generators. The period, 219937-1, and the order of equidistribution, 623 dimensions, are far greater. The generator is also fast; it avoids multiplication and division, and it benefits from caches and pipelines. For more information see the inventors' web page at http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html
Ich bin mir aber ziemlich sicher, dass das kein deterministischen Zufallszahlengenerator ist.