Beiträge von UEZ

**UEZ** · Write Text on Bitmap v0.92 Build 2013-02-16 Beta **UEZ** 28. Mai 2011 um 15:06

Durch Zufall habe ich von einem anderen Forum erfahren, dank Google, dass in dem UDF ein Bug ist. Das Positionieren des Textes auf x zentriert, aber auf y manuell war nicht möglich.

Bug sollte jetzt gefixt sein.

Schade, dass niemand den Bug hier gemeldet hat.

Gruß,
UEZ

**UEZ**

Hier noch eine Möglichkeit:

Spoiler anzeigen

[autoit]

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

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

Opt("GUIOnEventMode", 1)

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

_GDIPlus_Startup()
Global Const $fScale = 30
Global Const $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\sworddg.png")
Global Const $iW = _GDIPlus_ImageGetWidth($hImage)
Global Const $iH = _GDIPlus_ImageGetHeight($hImage)
Global Const $iWidth = $iW * 96 / _GDIPlus_ImageGetHorizontalResolution($hImage) * $fScale
Global Const $iHeight = $iH * 96 / _GDIPlus_ImageGetVerticalResolution($hImage) * $fScale

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

Global Const $hGui = GUICreate("Test", $iWidth, $iHeight)
GUISetBkColor(0xE0E080)
Global Const $cPic = GUICtrlCreatePic("", 0, 0, $iWidth, $iHeight)
Global Const $hPic = GUICtrlGetHandle($cPic)
GUISetState()

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

Global Const $hDC = _WinAPI_GetWindowDC($hPic)
Global Const $hDC_backbuffer = _WinAPI_CreateCompatibleDC($hDC)
Global Const $hBitmap_backbuffer = _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight)
Global Const $DC_obj = _WinAPI_SelectObject($hDC_backbuffer, $hBitmap_backbuffer)
Global Const $hGfx = _GDIPlus_GraphicsCreateFromHDC($hDC_backbuffer)
_GDIPlus_GraphicsDrawImage($hGfx, $hImage, 0, 0)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_GraphicsDispose($hGfx)
_GDIPlus_Shutdown()

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

_WinAPI_AlphaBlend($hDC, 0, 0, $iWidth, $iHeight, $hDC_backbuffer, 0, 0, $iW, $iH, 255, 1)
_WinAPI_BitBlt($hDC_backbuffer, 0, 0, $iWidth, $iHeight, $hDC, 0, 0, $SRCCOPY)

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

_WinAPI_ReleaseDC($hPic, $hDC)
_WinAPI_SelectObject($hDC_backbuffer, $DC_obj)
_WinAPI_DeleteDC($hDC_backbuffer)

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

Global Const $STM_SETIMAGE = 0x0172
Global Const $STM_GETIMAGE = 0x0173
_SendMessage($hPic, $STM_SETIMAGE, 0, $hBitmap_backbuffer)
Global Const $hObj = _SendMessage($hPic, $STM_GETIMAGE)
If $hObj <> $hBitmap_backbuffer Then
_WinAPI_DeleteObject($hBitmap_backbuffer)
EndIf

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

GUISetOnEvent($GUI_EVENT_CLOSE, "_EXIT")

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

While Sleep(100000)
WEnd

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

Func _Exit()
GUIDelete($hGui)
Exit
EndFunc ;==>_Exit

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

Func _WinAPI_AlphaBlend($hDestDC, $iXDest, $iYDest, $iWidthDest, $iHeightDest, $hSrcDC, $iXSrc, $iYSrc, $iWidthSrc, $iHeightSrc, $iAlpha, $fAlpha = 0)
Local $iBlend = BitOR(BitShift(Not ($fAlpha = 0), -24), BitShift(BitAND($iAlpha, 0xFF), -16))
Local $Ret = DllCall('gdi32.dll', 'int', 'GdiAlphaBlend', 'hwnd', $hDestDC, 'int', $iXDest, 'int', $iYDest, 'int', $iWidthDest, 'int', $iHeightDest, 'hwnd', $hSrcDC, 'int', $iXSrc, 'int', $iYSrc, 'int', $iWidthSrc, 'int', $iHeightSrc, 'dword', $iBlend)
If @error Or (Not $Ret[0]) Then Return SetError(1, 0, 0)
Return 1
EndFunc ;==>_WinAPI_AlphaBlend

