Beiträge von FKFK

FKFK

Hallo zusammen,

habe folgendes Script:

mein Script

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.0
Author: Florian Kurrle
Sript Version: 2.1
Version: 1.0-The main features were developed
2.0-English is mainlanguage and now the buttons are icons and look how a real code-pad
2.1-The time-function was developed
2.2-The script use a dll with icons, that install itself
2.3-Encryption-function is included now.

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

Script Function:
Creates a Window, where you can enter a PIN with your mouse and which can output the PIN as variable

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

Syntax: _PIN_Win([left[, top[, timeout[, PWCode]]]])
timeout = the time after that the window will be closed in milliseconds
use left=-1 and top=-1, or don't write anything there, to create the window in center
PWCode = the code with that the PIN will be encryptet (the script use _StringEncrypt for this operation)
Return values: Success 1
Failure 0 and set @error to 1. This can happend only when there beeing passed wrong parameters.

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

Usage: #include <PINPad\PINPad.au3> (at first you must copy the hole folder in the standart include-folder)
or
#include "[path\]PINPad.au3" (you must enter the path to the script)

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

$_PIN is the entered PIN
When you press the E-button, you delete the entered PIN
When you press the C-butto, you confirm the entered PIN

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

Acknowledgments: BugFix for his function wich that I can temporarily create a file by binary: https://autoit.de/index.php?page…99705#post99705

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

#ce ----------------------------------------------------------------------------
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <String.au3>
#include-once

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

;Declares the glabal variables
Global $_PIN, $_PIN_Crypto

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

#Region Install-_PINPad_Icons.dll

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

