Beiträge von Jonathan

Jonathan

hi, und herzlich wilkommen auch von mir

p.s. NRW Rules

Jonathan

Habe einfach mal eine ganz ganz einfache verschlüsselung gemacht^^
und die passt sogar in 29 zeilen

Spoiler anzeigen

[autoit]

$string = InputBox("Verschlüsselung","Gib den Text zum verschlüsseln ein")
$string = StringReplace($string,"a","z2")
$string = StringReplace($string,"b","a")
$string = StringReplace($string,"c","b")
$string = StringReplace($string,"d","c")
$string = StringReplace($string,"e","d")
$string = StringReplace($string,"f","e")
$string = StringReplace($string,"g","f")
$string = StringReplace($string,"h","g")
$string = StringReplace($string,"i","h")
$string = StringReplace($string,"j","i")
$string = StringReplace($string,"k","j")
$string = StringReplace($string,"l","k")
$string = StringReplace($string,"m","l")
$string = StringReplace($string,"n","m")
$string = StringReplace($string,"o","n")
$string = StringReplace($string,"p","o")
$string = StringReplace($string,"q","p")
$string = StringReplace($string,"r","q")
$string = StringReplace($string,"s","r")
$string = StringReplace($string,"t","s")
$string = StringReplace($string,"u","t")
$string = StringReplace($string,"v","u")
$string = StringReplace($string,"w","v")
$string = StringReplace($string,"x","w")
$string = StringReplace($string,"y","x")
$string = StringReplace($string,"z","y")
$string = StringReplace($string,"z2","y")
MsgBox(64,"fertig","dein verschlüsselter text: " & $string)

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

Jonathan

Dankeschön

Jonathan

Hallo, Wie kann ich mit hilfe eines Buttons in einer Gui alle Checkboxen b.z.w. alle angegebenen Checkboxen makieren?

mfg. Jonathan

Jonathan

Zitat von RR04

Hallo Jonathan !

Eine schöne Arbeit, Du hast Dir viel Mühe gegeben.

Bei Kommata kannst Du entweder mit „StringReplace“ jeweils umwandeln (siehe Oscar), oder die Verwendung des Komma von Anfang an verhindern.

Der Einsatz von Includes hängt von den verwendeten Funktionen ab.
Auch ein TRechner ohne Includes ist möglich.
Hierzu schau Dir mal „OrganizeIncludes“ an.

Spoiler anzeigen

[autoit]

; TRechner - Demo by RR04
[/autoit] [autoit][/autoit] [autoit]
$GUI = GUICreate("TRechner - Demo", 320, 200, -1, -1)
$input = GUICtrlCreateInput("", 10, 10, 300, 20)
$bnPlus = GUICtrlCreateButton("+", 10, 40, 75, 30)
$bnMinus = GUICtrlCreateButton("-", 85, 40, 75, 30)
$bnDiv = GUICtrlCreateButton("/", 160, 40, 75, 30)
$bnMulti = GUICtrlCreateButton("*", 235, 40, 75, 30)
$bn7 = GUICtrlCreateButton("7", 10, 70, 75, 30)
$bn8 = GUICtrlCreateButton("8", 85, 70, 75, 30)
$bn9 = GUICtrlCreateButton("9", 160, 70, 75, 30)
$bnC = GUICtrlCreateButton("C", 235, 70, 75, 60)
$bn4 = GUICtrlCreateButton("4", 10, 100, 75, 30)
$bn5 = GUICtrlCreateButton("5", 85, 100, 75, 30)
$bn6 = GUICtrlCreateButton("6", 160, 100, 75, 30)
$bn1 = GUICtrlCreateButton("1", 10, 130, 75, 30)
$bn2 = GUICtrlCreateButton("2", 85, 130, 75, 30)
$bn3 = GUICtrlCreateButton("3", 160, 130, 75, 30)
$bnResultat = GUICtrlCreateButton("=", 235, 130, 75, 60)
$bn0 = GUICtrlCreateButton("0", 10, 160, 150, 30)
$bnKoma = GUICtrlCreateButton(".", 160, 160, 75, 30)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
[/autoit] [autoit][/autoit] [autoit]
While 1
Switch GUIGetMsg()
Case - 3
MsgBox(64, "TRechner - Demo", "Viel Spaß wünscht RR04 !" & @TAB, 3)
Exit
Case $bnC
GUICtrlSetData($input, "")
Case $bn1
GUICtrlSetData($input, GUICtrlRead($input) & "1")
Case $bn2
GUICtrlSetData($input, GUICtrlRead($input) & "2")
Case $bn3
GUICtrlSetData($input, GUICtrlRead($input) & "3")
Case $bn4
GUICtrlSetData($input, GUICtrlRead($input) & "4")
Case $bn5
GUICtrlSetData($input, GUICtrlRead($input) & "5")
Case $bn6
GUICtrlSetData($input, GUICtrlRead($input) & "6")
Case $bn7
GUICtrlSetData($input, GUICtrlRead($input) & "7")
Case $bn8
GUICtrlSetData($input, GUICtrlRead($input) & "8")
Case $bn9
GUICtrlSetData($input, GUICtrlRead($input) & "9")
Case $bnPlus
GUICtrlSetData($input, GUICtrlRead($input) & "+")
Case $bnMinus
GUICtrlSetData($input, GUICtrlRead($input) & "-")
Case $bnDiv
GUICtrlSetData($input, GUICtrlRead($input) & "/")
Case $bnMulti
GUICtrlSetData($input, GUICtrlRead($input) & "*")
Case $bn0
GUICtrlSetData($input, GUICtrlRead($input) & "0")
Case $bnKoma
GUICtrlSetData($input, GUICtrlRead($input) & ".")
Case $bnResultat
If GUICtrlRead($input) = "" Then
MsgBox(64, "Fehler", "Bitte machen Sie erst Ihre Eingaben !" & @TAB)
Else
GUICtrlSetData($input, Execute(GUICtrlRead($input)))
EndIf
EndSwitch
WEnd
[/autoit] [autoit][/autoit] [autoit]
; Ende
[/autoit]

