Beiträge von UEZ

#include-once
#include <String.au3>

Global $ip = "32.64.0.3"
MsgBox(0, "IP Address to Binary String", "IP = " & @TAB & $ip & @LF & "Binary = " & @TAB & IPv4toBIN($ip))

Global $sBin = "10000001 111000 1010 00001111"
MsgBox(0, "Binary String to IP Address", "Binary = " & @TAB & $sBin & @LF & "IP = " & @TAB & BINtoIPv4($sBin))

;===============================================================================
; Function Name: IPv4toBIN
; Description: Converts an IP v4 string to a binary string format
; Parameter(s): $sIP: the ip v4 address with a format "a.b.c.d"
; $bLen8
; True: output binary string length is always 8 digits
; False: output is truncated to minimum length
; Requirement(s): String.au3
; Return Value(s): binary string format of all octets from the ip address with a format "a b c d"
;Error Codes: 1: ip adress not in appropiate format
; 2: invalid ip token size -> must be between 0 and 255
; Author(s): UEZ
;Version: v0.99 Build 2012-02-28
;===============================================================================
Func IPv4toBIN($sIP, $bLen8 = True)
Local $aIPTokens = StringRegExp($sIP, "(\d+)\.(\d+)\.(\d+)\.(\d+)", 3)
If @error Then Return SetError(1, 0, -1)
Local $bin, $sBin, $i
For $i = 0 To 3
If Int($aIPTokens[$i]) Then
If $aIPTokens[$i] > 255 Then Return SetError(2, 0, -1)
While $aIPTokens[$i] > 0
$bin &= Mod($aIPTokens[$i], 2)
$aIPTokens[$i] = Floor($aIPTokens[$i] / 2)
WEnd
Else
If $bLen8 Then
$bin = "00000000"
Else
$bin = "0"
EndIf
EndIf
If $bLen8 Then
$sBin &= StringFormat("%0.8i", _StringReverse($bin)) & " "
Else
$sBin &= _StringReverse($bin) & " "
EndIf
$bin = ""
Next
Return StringMid($sBin, 1, StringLen($sBin) - 1)
EndFunc

;===============================================================================
; Function Name: BINtoIPv4
; Description: Converts a binary string format to an IP v4 string
; Parameter(s): $sBin: the binary string with format "a b c d"
; Requirement(s): String.au3
; Return Value(s): the ip address in format "a.b.c.d"
;Error Codes: 1: string is not a binary string
; 2: too much tokens
; Author(s): UEZ
;Version: v0.99 Build 2012-02-28
;===============================================================================
Func BINtoIPv4($sBin) ;coded by UEZ 2012
Local $aIPTokens = StringRegExp($sBin, "[01]{1,8}", 3)
If @error Then Return SetError(1, 0, -1)
If UBound($aIPTokens) <> 4 Then Return SetError(2, 0, -1)
Local $sIP, $int, $x, $y, $i = 1, $aTmp
For $y = 0 To 3
$aTmp = StringSplit(_StringReverse($aIPTokens[$y]), "")
For $x = 1 To UBound($aTmp) - 1
$int += $aTmp[$x] * $i
$i *= 2
Next
$sIP &= $int & "."
$int = 0
$i = 1
$aTmp = 0
Next
Return StringMid($sIP, 1, StringLen($sIP) - 1)
EndFunc

#include <GuiConstants.au3>
#include <GdiPlus.au3>

OnAutoItExitRegister("_end")

$Gui = GUICreate("Beispiel", 500, 600)
$iLabel = GUICtrlCreateLabel("", 11, 10, 188, 23)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)

_GDIPlus_Startup()

$hGraphics = _GDIPlus_GraphicsCreateFromHWND($Gui)
_GDIPlus_GraphicsSetSmoothingMode($hGraphics, 2)
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Backgrounds\gui_background5.jpg")
_GDIPlus_GraphicsDrawImage($hGraphics, $hImage, 0, 0)
$hImage2 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Backgrounds\gui_background_label.jpg")
_GDIPlus_GraphicsDrawImage($hGraphics, $hImage2, 11,10)
_GDIPlus_StringFormatCreate(0x0001,0)