Local $data = ""
$data &= "0x4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000B00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000F92D54D9BD4C3A8ABD4C3A8ABD4C3A8A9A8A468ABC4C3A8A9A8A428ABC4C3A8A52696368BD4C3A8A0000000000000000504500004C01010095E01F470000000000000000E00002210B0108000000000000D00000000000000000000000100000001000000000400000100000000200000600000006000000060000000000000000E0000000020000A9210100030040050000040000100000000010000010000000000000100000000000000000000000000000000000000000100000FCCE000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002E72737263000000FCCE00000010000000D0000000020000000000000000000000000000400000400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000030003000000280000800E00000098000080100000000801008000000000000000000000000000000C0032000000200100803300000038010080340000005001008035000000680100803600000080010080370000009801008038000000B001008039000000C80100803A000000E00100803B000000F80100803C000000100200803D000000280200800000000000000000000000000C00000008050080400200800E0500805802008014050080700200801A0500808802008020050080A002008026050080B80200802C050080D002008032050080E802008038050080000300803E0500801803008044050080300300804A050080480300800000000000000000000000000000010001000000600300800000000000000000000000000000010000000000780300000000000000000000000000000000010000000000880300000000000000000000000000000000010000000000980300000000000000000000000000000000010000000000A80300000000000000000000000000000000010000000000B80300000000000000000000000000000000010000000000C80300000000000000000000000000000000010000000000D80300000000000000000000000000000000010000000000E80300000000000000000000000000000000010000000000F80300000000000000000000000000000000010000000000080400000000000000000000000000000000010000000000180400000000000000000000000000000000010000000000280400000000000000000000000000000000010000000000380400000000000000000000000000000000010000000000480400000000000000000000000000000000010000000000580400000000000000000000000000000000010000000000680400000000000000000000000000000000010000000000780400000000000000000000000000000000010000000000880400000000000000000000000000000000010000000000980400000000000000000000000000000000010000000000A80400000000000000000000000000000000010000000000B80400000000000000000000000000000000010000000000C80400000000000000000000000000000000010000000000D80400000000000000000000000000000000010000000000E80400000000000000000000000000000000010009040000F804000050150000A81000000000000000000000F8250000A81000000000000000000000A0360000A8100000000000000000000048470000A81000000000000000000000F0570000A8100000000000000000000098680000A8100000000000000000000040790000A81000000000000000000000E8890000A81000000000000000000000909A0000A8100000000000000000000038AB0000A81000000000000000000000E0BB0000A8100000000000000000000088CC0000A8100000000000000000000030DD000014000000000000000000000044DD000014000000000000000000000058DD00001400000000000000000000006CDD000014000000000000000000000080DD000014000000000000000000000094DD0000140000000000000000000000A8DD0000140000000000000000000000BCDD0000140000000000000000000000D0DD0000140000000000000000000000E4DD0000140000000000000000000000F8DD00001400000000000000000000000CDE000014000000000000000000000020DE0000DC000000000000000000000002004200300002004200310002004200320002004200330002004200340002004200350002004200360002004200370002004200380002004200390002004200430002004200450028000000200000004000000001002000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000C7C7C700000000000000000000000000BDBDBD1BBDBDBD6ABBBBBBA4B9B9B9CFB7B7B7ECB7B7B7FFB2B2B2FBB1B1B1ECAFAFAFCFAEAEAEA4ADADAD6AAEAEAE1B000000000000000000000000A9A9A90000000000000000000000000000"
$data &= "00000000000000000000000000000000000000000000000000000000000000CACACA000000000094949400C6C6C642C4C4C4A7C2C2C2E3C0C0C0EBBDBDBDF2BABABAF8B7B7B7FCB5B5B5FFB1B1B1FEB0B0B0FCADADADF8AAAAAAF2A8A8A8EBA8A8A8E3A8A8A8A7A9A9A942FFFFFF0000000000A8A8A8000000000000000000000000000000000000000000000000000000000000000000C5C5C5000000000000000000C8C8C829C9C9C997C8C8C8DBC5C5C5F6C2C2C2FFBFBFBFFFBCBCBCFFB9B9B9FFB5B5B5FFB2B2B2FEB1B1B1FFAFAFAFFFACACACFFA9A9A9FFA6A6A6FFA5A5A5FFA4A4A4F6A3A3A3DBA5A5A597ABABAB290000000000000000ADADAD000000000000000000000000000000000000000000C5C5C5000000000000000000CACACA44CDCDCDACCCCCCCF7C9C9C9FFC5C5C5FFC1C1C1FEBEBEBEFEBCBCBCFFB8B8B8FFB4B4B4FFB1B1B1FFB0B0B0FFAFAFAFFFADADADFFABABABFFA7A7A7FEA5A5A5FEA2A2A2FFA0A0A0FFA1A1A1F7A4A4A4ACA8A8A8440000000000000000ABABAB000000000000000000C6C6C600C6C6C6000000000000000000CCCCCC4CCFCFCFC4D0D0D0FFCDCDCDFFC9C9C9FEC5C5C5FFC2C2C2FFBFBFBFFFBCBCBCFFB9B9B9FFB5B5B5FFB3B3B3FFAFAFAFFFB0B0B0FFAFAFAFFFADADADFFAAAAAAFFA6A6A6FFA2A2A2FF9F9F9FFE9E9E9EFFA0A0A0FFA4A4A4C4A8A8A84C0000000000000000ACACAC0000000000D6D6D600D6D6D60000000000CBCBCB3BD2D2D2CED4D4D4FFD1D1D1FFCCCCCCFEC9C9C9FFC7C7C7FFC3C3C3FFC0C0C0FFBDBDBDFFBABABAFFB8B8B8FFB7B7B7FFB0B0B0FFAFAFAFFFB0B0B0FFAEAEAEFFABABABFFA7A7A7FFA3A3A3FFA0A0A0FF9E9E9EFE9D9D9DFFA0A0A0FFA3A3A3CEA8A8A83B00000000A5A5A500000000001212120000000000C1C1C10FD4D4D4BEDADADAFFD7D7D7FFCFCFCFFEC9C9C9FFC8C8C8FFC6C6C6FFC3C3C3FFBFBFBFFFBBBBBBFFB9B9B9FFB8B8B8FFB7B7B7FFB1B1B1FFAFAFAFFFAFAFAFFFADADADFFAAAAAAFFA8A8A8FFA4A4A4FFA2A2A2FFA1A1A1FF9E9E9EFE9C9C9CFF9E9E9EFFA3A3A3BEB0B0B00F00000000B1B1B1000000000000000000CDCDCD92DCDCDCF4DFDFDFFFD7D7D7FECDCDCDFFC8C8C8FFC6C6C6FFC5C5C5FFC2C2C2FFBDBDBDFFB9B9B9FFB6B6B6FFB7B7B7FFB7B7B7FFB1B1B1FFB0B0B0FFAEAEAEFFACACACFFA9A9A9FFA7A7A7FFA5A5A5FFA4A4A4FFA3A3A3FF9F9F9FFF9A9A9AFE999999FF9F9F9FF4A9A9A992000000000000000000000000C1C1C13DD7D7D7E8DFDFDFFFDDDDDDFFD2D2D2FECDCDCDFFD0D0D0FFCACACAFFC1C1C1FFC4C4C4FFC2C2C2FFBCBCBCFFBBBBBBFFB8B8B8FFBCBCBCFFB6B6B6FFB7B7B7FFA8A8A8FFACACACFFAFAFAFFFA6A6A6FFA8A8A8FFA5A5A5FFA0A0A0FF9E9E9EFF999999FE989898FF9B9B9BFFA3A3A3E8B3B3B33D0000000000000000C9C9C9A1DCDCDCF9E0E0E0FFDDDDDDFED3D3D3FFCECECEFFCDCDCDFFC7C7C7FFC8C8C8FFCBCBCBFFBCBCBCFFBDBDBDFFC8C8C8FFB8B8B8FFA5A5A5FFACACACFFB5B5B5FFBBBBBBFFA5A5A5FFA4A4A4FFA3A3A3FFA7A7A7FFA9A9A9FFA3A3A3FF9E9E9EFF9A9A9AFF989898FE999999FFA0A0A0F9AFAFAFA100000000B7B7B71FD1D1D1E5E1E1E1FFE2E2E2FFDCDCDCFFD3D3D3FFCFCFCFFFCBCBCBFFC8C8C8FFCBCBCBFFC9C9C9FFC2C2C2FFC6C6C6FF9B9B9BFF636363FF575757FF5E5E5EFF6D6D6DFFADADADFFAFAFAFFFAFAFAFFFA7A7A7FFA4A4A4FFA7A7A7FFA5A5A5FFA0A0A0FF9B9B9BFF989898FF969696FF9C9C9CFFABABABE5B6B6B61FBEBEBE60D8D8D8F8E5E5E5FFE2E2E2FEDADADAFFD2D2D2FFD0D0D0FFCDCDCDFFC9C9C9FFC6C6C6FFC2C2C2FFC5C5C5FFBDBDBDFF6A6A6AFF585858FF858585FF6E6E6EFF464646FF808080FFA9A9A9FFACACACFFA2A2A2FFA1A1A1FFA3A3A3FFA3A3A3FFA1A1A1FF9D9D9DFF999999FF959595FE999999FFA7A7A7F8B2B2B260C1C1C19FDDDDDDF9E7E7E7FFE1E1E1FFD8D8D8FFD1D1D1FFD1D1D1FFCFCFCFFFC7C7C7FFC3C3C3FFC7C7C7FFC8C8C8FFA1A1A1FF4B4B4BFF858585FFC5C5C5FFB1B1B1FF515151FF565656FFA3A3A3FFA9A9A9FFA3A3A3FFA5A5A5FFA2A2A2FFA0A0A0FFA0A0A0FF9E9E9EFF9A9A9AFF969696FF979797FFA4A4A4F9B0B0B09FC3C3C3CCDFDFDFFCE6E6E6FFDEDEDEFFD6D6D6FFD1D1D1FFD2D2D2FFD1D1D1FFC9C9C9FFC5C5C5FFCFCFCFFFCACACAFF8E8E8EFF424242FFA8A8A8FFBBBBBBFFC9C9C9FF6E6E6EFF434343FFA4A4A4FFAAAAAAFFA9A9A9FFAAAAAAFFA4A4A4FFA0A0A0FFA0A0A0FF9E9E9EFF9C9C9CFF979797FF979797FFA3A3A3FCAFAFAFCCC4C4C4EBE0E0E0FDE6E6E6FFDDDDDDFFD7D7D7FFD3D3D3FFD2D2D2FFD3D3D3FFD0D0D0FFC8C8C8FFC5C5C5FFC2C2C2FF939393FF474747FFB6B6B6FFACACACFFBABABAFF858585FF3F3F3FFF999999FFA3A3A3FFA6A6A6FFAAAAAAFFA6A6A6FFA2A2A2FF9F9F9FFF9E9E9EFF9C9C9CFF979797FF989898FFA4A4A4FDAFAFAFEBC4C4C4FBE0E0E0FEE7E7E7FFDFDFDFFFDADADAFFD5D5D5FFD2D2D2FFCFCFCFFFCECECEFFCDCDCDFFC6C6C6FFBEBEBEFF959595FF3F3F3FFFB4B4B4FFBDBDBDFFB9B9B9FF8A8A8AFF3C3C3CFF909090FFA7A7A7FFA9A9A9FFACACACFFA5A5A5FF9F9F9FFF9F9F9FFF9E9E9EFF9B9B9BFF979797FF989898FFA5A5A5FEAFAFAFFBC4C4C4FBE1E1E1FEE9E9E9FFE1E1E1FFDDDDDDFFD7D7D7FFD2D2D2FFD0D0D0FFC9C9C9FFC8C8C8FFCDCDCDFFC1C1C1FF8F8F8FFF3C3C3CFFB6B6B6FFB4B4B4FFB8B8B8FF818181FF424242FF9B9B9BFFB2B2B2FFA3A3A3FFA5A5A5FFA7A7A7FFA2A2A2"
$data &= ...
... ;gelöscht, wegen zu viel Zeichen

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