[/autoit]

Gruß,
UEZ

**UEZ**

Auch von mir ein herzliches Happy Birthday und alles Gute!

Gruß,
UEZ

**UEZ** · Check Ping Status v1.05 Build 2014-09-19 Beta **UEZ** 27. Mai 2011 um 16:15

Kleines Update:

Man kann jetzt die Hintergrundfarbe der GUI ändern und eine Datei aussuchen, die standardmäßig geladen wird. Die Einstellungen werden in einer Ini Datei im Skript Verzeichnis gespeichert.

Gruß,
UEZ

**UEZ**

Ja,

[autoit]

...
$Input = GUICtrlCreateInput("", 88, 64, 313, 21)
GUICtrlSetTip(-1, "Bitte eine Zahl eingeben")
...

[/autoit]

Gruß,
UEZ

**UEZ**

In der Hilfe unter GUICtrlCreateInput ist ein Beispiel, das du suchst oder?

Spoiler anzeigen

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

#include <GUIConstantsEx.au3>

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

Opt('MustDeclareVars', 1)

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

Example()

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

Func Example()
Local $file, $btn, $msg

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

GUICreate(" My GUI input acceptfile", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
$file = GUICtrlCreateInput("", 10, 5, 300, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlCreateInput("", 10, 35, 300, 20) ; will not accept drag&drop files
$btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)

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

GUISetState()

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

$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $btn
ExitLoop
EndSelect
WEnd

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

MsgBox(4096, "drag drop file", GUICtrlRead($file))
EndFunc ;==>Example

[/autoit]

Gruß,
UEZ

**UEZ**

Ich benötige die MSVCR100.dll - genauso wie in der AutoIt v3.3.7.0 (Beta)

Gruß,
UEZ

**UEZ**

Bei mir gibt's keine Probleme: Win7 x64.

Gruß,
UEZ

**UEZ**

Der Nachteil der _ArrayPermute() Methode ist, wenn du ein größers Array nimmst, welches dann n! + 1 Arrayspeicher frisst.

Besser wäre ein Mischen des Arrays.

Wie? Z.B so:

Spoiler anzeigen

[autoit]

#include-once
; #FUNCTION# ======================================================================================
; Name ................: Shuffle_Array()
; Version .............: v0.50 build 2011-05-24 beta
; Description .......: Shuffles an array - support 1D and 2D arrays only
; Syntax ..............: Shuffle_Array(ByRef $array, $startindex = 0, $endindex = 0)
; Parameters ........: $array - the array to shuffle
; $startindex = from which index to start the shuffling
; $endindex = to which index to start the shuffling; 0 means last index of the array
; Return values ....: True
; Failure 1 - $array is not an array
; Failure 2 - array has more than 2 dimensions
; Failure 3 - array is empty
; Failure 4 - $startindex / $endindex are set wrongly
; Author ..............: UEZ
; Modified ............:
; Remarks ............:
; Related ..............: Array
; =================================================================================================
Func Shuffle_Array(ByRef $array, $startindex = 0, $endindex = 0)
If Not IsArray($array) Then Return SetError(1, 0, 0)
If UBound($array, 0) > 2 Then Return SetError(2, 0, 0)
If UBound($array) = 1 Then Return SetError(3, 0, 0)
Local $u1
If Not $endindex Then
$u1 = UBound($array) - 1
Else
If $endindex > $startindex And $endindex < UBound($array) Then
$u1 = $endindex
Else
Return SetError(4, 0, 0)
EndIf
EndIf
If UBound($array, 2) Then
Local $aSwap[1][UBound($array, 2)], $u2 = UBound($array, 2) - 1
Local $i, $j, $r
For $i = $startindex To $u1
$r = Random($startindex, $u1, 1)
For $j = 0 To $u2
$aSwap[0][$j] = $array[$i][$j]
$array[$i][$j] = $array[$r][$j]
$array[$r][$j] = $aSwap[0][$j]
Next
Next
Else
Local $aSwap[1]
For $i = $startindex To $u1
$r = Random($startindex, $u1, 1)
$aSwap[0] = $array[$i]
$array[$i] = $array[$r]
$array[$r] = $aSwap[0]
Next
EndIf
Return 1
EndFunc

[/autoit]

Du mischst das Array und nimmst die Reihenfolge der Zahlen Lochnummer.

Gruß,
UEZ

**UEZ**

Hier ein andere Variante:

[autoit]

#include <Array.au3>
Dim $aArray[6] = [1, 2, 3, 4, 5, 6]
$aNewArray = _ArrayPermute($aArray, ",") ;permutiere Array
MsgBox(0, "Zufall", "Löcher Reihenfolge: " & StringTrimRight($aNewArray[Random(1, $aNewArray[0], 1)], 2))

[/autoit]

Idee: es werden alle Möglichkeiten (Permutation) der 6 Zahlen in ein Array abgelegt und anschließend per Zufall ausgesucht.

Gruß,
UEZ

**UEZ**

COS kann ich ohne Probleme kompilieren, aber beim Versuch SIC2 zu kompilieren, kommt ein Fehler:

Code

>Running AU3Check for obfuscated file(1.54.20.0)  from:C:\Program Files (x86)\AutoIt3\Beta
!>23:04:23 AU3Check Obfuscated code ended.rc:3

Gruß,
UEZ

**UEZ**

Zitat von skyteddy

Welches OS verwendest Du?

Win7 x64.

Der "normale" Weg ist manch mal steinig...

Gruß,
UEZ

**UEZ**

Zitat von skyteddy

Hallo UEZ,

nein, brav die 3.3.5.6 deinstalliert, rebootet, temp geleert und dann erst die 3.3.7.1 installiert.

Aber wird nicht sowieso die alte Beta automatisch deinstalliert? Ich bin mir da nicht sicher.

Ach so, ich vergaß: OS ist WinXP Pro, SP3+, 32bit, Deutsch

happy computing!
R@iner

Die aktuelle Version ist die 3.3.6.1. Am besten diese zuerst installieren (ich glaube die Beta wird nicht automatisch deinstalliert).

Die Beta kannst du eigentlich direkt ins AutoIt Verzeichnis unter Beta extrahieren (z.B. C:\Programme\AutoIt3\Beta\), wenn du die portable Version nimmst!, aber Achtung: innerhalb des Archives ist noch ein Verzeichnis.

Die Verzeichnisstruktur unter ..\AutoIt3\Beta sollte so aussehen:

Code

23.05.2011  11:02    <DIR>          .
23.05.2011  11:02    <DIR>          ..
23.05.2011  10:13            12.816 Au3Check.dat
23.05.2011  10:15           148.360 Au3Check.exe
23.05.2011  10:14           180.608 Au3Info.exe
23.05.2011  10:14           197.504 Au3Info_x64.exe
23.05.2011  10:12    <DIR>          Aut2Exe
15.04.2011  11:43               127 AutoIt v3 Website.url
23.05.2011  10:14            65.647 AutoIt.chm
23.05.2011  10:14         1.406.581 AutoIt3.chm
23.05.2011  10:14           648.056 AutoIt3.exe
15.04.2011  11:43            38.912 AutoIt3Help.exe
23.05.2011  10:14           817.016 AutoIt3_x64.exe
23.05.2011  10:14    <DIR>          AutoItX
23.05.2011  10:14    <DIR>          Examples
15.04.2011  11:43    <DIR>          Extras
15.04.2011  11:43    <DIR>          Icons
22.05.2011  15:32    <DIR>          Include
23.05.2011  10:13    <DIR>          SciTe
23.05.2011  10:13         2.631.989 UDFs3.chm

Alles anzeigen

Gruß,
UEZ

**UEZ**

Alle von mir getesteten Skripte funktionieren einwandfrei, bis auf einige Kompilierfehler.

Gruß,
UEZ

**UEZ**

Hast du die neue Beta einfach ins Verzeichnis ..\AutoIt3\Beta\ reinkopiert und die alten Daten überschrieben?

Gruß,
UEZ

**UEZ** · Check Ping Status v1.05 Build 2014-09-19 Beta **UEZ** 23. Mai 2011 um 14:13

Nicht jeder Server antwortet auf ein Ping. Ergo, wenn von einem Ping nichts zurück kommt, heißt das nicht, dass der Server "down" ist.

Gruß,
UEZ

**UEZ** · Check Ping Status v1.05 Build 2014-09-19 Beta **UEZ** 23. Mai 2011 um 13:49

@kev84: Vielen DANK für dein Feedback!

In der Tat hatte ich diesen Fall nicht bedacht, da ich immer eine List automatisch lade!

Sollte jetzt gefixt sein!

Gruß,
UEZ

**UEZ**

Probiere es mal mit WMI:

Spoiler anzeigen

[autoit]

;Coded by UEZ 2009
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_UseUpx=n

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

$oMyError = ObjEvent("AutoIt.Error", "oMyError") ; Install a custom error handler

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

Global $ip = "localhost"
If $CmdLine[0] > 0 Then $ip = $CmdLine[1]

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

$objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $ip & "\root\cimv2")

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

