Beiträge von Cartan12

Cartan12

Ich find Spambots abartig!
Das nervt tierisch...
vote4close die 2.

Cartan12

Du meinst eine Client zu Client Verbindung?
Schau dir mal die ganzen Beispiele zu TCP an...
Da wirst du bestimmt was finden.
Wenn du weitergekommen bist und immer noch Probleme hast, kannst du uns ja mal dein Script posten

Cartan12

Les bitte erstmal die Forenregeln durch: https://autoit.de/index.php?page=Forumrules
Ansonsten: Herzlich Willkommen im Forum

Cartan12

Wenn ihr noch irgendwas frei habt, helfe ich gerne

Cartan12

Ich freu mich immer über Fragen...
Die finde ich tausend mal besser als immer schreiben zu müssen: "Les doch bitte mal die Forenregeln durch"
Also:
Scheu dich nicht davor Fragen zu stellen, egal wie dumm du dir dabei vorkommen magst

Cartan12

Das hier könnte helfen. Ist zwar auf Englisch, aber ich schätze mal, das ist kein Problem...
http://www.pctipsbox.com/how-to-add-ite…ght-click-menu/

Cartan12

Die Funktion klappt bei 70% aller E-Mail Anbieter nicht...
Keine Ahnung warum

Cartan12

Klappt meistens nicht

Cartan12

Nenutz bitte den AutoIt Button für Syntax-Highlighting.
ungefähr so (besser verständlich ohne arrays):

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("", 248, 89, 254, 124)
$Input1 = GUICtrlCreateInput("", 8, 32, 121, 21)
$Input2 = GUICtrlCreateInput("", 8, 32+25, 121, 21)
$Label1 = GUICtrlCreateLabel("bli, bla oder blub?", 8, 8, 87, 17)
$Button1 = GUICtrlCreateButton("los", 144, 32, 75, 25)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_goto()
_goto2()
;~ _goto3() ; usw.
EndSwitch
WEnd

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

Func _goto()
$read = GUICtrlRead($Input1)
Switch $read
Case "bli"
MsgBox(64, "", "zur Funktion für bli springen")
;_bli()
Case "bla"
MsgBox(64, "", "zur Funktion für bla springen")
;_bla()
Case "blub"
MsgBox(64, "", "zur Funktion für blub springen")
;_blub()
Case Else
MsgBox(64, "", "ungültige Eingabe")
EndSwitch
EndFunc ;==>_goto
Func _goto2()
$read = GUICtrlRead($Input2)
Switch $read
Case "bli"
MsgBox(64, "", "zur Funktion für bli springen")
;_bli()
Case "bla"
MsgBox(64, "", "zur Funktion für bla springen")
;_bla()
Case "blub"
MsgBox(64, "", "zur Funktion für blub springen")
;_blub()
Case Else
MsgBox(64, "", "ungültige Eingabe")
EndSwitch
EndFunc ;==>_goto

[/autoit]

Cartan12

Modifizierte Version von I2C. Ist erweiterbar:

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Dim $Input[2]

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

$Form1_1 = GUICreate("", 249, 108, 254, 124)
$Input[0] = GUICtrlCreateInput("", 8, 32, 121, 21)
$Label1 = GUICtrlCreateLabel("bli, bla oder blub?", 8, 8, 87, 17)
$Button1 = GUICtrlCreateButton("los", 144, 32, 75, 25)
$Input[1] = GUICtrlCreateInput("Input2", 8, 64, 121, 21)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i = 0 To 1
$read = GUICtrlRead($Input[$i]) ;Input auslesen
$pfad = IniRead(@ScriptDir & "\programme.ini", "main", $read, "") ;das was in Input steht in der ini suchen then
If $pfad = "" then
Msgbox(64, "", "Programm existiert nicht")
Else
ShellExecute($pfad) ;das Programm starten
Endif
Next
EndSwitch
WEnd

[/autoit]

Cartan12

Nein, aber so:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <string.au3>
#include <file.au3>

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

Opt( "TrayIconHide", 1)

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

_Main()
Func _Main()
Local $VerschID, $EntschID, $msg, $option = 0

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