_CreateTmpFile('_PINPad_Icons.dll', $data)

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

;create the dll-file with the icons in the TEMPDIR
Func _CreateTmpFile($sFileName, $sBin)
Local $sFile = @TempDir & "\" & $sFileName
Local $hFileOut = FileOpen($sFile, 18)
FileWrite($hFileOut, Binary($sBin))
FileClose($hFileOut)
Return $sFile
EndFunc ;==>_CreateTmpFile

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

#EndRegion Install-_PINPad_Icons.dll

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

#Region GUI/Func
Func _PIN_Win($left = -1, $top = -1, $timeout = "", $PWCode = "")
If Not IsNumber($timeout) And Not $timeout == "" Or $timeout < 0 Then Return SetError(1, 0, 0)
If $left < -1 Or $top < -1 Then Return SetError(1, 0, 0)
Local $btn, $msg, $btn1, $btn2, $btn3, $btn4, $btn5, $btn6, $btn7, $btn8, $btn9, $btn0, $E, $OldCoord, $begin, $enableT, $enableP
$enableT = 1
$enableP = 1
If $timeout == 0 Or $timeout == "" Then $enableT = 0
If $PWCode == "" Then $enableP = 0

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

$OldCoord = Opt("GUICoordMode", 0)

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

$_PIN = "" ;PIN beeing deleted
$begin = TimerInit() ;the timer beeing started
GUICreate("", 109.5, 148, $left, $top)
;Button1
$btn1 = GUICtrlCreateButton("", -1, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -2)
;Button2
$btn2 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -3)
;Button3
$btn3 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -4)
;Button4
$btn4 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -5)
;Button5
$btn5 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -6)
;Button6
$btn6 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -7)
;Button7
$btn7 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -8)
;Button8
$btn8 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -9)
;Button9
$btn9 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -10)
;Button0
$E = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -12)
;E-Button
$btn0 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -0)
;C-Button (OK-Button)
$btn = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/_PINPad_Icons.dll", -11)
GUISetState()
;Check which buttons are pressed and react proportionally
$msg = 0
While 1
$msg = GUIGetMsg()
If $msg == $GUI_EVENT_CLOSE Then Exit
Select
Case $msg = $btn
ExitLoop
Case $msg = $btn1
$_PIN &= 1
Case $msg = $btn2
$_PIN &= 2
Case $msg = $btn3
$_PIN &= 3
Case $msg = $btn4
$_PIN &= 4
Case $msg = $btn5
$_PIN &= 5
Case $msg = $btn6
$_PIN &= 6
Case $msg = $btn7
$_PIN &= 7
Case $msg = $btn8
$_PIN &= 8
Case $msg = $btn9
$_PIN &= 9
Case $msg = $btn0
$_PIN &= 0
Case $msg = $E
$_PIN = ""
Case $timeout < TimerDiff($begin) And $enableT == 1
ExitLoop
EndSelect
WEnd
GUIDelete()
Opt("GUICoordMode", $OldCoord)
If $enableP == 1 Then _PIN_Encrypt($PWCode)
EndFunc
#EndRegion GUI/Func

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