$c = 0

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
_end()
Exit
EndSwitch
$aMPos = GUIGetCursorInfo($Gui)
If IsArray($aMPos) Then
If $aMPos[4] = $iLabel Then
If $c Then
_GDIPlus_GraphicsDrawImage($hGraphics, $hImage2, 11,10)
_GDIPlus_GraphicsDrawString($hGraphics,"Es wurde 'A' 10 mal gedrückt.", 15,12)
$c = 0
EndIf
Else
If Not $c Then
_GDIPlus_GraphicsDrawImage($hGraphics, $hImage2, 11,10)
$c = 1
EndIf
EndIf
EndIf
WEnd

Func _end()
_GDIPlus_ImageDispose($hImage)
_GDIPlus_ImageDispose($hImage2)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
EndFunc

; #FUNCTION# ====================================================================================================================
; Name...........: _GDIPlus_GraphicsSetInterpolationMode
; Description ...: Sets the interpolation mode of a Graphics object
; Syntax.........: _GDIPlus_GraphicsSetInterpolationMode($hGraphics, $iInterpolationMode)
; Parameters ....: $hGraphics - Pointer to a Graphics object
; $iInterpolationMode - Interpolation mode:
; |0 - Default interpolation mode
; |1 - Low-quality mode
; |2 - High-quality mode
; |3 - Bilinear interpolation. No prefiltering is done
; |4 - Bicubic interpolation. No prefiltering is done
; |5 - Nearest-neighbor interpolation
; |6 - High-quality, bilinear interpolation. Prefiltering is performed to ensure high-quality shrinking
; |7 - High-quality, bicubic interpolation. Prefiltering is performed to ensure high-quality shrinking
; Return values .: Success - True
; Failure - False and either:
; |@error and @extended are set if DllCall failed
; |$GDIP_STATUS contains a non zero value specifying the error code
; Remarks .......: The interpolation mode determines the algorithm that is used when images are scaled or rotated
; Related .......: _GDIPlus_GraphicsGetInterpolationMode
; Link ..........; @@MsdnLink@@ GdipSetInterpolationMode
; Example .......; No
; ===============================================================================================================================
Func _GDIPlus_GraphicsSetInterpolationMode($hGraphics, $iInterpolationMode)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipSetInterpolationMode", "handle", $hGraphics, "int", $iInterpolationMode)

If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsSetInterpolationMode

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>

_GDIPlus_Startup()

$Breite = 600
$Hoehe = 400
$y = 110

$TestGUI = GUICreate("Test", $Breite, $Hoehe, 192, 124)
$NeuZeichnen = GUICtrlCreateButton("Neu zeichnen", 424, 48, 75, 25)
GUISetState(@SW_SHOW)
$iRGB = "0xFF" & _WinAPI_GetGUIBkColor($TestGUI)
Global $sFile = StringReplace(@AutoItExe, "autoit3.exe", "Examples\GUI\Torus.png")
$Grafik = _GDIPlus_GraphicsCreateFromHWND($TestGUI)
$Bitmap = _GDIPlus_BitmapCreateFromGraphics($Breite/2, $Hoehe, $Grafik)
$Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
$hHintergrund = _GDIPlus_ImageLoadFromFile($sFile)
_GDIPlus_GraphicsClear($Buffer, $iRGB)
_GDIPlus_GraphicsDrawImage($Buffer, $hHintergrund, 0, 50)
_GDIPlus_GraphicsDrawString($Buffer, "Test1", 70, 110)
_GDIPlus_GraphicsDrawImage($Grafik, $Bitmap, 0, 0)

