UDF's und Code den ihr teilen m�chtet

04/07/2014 17:27 butter123#1

Sammelthread

Falls ihr kleinere Codeschnipsel, eigene UDF's oder sonst irgendwas habt, was ihr anderen zur Verf�gung stellen m�chtet, dann seid ihr hier richtig.
Einfach euren Code (oder einen Link in die Coding Releas Section) mit einer kurzen Beschreibung posten. Ab und zu werde ich das Inhaltsverzeichnis erweitern, sollte ich was �bersehen haben einfach eine kurze PN mit dem direkten Link zu eurem Post.

Quote:

Originally Posted by Lawliet!

Bitte [Only registered and activated users can see links. Click Here To Register...] einen Thread erstellen und verlinken, wenn euer Code einen gewissen Umfang hat.

Achtet darauf, dass alles ordentlich bleibt und verschiebt Diskussionen �ber den Code bitte in einen anderen Thread
(z.B. [Only registered and activated users can see links. Click Here To Register...])

Inhaltsverzeichnis:

[Only registered and activated users can see links. Click Here To Register...] Jedes Zahlensystem in jedes andere Zahlensystem konvertieren!
[Only registered and activated users can see links. Click Here To Register...] Verbindungsaufbau zu einem Socks4/5 Proxy
[Only registered and activated users can see links. Click Here To Register...] sin,cos, winkel, 3D koordinaten->2D screenkoordinaten, u.s.w
[Only registered and activated users can see links. Click Here To Register...] Kleine pixelsearch pattern UDF
[Only registered and activated users can see links. Click Here To Register...] Daten speichern auf einem Filezilla - Server
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...] mittels Twitter API
[Only registered and activated users can see links. Click Here To Register...] bspw. +1 Sekunde
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...] mit cookies

04/07/2014 18:28 alpines#2

Super, dann m�chte ich direkt mal anfangen.

NumberConvert.au3 - Jedes Zahlensystem in jedes andere Zahlensystem konvertieren!

Ich hab vor einiger Zeit eine UDF geschrieben, die es erm�glicht jedes Zahlensystem in jedes andere Zahlensystem umzuwandeln.
Man muss lediglich das System angeben.

Beispiel Dezimal:

Code:

0-1-2-3-4-5-6-7-8-9

Damit man jedes System nicht angeben muss gibt es folgende Konstanten

Code:

Global Const $NS_DEC = "0-1-2-3-4-5-6-7-8-9", _
	  $NS_HEX = "0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F", _
	  $NS_BIN = "0-1", _
	  $NS_OCT = "0-1-2-3-4-5-6-7", _
	  $NS_ABC = "A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z"

Die Funktion ruft man wie folgt auf

Code:

$sReturn = _NumberConvert($sValue, $sNSystemFrom, $sNSystemTo)

Dabei beinhaltet,
- $sValue die Zahl, oder den Wert den man konvertieren m�chte,
- $sNSystemFrom das System von dem man wegkonvertieren m�chte,
- $sNSystemTo das System zu dem man hinkonvertieren m�chte.

Ich m�chte noch darauf hinweisen, das diese UDF kein Errorhandling hat, also passt auf was ihr reinschmei�t und rauskriegt ;)

Genauere Hilfe und Erkl�rung gibts unter
[Only registered and activated users can see links. Click Here To Register...]

(Kein VT angehangen, da es nur eine gepackte .au3 ist!)

04/07/2014 19:03 butter123#3

Ich mach denn mal gleich weiter mit dem Verbindungsaufbau zu einem Socks4/5 Proxy.
Bei google gab es wenig Beispiele und selbst wenn man sich an englisches und deutsches Wiki h�lt, bewirkt ein falscher Wert gleich dass gar nichts funktioniert.

Falls der Verbindungsaufbau klappt, wird das Verbindungshandle zur�ckgegeben, ansonsten False.
$iTimeout ist die Zeit, die TCPRecv auf eine Antwort wartet.