MsgBox(0, "Network Adapter Configuration", GetWMI($ip))

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

Func GetWMI($srv)
Local $Net_Description, $Net_Adapter, $Net_IP, $Net_Subnet, $Net_GW, $Net_MAC, $Net_DNSSearchOrder, $Net_DNSDomainSuffixSearchOrder, $Net_Wins1, $Net_Wins2, $Net_DHCP_Server
$Network = ""
$colItems = $objWMIService.ExecQuery("SELECT DHCPServer, Description, WINSPrimaryServer, WINSSecondaryServer, MACAddress, DefaultIPGateway, IPAddress, IPSubnet, DNSServerSearchOrder, DNSDomainSuffixSearchOrder FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", "WQL", 0x30)
$col2Items = $objWMIService.ExecQuery("SELECT MACAddress, NetConnectionID FROM Win32_NetworkAdapter")

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

If IsObj($colItems) Then
$Network = ""
For $objItem In $colItems
$Net_Adapter = ""
$Net_Description = ""
$Net_DHCP_Server = ""
$Net_DNSSearchOrder = ""
$Net_DNSDomainSuffixSearchOrder = ""
$Net_GW = ""
$Net_IP = ""
$Net_MAC = ""
$Net_Subnet = ""
$Net_Wins1 = ""
$Net_Wins2 = ""

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