AdlibRegister("Scroll", 50)
$i = 2
While Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
AdlibUnRegister("Scroll")
_GDIPlus_ImageDispose($hHintergrund)
_GDIPlus_GraphicsDispose($Buffer)
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($Grafik)
_GDIPlus_Shutdown()
Exit
Case $NeuZeichnen
$i += 1
EndSwitch
WEnd

Func Scroll()
_GDIPlus_GraphicsClear($Buffer, $iRGB)
_GDIPlus_GraphicsDrawImage($Buffer, $hHintergrund, 0, 50)
_GDIPlus_GraphicsDrawString($Buffer, "Test" & $i, 70, $y)
_GDIPlus_GraphicsDrawImage($Grafik, $Bitmap, 0, 0)
If $y = -10 Then $y = $Hoehe
$y -= 1
EndFunc

Func _WinAPI_GetGUIBkColor($hWnd) ;taken from WinAPIEx.au3
Local $hDC = _WinAPI_GetDC($hWnd)
If Not $hDC Then Return SetError(1, 0, 0)
Local $bgcolor = DllCall("GDI32.dll", "int", "GetBkColor", "hwnd", $hDC)
If @error Or $bgcolor[0] = -1 Then Return SetError(2, 0, 0)
_WinAPI_ReleaseDC($hWnd, $hDC)
$bgcolor = $bgcolor[0] ;BGR
$bgcolor = Hex(BitOR(BitAND($bgcolor, 0x00FF00), BitShift(BitAND($bgcolor, 0x0000FF), -16), BitShift(BitAND($bgcolor, 0xFF0000), 16)), 6) ;convert to RGB
Return $bgcolor ;return RGB
EndFunc

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>

_GDIPlus_Startup()

$Breite = 600
$Hoehe = 400

$TestGUI = GUICreate("Test", $Breite, $Hoehe, 192, 124)
$NeuZeichnen = GUICtrlCreateButton("Neu zeichnen", 424, 48, 75, 25)
GUISetState(@SW_SHOW)
$iRGB = "0xFF" & _WinAPI_GetGUIBkColor($TestGUI)

$Grafik = _GDIPlus_GraphicsCreateFromHWND($TestGUI)
$Bitmap = _GDIPlus_BitmapCreateFromGraphics($Breite/2, $Hoehe, $Grafik)
$Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
_GDIPlus_GraphicsClear($Buffer, $iRGB)
_GDIPlus_GraphicsDrawString($Buffer, "Test1", 170, 110)
_GDIPlus_GraphicsDrawImage($Grafik, $Bitmap, 0, 0)

$i = 2

While Sleep(10)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_GraphicsDispose($Buffer)
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($Grafik)
_GDIPlus_Shutdown()
Exit
Case $NeuZeichnen
_GDIPlus_GraphicsClear($Buffer, $iRGB)
_GDIPlus_GraphicsDrawString($Buffer, "Test" & $i, 170, 110)
_GDIPlus_GraphicsDrawImage($Grafik, $Bitmap, 0, 0)
$i +=1
EndSwitch
WEnd

Func _WinAPI_GetGUIBkColor($hWnd) ;taken from WinAPIEx.au3
Local $hDC = _WinAPI_GetDC($hWnd)
If Not $hDC Then Return SetError(1, 0, 0)
Local $bgcolor = DllCall("GDI32.dll", "int", "GetBkColor", "hwnd", $hDC)
If @error Or $bgcolor[0] = -1 Then Return SetError(2, 0, 0)
_WinAPI_ReleaseDC($hWnd, $hDC)
$bgcolor = $bgcolor[0] ;BGR
$bgcolor = Hex(BitOR(BitAND($bgcolor, 0x00FF00), BitShift(BitAND($bgcolor, 0x0000FF), -16), BitShift(BitAND($bgcolor, 0xFF0000), 16)), 6) ;convert to RGB
Return $bgcolor ;return RGB
EndFunc

#include <String.au3>
#include <StaticConstants.au3>