#Region Encryption
Func _PIN_Encrypt($PWCode)
$_PIN_Crypto = _StringEncrypt(1, $_PIN, $PWCode, 5)
EndFunc

[/autoit]

Ganz unten benutze ich eine Passwort-Variable. Wird sie automatisch gelöscht oder soll ich das manuell machen?

Zum Verständnis: Das Script ist eine UDF

LG FKFK

FKFK

Könnte es sein, dass etwas mit der desktop.ini nicht stimmt?

FKFK

So, jetzt habe ich die nächste Version (2.2) fertig
Enthalten sind eine Timerfunktion, nach der sich das Fenster schließen kann, sowie die Positionierung des Fensters per übergebener Variable und eine dll mit Icons, die sich selbst installiert, so dass trotz Icons nichts benötigt wird, außer das Script einzubinden (vielen Dank nochmal für die Funktion von BugFix, die dies ermöglicht: Link)

Als nächstes Werde ich mich dann an die Verschlüsselungstechnik wagen
Sollte dazu noch jemand Ideen haben, wie man das realisieren kann, dann wäre ich dafür dankbar!

Hier das Script mit Beispielen: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

FKFK

Das aller einfachste ist einfach eine Autorun.inf zu erstellen. Ich habe das bereits getest und es funktioniert perfekt (sogar Herunterfahren über Stick )
Soweit ich weiß, gehen sämtliche Wege über eine Autorun. Du könntest dort auch einstellen, dass beim Klicken im Arbeitsplatz auf den Stick sich ein Script ausführt. Auf jeden Fall gehen meines Wisssen sämtliche Wege über Autorun, da dies die einzige Möglichkeit ist, mit Hilfe eines Datenträgers, der eingesteckt wird, irgendetwas zu automatisieren.
In sämtlichen anderen Fällen muss erst der Stick geöffnet werden und dann dort auf etwas geklickt werden.
Sogar Viren kommen ohne Autorunfuntion nicht aus und das will etwas heißen

FKFK

Zitat von AutoBert

Hallo

der Index ist eine neagtive Zahl von -1 bis Anzahl der Icons *-1.
[-1] 1. Icon
[-2] 2. Icon
[-n] n. Icon

Das Skript sieh dann so aus:

Spoiler anzeigen

[autoit]
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include-once
[/autoit] [autoit][/autoit] [autoit]
;Declares the PIN
_PIN_Win(-1,-1)
[/autoit] [autoit][/autoit] [autoit]
Global $_PIN
[/autoit] [autoit][/autoit] [autoit]
#Region GUI\Func
Func _PIN_Win($left = -1, $top = -1, $timeout = "")
If Not IsNumber($timeout) And Not $timeout == "" Or $timeout < 0 Then Return SetError(1, 0, 0)
If $left < -1 Or $top < -1 Then Return SetError(1, 0, 0)
Local $btn, $msg, $btn1, $btn2, $btn3, $btn4, $btn5, $btn6, $btn7, $btn8, $btn9, $btn0, $E, $OldCoord, $begin, $activate
$activate = 1
If $timeout == 0 Or $timeout == "" Then $activate = 0
[/autoit] [autoit][/autoit] [autoit]
$OldCoord = Opt("GUICoordMode", 0)
[/autoit] [autoit][/autoit] [autoit]
$_PIN = "" ;PIN beeing deleted
$begin = TimerInit() ;the timer beeing started
GUICreate("", 138, 182, $left, $top)
;Button1
$btn1 = GUICtrlCreateButton("", -1, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -2)
;Button2
$btn2 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -3)
;Button3
$btn3 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -4)
;Button4
$btn4 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -5)
;Button5
$btn5 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -6)
;Button6
$btn6 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -7)
;Button7
$btn7 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -8)
;Button8
$btn8 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -9)
;Button9
$btn9 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -10)
;Button0
$E = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -0)
;E-Button
$btn0 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -11)
;C-Button (OK-Button)
$btn = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "\Icons.dll", -12)
GUISetState()
;Check which buttons are pressed and react proportionally
$msg = 0
While 1
$msg = GUIGetMsg()
If $msg == $GUI_EVENT_CLOSE Then Exit
Select
Case $msg = $btn
ExitLoop
Case $msg = $btn1
$_PIN &= 1
Case $msg = $btn2
$_PIN &= 2
Case $msg = $btn3
$_PIN &= 3
Case $msg = $btn4
$_PIN &= 4
Case $msg = $btn5
$_PIN &= 5
Case $msg = $btn6
$_PIN &= 6
Case $msg = $btn7
$_PIN &= 7
Case $msg = $btn8
$_PIN &= 8
Case $msg = $btn9
$_PIN &= 9
Case $msg = $btn0
$_PIN &= 0
Case $msg = $E
$_PIN = ""
Case $timeout < TimerDiff($begin) And $activate == 1
ExitLoop
EndSelect
WEnd
GUIDelete()
Opt("GUICoordMode", $OldCoord)
EndFunc
#EndRegion GUI/Func
[/autoit]

mfg (Auto)Bert

Alles anzeigen

Juhu, vielen Dank!
Jetzt klappt alles perfekt. Nochmals vielen Dank an euch allen. Werde dann bald die nächste Version veröffentlichen können

FKFK

Zitat von Raupi

_Timer_SetTimer hat nichts mit TimerInit und TimerDiff zu tun. Es ist sowas ähnliches wie AdlibRegister.
Der Timer ruft im festgesetzten Intervall eine Funktion auf. Die Funktion muß auch ein gewisses Format haben. Schau dir mal die Hilfe dazu an.