Alles anzeigen

Vielen Dank... mir war gestern abend einfach langweilig, drum habe ich das mal zum üben von Guis gemacht...

Jonathan

Hallo... Ich wollte einfach zum Üben einen Taschenrechner machen... Ich bin mir sicher, der Code würde kürzer gehen, aber darauf kommt es mir (im moment) nicht an
eventuell findet von euch jemand den fehler, das wenn ich z.b. 6,4 mal 6 nehme das dann 5 rauskommt...

Spoiler anzeigen

[autoit]

; Copyright by Alexander I*** (Jonathan)
;~ Includes
#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <array.au3> ; <---- Brauche ich das?????
$aufgabe = ""
$ergebniss = ""
;~ Hier startet der GUI-Code
$Gui = GUICreate("Taschenrechner",240,250); <-- Erstelle die GUI
GUICtrlCreateLabel("Aufgabe:",5,8)
GUICtrlCreateLabel("Ergebiss:",5,34)
GUICtrlCreateLabel("© Copyright 2009 Jonathan Möwe",10,220)
$aufgabenlabel = GUICtrlCreateInput($aufgabe,50,5)
$ergebnisslabel = GUICtrlCreateInput($aufgabe,50,30)
$Button0 = GUICtrlCreateButton("0", 10, 60,30,30, $WS_GROUP)
$Button1 = GUICtrlCreateButton("1", 50, 60,30,30, $WS_GROUP)
$Button2 = GUICtrlCreateButton("2", 90, 60,30,30, $WS_GROUP)
$Button3 = GUICtrlCreateButton("3", 10, 100,30,30, $WS_GROUP)
$Button4 = GUICtrlCreateButton("4", 50, 100,30,30, $WS_GROUP)
$Button5 = GUICtrlCreateButton("5", 90, 100,30,30, $WS_GROUP)
$Button6 = GUICtrlCreateButton("6", 10, 140,30,30, $WS_GROUP)
$Button7 = GUICtrlCreateButton("7", 50, 140,30,30, $WS_GROUP)
$Button8 = GUICtrlCreateButton("8", 90, 140,30,30, $WS_GROUP)
$Button9 = GUICtrlCreateButton("9", 10, 180,30,30, $WS_GROUP)
$Buttonkomma = GUICtrlCreateButton(",", 50, 180,30,30, $WS_GROUP)
$Buttondel = GUICtrlCreateButton("del", 90, 180,30,30, $WS_GROUP)
$Buttonplus = GUICtrlCreateButton("+", 130, 60,30,30, $WS_GROUP)
$Buttonminus = GUICtrlCreateButton("-", 130, 100,30,30, $WS_GROUP)
$Buttonmal = GUICtrlCreateButton("X", 130, 140,30,30, $WS_GROUP)
$Buttongeteilt = GUICtrlCreateButton("/", 130, 180,30,30, $WS_GROUP)
$Buttonrechnen = GUICtrlCreateButton("LOS !", 170, 60,50,150, $WS_GROUP)
GUISetState(@SW_SHOW); <-- Zeige die GUI an
;~ Ende des GUI-Codes

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

