[Collection Thread] UDF's und Code den ihr teilen möchtet

[butter123]

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.

Originally Posted by Lawliet!

Bitte 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. )





Inhaltsverzeichnis:

• Jedes Zahlensystem in jedes andere Zahlensystem konvertieren!
• Verbindungsaufbau zu einem Socks4/5 Proxy
• sin,cos, winkel, 3D koordinaten->2D screenkoordinaten, u.s.w
• Kleine pixelsearch pattern UDF
• Daten speichern auf einem Filezilla - Server
• 
• mittels Twitter API
• bspw. +1 Sekunde
• 
• 
• mit cookies

[alpines]

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:

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

Damit man jedes System nicht angeben muss gibt es folgende Konstanten

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

$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


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

[butter123]

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 


[FacePalmMan]

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

Func 3Dto2Dscreencoords($x, $y, $z, $ScreenWidth, $ScreenHeight)
	Local $return[2]
	$return[0] = $ScreenWidth / 2 + ($x / $z)
	$return[1] = $ScreenHeight / 2 + ($y / $z)
	Return $return
EndFunc   ;==>CalcCoordinates

Func AngleToRad($Angle)
	Return 2 * 3.141592653589793234 * $Angle / 360
EndFunc   ;==>AngleToRad

Func _Angle($X, $Y,$CX,$CY) ;nicht selber geschrieben, sondern aus dem internet ge-copy&pasted.
	If ($CX = $X) And ($CY = $Y) Then
		Return SetError(1, 0, -1)
	EndIf
	Local $Grad = ($Y <= $CY) * 180 - ATan(($CX - $X) / ($CY - $Y)) * 180 / 3.1415926535897932384626
	If $Grad = 360 Then
		$Grad = 0
	EndIf
	Return $Grad
EndFunc   ;==>_Angle

[YatoDev]

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 


[Lawliet]

Bitte einen Thread erstellen und verlinken, wenn euer Code einen gewissen Umfang hat.
#sticked

[sezer0012]

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

#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

[-SoulCr4ck-]

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 :

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

 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 -

[butter123]

Noch kurz zu meinem Vorposter:
Das lässt sich denk ich wesentlich effizienter mit Bitshift u.ä. implementieren.
Bei Diskussionsbedarf bitte 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 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.

[butter123]

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.

[noahrmal]

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

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

[YatoDev]

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

[lenclstr746]

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