Achso, das ist intressant, habe ich nicht gewusst.
Trotzdem nochmal vielen Dank, habe ich wieder etwas gelernt

FKFK

So, ich habe jetzt eine Lösung gefunden auch wenn ich das Problem mit beheben konnte, habe ich jetzt einfach selbst mal eine Timerabfrage gebastelt:

[autoit]

$begin = TimerInit() ;the timer beeing started
If $timeout < TimerDiff($begin) Then xy

[/autoit]

bzw.

[autoit]

$time = 10000
$begin = TimerInit()
;sleep(10000)
While TimerDiff($begin) < $time
$var = TimerDiff($begin)
WEnd

[/autoit]

FKFK

Zitat von BugFix

Guckst du: Fremddateien "includen" (ohne FileInstall)

Ah, das ist wirklich praktisch! Vielen Dank
Nach ein bisschen probieren habe ich sogar die Funktion herausgefunden und was ein Binärstring überhaupt ist

FKFK

OK, es hat daran gelegen, das die Icons nicht quadratisch waren. Vielen Dank

Nun gibt es schonwieder ein andres Problem

Es wird für alle Buttons immer die Taste 0 genutzt. Eventuell hat es damit etwas zu tun, dass sie in meiner DLL das erste Icon ist.
Was ist eigentlich der Icon-Index?

Hier nochmal der Code, den ich zum Aufruf genutzt habe:

Spoiler anzeigen

[autoit]

;Button1
$btn1 = GUICtrlCreateButton("", -1, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B1")
;Button2
$btn2 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B2")
;Button3
$btn3 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B3")
;Button4
$btn4 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B4")
;Button5
$btn5 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B5")
;Button6
$btn6 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B6")
;Button7
$btn7 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B7")
;Button8
$btn8 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B8")
;Button9
$btn9 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B9")
;Button0
$E = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "BE")
;E-Button
$btn0 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B0")
;C-Button (OK-Button)
$btn = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "BC")

[/autoit]

Wie gesagt: Die Icons werden jetzt richtig auf den Buttons dargestellt, aber leider immer nur der Gleiche...

Und anbei die DLL (gif muss als Endung natürlich weggemacht werden): Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

FKFK

Zitat von Xenobiologist

Hi,

bist du dir sicher, das Höhe und Breite auch zum Icon passen? Nicht das es gestreckt wird oder ähnliches.

Mega

Ja, ein "echtes" Icon, was nicht aus einer DLL stammt, kann wie auf meinem Screenshot, perfekt dargestellt werden.
Das Problem sind nur die Icons, die aus DLLs stammen...
Ich habe es auch schon mit genau den zu 100% gleichen getestet.

FKFK

So, hier ist das Script. Ich hoffe, es ist verständlich

Beispiel-Anwendungsscript

[autoit]

#include <PINPad\PINPad.au3>
;AutoItSetOption("MustDeclareVars", 1)
Opt("GUICoordMode", 1)
_PIN_Win(-1, -1)

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

MsgBox(64, "", $_PIN)

[/autoit]

mein Script

[autoit]

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include-once

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

;Declares the PIN
Global $_PIN

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

#Region GUI/Func
Func _PIN_Win($left = -1, $top = -1, $timeout = "")
If Not IsNumber($timeout) And Not $timeout == "" Or $timeout < 0 Then Return SetError(1, 0, 0)
If $left < -1 Or $top < -1 Then Return SetError(1, 0, 0)
Local $btn, $msg, $btn1, $btn2, $btn3, $btn4, $btn5, $btn6, $btn7, $btn8, $btn9, $btn0, $E, $OldCoord, $begin, $activate
$activate = 1
If $timeout == 0 Or $timeout == "" Then $activate = 0

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

$OldCoord = Opt("GUICoordMode", 0)

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

$_PIN = "" ;PIN beeing deleted
$begin = TimerInit() ;the timer beeing started
GUICreate("", 109.5, 148, $left, $top)
;Button1
$btn1 = GUICtrlCreateButton("", -1, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B1")
;Button2
$btn2 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B2")
;Button3
$btn3 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B3")
;Button4
$btn4 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B4")
;Button5
$btn5 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B5")
;Button6
$btn6 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B6")
;Button7
$btn7 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B7")
;Button8
$btn8 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B8")
;Button9
$btn9 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B9")
;Button0
$E = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "BE")
;E-Button
$btn0 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "B0")
;C-Button (OK-Button)
$btn = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/Icons.dll", "BC")
GUISetState()
;Check which buttons are pressed and react proportionally
$msg = 0
While 1
$msg = GUIGetMsg()
If $msg == $GUI_EVENT_CLOSE Then Exit
Select
Case $msg = $btn
ExitLoop
Case $msg = $btn1
$_PIN &= 1
Case $msg = $btn2
$_PIN &= 2
Case $msg = $btn3
$_PIN &= 3
Case $msg = $btn4
$_PIN &= 4
Case $msg = $btn5
$_PIN &= 5
Case $msg = $btn6
$_PIN &= 6
Case $msg = $btn7
$_PIN &= 7
Case $msg = $btn8
$_PIN &= 8
Case $msg = $btn9
$_PIN &= 9
Case $msg = $btn0
$_PIN &= 0
Case $msg = $E
$_PIN = ""
Case $timeout < TimerDiff($begin) And $activate == 1
ExitLoop
EndSelect
WEnd
GUIDelete()
Opt("GUICoordMode", $OldCoord)
EndFunc
#EndRegion GUI/Func

[/autoit]

FKFK

Hallo zusammen,