While 1 ; <-- Endlosschleife anfangen
$nMsg = GUIGetMsg(); <-- Fange die Button-Events ab
Switch $nMsg ;<-- Unterscheide die Events
Case $GUI_EVENT_CLOSE ; <-- Wenn GUI geschlossen wird dann
Exit ; <-- Skript beenden
Case $Button0
$aufgabe = $aufgabe & "0"

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

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button1
$aufgabe = $aufgabe & "1"

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

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button2
$aufgabe = $aufgabe & "2"

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

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button3
$aufgabe = $aufgabe & "3"

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

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button4
$aufgabe = $aufgabe & "4"

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button5
$aufgabe = $aufgabe & "5"

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button6
$aufgabe = $aufgabe & "6"

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button7
$aufgabe = $aufgabe & "7"

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

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button8
$aufgabe = $aufgabe & "8"

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Button9
$aufgabe = $aufgabe & "9"

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Buttonkomma
$aufgabe = $aufgabe & ","

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Buttondel
$aufgabe = ""
$ergebniss = ""
GUICtrlSetData($ergebnisslabel,$ergebniss)
GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Buttonplus
$aufgabe = $aufgabe & "+"

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Buttonminus
$aufgabe = $aufgabe & "-"

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Buttonmal
$aufgabe = $aufgabe & "*"

GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Buttongeteilt
$aufgabe = $aufgabe & "/"
GUICtrlSetData($aufgabenlabel,$aufgabe)
Case $Buttonrechnen
$ergebniss = Execute($aufgabe)
$aufgabe = ""
GUICtrlSetData($aufgabenlabel,$aufgabe)
GUICtrlSetData($ergebnisslabel,$ergebniss)
EndSwitch ; <-- Ende des Unterscheidens
WEnd ; <-- Beginne Schleife von Vorne

[/autoit]

Jonathan

Hallo, wir gehen mal von folgender Situation aus:

[autoit]

$aufgabe = "3+3+4"

[/autoit]

Wie kann ich jetzt in die Variable $ergebniss die lösung (in diesem falle 10 ^^) schreiben, sodass dann folgendes möglich ist:

[autoit]

tooltip("das Ergebnis ist " & $ergebniss)

[/autoit]

Jonathan

COOL....

Das is nen geiles Programm!!!!

Jonathan

wieso funktioniert das nciht, wenn der pc mit dem empfänger eine Vollbild anwendung offen hat? Normal (ohne Vollbild) gibt es keine Probleme
empfänger:

Spoiler anzeigen

[autoit]

#include <Misc.au3>
#NoTrayIcon

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

if _Singleton("Skript",1) = 0 Then Exit

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

UDPStartup(); <-- UDP-Programm Starten, um Nachrichten zu Senden!

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

$ANSCHLUSS = UDPBind(@IPAddress1, 2000); <-- Jetzt hörst du mit diesem Befehl auf deine Eigene IP und Port 2000

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

While 1 ; <-- Die Endlosschleife Beginnt Hier
$DATEN = UDPRecv($ANSCHLUSS, 500); <-- Empfange Befehle vom "ANSCHLUSS"
If $DATEN = "leiser" Then Send("{VOLUME_DOWN}")
If $DATEN = "lauter" Then Send("{VOLUME_UP}")
If $DATEN = "mute" Then Send("{VOLUME_MUTE}")
If $DATEN = "msgbox" Then MsgBox(64,"Microsoft Windows XP","Um ihr Gehör zu schützen verringert Windows automatisch die Lautstärke. Wir bitten um Verständniss",5)

WEnd

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

lautstärkeregler:

Spoiler anzeigen

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

;~ Includes für die GUI
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <array.au3>
$ip = "Keine Verbindung"
;~ Hier startet der GUI-Code
$Gui = GUICreate("Lautstärkeregler",240,250); <-- Erstelle die GUI
GUICtrlCreateLabel("Optionen",15,20)
$Button1 = GUICtrlCreateButton("Leiser", 10, 50,100,40, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Lauter", 120, 50,100,40, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Mute on/off", 10, 100,100,40, $WS_GROUP)
$Button4 = GUICtrlCreateButton("MsgBox", 120, 100,100,40, $WS_GROUP)
$Button5 = GUICtrlCreateButton("IP Wechseln", 120, 190,100,20, $WS_GROUP)
$iptext = GUICtrlCreateLabel("IP wechseln",15,170)
$iptext2 = GUICtrlCreateLabel("IP: " & $ip,120,170)
$ipfeld = GUICtrlCreateInput("ip?",10,190,100)
GUISetState(@SW_SHOW); <-- Zeige die GUI an
;~ Ende des GUI-Codes

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

