Beiträge von Schrubber

Schrubber

Ja Der Code von AspirinJunkie ließt doch den Wert aus der Registry aus

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?

Schrubber

Bei mir funktioniert es einwandfrei. Einfach den Code ausführen, sollte sich dann auch sogleich ein MSGFenster öffnen.

Schrubber

Post mal nen Screen von der Meldung, wenn der Connectversuch erfolgreich war.

Schrubber

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?

Schrubber

Zitat

@AppDataDir & \Roaming\Microsoft\Internet Explorer\Quick Launch

Windows Vista Quicklaunch Ordner

Schrubber

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

Schrubber

Ja ohne Code ist das schwer zu sagen

Stell dochmal den Code ohne Informationen über deinen Root rein

Schrubber

Ä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?

Schrubber

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>
#include <Misc.au3>

[/autoit][autoit][/autoit][autoit]

Opt("MustDeclareVars", 1)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Local $GUI, $coords[4], $input1, $label2, $bLoop, $text, $btnOK, $msg
$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()

[/autoit][autoit][/autoit][autoit]

While $bLoop < 3
if WinExists("Windows Task-Manager") = true Then
WinClose("Windows Task-Manager")
EndIf

[/autoit][autoit][/autoit][autoit]

if _isPressed(10) = true or _isPressed(11) or _ispressed(12) Then
ToolTip("Don´t try to kill the Tool!")
EndIf

[/autoit][autoit][/autoit][autoit]

Winactivate("Zugriff Verweigert!!!")

[/autoit][autoit][/autoit][autoit]

$coords = WinGetPos($GUI)
_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

[/autoit]

Schrubber

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("MustDeclareVars", 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Local $GUI, $coords[4], $input1, $label2, $bLoop, $text, $btnOK, $msg
$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()

[/autoit] [autoit][/autoit] [autoit]

While $bLoop < 3
if WinExists("Windows Task-Manager") = true Then
WinClose("Windows Task-Manager")
EndIf

[/autoit] [autoit][/autoit] [autoit]

if _isPressed(10) = true or _isPressed(11) or _ispressed(12) Then
ToolTip("Don´t try to kill the Tool!")
EndIf

[/autoit] [autoit][/autoit] [autoit]

$coords = WinGetPos($GUI)
_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()
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

Nun geht keine Tastenkombi mehr außer Windows + M.

Schrubber

Klar gehts dann noch Das Case $Gui_Event_Close ist nur das X oben rechts in der Ecke, oder irre ich mich da?

Schrubber

Schließbar mit Alt+F4 und Escape :o Umgehbar mit Windows + M. Schau dir doch dieses Hook Zeugs nochmal an So schwer isses nicht

Schrubber

Bin mir zwar nicht sicher, ob das die feine Art ist, aber ich würds so machen:

[autoit]

case $Button
shellexecute("www.link.de")

[/autoit]

Schrubber

[autoit]

if WinExists("Windows Task-Manager") = true Then
WinClose("Windows Task-Manager")
EndIf

[/autoit]

Und 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?

Schrubber

okay dank dir

Funktioniert nun alles, muss nur noch eine kopieren-funktion reinmachen und dass man seine Ergebnisse auch speichern kann :o

Schrubber

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? :o

Edit:
Hab ne andere Lösung dafür gefunden, aber ich kriege immer die Lösung 6 bei egal welcher Addition :o

Spoiler anzeigen

[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 ###

[/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg()
Switch $nMsg

[/autoit] [autoit][/autoit] [autoit]

Case $menu11
MSGBox(1, "About", "Scripter: Tim 'Schrubber' Lübbe")

[/autoit] [autoit][/autoit] [autoit]

Case $menu12, $GUI_EVENT_CLOSE
MSGBox(1, "Exit", "Danke, dass sie den Taschenrechner benutzt haben.")
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $clear
GUICtrlSetData ($1, "")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl0
if($1 = "") then
GUICtrlSetData ($1, GUICtrlRead ($1) & "0")
Else
MSGBox(1, "Error", "Du kannst eine 0 nicht als erste Stelle setzen!")
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $zahl1
GUICtrlSetData ($1, GUICtrlRead ($1) & "1")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl2
GUICtrlSetData ($1, GUICtrlRead ($1) & "2")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl3
GUICtrlSetData ($1, GUICtrlRead ($1) & "3")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl4
GUICtrlSetData ($1, GUICtrlRead ($1) & "4")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl5
GUICtrlSetData ($1, GUICtrlRead ($1) & "5")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl6
GUICtrlSetData ($1, GUICtrlRead ($1) & "6")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl7
GUICtrlSetData ($1, GUICtrlRead ($1) & "7")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl8
GUICtrlSetData ($1, GUICtrlRead ($1) & "8")

[/autoit] [autoit][/autoit] [autoit]

Case $zahl9
GUICtrlSetData ($1, GUICtrlRead ($1) & "9")

[/autoit] [autoit][/autoit] [autoit]

Case $plus
$operator = "+"
GUICtrlSetData ($Zwischenspeicher, GUICtrlRead ($1) & "")
GUICtrlSetData ($1, "")

[/autoit] [autoit][/autoit] [autoit]

Case $minus
$operator = "-"

[/autoit] [autoit][/autoit] [autoit]

Case $durch
$operator = "/"

[/autoit] [autoit][/autoit] [autoit]

Case $mal
$operator = "*"

[/autoit] [autoit][/autoit] [autoit]

Case $komma
MSGBox(1, "Fehler", "Diese Funktion gibt es noch nicht :)")

[/autoit] [autoit][/autoit] [autoit]

Case $pi
$1 = "3,141592"

[/autoit] [autoit][/autoit] [autoit]

Case $gleich
$Zwischenspeicher2 = $1
if($operator = "+") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher + $Zwischenspeicher2)

[/autoit] [autoit][/autoit] [autoit]

ElseIf($operator = "-") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher - $Zwischenspeicher2)

[/autoit] [autoit][/autoit] [autoit]

ElseIf($operator = "*") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher * $Zwischenspeicher2)