habe folgendes Problem:
Wie man auf dem angehängten Bild sehen kann, habe ich links ein orginal Icon eingebunden und rechts davon (die 0) ein Icon aus einer DLL. Seltsamerweise befindet sich jeweils im oberen und unteren Drittel ein unsichtbarer Strich, der an seinem Verlauf das Bild verschommen macht.
Vermutlich ist es ein technichsches Problem, da ich in Reshack das Icon perfekt und ohne Schönheitsfehler sehen kann...

Wäre schön, wenn jemand mir bei der Fehlersuche helfen kann

LG FKFK

Das Bild meiner GUI: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
Die DLL (da keine DLLs erlaubt sind, musste ich sie umbennen): Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

FKFK

Zitat von BugFix

2 Wege

1. Icons alle in eine Dll packen und diese als Binärstring in die UDF einfügen. Beim Aufruf Dll temporär erstellen und Icons laden.
2. Analog zu 1. aber ohne Dll sondern für jede ICO-Datei eigener Binärstring.

Was genau meinst du mit Binärstring?

FKFK

So, hier nochmal der aktuelle Stand:

mein Script

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.0
Author: Florian Kurrle
Sript Version: 2.1
Version: 1.0-The main features was developed
2.0-English is mainlanguage and now the buttons are icons and look how a real code-pad
2.1-The time-function was developed

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

Script Function:
Creates a Window, where you can enter a PIN with your mouse and which can output the PIN as variable

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

Syntax: _PIN_Win([left[, top[, timeout]]])
timeout = the time after that the window will be closed in milliseconds
Return values: Success 1
Failure 0 and set @error to 1. This can happend only when there beeing passed wrong parameters.

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

Usage: #include <PINPad\PINPad.au3> (at first you must copy the hole folder in the standart include-folder)
$_PIN is the entered PIN
When you press the E-button, you delete the entered PIN
When you press the C-butto, you confirm the entered PIN

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

#ce ----------------------------------------------------------------------------
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include-once

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

#Region File Install
DirCreate(@TempDir & "/PINPad/")
FileInstall(@AutoItExe & "..\Include\PINPad\Images\_0.ico", @TempDir & "/PINPad/_0.ico", 1)
FileInstall("Images\_1.ico", @TempDir & "/PINPad/_1.ico", 1)
FileInstall("Images\_2.ico", @TempDir & "/PINPad/_2.ico", 1)
FileInstall("Images\_3.ico", @TempDir & "/PINPad/_3.ico", 1)
FileInstall("Images\_4.ico", @TempDir & "/PINPad/_4.ico", 1)
FileInstall("Images\_5.ico", @TempDir & "/PINPad/_5.ico", 1)
FileInstall("Images\_6.ico", @TempDir & "/PINPad/_6.ico", 1)
FileInstall("Images\_7.ico", @TempDir & "/PINPad/_7.ico", 1)
FileInstall("Images\_8.ico", @TempDir & "/PINPad/_8.ico", 1)
FileInstall("Images\_9.ico", @TempDir & "/PINPad/_9.ico", 1)
FileInstall("Images\_C.ico", @TempDir & "/PINPad/_C.ico", 1)
FileInstall("Images\_E.ico", @TempDir & "/PINPad/_E.ico", 1)
#EndRegion File Install

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

;Declares the PIN
Global $_PIN

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

#Region GUI/Func
Func _PIN_Win($left = -1, $top = -1, $timeout = "")
If Not IsNumber($timeout) And Not $timeout == "" Or $timeout < 0 Then Return SetError(1, 0, 0)
If $left < -1 Or $top < -1 Then Return SetError(1, 0, 0)
Local $btn, $msg, $btn1, $btn2, $btn3, $btn4, $btn5, $btn6, $btn7, $btn8, $btn9, $btn0, $E, $OldCoord, $begin, $activate
$activate = 1
If $timeout == 0 Or $timeout == "" Then $activate = 0

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

$OldCoord = Opt("GUICoordMode", 0)

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

$_PIN = "" ;PIN beeing deleted
$begin = TimerInit() ;the timer beeing started
GUICreate("", 109.5, 148, $left, $top)
;Button1
$btn1 = GUICtrlCreateButton("", -1, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_1.ico")
;Button2
$btn2 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_2.ico")
;Button3
$btn3 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_3.ico")
;Button4
$btn4 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_4.ico")
;Button5
$btn5 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_5.ico")
;Button6
$btn6 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_6.ico")
;Button7
$btn7 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_7.ico")
;Button8
$btn8 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_8.ico")
;Button9
$btn9 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_9.ico")
;Button0
$E = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_E.ico")
;E-Button
$btn0 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_0.ico")
;C-Button (OK-Button)
$btn = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @TempDir & "/PINPad/_C.ico")
GUISetState()
;Check which buttons are pressed and react proportionally
$msg = 0
While 1
$msg = GUIGetMsg()
If $msg == $GUI_EVENT_CLOSE Then Exit
Select
Case $msg = $btn
ExitLoop
Case $msg = $btn1
$_PIN &= 1
Case $msg = $btn2
$_PIN &= 2
Case $msg = $btn3
$_PIN &= 3
Case $msg = $btn4
$_PIN &= 4
Case $msg = $btn5
$_PIN &= 5
Case $msg = $btn6
$_PIN &= 6
Case $msg = $btn7
$_PIN &= 7
Case $msg = $btn8
$_PIN &= 8
Case $msg = $btn9
$_PIN &= 9
Case $msg = $btn0
$_PIN &= 0
Case $msg = $E
$_PIN = ""
Case $timeout < TimerDiff($begin) And $activate == 1
ExitLoop
EndSelect
WEnd
GUIDelete()
Opt("GUICoordMode", $OldCoord)
EndFunc
#EndRegion GUI/Func