UDPStartup()

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

While 1 ; <-- Endlosschleife anfangen
$nMsg = GUIGetMsg(); <-- Fange die Button-Events ab
Switch $nMsg ;<-- Unterscheide die Events
Case $GUI_EVENT_CLOSE ; <-- Wenn GUI geschlossen wird dann
Exit ; <-- Skript beenden
Case $Button5
$ip = GUICtrlRead($ipfeld)
If Not StringRegExp($ip, '\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\b') Then _
MsgBox(48, '', 'Das ist keine IP!')
GUICtrlSetData($iptext2, "IP: " & $ip)
$ANSCHLUSS = UDPOpen($ip, 2000)

Case $Button4
UDPSend($ANSCHLUSS,"msgbox")
Case $Button3
UDPSend($ANSCHLUSS,"mute")
Case $Button2
UDPSend($ANSCHLUSS,"lauter")
Case $Button1
UDPSend($ANSCHLUSS,"leiser")

EndSwitch ; <-- Ende des Unterscheidens
WEnd ; <-- Beginne Schleife von Vorne

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

Jonathan

Raupi hat mir eine Lösung gegeben

Man kann $a aufsplitten mit StringSplit($ip,".") und dann die einzelnen teile mit isNumber überprüfen

man könnte dann zwar 100000.1758.2352.138 eingeben, aber es ist ja schonmal ein anfang

Jonathan

Zitat von DevilsCry

Das kommt wohl darauf an wie und was du in die Variable einspeicherst.

eventuell habe ich mich falsch ausgedrückt...^^
Wie mache ich es, das eine MsgBox kommt, wenn hier $a keine ip ist

[autoit]

$a = inputbox("IP","Gib eine Ip ein")

[/autoit]

Jonathan

Hallo wie finde Ich herraus, ob eine Variable eine IP Adresse ist?

Jonathan

dankeschön

Jonathan

Hallo, wie kann ich überprüfen, ob ein Script läüft?

Es ist ja eigentlich ganz einfach: einfach prüfen, ob ein prozess xyz.exe da ist. aber was ist wenn die Datei umbenannt wird?

mfg. Jonathan

Jonathan

so sieht das bei mir immer aus, wenn an der rechten Seite ICQ göffnet ist.-... dann sind die Kästen verschoben

Jonathan

aber normalerweise weiß ich, wo bei einem Browser die URL Leiste ist

aber wie gesagt: Normalerweise

Jonathan

[autoit]

$deinevariable = inputbox("lol","Gib deine zahl ein")

[/autoit]

sowas?

Jonathan

Er wollte aber nciht nur nach einem bestimmten pixel suchen, sondern nach einem kleinen bild

Jonathan

solange ich das script starte, kann cih auch einen browser öffnen^^ aber trotzdem eine gute idee

Jonathan

hm... interessant, das das

[autoit]

& "\" & @MDAY & "." & @MON & "." & @YEAR & " _ " & @HOUR & "-" & @MIN & "-" & @SEC &

[/autoit]

genau gleich ist wie in meinem script...

aber egal, seh ich nicht so eng

p.s. wie schon erwähnt, kann das benutzen eines 2. hotkeys spiele stören, wenn man gerade ein spiel am laufen hat. aber mann könnte ja die F9 taste dafür ncoh benutzen...

Beiträge von Jonathan

hi, mal hallo aus dem schönen NRW ;)

einfache verschlüsselung

alle Checkboxen mit einem Button makieren

alle Checkboxen mit einem Button makieren

Taschenrechner

Taschenrechner

Aufgabe in Variable ausrechnen

Grüße aus Hessen

Wieso geht das nicht im Vollbildmodus?

Wie finde ich raus, ob eine Variable eine IP ist?

Wie finde ich raus, ob eine Variable eine IP ist?

Wie finde ich raus, ob eine Variable eine IP ist?

Prüfen, ob ein Script läüft

Prüfen, ob ein Script läüft

Portal wird falsch dargestellt?

URL Schnell Öffner

Hilfe für Aito-It Anfänger

Pixelsearch

URL Schnell Öffner

Screenshot maker 1.3.2