[/autoit] [autoit][/autoit] [autoit]

ElseIf($operator = "/") Then
MSGBox(1, "Ergebnis", $Zwischenspeicher / $Zwischenspeicher2)

[/autoit] [autoit][/autoit] [autoit]

Else
MSGBox(1, "Error", "Es ist ein Fehler aufgetreten. Bitte wenden sie sich an den Scripter!")

[/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEND

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Schrubber

Hallo Leutz

Ich bin grad mal dabei, einen kleinen, eigenen, Taschenrechner zu schreiben.
Das vorerst Design besteht bereits, ganz schlicht

Das Script bis jetzt:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#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 ###

[/autoit] [autoit][/autoit] [autoit]

func _schliessen()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit]

Switch 1

[/autoit] [autoit][/autoit] [autoit]

Case $menu11
MSGBox(1, "About", "")

[/autoit] [autoit][/autoit] [autoit]

Case $menu12
MSGBox(1, "Exit", "Danke, dass sie den Taschenrechner benutzt haben.")
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $clear
$Ausgabe = "0"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl0
$Ausgabe = "0"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl1
$Ausgabe = "1"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl2
$Ausgabe = "2"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl3
$Ausgabe = "3"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl4
$Ausgabe = "4"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl5
$Ausgabe = "5"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl6
$Ausgabe = "6"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl7
$Ausgabe = "7"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl8
$Ausgabe = "8"

[/autoit] [autoit][/autoit] [autoit]

Case $zahl9
$Ausgabe = "9"

[/autoit] [autoit][/autoit] [autoit]

Case $durch
$Ausgabe = "/"

[/autoit] [autoit][/autoit] [autoit]

Case $mal
$Ausgabe = "*"

[/autoit] [autoit][/autoit] [autoit]

Case $pi
$Ausgabe = "3,1415926535897932384626433832795"
EndSwitch
WEND

[/autoit]

Meine 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

Schrubber

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

Schrubber

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

Beiträge von Schrubber

"Quicklaunch" Pfad auslesen?

Ein Sound bei Connect

"Quicklaunch" Pfad auslesen?

Ein Sound bei Connect

hostname

"Quicklaunch" Pfad auslesen?

Ein Sound bei Connect

Ein Sound bei Connect

Script funktioniert nicht mehr.

passwortmanager

passwortmanager

passwortmanager

passwortmanager

Button+Link

passwortmanager

Taschenrechner

Taschenrechner

Taschenrechner

Pixelveränderung

Problem bei: Erstellen einer .exe die eine Batch mit Adminrechten starten soll (die Auswahl der Batch soll über einen Parameter erfolgen)