$WinMain = GUICreate ( "Kizzys Encryption/Decryption Tool", 490, 420)
$EditText = GuiCtrlCreateEdit('Bitte geben Sie Ihren zu verschlüsselnden Text ein.',5,5,380,350)
$InputPass = GuiCtrlCreateInput('',5,360,100,20, 0x21)
$InputLevel = GuiCtrlCreateInput("5", 110, 360, 52,20)
$StartButton = GUICtrlCreateButton ( "Start", 167, 360, 220, 35)
GUICtrlCreateLabel ( "Level", 122, 382)
GUICtrlCreateLabel ( "Passwort", 32, 382)
$filemenu = GuiCtrlCreateMenu ("Datei")
$exititem = GuiCtrlCreateMenuitem ("Programm beenden",$filemenu,3)
$helpmenu = GuiCtrlCreateMenu ("?")
$hilfe = GuiCtrlCreateMenuitem ("Hilfe",$helpmenu)
$aboutitem = GuiCtrlCreateMenuitem ("über",$helpmenu)
$open=GUICtrlCreateMenuItem ( "öffnen...", $filemenu,0)
$save=GUICtrlCreateMenuItem ("Sichern...", $filemenu,1)

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

GuiCtrlCreateGroup("Modus", 395, 5, 90, 65)
$VerschID = GuiCtrlCreateRadio("verschlüsseln", 400, 20, 80);ID 17
GuiCtrlSetState(17, $GUI_CHECKED)
$EntschID = GuiCtrlCreateRadio("entschlüsseln", 400, 45, 80);ID 18
GUICtrlCreateGroup ("",-99,-99,1,1) ;close group

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

GuiSetState()

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

While 1

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

$msg = GUIGetMsg()

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

Select
Case $msg = $GUI_EVENT_CLOSE
Exit

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

Case $msg = $aboutitem
Msgbox(64,"Über","Kizzys Encryption/Decryption Tool - RC4 Text-En-/Decrypter Version: 2.0" &@CRLF&@CRLF&@CRLF& "Copyright: ©2010-2020, Biermännsche PC-Manufakturen/Keziah Biermann" &@CRLF&@CRLF& "E-Mail: biermaennsche.pc.manufakturen@googlemail.com")
Case $msg = $Hilfe
MsgBox (0, "Hilfe", "Passwort: Das Passwort mit dem der Text Verschlüsselt wurde." & @CRLF & @CRLF & "Level: Das Level mit dem der Text verschlüsselt wurde. Das bei der Verschlüsselung verwandte Level muss auch zur Entschlüsselung verwendet werden. Wenn Sie mehr als 30.000 Zeichen entschlüsseln wollen, nutzen Sie bitte die ""Datei öffnen...""-Funktion im Datei-Menü.")
Case $msg = $open
$OpenExplorer = FileOpenDialog ("Datei öffnen...", @MyDocumentsDir, "Einfaches Textdokument (*.txt)",1)
$EncryptString = FileRead ( $OpenExplorer )
GUICtrlSetData ( $EditText, ""&$EncryptString )
Case $msg = $exititem
ExitLoop

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