Spoiler

PHP Code:


			
TCPStartup()

If _Socks4ProxyConnect("94.77.199.148",1080,"80.228.65.172",80,600) then MsgBox(0,0,0)

If _Socks5ProxyConnect("94.77.199.148",1080,"80.228.65.172",80,600) then MsgBox(0,0,1)



Func _Socks5ProxyConnect($IPProxy,$PortProxy,$IPServer,$PortServer,$iTimeout = 300)

    ConsoleWrite('@@ (24) :(' & @MIN & ':' & @SEC & ') _Socks5ProxyConnect()' & @CR) ;### Function Trace



    Local $hProxy = TCPConnect($IPProxy, $PortProxy)



    If $hProxy = -1 Then Return False



    Local $PortLeft = Hex(Floor($PortServer/256),2)

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PortLeft = ' & $PortLeft & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    Local $PortRight = Hex(Mod($PortServer,256),2)

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PortRight = ' & $PortRight & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console



    Local $aIP = StringSplit($IPServer,".")

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $aIP[0] = ' & $aIP[0] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    If $aIP[0] <> 4 Then Return False





    Local $sReq = Chr(0x05) _                                                                         ; Protocol version  5

                & Chr(0x01) _                                                                         ; Authentification methods

                & Chr(0x00)

    TCPSend($hProxy,$sReq)



    Local $tTimeout = TimerInit()

    Local $sRecv

    Do

        $sRecv &= TCPRecv($hProxy,6)

    Until StringLen($sRecv) > 5 or TimerDiff($tTimeout) > $iTimeout

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sRecv = ' & $sRecv & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    If StringLeft($sRecv,6)<>"0x0500" then Return False





    $sReq = Chr(0x05) _                                                                                                         ; Protocol version 5

            & Chr(0x01) _                                                                                                         ; Command Code      1 - establish a tcp/ip stream connection

            & Chr(0x00) _                                                                                                        ; Always 0x00

            & Chr(0x01) _                                                                                                          ; Typ

            & Chr("0x" &Hex($aIP[1],2)) & Chr("0x" &Hex($aIP[2],2)) & Chr("0x" &Hex($aIP[3],2)) & Chr("0x" &Hex($aIP[4],2)) _     ; Ip Adress

            & Chr("0x" &$PortLeft) & Chr("0x" &$PortRight)                                                                        ; Port                                                                           ; Host Name

    TCPSend($hProxy,$sReq)



    $tTimeout = TimerInit()

    $sRecv = ""

    Do

        $sRecv &= TCPRecv($hProxy,6)

    Until StringLen($sRecv) > 5 or TimerDiff($tTimeout) > $iTimeout

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sRecv = ' & $sRecv & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    If StringLeft($sRecv,6)="0x0500" then Return $hProxy

    Return False

EndFunc



Func _Socks4ProxyConnect($IPProxy,$PortProxy,$IPServer,$PortServer,$iTimeout = 300)

    ConsoleWrite('@@ (24) :(' & @MIN & ':' & @SEC & ') _Socks4ProxyConnect()' & @CR) ;### Function Trace



    Local $hProxy = TCPConnect($IPProxy, $PortProxy)

    If $hProxy = -1 Then Return False



    Local $PortLeft = Hex(Floor($PortServer/256),2)

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PortLeft = ' & $PortLeft & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    Local $PortRight = Hex(Mod($PortServer,256),2)

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $PortRight = ' & $PortRight & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    Local $aIP = StringSplit($IPServer,".")

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $aIP[0] = ' & $aIP[0] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    If $aIP[0] <> 4 Then Return False





    Local $sReq = Chr(0x04) _                                                                                                 ; Protocol version  4

          & Chr(0x01) _                                                                                                     ; Command Code      1 - establish a tcp/ip stream connection

          & Chr("0x" &$PortLeft) & Chr("0x" &$PortRight) _                                                                    ; Port

          & Chr("0x" &Hex($aIP[1],2)) & Chr("0x" &Hex($aIP[2],2)) & Chr("0x" &Hex($aIP[3],2)) & Chr("0x" &Hex($aIP[4],2)) _ ; Ip Adress

          & Chr(0x00) _                                                                                                        ; User Id           Empty

          & Chr(0x00)                                                                                                         ; Host Name

    TCPSend($hProxy,$sReq)



    Local $tTimeout = TimerInit()

    Local $sRecv

    Do

        $sRecv &= TCPRecv($hProxy,6)

    Until StringLen($sRecv) > 5 or TimerDiff($tTimeout) > $iTimeout

    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sRecv = ' & $sRecv & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

    If StringLeft($sRecv,6)="0x005A" then Return $hProxy

    Return False