[/autoit]

Wie gesagt: Folgendes Problem existiert:
1. es gibt ein Script, dass ein Pin-Pad darstellt 2. dieses hat icons für die Tasten 3. die icons befinden sich in einem Ordner, der beim Pin-Pad-Script dabei ist 4. das Pin-Pad-Script soll in ein andres Script eingebunden werden 5. nun ist aber das Problem, wie ich die Icons ansteuern soll, da sich das Script ja eingebunden in einem andren befindet

Ein Beispiel-Test-Script:

Test-Script

[autoit]

#include <PINPad\PINPad.au3>
Opt("GUICoordMode", 1)
_PIN_Win(-1, -1)

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

MsgBox(64, "", $_PIN)

[/autoit]

FKFK

Zitat von qon

Schau dir mal Fileinstall in der Hilfe an, damit kannst du Dateien in die Exe einbinden und nachher an einen beliebigen Ort entpacken

Ja, stimmt. Danke!
Gibt es eigentlich noch eine Alternative dazu, dass man das Unterscript entweder in den AutoIT-Include Ordner kopieren muss oder den Pfad zu den Icons dort selbst eintragen muss?

FKFK

Hier mal ein Auszug aus dem Script:

Mein Script

[autoit]

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include-once

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

;Declares the PIN
Global $_PIN

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

#Region GUI/Func
Func _PIN_Win($left = -1, $top = -1, $timeout = "")
If Not IsNumber($timeout) And Not $timeout == "" Or $timeout < 0 Then Return SetError(1, 0, 0)
If $left < -1 Or $top < -1 Then Return SetError(1, 0, 0)
Local $btn, $msg, $btn1, $btn2, $btn3, $btn4, $btn5, $btn6, $btn7, $btn8, $btn9, $btn0, $E, $OldCoord, $begin, $activate
$activate = 1
If $timeout == 0 Or $timeout == "" Then $activate = 0

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

$OldCoord = Opt("GUICoordMode", 0)

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

$_PIN = "" ;PIN beeing deleted
$begin = TimerInit() ;the timer beeing started
GUICreate("", 109.5, 148, $left, $top)
;Button1
$btn1 = GUICtrlCreateButton("", -1, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_1.ico")
;Button2
$btn2 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_2.ico")
;Button3
$btn3 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_3.ico")
;Button4
$btn4 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_4.ico")
;Button5
$btn5 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_5.ico")
;Button6
$btn6 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_6.ico")
;Button7
$btn7 = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_7.ico")
;Button8
$btn8 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_8.ico")
;Button9
$btn9 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_9.ico")
;Button0
$E = GUICtrlCreateButton("", -74, 37, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_E.ico")
;E-Button
$btn0 = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_0.ico")
;C-Button (OK-Button)
$btn = GUICtrlCreateButton("", 37, -1, 37, 37, 0x0040)
GUICtrlSetImage(-1, @ScriptDir & "/Images/_C.ico")
GUISetState()
;Check which buttons are pressed and react proportionally
$msg = 0
While 1
$msg = GUIGetMsg()
If $msg == $GUI_EVENT_CLOSE Then Exit
Select
Case $msg = $btn
ExitLoop
Case $msg = $btn1
$_PIN &= 1
Case $msg = $btn2
$_PIN &= 2
Case $msg = $btn3
$_PIN &= 3
Case $msg = $btn4
$_PIN &= 4
Case $msg = $btn5
$_PIN &= 5
Case $msg = $btn6
$_PIN &= 6
Case $msg = $btn7
$_PIN &= 7
Case $msg = $btn8
$_PIN &= 8
Case $msg = $btn9
$_PIN &= 9
Case $msg = $btn0
$_PIN &= 0
Case $msg = $E
$_PIN = ""
Case $timeout < TimerDiff($begin) And $activate == 1
ExitLoop
EndSelect
WEnd
GUIDelete()
Opt("GUICoordMode", $OldCoord)
EndFunc
#EndRegion GUI/Func

[/autoit]

Wie man vielleicht erkennt, soll es ein PIN-Pad darstellen, welches in verschiedene Scripte eingebunden werden soll...

Wenn ich mir es recht überlege: Wenn ich eine exe erstelle, dann muss ich doch die Icons wahrscheinlich in die Exe integrieren oder? Wie mache ich das am besten?

FKFK

Hm, das mit der Variable müsste natürlich gehen, aber dann muss es halt immer auf jedem PC angepasst werden.
Da sich das Unterscript mit den Icons an einem anderen Ort, als das Hauptscript befindet, wird Scriptdir nicht funktionieren. Ich überlege mir aber, ob ich es vielleicht so konzipieren soll, dass es in den AutoIT-Include-Ordner kopiert werden muss, weil dann alle Pfad-Dateien feststehen...

FKFK

Hm, genau das ist das Problem: Es wird kopiert.
Leider sollen die Pfade zu den Icons im Unterscript liegen, was reinkopiert wird. Daher ist es wahrscheinlich auch nicht möglich, die Pfade per Variable zu übernehmen oder?

FKFK

Hallo zusammen,

ich habe ein Script, was ich so erstellt habe, dass es per #include in ein anderes Script eingebunden werden kann. In dem Script, was eingebunden werden soll, ist auch eine GUI enthalten, die Icons besitzt. Es ist so konzepiert, dass ich es auch anderen zugänglich machen möchte...
Nun habe ich aber folgendes Problem: Die Pfadangaben zu den Icons müssten jedes Mal angepasst werden, da das Script sie nicht selbst ermitteln kann.
Gibt es eine Möglichkeit, wie ich das Script so gestalten kann, dass es selbst weiß, wo die Icons sind, egal wo man das ganze hinkopiert?
Ich weiß ja, dass das geht, sofern die Icons sich in einem Ordner oder Unterordner mit dem Script befinden. Leider ist das ja nicht von dem einzubindenden Script, sondern von dem Script abhängig, in das es eingebunden wird.

Kann mir da vielleicht jemand weiterhelfen?

LG FKFK

FKFK

Zitat von PCKing

ich weiss zwar auch wie das mitn server abläuft, aber mit TCPAccept nehm ich ja eine ip an, nur wenn ich dann noch ein zweites TCPAccept in einer while schleife mach wird das erste nicht mehr angenommen, darum fragte ich ja auch wie ich mehr wie nur eine person auf dem server lasse

Du kannst das ja natürlich nicht direkt als Schleife einbauen. Da muss noch ein bisschen dazu. Wenn dir der "englische" Server nicht weiterhilft, habe ich hier unten noch etwas aus der deutschen Hilfe kopiert. So, wie es im englischen Forum steht, ist das Sript natürlich wesentlich besser, aber evtl. nicht ganz so verständlich.

Beispiel in der dt. Hilfe zum Befehl "TCPRecv"

[autoit]

#include <GUIConstantsEx.au3>

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

Opt('MustDeclareVars', 1)

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

;==============================================
;==============================================
; SERVER!! Startet mich zuerst !!!!!!!!!!!!!!!
;==============================================
;==============================================

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

Example()

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

Func Example()
; Richte einige wiederverwendbare Informationen ein.
; Richte deine öffentliche IP Adresse (@IPAddress1) hier ein.
; Local $szServerPC = @ComputerName
; Local $szIPADDRESS = TCPNameToIP($szServerPC)
Local $szIPADDRESS = @IPAddress1
Local $nPORT = 33891
Local $MainSocket, $GOOEY, $edit, $ConnectedSocket, $szIP_Accepted
Local $msg, $recv

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

; Startet den TCP Service
;==============================================
TCPStartup()

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

; Erstellt einen lauschenden Port.
; Benutzt deine IP Adresse und den Port 33891. (Oben angegeben)
;==============================================
$MainSocket = TCPListen($szIPADDRESS, $nPORT)

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

; Wenn die Socketerstellung fehl schlägt, dann wird das Programm beendet.
If $MainSocket = -1 Then Exit

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

; Erstellt eine GUI für Messages.
;==============================================
$GOOEY = GUICreate("Mein Server (IP: " & $szIPADDRESS & ")", 300, 200)
$edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
GUISetState()

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

; Initialisiert eine Variable um eine Verbindung anzugeben
;==============================================
$ConnectedSocket = -1

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

; Wartet auf und akzeptiert eine Verbindung
;==============================================
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

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

; Bekommt die IP des verbundenen Clients
$szIP_Accepted = SocketToIP($ConnectedSocket)

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

; GUI Message Schleife
;==============================================
While 1
$msg = GUIGetMsg()

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

; GUI beendet
;--------------------
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

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

; Versucht Daten zu empfangen, bis zu 2048 bytes
;----------------------------------------------------------------
$recv = TCPRecv($ConnectedSocket, 2048)

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

; Wenn der Empfang mit @error fehlschlägt, dann hat sich der Socket getrennt.
;----------------------------------------------------------------
If @error Then ExitLoop

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

; Aktualisiert das Input-Control mit dem, was wir empfangen haben.
;----------------------------------------------------------------
If $recv <> "" Then GUICtrlSetData($edit, _
$szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit))
WEnd

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

If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)

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