Case $msg = $StartButton
;~~
GuiCtrlSetState( $EditText,$GUI_DISABLE)
GUICtrlSetState($InputPass,$GUI_DISABLE )
GUICtrlSetState($InputLevel,$GUI_DISABLE )
GUICtrlSetState($StartButton,$GUI_DISABLE )
GUICtrlSetState($filemenu,$GUI_DISABLE )
GUICtrlSetState( $helpmenu,$GUI_DISABLE)
; Stops you from changing anything
;~~
$string = GuiCtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText,'Bitte warten Sie, während Ihr verschlüsselter Text mit Ihrem Passwort '&@CRLF&'und RC4 verschlüsselt wird.')
; Friendly message
;~~
If $option = 0 Then
GuiCtrlSetData($EditText,_StringEncrypt(1,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
Else
GuiCtrlSetData($EditText,_StringEncrypt(0,$string,GuiCtrlRead($InputPass),GuiCtrlRead($InputLevel)))
EndIf
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GuiCtrlSetState( $EditText,$GUI_ENABLE)
GUICtrlSetState($InputPass,$GUI_ENABLE )
GUICtrlSetState($InputLevel,$GUI_ENABLE )
GUICtrlSetState($StartButton,$GUI_ENABLE )
GUICtrlSetState($filemenu,$GUI_ENABLE )
GUICtrlSetState( $helpmenu,$GUI_ENABLE)
; This turns the window back on
Case $msg = $save
$SaveExplorer = FileSaveDialog ("Datei sichern unter...", @MyDocumentsDir, "RC4-verschlüsselter Text (.cpt)", 16)
FileDelete ( $SaveExplorer )
_FileCreate ( $SaveExplorer&".cpt" )
$SaveString = GUICtrlRead ( $EditText )
$FileToSave=FileOpen ($SaveExplorer&".cpt",2)
FileWrite ( $FileToSave, ""&$SaveString )
FileClose ($FileToSave)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $VerschID
$option = 0

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

Case $msg = $EntschID
$option = 1

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

EndSelect
WEnd
EndFunc ;==>_Main

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

;While 1
; $msg = GUIGetMsg()

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

; If $msg = $GUI_EVENT_CLOSE Then ExitLoop
;Wend

[/autoit]

Edit: 500 Post

Cartan12

Schön geworden, aber benutz lieber

[autoit]

Switch $msg
Case ;...

[/autoit]

Ach ja... Sollte da was passieren, wenn ich auf irgendeinen Knopf drücke?

Cartan12

Zitat von Oscar

Achso, man kann den Empfänger ja gar nicht auswählen (ganz übersehen).

Ich auch

Cartan12

Ganz ehrlich:
Biet die UDF nur per PN an...
Die is jetzt eh im Netz, aber wenigstens kann man dich nachher nich mehr dafür verantworlich machen...
Oscar hat ja schon alles gesagt (ja, auch ich find die echt super )

Cartan12

Ich versteh das nicht...
Das müsste eigentlich so aussehen(ich benutz das Beispiel aus der Hilfe):

[autoit]

#include <GUIConstantsEx.au3>

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

Opt('MustDeclareVars', 1)

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

Example()

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

Func Example()
Local $radio1, $radio2, $msg
GUICreate("My GUI radio") ; will create a dialog box that when displayed is centered

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

$radio1 = GUICtrlCreateRadio("Radio 1", 10, 10, 120, 20) ; erstellt Radio-boxen
$radio2 = GUICtrlCreateRadio("Radio 2", 10, 40, 120, 20)
GUICtrlSetState($radio2, $GUI_CHECKED)

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

GUISetState() ; will display an dialog box with 1 checkbox

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

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $radio1 And BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED ; Wenn Radio1 ausgewählt wurde, wird der andere deaktiviert und eine MsgBox erscheint
MsgBox(64, 'Info:', 'You clicked the Radio 1 and it is Checked.')
Case $msg = $radio2 And BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED; Wenn Radio1 ausgewählt wurde, wird der andere deaktiviert und eine MsgBox erscheint
MsgBox(64, 'Info:', 'You clicked on Radio 2 and it is Checked.')
EndSelect
WEnd
EndFunc ;==>Example

[/autoit]

So brauchst du keine Select...Case Schleife in einer Select...Case schleife

Edit: du musst das mit

[autoit]

GUICtrlGetState

[/autoit]

abfragen

Cartan12

Bitte [ironie off]
Sowas kann ich ja gar abhaben... Hätte ich früher rausstellen sollen

Cartan12

Zitat von tince

Aber man müsste schon bisschen abändern, damit nicht jeder E-Mails schreibt bzw. ausnutzt.

Zu späääät
Einmal im Netz, immer im Netz :wacko:

edit: Stimme dir aber zu

Cartan12

So tut verschleiert, bis du vernünftige Gründe genannt hast...

Cartan12

Zitat von SEuBo

https://addons.mozilla.org/de/firefox/addon/60 installieren.

Rechtsklick auf die Seite -> Web Developer -> Formulare -> Formularinformationen anzeigen.

Ich benutz FireBug....
Nur zu empfehlen

Cartan12

Zitat von TheTechnoMan

Formulare automatishc auszufüllen.

Die Stelle macht mir Probleme...
Sonst gibs wieder ärger mit den Mods

Beiträge von Cartan12

Func - Problem

Home Chat

Func - Problem

Real Dektop Tools [Leute gesucht & in bearbeitung]

Statusleistenverknüpfung

Context menu -> Neu

phpMail UDF

phpMail UDF

Auto it Abfrage erstellen ?

Auto it Abfrage erstellen ?

Probleme mit RadioBox-Zuordnung

Probleme mit RadioBox-Zuordnung

phpMail UDF

phpMail UDF

Probleme mit RadioBox-Zuordnung

Formular ausfüllen

phpMail UDF

Formular ausfüllen

Hilfe bei IE.au3

Formular ausfüllen