EndFunc

04/07/2014 21:59 FacePalmMan#4

ich habe vor einiger zeit eine udf geschrieben mit ein paar "formeln" f�r bestimmte sachen.
unter anderem um die distanz zwischen 2 2Dimensionalen punkten zu berechnen, und um 3Dimensionale koordinaten in 2Dimensionale koordinaten umzuwandeln um z.b eine 3Dimensionale figur zeichnen zu lassen.
hier mal ein paar befehle (werde sie vielleicht mit der zeit erg�nzen):

Spoiler

04/07/2014 22:31 YatoDev#5

Kleine pixelsearch pattern udf.
Man kann damit wunderbar hp bars und �hnliches erkennen ohne absolute coordinaten am rechner des nutzers zu kennen.

Man gibt bei _PixelSearchPattern() an :
1.) Den farbcode den man sucht
2.) Die ungef�hre l�nge des objekts (kann man mit @Desktop makros easy errechnen)
3.) ob auf der x achse oder der y achse gesucht werden soll (also bei x scannt er alles nach rechts ab)
4.) Optional : Wie gro� der unterschied zwischen den gefundenen pixeln sein darf
5.) Optional : wie gro� die schritte sind
6.) Das gleiche wie bei 5 den sinn warum ich das so gemacht habe weis ich grade nicht :(
7.)damit kann man auf dem pattern nach oben und unten wandern
Bei den integer values k�nnen negative zahlen angegeben werden was auch sehr hilfreich ist

Spoiler

PHP Code:


			
; #FUNCTION# ====================================================================================================================

; Name ..........: _PixelSearchPattern

; Description ...:

; Syntax ........: _PixelSearchPattern($hex_Color, $px_lenght, $pattern[, $shader = 1[, $px_step = 10[, $pixels = 10[,

;                  $pixel_move = 0]]]])

; Parameters ....: $hex_Color           - farbcode als hex

;                  $px_lenght           - die l�nge des objects das abgesucht wird

;                  $pattern             - x f�r die x achse oder y

;                  $shader              - [optional] pixel variation, shader. wie in pixelsearch

;                  $px_step             - [optional] schritte die beim abuschen gemacht werden. Gr��e in pixeln

;                  $pixels              - [optional] muss das gleiche sein wie px_step

;                  $pixel_move          - [optional] ver�ndert den angegebenen wert des pattern

; Return values .: array mit coordinaten zb um festzustellen wie voll eine hp bar ist

; Author ........: FlutterShy

; ===============================================================================================================================