$Net_Description = $objItem.Description

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

If IsObj($col2Items) Then
For $obj2Item In $col2Items
If $objItem.MACAddress = $obj2Item.MACAddress And $obj2Item.NetConnectionID <> "" Then
$Net_Adapter = $obj2Item.NetConnectionID
EndIf
Next
EndIf

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

$Net_Wins1 = $objItem.WINSPrimaryServer
$Net_Wins2 = $objItem.WINSSecondaryServer
$Net_MAC = $objItem.MACAddress

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

For $x = 0 To UBound($objItem.IPAddress) - 1
$Net_IP &= $objItem.IPAddress($x) & ", "
Next
$Net_IP = StringTrimRight($Net_IP, 2)

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

For $x = 0 To UBound($objItem.IPSubnet) - 1
$Net_Subnet &= $objItem.IPSubnet($x) & ", "
Next
$Net_Subnet = StringTrimRight($Net_Subnet, 2)

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

For $x = 0 To UBound($objItem.DefaultIPGateway) - 1
$Net_GW &= $objItem.DefaultIPGateway($x) & ", "
Next
$Net_GW = StringTrimRight($Net_GW, 2)

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

For $x = 0 To UBound($objItem.DNSServerSearchOrder) - 1
$Net_DNSSearchOrder &= $objItem.DNSServerSearchOrder($x) & ", "
Next
$Net_DNSSearchOrder = StringTrimRight($Net_DNSSearchOrder, 2)

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