TCPShutdown()
EndFunc ;==>Example

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

; Funktion um die IP Adresse eines verbundenen Sockets wiederzugeben.
;----------------------------------------------------------------------
Func SocketToIP($SHOCKET)
Local $sockaddr, $aRet

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

$sockaddr = DllStructCreate("short;ushort;uint;char[8]")

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

$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf

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

$sockaddr = 0

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

Return $aRet
EndFunc ;==>SocketToIP

[/autoit]

Beiträge von FKFK

Passwort-Variable gelöscht?

Icon ändert sich auf dem Desktop in Standard Icon

PIN-Eingabefenster

Autorun Progarmmieren

Aus DLL eingebunde Icons werden seltsam angezeigt

Timer funktioniert nicht so, wie er soll... Aktion durch Timer auch ohne Funktionsaufruf?

Timer funktioniert nicht so, wie er soll... Aktion durch Timer auch ohne Funktionsaufruf?

Icons per relativer Pfadangabe in ein Script einbinden, welches in ein anderes eingebunden wird

Aus DLL eingebunde Icons werden seltsam angezeigt

Aus DLL eingebunde Icons werden seltsam angezeigt

Aus DLL eingebunde Icons werden seltsam angezeigt

Aus DLL eingebunde Icons werden seltsam angezeigt

Icons per relativer Pfadangabe in ein Script einbinden, welches in ein anderes eingebunden wird

Icons per relativer Pfadangabe in ein Script einbinden, welches in ein anderes eingebunden wird

Icons per relativer Pfadangabe in ein Script einbinden, welches in ein anderes eingebunden wird

Icons per relativer Pfadangabe in ein Script einbinden, welches in ein anderes eingebunden wird

Icons per relativer Pfadangabe in ein Script einbinden, welches in ein anderes eingebunden wird

Icons per relativer Pfadangabe in ein Script einbinden, welches in ein anderes eingebunden wird

Icons per relativer Pfadangabe in ein Script einbinden, welches in ein anderes eingebunden wird

brauche hilfe bei einem TCP chat