Ja Der Code von AspirinJunkie ließt doch den Wert aus der Registry aus
Beiträge von Schrubber
-
-
Warum machst du dann keine Abfrage, ob ein Fenster mit dem Titel (Das, was du weggekrickel hast) vorhanden ist?
Normal öffnet sich dieses Fenster doch erst, wenn auch eine Verbindung besteht, oder? -
Bei mir funktioniert es einwandfrei. Einfach den Code ausführen, sollte sich dann auch sogleich ein MSGFenster öffnen.
-
Post mal nen Screen von der Meldung, wenn der Connectversuch erfolgreich war.
-
Du willst, wenn du bei deinem Tool z.B. "http://www.google.de" eingibst, dass er anstatt auf die Domain auf die IP conntectet, also auf die, weche unter cmd -> Ping google.de kommt?
-
Zitat
@AppDataDir & \Roaming\Microsoft\Internet Explorer\Quick Launch
Windows Vista Quicklaunch Ordner
-
Ist das der ganze Code?
Mir würde einfallen, vll eine weitere Func Class zu machen, die erst ausgeführt wird, wenn eine Verbindung besteht.
Dafür lässt sich vielleicht ein Text, der beim Ende der Zertifikatenprüfung, vll filtern.Kenne mich damit noch nicht so wirklich aus. Weckt aber Interesse
-
Ja ohne Code ist das schwer zu sagen
Stell dochmal den Code ohne Informationen über deinen Root rein
-
Ähm, wenn ich deinen Code testen will, krieg ich direkt beim Start den Fehler, dass die URL kein Youtube-Link ist, ohne eine Chance zu haben, was einzugeben. ???
Desweiteren gibt er mir den Fehler aus, Dass die Variable in Zeile 50 (Die $URL) nicht deklariert wurde :o? -
Habe (Auto)Bernd´s Code genommen und nochmal soweit geändert, dass Alt F4, Alt Tab usw. nicht mehr funktioniert.
Minimiren funktioniertnichtmehr, da das Fenster direkt wieder aktiviert wird. Oben Rechts das Fenster Schließen gehtdurch löschen der GUI_EVENT_CLOSE nicht.
[autoit]#include <GuiConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]
#include <Misc.au3>Opt("MustDeclareVars", 1)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Local $GUI, $coords[4], $input1, $label2, $bLoop, $text, $btnOK, $msg
[/autoit][autoit][/autoit][autoit]
$GUI = GUICreate("Zugriff Verweigert!!!", 630, 451, 407, 267)
GUISetBkColor(0xff5001, $GUI)
$label2 = GUICtrlCreateLabel("Wenn du nicht MiluBarakus bist solltest du hier schnell verschwinden.", 39, 50, 350, 40)
$input1 = GUICtrlCreateInput("", 39, 80, 350, 20)
$btnOK = GUICtrlCreateButton("an&melden", 39, 110, 70)
$bLoop = 0
GUISetState()While $bLoop < 3
[/autoit][autoit][/autoit][autoit]
if WinExists("Windows Task-Manager") = true Then
WinClose("Windows Task-Manager")
EndIfif _isPressed(10) = true or _isPressed(11) or _ispressed(12) Then
[/autoit][autoit][/autoit][autoit]
ToolTip("Don´t try to kill the Tool!")
EndIfWinactivate("Zugriff Verweigert!!!")
[/autoit][autoit][/autoit][autoit]$coords = WinGetPos($GUI)
[/autoit]
_MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
$msg = GUIGetMsg()
Switch $msg
case $GUI_EVENT_CLOSE
MSGBox(1, "Warning", "Don´t try to kill the Tool!")
case $btnOK
$bLoop += 1
$text = GUICtrlRead($input1)
If $text <> "test" Then
If $bLoop = 3 Then
MsgBox(4096, "Error", "You typed in the wrong thing for 3 Times =>EXIT!")
ExitLoop
Else
MsgBox(4096, "Error", "You typed in the wrong thing - try again!")
shellexecute("www.link.de")
EndIf
Else
MsgBox(4096, "AutoIt Example", "You typed in the correct word! Congrats.")
ExitLoop
EndIf
EndSwitch
_MouseTrap()
WEnd -
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GuiConstantsEx.au3>
#include <Misc.au3>Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Local $GUI, $coords[4], $input1, $label2, $bLoop, $text, $btnOK, $msg
[/autoit] [autoit][/autoit] [autoit]
$GUI = GUICreate("Zugriff Verweigert!!!", 630, 451, 407, 267)
GUISetBkColor(0xff5001, $GUI)
$label2 = GUICtrlCreateLabel("Wenn du nicht MiluBarakus bist solltest du hier schnell verschwinden.", 39, 50, 350, 40)
$input1 = GUICtrlCreateInput("", 39, 80, 350, 20)
$btnOK = GUICtrlCreateButton("an&melden", 39, 110, 70)
$bLoop = 0
GUISetState()While $bLoop < 3
[/autoit] [autoit][/autoit] [autoit]
if WinExists("Windows Task-Manager") = true Then
WinClose("Windows Task-Manager")
EndIfif _isPressed(10) = true or _isPressed(11) or _ispressed(12) Then
[/autoit] [autoit][/autoit] [autoit]
ToolTip("Don´t try to kill the Tool!")
EndIf$coords = WinGetPos($GUI)
[/autoit] [autoit][/autoit] [autoit][/autoit]
_MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
$msg = GUIGetMsg()
Switch $msg
case $GUI_EVENT_CLOSE
MSGBox(1, "Warning", "Don´t try to kill the Tool!")
case $btnOK
$bLoop += 1
$text = GUICtrlRead($input1) ;Fragt das eingegebene Password ab
If $text <> "test" Then
If $bLoop = 3 Then
;WinWaitActive("Zugriff Verweigert!!!")
MsgBox(4096, "Error", "You typed in the wrong thing for 3 Times =>EXIT!")
ExitLoop
Else
MsgBox(4096, "Error", "You typed in the wrong thing - try again!")
shellexecute("www.link.de")
EndIf
Else
MsgBox(4096, "AutoIt Example", "You typed in the correct word! Congrats.")
ExitLoop
EndIf
;Sleep(10) ist beim Einsatz von GuiGetMsg nicht notwendig
EndSwitch
_MouseTrap()
WEndNun geht keine Tastenkombi mehr außer Windows + M.
-
Klar gehts dann noch Das Case $Gui_Event_Close ist nur das X oben rechts in der Ecke, oder irre ich mich da?
-
Schließbar mit Alt+F4 und Escape :o Umgehbar mit Windows + M. Schau dir doch dieses Hook Zeugs nochmal an So schwer isses nicht
-
Bin mir zwar nicht sicher, ob das die feine Art ist, aber ich würds so machen:
[autoit]
[/autoit]
case $Button
shellexecute("www.link.de") -
[autoit]
[/autoit]
if WinExists("Windows Task-Manager") = true Then
WinClose("Windows Task-Manager")
EndIfUnd war:
Direkt nach
[autoit]While $bLoop < 3
[/autoit]Edit:
Kleiner Tipp:
Ich würd die Tastenkombination Alt+Tab auch blockieren, Genauso wie Windows + m und Alt+F4.
Was bringt sonst, wenn Taskmanager nicht möglich zu öffnen ist, aber die Sperre per Alt+F4 umgänglich ist? -
okay dank dir
Funktioniert nun alles, muss nur noch eine kopieren-funktion reinmachen und dass man seine Ergebnisse auch speichern kann :o
-
Okaay thx Bernd
Hab das Script nun soweit verändert, dass alle Eingaben usw. funktionieren. Nur ich habe keine Ahnung, wie ich das eigentliche Rechnen mache :o
Meine Rechenoperatoren werden in $operatoren gesetzt.
Beim klick aufs plus wird die zuerst eingegebene Zahl als $zwischenspeicher gesetzt.
Also müsste ja theoretisch bei plus stehen: $zwischenspeicher $operator $1
Aber wie verbinde ich das? :oEdit:
Hab ne andere Lösung dafür gefunden, aber ich kriege immer die Lösung 6 bei egal welcher Addition :oSpoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('GUICloseOnESC',1)
#Region ### START Koda GUI section ### Form=
$Zwischenspeicher = ""
$Zwischenspeicher2 = ""
$operator = ""
$Title = GUICreate("Taschenrechner", 210, 228, 200, 100)
$menu1 = GUICtrlCreateMenu("Main")
$menu11 = GUICtrlCreateMenuitem("About", $menu1)
$menu12 = GUICtrlCreateMenuitem("Exit", $menu1)
$1 = GUICtrlCreateInput("", 8, 10, 193, 21)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT+$GUI_DOCKHEIGHT)
$zahl1 = GUICtrlCreateButton("1", 8, 120, 33, 33, $WS_GROUP)
$zahl2 = GUICtrlCreateButton("2", 48, 120, 33, 33, $WS_GROUP)
$zahl3 = GUICtrlCreateButton("3", 88, 120, 33, 33, $WS_GROUP)
$zahl4 = GUICtrlCreateButton("4", 8, 80, 33, 33, $WS_GROUP)
$zahl5 = GUICtrlCreateButton("5", 48, 80, 33, 33, $WS_GROUP)
$zahl6 = GUICtrlCreateButton("6", 88, 80, 33, 33, $WS_GROUP)
$zahl7 = GUICtrlCreateButton("7", 8, 40, 33, 33, $WS_GROUP)
$zahl8 = GUICtrlCreateButton("8", 48, 40, 33, 33, $WS_GROUP)
$zahl9 = GUICtrlCreateButton("9", 88, 40, 33, 33, $WS_GROUP)
$Zahl0 = GUICtrlCreateButton("0", 8, 160, 73, 33, $WS_GROUP)
$komma = GUICtrlCreateButton(",", 88, 160, 33, 33, $WS_GROUP)
$plus = GUICtrlCreateButton("+", 128, 160, 33, 33, $WS_GROUP)
$minus = GUICtrlCreateButton("-", 128, 120, 33, 33, $WS_GROUP)
$mal = GUICtrlCreateButton("*", 128, 80, 33, 33, $WS_GROUP)
$durch = GUICtrlCreateButton("/", 128, 40, 33, 33, $WS_GROUP)
$gleich = GUICtrlCreateButton("=", 168, 120, 33, 73, $WS_GROUP)
$Pi = GUICtrlCreateButton("Pi", 168, 80, 33, 33, $WS_GROUP)
$clear = GUICtrlCreateButton("Clear", 168, 40, 33, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]$nMsg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]
Switch $nMsgCase $menu11
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "About", "Scripter: Tim 'Schrubber' Lübbe")Case $menu12, $GUI_EVENT_CLOSE
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "Exit", "Danke, dass sie den Taschenrechner benutzt haben.")
ExitCase $clear
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, "")Case $zahl0
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
if($1 = "") then
GUICtrlSetData ($1, GUICtrlRead ($1) & "0")
Else
MSGBox(1, "Error", "Du kannst eine 0 nicht als erste Stelle setzen!")
EndIfCase $zahl1
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "1")Case $zahl2
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "2")Case $zahl3
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "3")Case $zahl4
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "4")Case $zahl5
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "5")Case $zahl6
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "6")Case $zahl7
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "7")Case $zahl8
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "8")Case $zahl9
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData ($1, GUICtrlRead ($1) & "9")Case $plus
[/autoit] [autoit][/autoit] [autoit]
$operator = "+"
GUICtrlSetData ($Zwischenspeicher, GUICtrlRead ($1) & "")
GUICtrlSetData ($1, "")Case $minus
[/autoit] [autoit][/autoit] [autoit]
$operator = "-"Case $durch
[/autoit] [autoit][/autoit] [autoit]
$operator = "/"Case $mal
[/autoit] [autoit][/autoit] [autoit]
$operator = "*"Case $komma
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "Fehler", "Diese Funktion gibt es noch nicht :)")Case $pi
[/autoit] [autoit][/autoit] [autoit]
$1 = "3,141592"Case $gleich
[/autoit] [autoit][/autoit] [autoit]
$Zwischenspeicher2 = $1
if($operator = "+") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher + $Zwischenspeicher2)ElseIf($operator = "-") Then
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "Ergebnis", $Zwischenspeicher - $Zwischenspeicher2)ElseIf($operator = "*") Then
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "Ergebnis", $Zwischenspeicher * $Zwischenspeicher2)ElseIf($operator = "/") Then
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "Ergebnis", $Zwischenspeicher / $Zwischenspeicher2)Else
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "Error", "Es ist ein Fehler aufgetreten. Bitte wenden sie sich an den Scripter!")EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]EndSwitch
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
WEND -
Hallo Leutz
Ich bin grad mal dabei, einen kleinen, eigenen, Taschenrechner zu schreiben.
Das vorerst Design besteht bereits, ganz schlichtDas Script bis jetzt:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet("{ESC}", "_schliessen")
#Region ### START Koda GUI section ### Form=
$Ausgabe = ""
$Title = GUICreate("Taschenrechner", 210, 228, 200, 100)
$menu1 = GUICtrlCreateMenu("Main")
$menu11 = GUICtrlCreateMenuitem("About", $menu1)
$menu12 = GUICtrlCreateMenuitem("Exit", $menu1)
$Label1 = GUICtrlCreateLabel($Ausgabe, 8, 10, 193, 21)
GUICtrlSetResizing(-1, $GUI_DOCKRIGHT+$GUI_DOCKHEIGHT)
$zahl1 = GUICtrlCreateButton("1", 8, 120, 33, 33, $WS_GROUP)
$zahl2 = GUICtrlCreateButton("2", 48, 120, 33, 33, $WS_GROUP)
$zahl3 = GUICtrlCreateButton("3", 88, 120, 33, 33, $WS_GROUP)
$zahl4 = GUICtrlCreateButton("4", 8, 80, 33, 33, $WS_GROUP)
$zahl5 = GUICtrlCreateButton("5", 48, 80, 33, 33, $WS_GROUP)
$zahl6 = GUICtrlCreateButton("6", 88, 80, 33, 33, $WS_GROUP)
$zahl7 = GUICtrlCreateButton("7", 8, 40, 33, 33, $WS_GROUP)
$zahl8 = GUICtrlCreateButton("8", 48, 40, 33, 33, $WS_GROUP)
$zahl9 = GUICtrlCreateButton("9", 88, 40, 33, 33, $WS_GROUP)
$Zahl0 = GUICtrlCreateButton("0", 8, 160, 73, 33, $WS_GROUP)
$komma = GUICtrlCreateButton(",", 88, 160, 33, 33, $WS_GROUP)
$plus = GUICtrlCreateButton("+", 128, 160, 33, 33, $WS_GROUP)
$minus = GUICtrlCreateButton("-", 128, 120, 33, 33, $WS_GROUP)
$mal = GUICtrlCreateButton("*", 128, 80, 33, 33, $WS_GROUP)
$durch = GUICtrlCreateButton("/", 128, 40, 33, 33, $WS_GROUP)
$gleich = GUICtrlCreateButton("=", 168, 120, 33, 73, $WS_GROUP)
$Pi = GUICtrlCreateButton("Pi", 168, 80, 33, 33, $WS_GROUP)
$clear = GUICtrlCreateButton("Clear", 168, 40, 33, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###func _schliessen()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncWhile 1
[/autoit] [autoit][/autoit] [autoit]Switch 1
[/autoit] [autoit][/autoit] [autoit]Case $menu11
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "About", "")Case $menu12
[/autoit] [autoit][/autoit] [autoit]
MSGBox(1, "Exit", "Danke, dass sie den Taschenrechner benutzt haben.")
ExitCase $clear
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "0"Case $zahl0
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "0"Case $zahl1
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "1"Case $zahl2
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "2"Case $zahl3
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "3"Case $zahl4
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "4"Case $zahl5
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "5"Case $zahl6
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "6"Case $zahl7
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "7"Case $zahl8
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "8"Case $zahl9
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "9"Case $durch
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "/"Case $mal
[/autoit] [autoit][/autoit] [autoit]
$Ausgabe = "*"Case $pi
[/autoit]
$Ausgabe = "3,1415926535897932384626433832795"
EndSwitch
WENDMeine Frage: Oben habe ich in der GUI ein Lable gemacht, welches das Ergebnis ausgeben soll.
Dies ist die $1, welche die $Ausgabe ausgibt.
Nur wie mache ich, dass er immer wieder das ding Aktualisiert?
Habe versucht, oben über die GUI eine while Schleife zu beginnen und die ganz unten zu beenden.Fazit: Mein Pc konnte neugestartet werden, weil sich immer wieder ein neues Fenster öffnete und ich am ende sage und schreibe 1219 Fenster offen hatte....
Deswegen auch die HotKeySet Escape.Danke schonmal im vorraus,
Rubberducky
-
Hallo Leutz,
Ich hab mal ne Frage. Mit welcher Funktion ist es möglich, einen vorher gegebenen Bereich(0,0,@DesktopWidth,@DesktopHeight) zu überprüfen, ob dort sich ein Pixel verändert hat und diese koordienaten dann ausgibt, sodass man ihn mit einem MouseClick(x,y) auswählen kann?
Danke im vorraus,
Rubberducky
-
Ich schätze mal, dass er mit einer Bat Datei beim Öffnen eine .exe Datei von einem Webserver öffnen will.
Bat Datei:
Zitat@echo on
start Adresse zur Datei im Stil: http://www.url.de/datei.exe oder ftp://url.de/datei.exe
pause