For $x = 0 To UBound($objItem.DNSDomainSuffixSearchOrder) - 1
$Net_DNSDomainSuffixSearchOrder &= $objItem.DNSDomainSuffixSearchOrder($x) & ", "
Next
$Net_DNSDomainSuffixSearchOrder = StringTrimRight($Net_DNSDomainSuffixSearchOrder, 2)

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

If $objItem.DHCPServer <> "255.255.255.255" Then $Net_DHCP_Server = $objItem.DHCPServer

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

$Network &= $srv & ";" & $Net_Adapter & ";" & $Net_Description & ";" & $Net_IP & ";" & $Net_Subnet & ";" & $Net_GW & ";" & $Net_MAC & ";" & $Net_DNSSearchOrder & ";" & $Net_DNSDomainSuffixSearchOrder & ";" & $Net_Wins1 & ";" & $Net_Wins2 & ";" & $Net_DHCP_Server & @CRLF
Next
EndIf
Return $Network
EndFunc

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

Func oMyError()
Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.Description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.WinDescription & @CRLF & _
"err.number is: " & @TAB & Hex($oMyError.Number, & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.LastDllError & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.Scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.Source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.Helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.HelpContext _
)
EndFunc

[/autoit]

Zurück gegeben wird, falls vorhanden:

System Name;Adapter Name; Beschreibung;IP Adresse;Subnet Maske;Gateway;MAC Adresse;DNS Such Order;DNS Domänen Suffix Such Order;Wins1;Wins2;DHCP Server

Gruß,
UEZ

**UEZ**

Probiere es mal damit:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>

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

GUICreate("",800,500,100,100)

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

$button1 = GUICtrlCreateButton("Start",10,20,100,30)
$button__exit = GUICtrlCreateButton("Exit",700,350,50,30)
$listview = GUICtrlCreateListView("Name|Vorname|Ort",150,20,600,300,$LVS_REPORT)

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

GUISetState(@SW_SHOW)

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

While 1
$msg = GUIGetMsg()

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

If $msg = $GUI_EVENT_CLOSE Then ExitLoop

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

Select
Case $msg = $button1
GUICtrlCreateListViewItem("Meier",$listview)
GUICtrlCreateListViewItem("Müller",$listview)
GUICtrlCreateListViewItem("Hackenschmidt-Zimmermann",$listview)
GUICtrlCreateListViewItem("Bruchhagen",$listview)
GUICtrlCreateListViewItem("Steinmeier",$listview)
_GUICtrlListView_SetColumnWidth($listview, 0, $LVSCW_AUTOSIZE)
Case $msg = $button__exit
Exit
EndSelect
WEnd

[/autoit]

Gruß,
UEZ

**UEZ**

Sieht sehr schön aus und ihr habt euch ja richtig ins Zeug gelegt.

Leider habe ich keinen Plan den Zauberwürfel zu bedienen.

Gruß,
UEZ

Beiträge von UEZ

Write Text on Bitmap v0.92 Build 2013-02-16 Beta

"Verzerrung" bei Bild

Gta-Spider hat Geburtstag

Check Ping Status v1.05 Build 2014-09-19 Beta

Tooltip bei MouseOver über InputBox

Drag & Drop: Dateipfad in eine Variable bekommen, statt in Inputfeld

Bildbearbeitungseffekte / -filter

AutoIt 3.3.7.xx Beta verfügbar

Neuling fragt.......: Zufallszahlen generieren, ohne eine doppelt zu erhalten

Neuling fragt.......: Zufallszahlen generieren, ohne eine doppelt zu erhalten

AutoIt 3.3.7.xx Beta verfügbar

AutoIt 3.3.7.xx Beta verfügbar

AutoIt 3.3.7.xx Beta verfügbar

AutoIt 3.3.7.xx Beta verfügbar

AutoIt 3.3.7.xx Beta verfügbar

Check Ping Status v1.05 Build 2014-09-19 Beta

Check Ping Status v1.05 Build 2014-09-19 Beta

IP und weitere Daten auslesen

Spaltenbreite anpassen GUICtrlCreateListView

IrrCube - Ein Zauberwürfel Emulator