Global $startcd = 10
$hGUI = GUICreate("Test", 200, 100)
$idLabel = GUICtrlCreateLabel(".......... "& $startcd & " ..........", 0, 40, 200, 50, $SS_CENTER)
GUICtrlSetFont(-1, 10)
GUISetState()

AdlibRegister("Countdown", 99)

Do
Until GUIGetMsg() = -3

AdlibUnRegister("Countdown")
Exit

Func Countdown()
Local Static $c = 10
If Not $startcd Then AdlibUnRegister("Countdown")
Local $s = _StringRepeat(".", $c)
GUICtrlSetData($idLabel, $s & " " & $startcd & " " & $s)
$c = Mod($c - 1, 10)
If Not $c Then
$c = 10
$startcd -= 1
EndIf
EndFunc

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

AutoIt Version: 3.3.8.0
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include "GUICreateTransparent.au3"
#Include <Misc.au3>
$iGW = 300
$iGH= 200
$hGUI = _GUICreate_Transparent(@ScriptDir & "\UglyBird.png",$iGW,$iGH)
$iW = 321
$iH = 347
$iPosX=124
$iPosY=142
$hChild = GUICreate("Form1", $iW, $iH, $iPosX,$iPosY,$WS_POPUP,$WS_EX_LAYERED+$WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0x000000,$hChild)
GUISetState(@SW_SHOW, $hGUI)
GUISetState(@SW_SHOW, $hChild)
_WinAPI_SetLayeredWindowAttributes($hChild, 0x123456, 0xff)
WinSetOnTop($hChild, "", 0)
$dll = DllOpen("user32.dll")

While 1
_CheckMove()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
DllClose($dll)
GUIRegisterMsg($WM_LBUTTONDOWN, "")
Exit
EndSwitch
WEnd

Func _CheckMove()
If _IsPressed("01", $dll) Then
sleep(20)
$Pos = MouseGetPos()
WinMove($hGUI,"",$Pos[0]-$iW/2-$iPosX, $Pos[1]-$iH/2-$iPosY) ; + 124 , weil Left von $hGUI 123 weniger ist als bei $hChild, + 142, wegen Top
;~ WinMove($hGUI,"",$Pos[0]-$aPosWin[0],$Pos[1]-$aPosWin[1])
EndIf
EndFunc

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

AutoIt Version: 3.3.8.0
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include "GUICreateTransparent.au3"
#Include <Misc.au3>
Global Const $SC_DRAGMOVE = 0xF012
$hGUI = _GUICreate_Transparent(@ScriptDir & "\UglyBird.png",300,200)
$hChild = GUICreate("Form1", 321, 347, 124, 142,$WS_POPUP,$WS_EX_LAYERED+$WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0x000000,$hChild)
GUISetState(@SW_SHOW, $hGUI)
GUISetState(@SW_SHOW, $hChild)
_WinAPI_SetLayeredWindowAttributes($hChild, 0x123456, 0xff)
WinSetOnTop($hChild, "", 0)
$dll = DllOpen("user32.dll")

GUIRegisterMsg($WM_LBUTTONDOWN, "_WM_LBUTTONDOWN")

While 1
;~ _CheckMove()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
DllClose($dll)
GUIRegisterMsg($WM_LBUTTONDOWN, "")
Exit
EndSwitch
WEnd

Func _WM_LBUTTONDOWN($hWnd, $iMsg, $wParam, $lParam)
_SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
EndFunc ;==>_WM_LBUTTONDOWN

Func _CheckMove()
If _IsPressed("01", $dll) Then
sleep(20)
$Pos = MouseGetPos()
WinMove($hChild,"",$Pos[0] + 124,$Pos[1] + 142) ; + 124 , weil Left von $hGUI 123 weniger ist als bei $hChild, + 142, wegen Top
WinMove($hGUI,"",$Pos[0],$Pos[1])
EndIf
EndFunc