Func _PixelSearchPattern($hex_Color,$px_lenght,$pattern,$shader = 1,$px_step = 10,$pixels = 10,$pixel_move = 0)

    $px_i_1 = 0

    $max = Hex($hex_color) + Hex($shader)

    $min = Hex($hex_color) - Hex($shader)

    Do

        $px = __Pixel_Search($hex_Color)

        sleep(10)

        $px_i_1 +=1

        If $px_i_1 = 10 Then

            Return False

        EndIf

    Until $px <> False

    $px_pattern = True

    Dim $px_array[$px_lenght / $px_step + 1]

    If $pattern = "x" Then

        $px_array[0] = $px[1] + $pixel_move

        $i_px_count = 1

        Do

            $px_get = __Pixel_GetColor($px[0] + $pixels,$px[1])

            If Hex($px_get) < $max And Hex($px_get) > $min Then

                $px_get = $hex_color

            EndIf

            If $px_get <> $hex_Color Then

                $px_pattern = False

            Else

                $px_array[$i_px_count] = $px[0] + $pixels

                $i_px_count += 1

            EndIf

            $pixels += $px_step

            If $pixels > $px_lenght Then

                $px_pattern = False

            EndIf

        Until $px_pattern = False

        If IsArray($px_array) Then

            Return $px_array

        Else

            Return False

        EndIf

    Else

        $px_array[0] = $px[0] + $pixel_move

        $i_px_count = 1

        Do

            $px_get = __Pixel_GetColor($px[0],$px[1]+ $pixels)

            If Hex($px_get) < $max And Hex($px_get) > $min Then

                $px_get = $hex_color

            EndIf

            If $px_get <> $hex_Color Then

                $px_pattern = False

            Else

                $px_array[$i_px_count] = $px[1] + $pixels

                $i_px_count += 1

            EndIf

            $pixels += $px_step

            If $pixels > $px_lenght Then

                $px_pattern = False

            EndIf

        Until $px_pattern = False

        If IsArray($px_array) Then

            Return $px_array

        Else

            Return False

        EndIf

    EndIf

    Return False

EndFunc



; #FUNCTION# ====================================================================================================================

; Name ..........: _PixelVerifyColor

; Description ...: PixelGetColor with shader variation

; Syntax ........: _PixelVerifyColor($x, $y, $color, $variation)

; Parameters ....: $x                   - x coordinate

;                  $y                   - y coordinate

;                  $color               - Color

;                  $variation           - shader variation as Integer

; Return values .: Color or False

; Author ........: FlutterShy

; ===============================================================================================================================

Func _PixelVerifyColor($x,$y,$color,$variation)

    $max = Hex($color) + Hex($variation)

    $min = Hex($color) - Hex($variation)

    $get = PixelGetColor($x,$y)

    If Hex($get) < $max And Hex($get) > $min Then

        Return "0x" & StringTrimLeft(Hex($get),2)

    Else

        Return False

    EndIf

EndFunc



;internal use

Func __Pixel_Search($hex_Color)

    $icoords = PixelSearch(0,0,@DesktopHeight,@DesktopWidth,$hex_Color,0,1)

    If IsArray($icoords) Then

        Return $icoords

    Else

        Return False

    EndIf

EndFunc



Func __Pixel_GetColor($px_x,$px_y)

    $px_color = PixelGetColor($px_x,$px_y)

    If Not @error And $px_color <> "" And $px_color <> "-1" Then

        Return $px_color

    Else

        Return False

    EndIf

EndFunc

04/07/2014 23:17 Lawliet#6

Bitte [Only registered and activated users can see links. Click Here To Register...] einen Thread erstellen und verlinken, wenn euer Code einen gewissen Umfang hat.
#sticked

06/20/2014 22:05 sezer0012#7

Hallo, ich m�chte euch mein selbst geschriebenes Register/Login Script vorstellen.
Es speichert die Daten auf euren Filezilla - Server.

Wenn man sich registriert, holt es eine zip Datei vom Server und schiebt die ini (mit den Daten) in die zip Datei, dann wird es ins Filezilla server geschoben. Wenn man den Programm startet, werden als erstes alle Daten geladen, also die Zip Datei wird
in einen Ordner entpackt. Wenn man sich einloggt wird es abgefragt ob der angegebene Name existiert. Falls man das Programm schlie�t werden alle Daten gel�scht so das man nicht schauen kann wie die Daten sind. Man kann es aber auch versteckter machen so das man gar nicht schauen kann wie die Daten sind, habe ich aber nicht gemacht.

Code:

Spoiler

Code:

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <String.au3>
#include <FTPEx.au3>
#include <Zip.au3>

;Laden Form 0
#Region ### START Koda GUI section ### Form=
$Form0 = GUICreate("Laden", 326, 59, 263, 241)
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("Laden, bitte haben sie etwas geduld.", 8, 8, 312, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("� by Sezer Kabak.", 96, 32, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;Login Form1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login", 219, 111, 192, 124)
GUISetBkColor(0x99B4D1)
$Label3 = GUICtrlCreateLabel("Benutzername:", 8, 8, 75, 17)
$Input1 = GUICtrlCreateInput("", 88, 8, 121, 21)
$Label4 = GUICtrlCreateLabel("Passwort:", 8, 32, 50, 17)
$Input2 = GUICtrlCreateInput("", 88, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Einloggen", 8, 56, 203, 25)
$Button2 = GUICtrlCreateButton("Registrieren", 8, 80, 203, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Registrieren Form2
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Registrieren", 234, 166, 193, 126)
GUISetBkColor(0x99B4D1)
$Label5 = GUICtrlCreateLabel("Benutzername:", 8, 8, 75, 17)
$Label6 = GUICtrlCreateLabel("Passwort:", 8, 32, 50, 17)
$Input3 = GUICtrlCreateInput("", 104, 8, 121, 21)
$Input4 = GUICtrlCreateInput("", 104, 32, 121, 21)
$Label7 = GUICtrlCreateLabel("E-mail:", 8, 64, 35, 17)
$Input5 = GUICtrlCreateInput("", 104, 64, 121, 21)
$Label8= GUICtrlCreateLabel("E-mail wiederhollen:", 8, 88, 97, 17)
$Input6 = GUICtrlCreateInput("", 104, 88, 121, 21)
$Button3 = GUICtrlCreateButton("Registrieren", 8, 112, 219, 25)
$Button4 = GUICtrlCreateButton("Zur�ck", 8, 136, 219, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Eingeloggt Form3
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Eingeloggt", 264, 75, 192, 124)
GUISetBkColor(0x99B4D1)
$Button5= GUICtrlCreateButton("Beenden", 8, 48, 243, 25)
$Label9 = GUICtrlCreateLabel("Erfolgreich eingeloggt!", 8, 8, 248, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

;Globale Variablen
$FTP_open = _FTP_Open("MeinFTP") ;Ist egal wie es hei�t
$FTP_Connect = _FTP_Connect($FTP_open, "DeinNameUndHoster.bplaced.net", "Einlogname", "Passwort")

;Wenn Ordner Benutzer nicht existiert, erstelle Ordner
If Not FileExists(@TempDir & "\Benutzer") Then 
DirCreate(@TempDir & "\Benutzer") 
EndIf

InetGet("http://DeinNameUndHoster.bplaced.net/Benutzer.zip", @TempDir & "\Benutzer\Benutzer.zip", 1) 
_Zip_UnzipAll(@TempDir & "\Benutzer\Benutzer.zip", @TempDir & "\Benutzer", 0)

GUISetState(@SW_HIDE, $Form0)
GUISetState(@SW_SHOW, $Form1)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        FileDelete(@TempDir & "\Benutzer")
        Exit
        
    ;Logge Benutzer ein
    Case $Button1
        Login()
        GUISetState(@SW_HIDE, $Form1)
        GUISetState(@SW_SHOW, $Form3)
        
    ;Schlie�e Form1, Zeige Form2
    Case $Button2
        GUISetState(@SW_HIDE, $Form1)
        GUISetState(@SW_SHOW, $Form2)
        
    ;Registriere Benutzer
    Case $Button3
        Register()
        MsgBox(64, "Registriert", "Sie haben sich erfolgreich registriert.")
        Exit
        
    ;Schlie�e Form2, Zeige Form1
    Case $Button4
        GUISetState(@SW_HIDE, $Form2)
        GUISetState(@SW_SHOW, $Form1)
        
    ;Beende Programm
    Case $Button5
        FileDelete(@TempDir & "\Benutzer")
        Exit

EndSwitch
WEnd

Func Register()

$Benutzername = GUICtrlRead($Input3) ;Benutzername
$Passwort = GUICtrlRead($Input4) ;Passwort
$Email1 = GUICtrlRead($Input5) ;Email
$Email2 = GUICtrlRead($Input6) ;Wiederhollte Email

;Wenn Benutzername existiert, MsgBox schicken
If FileExists(@Tempdir & "\Benutzer" & $Benutzername & ".ini") Then
    MsgBox(16, "Fehler", "Der Benutzername existiert schon.")
    Exit
EndIf

;Wenn Email nicht gleich ist wie die wiederhollte
If $Email1 <> $Email2 Then
    MsgBox(16, "Fehler", "Die E-mail Adresse ist nicht gleich wie die wiederhollte.")
    Exit
EndIf

_FileCreate(@TempDir & "\Benutzer" & $Benutzername & ".ini")
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Name", "Name", $Benutzername)
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Passwort", "Passwort", $Passwort)
IniWrite(@TempDir & "\Benutzer" & $Benutzername & ".ini", "Email", "Email", $Email2)

_Zip_AddFile(@TempDir & "\Benutzer\Benutzer.zip", @TempDir & "\Benutzer" & $Benutzername & ".ini", 0)
_FTP_FilePut($FTP_Connect, @TempDir & "\Benutzer\Benutzer.zip", "Benutzer.zip", 0)
_FTP_Close($FTP_open)

EndFunc

Func Login()

$I_Benutzername = GUICtrlRead($Input1) ;Input_Benutzername
$I_Passwort = GUICtrlRead($Input2) ;Input_Passwort

;Wenn $Benutzername nicht existiert
If NOT FileExists(@TempDir & "\Benutzer" & $I_Benutzername & ".ini") Then
    MsgBox(16, "Fehler", "Benutzername falsch angegeben.")
    FileDelete(@TempDir & "\Benutzer")
    Exit
EndIf

$Open = FileOpen(@TempDir & "\Benutzer" & $I_Benutzername & ".ini")
$Passwort = IniRead(@TempDir & "\Benutzer" & $I_Benutzername & ".ini", "Passwort", "Passwort", "NotFound")

;Wenn $Passwort falsch ist
If $I_Passwort <> $Passwort Then
    MsgBox(16, "Fehler", "Passwort falsch angegeben.")
    FileDelete(@TempDir & "\Benutzer")
    Exit
EndIf
FileClose(@TempDir & "\Benutzer" & $I_Benutzername & ".ini")

EndFunc

Mit Freundlichen Gr��en,
sezer0012

07/28/2014 00:00 -SoulCr4ck-#8

Eine Kleine Funktion zum umwandeln von 4 byte zu Array of Bytes .. kurz hingeklatscht und ziemlich dreckig gemacht. Error returns k�nnt ihr euch selbst reinklatschen wenn ihr welche wollte.

Beispiel :

Code:

MsgBox (0,"",_4ByteToAoB (Deine Value))

Code:

 Func _4ByteToAoB($4ByteValue)

$HexValue = hex ($4ByteValue)
$Byte1 = StringRight($HexValue,2)
$Byte2Help = StringRight($HexValue,4)
$Byte2 = StringLeft($Byte2Help,2)
$Byte3Help = StringRight($HexValue,6)
$Byte3 = StringLeft($Byte3Help,2)
$Byte4 = StringLeft ($HexValue,2)
Return ($Byte1 & " " & $Byte2 & " " & $Byte3 & " " &$Byte4)

EndFunc

Es returnt die Bytes.

out here -

08/07/2014 18:25 butter123#9

Noch kurz zu meinem Vorposter:
Das l�sst sich denk ich wesentlich effizienter mit Bitshift u.�. implementieren.
Bei Diskussionsbedarf bitte [Only registered and activated users can see links. Click Here To Register...] diskutieren.

Konzept zur Computer <-> Handy Kommunikation
Dies ist nur eine Idee, da ich es selber noch nicht umgesetzt habe, es jedoch denk ich sehr n�tzlich sein kann.

Die wesentliche Idee: Die Nachrichtenfunktion von Twitter zum Befehls/Informationstransport nutzen. So wird keine eigene App auf dem Handy ben�tigt, um bspw. ein Captcha, was der PC nicht l�sen kann, ans Handy zu schicken, der Benutzer sendet die L�sung zur�ck und der PC kann damit weiterarbeiten.

Nachrichte k�nnen einfach mit der Api [Only registered and activated users can see links. Click Here To Register...] vom PC gesendet und abgerufen werden.
Der PC sendet eine Nachricht an einen 2. Account, welcher mit dem Handy verkn�pft ist. F�r Android gibt es mehrere Twitterapps, mit Sicherheit auch eine mit Pushbenachrichtigung.
Andersherum sendet der Benutzer vom Handy aus an den 1. Account, welcher kontinuierlich auf neue Nachrichten gepr�ft wird.
Wird diese registriert, muss sie nurnoch interpretiert werden.

Wie gesagt habe ich dies noch nicht getestet. Solltet ihr Anmerkungen haben, schickt mir eine Nachricht und ich bearbeite das hier.

12/24/2014 14:33 butter123#10

So, damit die Sammlung hier mal wieder ein bisschen weiter geht, �ber Weihnachten noch ein ganz kleiner Beitrag^^

Timermanipulation

Um zu den Timern von TimerInit Zeit hinzu zu addieren braucht ihr TimerInit()+$iSeconds*__Timer_QueryPerformanceFreq uency()
wobei die Frequencyfunktion in der <timers.au3> ist und angibt, um wieviel sich TimerInit pro Sekunde �ndert.

12/25/2014 23:27 noahrmal#11

Bildschirm/Wiedergabe Switcher
Der Windows eigene Monitor-Switcher (win+p) bietet leider nicht die M�glichkeit, dass wenn man z.B auf seinen Fernseher schaltet, auch der Fernseher bzw. die angeschlossenen Anlage den Ton wiedergibt. Dazu habe ich ein kleines Programm geschrieben bzw. die verwendeten Funktionen im Internet gefunden.

Spoiler

PHP Code:


			
#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>



#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Monitor-Control", 270, 177, 192, 124)

$Button1 = GUICtrlCreateButton("Monitor", 16, 16, 99, 65)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Button2 = GUICtrlCreateButton("TV", 144, 16, 107, 65)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Button3 = GUICtrlCreateButton("Mirror", 16, 96, 99, 65)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Button4 = GUICtrlCreateButton("Both Screens", 144, 96, 105, 65)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###



While 1

   $nMsg = GUIGetMsg()

   Switch $nMsg

      Case $GUI_EVENT_CLOSE

         Exit

      Case $Button1

         Run("C:\Windows\system32\DisplaySwitch.exe /external")

         switchToDeviceByName('Kopfh�rer')

         Exit

      Case $Button2

         Run("C:\Windows\system32\DisplaySwitch.exe /internal")

         switchToDeviceByName('1 - SAMSUNG')

         Exit

      Case $Button3

         Run("C:\Windows\system32\DisplaySwitch.exe /clone")

         switchToDeviceByName('1 - SAMSUNG')

         Exit

      Case $Button4

         Run("C:\Windows\system32\DisplaySwitch.exe /extend")

         switchToDeviceByName('1 - SAMSUNG')

         Exit

   EndSwitch

WEnd



Func GetAvailableDevices()

   Local $array[1][2]=[[0]], $i=1, $hklm

   If @OSArch='X64' Then

      $hklm="HKLM64"

   Else

      $hklm="HKLM"

   EndIf

   While True

      Local $var = RegEnumKey($hklm&"\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\", $i)

      If @error <> 0 Or $var='' Then ExitLoop

      $i+=1

      If RegRead($hklm&"\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\"&$var,"DeviceState")=1 Then

         $array[0][0]=$array[0][0]+1

         ReDim $array[$array[0][0]+1][2]

         $array[$array[0][0]][0] = RegRead($hklm&"\SOFTWARE\Microsoft\Windows\CurrentVersion\MMDevices\Audio\Render\"&$var&"\Properties", "{a45c254e-df1c-4efd-8020-67d146a850e0},2")

         $array[$array[0][0]][1] = "{0.0.0.00000000}."&$var

      EndIf

   WEnd

   Return $array

 EndFunc



Func switchToDeviceByID($sId)

   Local $tagIPolicyConfig = "GetMixFormat hresult(wstr;ptr*);GetDeviceFormat hresult(wstr;int;ptr*);ResetDeviceFormat hresult(wstr);SetDeviceFormat hresult(wstr;ptr;ptr);GetProcessingPeriod hresult(wstr;int;int64*;int64*);SetProcessingPeriod hresult(wstr;int64*);GetShareMode hresult(wstr;ptr);SetShareMode hresult(wstr;ptr);GetPropertyValue hresult(wstr;struct;variant*);SetPropertyValue hresult(wstr;struct;variant*);SetDefaultEndpoint hresult(wstr;int);SetEndpointVisibility hresult(wstr;int);"

   Local $oPolicyConfig = ObjCreateInterface("{870af99c-171d-4f9e-af0d-e63df40c2bc9}", "{f8679f50-850a-41cf-9c72-430f290290c8}", $tagIPolicyConfig)

   If $oPolicyConfig.SetDefaultEndpoint($sId, 0) = 0 Then $oPolicyConfig.SetDefaultEndpoint($sId, 2)

EndFunc



Func switchToDeviceByName($name)

   Local $devices = GetAvailableDevices()

   For $i=1 To $devices[0][0]

      If $devices[$i][0] = $name Then

        switchToDeviceByID($devices[$i][1])

         Return 1

      EndIf

   Next

EndFunc

switchToDeviceByName() -> dort den exakten Namen des Wiedergabeger�ts angeben, welcher dann aktiviert werden soll

12/27/2014 21:20 alpines#12

Es wurde schon auf der 1. Seite angemerkt. Bitte postet eure UDFs in dem Coding Snippets (Coding Releases) Teil und verlinkt hier, weil hier nicht anst�ndig diskutiert werden kann.

FlutterShy, ich sehe keine Verwendung f�r deine UDF um ehrlich zu sein. Was h�lt mich davon ab WinHttp zu verwenden? Ich tippe zwar ein bisschen mehr aber der Funktionsumfang ist gewaltig.

12/27/2014 23:05 YatoDev#13

Quote:

Originally Posted by alpines

Es wurde schon auf der 1. Seite angemerkt. Bitte postet eure UDFs in dem Coding Snippets (Coding Releases) Teil und verlinkt hier, weil hier nicht anst�ndig diskutiert werden kann.

FlutterShy, ich sehe keine Verwendung f�r deine UDF um ehrlich zu sein. Was h�lt mich davon ab WinHttp zu verwenden? Ich tippe zwar ein bisschen mehr aber der Funktionsumfang ist gewaltig.

TCP funktionssammlung. Warum man die der winhttp.au3 vorziehen sollte steht im post.
Ich will auch grade noch erg�nzen falls man vorhat einen browsergame bot zu schreiben und es ein flash spiel ist wird man nicht erst winhttp benutzen und die ganzen cookies �bernehmen sondern direkt mit tcp arbeiten

[Only registered and activated users can see links. Click Here To Register...]

01/18/2018 18:51 lenclstr746#14

Hi I need a background imagesearch example or libary can you help me :) ?