Beiträge von funkey

**funkey**

Hatte auch mal was mit einfacher Transparenz gebastelt: Hier ein simples Beispiel

Spoiler anzeigen

[autoit]

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

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

$hgui = GUICreate("", 300, 170, -1, -1, $WS_POPUP)
GUISetBkColor(0xFF)

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

$graphic = GUICtrlCreateGraphic(275, 5, 20, 20)

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

Local $sPic = ''
$sPic &= '16711680|16711680|16711680|16711680|16711680|||||||||||16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680||||||||16711680|16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680||||||16711680|16711680|16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '|||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|' & @LF
$sPic &= '||||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680||' & @LF
$sPic &= '|||||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680||||' & @LF
$sPic &= '||||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680||||' & @LF
$sPic &= '|||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|||' & @LF
$sPic &= '|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|||' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|||' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680||' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680|16711680||||||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680||||||||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680' & @LF
$sPic &= '16711680|16711680|16711680|16711680|16711680||||||||16711680|16711680|16711680|16711680|16711680|16711680|16711680|16711680'

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

Local $aPic = _StringToArray2D($sPic)

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

Local $LastCol = ""
For $j = 0 To UBound($aPic, 2) - 1
For $i = 0 To UBound($aPic, 1) - 1
If $aPic[$i][$j] = "" Then ContinueLoop
If $LastCol <> $aPic[$i][$j] Then
GUICtrlSetGraphic(-1, 8, $aPic[$i][$j])
$LastCol = $aPic[$i][$j]
EndIf
GUICtrlSetGraphic(-1, 18, $i, $j)
Next
Next

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

GUISetState()

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

AdlibEnable('_changeBk', 1000)

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

Do
$msg = GUIGetMsg()
If $msg = $graphic Then
Exit MsgBox(0,"","Ende")
EndIf
Until $msg = -3

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

Func _changeBk()
GUISetBkColor(Random(0, 16777215, 1))
EndFunc

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

Func _StringToArray2D($sArray)
;funkey
Local $i_extended, $ar_Row, $ar = StringSplit($sArray, @LF, 2)
StringReplace($ar[0], "|", @LF)
$i_extended = @extended + 1
Local $ar2D[$i_extended][UBound($ar)]
For $i = 0 To UBound($ar2D, 2) - 1
$ar_Row = StringSplit($ar[$i], "|", 2)
For $j = 0 To UBound($ar2D, 1) - 1
$ar2D[$j][$i] = $ar_Row[$j]
Next
Next
Return $ar2D
EndFunc ;==>_StringToArray2D

[/autoit]

**funkey**

Spoiler anzeigen

[autoit]

#include <ScreenCapture.au3>

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

If Not IsDeclared("SM_VIRTUALWIDTH") Then Global Const $SM_VIRTUALWIDTH = 78
If Not IsDeclared("SM_VIRTUALHEIGHT") Then Global Const $SM_VIRTUALHEIGHT = 79

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

Global $VirtualDesktopWidth = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALWIDTH)
$VirtualDesktopWidth = $VirtualDesktopWidth[0]
Global $VirtualDesktopHeight = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALHEIGHT)
$VirtualDesktopHeight = $VirtualDesktopHeight[0]

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

_ScreenCapture_Capture("Test.jpg", 0, 0, $VirtualDesktopWidth, $VirtualDesktopHeight, 0)

[/autoit]

**funkey**

Hab das auch mal getestet, nur ist das ganze viel zu langsam.

Spoiler anzeigen

[autoit]

Local $start = TimerInit()
$Pos = PixelSearch(61, 45, 1130, 353, 0x0, 0, 2)
If IsArray($Pos) Then ConsoleWrite("PixelSearch: " & $Pos[0] & "/" & $Pos[1] & " " & TimerDiff($start) & @LF)

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

Local $start = TimerInit()
$Pos = _PixelSearchReverse(61, 45, 1130, 353, 0x0, 0, 2)
If IsArray($Pos) Then ConsoleWrite("PixelSearchReverse: " & $Pos[0] & "/" & $Pos[1] & " " & TimerDiff($start) & @LF)

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

Func _PixelSearchReverse($left, $top, $right, $bottom, $color , $shade = 0, $step = 1, $hwnd = "")
Local $nColor, $aRet[2]
For $y = $bottom To $top Step -$step
For $x = $right To $left Step -$step
$nColor = PixelGetColor($x, $y, $hwnd)
If $nColor = $color Then
$aRet[0] = $x
$aRet[1] = $y
Return $aRet
EndIf
Next
Next
Return SetError(1)
EndFunc

[/autoit]

**funkey**

Natürlich hast du meine Erlaubnis.
Freu mich immer wenn jemand mit meinen Skripts was anfangen kann.

**funkey**

Herzlich willkommen!

**funkey**

Wiedermal ein sensationelles Vorzeigeskript

**funkey**

[autoit]

_GUICtrlEdit_Scroll

[/autoit]

**funkey**

Noch ein Versuch von mir

Spoiler anzeigen

[autoit]

#Include <string.au3>
#Include <Array.au3>
#Include <File.au3>

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

$filepath=FileOpenDialog("NC Programm auswählen", @DesktopDir & "\", "Text files (*.txt)", 1 + 2)
If @error Then Exit

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

Local $aFile, $FileNew[1]
_FileReadToArray($filepath, $aFile)

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

For $i = 1 To $aFile[0]
If _StringInWildCard($aFile[$i], "*T*(*)") Then
$Klammer = _StringBetween($aFile[$i], "(", ")")
$Klammer = $Klammer[0]
$T = StringTrimLeft($aFile[$i], StringInStr($aFile[$i], "T") - 1)
$T = StringLeft($T, StringInStr($T, " "))
_ArrayAdd($FileNew, $T & " (" & $Klammer & ")")
EndIf
Next

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

_FileWriteFromArray("Ergebnis.txt", $FileNew, 1)

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

Func _StringInWildCard($sTest, $sWildCard)
;funkey 14.10.2009
Local $sPattern = "^" & $sWildCard & "$" ; Muss von Anfang (^)bis Ende ($) passen
$sPattern = StringReplace($sPattern, ".", "\.")
$sPattern = StringReplace($sPattern, "(", "$")
$sPattern = StringReplace($sPattern, ")", "$")
$sPattern = StringReplace($sPattern, "[", "\[")
$sPattern = StringReplace($sPattern, "]", "\]")
$sPattern = StringReplace($sPattern, "+", "\+")
$sPattern = StringReplace($sPattern, "*", ".*")
$sPattern = StringReplace($sPattern, "?", ".")
;~ ConsoleWrite($sPattern & @CR)
Return StringRegExp($sTest, $sPattern)
EndFunc

[/autoit]

**funkey**

Spoiler anzeigen

[autoit]

#Include <string.au3>

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

$string = "N186 S1800 T3 M6 (HM - Schlichtfräser D=20,0)"

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

If _StringInWildCard($string, "*T*(*)") Then
$Klammer = _StringBetween($string, "(", ")")
$Klammer = $Klammer[0]
$T = StringTrimLeft($string, StringInStr($string, "T") - 1)
$T = StringLeft($T, StringInStr($T, " "))
MsgBox(0, "Ergebnis", $T & " (" & $Klammer & ")")
Else
MsgBox(0, "Fehler", "Werkzeug stimmt nicht!")
EndIf

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

Func _StringInWildCard($sTest, $sWildCard)
;funkey 14.10.2009
Local $sPattern = "^" & $sWildCard & "$" ; Muss von Anfang (^)bis Ende ($) passen
$sPattern = StringReplace($sPattern, ".", "\.")
$sPattern = StringReplace($sPattern, "[", "\[")
$sPattern = StringReplace($sPattern, "]", "\]")
$sPattern = StringReplace($sPattern, "+", "\+")
$sPattern = StringReplace($sPattern, "*", ".*")
$sPattern = StringReplace($sPattern, "?", ".")
;~ ConsoleWrite($sPattern & @CR)
Return StringRegExp($sTest, $sPattern)
EndFunc

[/autoit]

**funkey**

Damit sollte es gehen! Hab's zumindes für sowas geschrieben:
[ gelöst ] StringRegExp - Überprüfung auf exakte Länge

Edit: zumindest der erste Teil der Aufgabe (sehe ich gerade).

**funkey**

@Andi: Finde deine Idee sehr gut. Hatte selber schon mal daran gedacht.

BTW: Diesen Thread von BugFix habe ich selber schon einige Male aufgesucht.

**funkey**

Als Konsolenprogramm zu kompilieren brauchst du nicht.

[autoit]

ShellExecute("123.bat", "Parameter")

[/autoit]

**funkey**

Meine Lösung

Spoiler anzeigen

[autoit]

#include "RestrictControlRegExp.au3"

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

Opt("GUIOnEventMode", 1)

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

_RegEx_RestrictControl_setup (1) ; prepare for up to 1 Control to restrict

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

GUICreate("Ping", 200, 70)
GUISetOnEvent(-3, "_quit")
$Input = GUICtrlCreateInput("", 10, 10, 100, 20)
_RegEx_RestrictControl_add ($Input, "^(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\." & _
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\." & _
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\." & _
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$", "255.255.0.0")

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

$Ping = GUICtrlCreateButton("Ping", 120, 10, 50, 20)
GUICtrlSetOnEvent(-1, "_Ping")
$Label = GUICtrlCreateLabel("", 10, 40, 180, 20)
GUISetState()

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

While 1
Sleep(10)
WEnd

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

Func _Ping()
Local $IP = GUICtrlRead($Input, 1000)
Local $Res = Ping($IP)
If $Res > 0 Then
GUICtrlSetData($Label, $IP & " ist erreichbar.")
Else
GUICtrlSetData($Label, $IP & " ist nicht erreichbar!")
EndIf
EndFunc

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

Func _quit()
Exit
EndFunc ;==>_quit

[/autoit]

**funkey**

Das bringt mehr Ergebnisse.

Spoiler anzeigen

[autoit]

#include <IE.au3>
#include <Array.au3>

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

$oIE = _IECreate("www.google.at")

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

$oLinks = _IELinkGetCollection($oIE)
Local $i = 0, $aLinks[@extended]

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

For $oLink In $oLinks
$aLinks[$i] = $oLink.href
$i += 1
Next

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

_ArrayDisplay($aLinks)

[/autoit]

**funkey**

Ebenfalls IE-Lösung

Spoiler anzeigen

[autoit]

HotKeySet("!s", "_ReadStatusBar") ;Alt+s
HotKeySet("{Esc}", "_Exit")

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

While 1
Sleep(20000)
WEnd

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

Func _ReadStatusBar()
Local $Email = StatusbarGetText("")
MsgBox(0, "Email-Adresse", $Email)
EndFunc

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

Func _Exit()
Exit
EndFunc

[/autoit]

**funkey**

Ubound ist dein Freund

Spoiler anzeigen

[autoit]

Local $array[5] = [1, 2, 3, 4 , 5]

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

$Anzahl_Werte = UBound($array)

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

$vorletzter = $array[$Anzahl_Werte - 2]
$letzter = $array[$Anzahl_Werte - 1]

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

ConsoleWrite($vorletzter & @CR)
ConsoleWrite($letzter & @CR)

[/autoit]

**funkey**

Kein Bug --> Rechenfehler der CPU meines Erachtens.

StringFormat macht Abhilfe

Spoiler anzeigen

[autoit]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 207, 177, 192, 124)
$Combo1 = GUICtrlCreateCombo("0.10", 65, 42, 73, 25)
for $data = 0.2 to 9.90 Step 0.1
GUICtrlSetData(-1, StringFormat("%.2f", $data))
Next
GUICtrlSetData(-1, "0.00")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

Edit: So gehts auch:

Spoiler anzeigen

[autoit]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 207, 177, 192, 124)
$Combo1 = GUICtrlCreateCombo("0.10", 65, 42, 73, 25)
for $data = 2 to 99
GUICtrlSetData(-1, $data / 10)
Next
GUICtrlSetData(-1, "0.00")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

**funkey**

Vllt brauchst du ein

[autoit]

#RequireAdmin

[/autoit]

davor?

**funkey**

Also bei mir klappts genauso wie du es hast! (aber WinXP)

Lass dir mal den Fehler anzeigen:

[autoit]

RegWrite ( "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System" ,"EnableLUA" , "REG_DWORD" , 0)
MsgBox(0, "Fehler", @error)

[/autoit]

**funkey**

Spoiler anzeigen

[autoit]

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

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

Global Const $WM_MOVING = 0x3

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

$main = GUICreate("App", 200, 150, (@DesktopWidth / 2) - 100, (@DesktopHeight / 2) - 100)

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

$btn = GUICtrlCreateButton("Close", 20, 100, 150)

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

GUIRegisterMsg($WM_MOVING, "_MY_WM_MOVE")

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

GUISetState()

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

While 1
$msg = GUIGetMsg()

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

If $msg = $GUI_EVENT_CLOSE Or $msg = $btn Then Exit
WEnd

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

Func _MY_WM_MOVE($hWndGUI, $MsgID, $WParam, $LParam)
If $hWndGUI = $main Then
Local $aWinPos = WinGetPos($hWndGUI, '')
Local $iXPos = (@DesktopWidth / 2) - 100, $iYPos = (@DesktopHeight / 2) - 100
If IsArray($aWinPos) And ($aWinPos[0] <> $iXPos Or $aWinPos[1] <> $iXPos) Then
WinMove($hWndGUI, '', $iXPos, $iYPos)
EndIf
EndIf
EndFunc ;==>_MY_WM_MOVE

[/autoit]

Beiträge von funkey

Weisse Pixel Transparent ?

Screenshot machen

_PixelSearchRightToLeft

Monitor zu bestimmten Zeiten ein- und ausschalten

Zacharja ist hier :D

GDI+: Rotating Letters

Automatisch in einem Fenster nach unten scrollen

StringRegExp Problem

StringRegExp Problem

StringRegExp Problem

'Ersatz'-Signatur

per AutoIt eine bat starten und Werte uebergeben

Hilfe bei Inputbox abfrage

Alle Links einer Website auslesen?

Wie email mit Maus hovern und mittels Tastendruck in Variable speichern?

Zähle Vorkommen in Array

BUG??? GUICtrlSetData mit For To Step

REGWrite funktioniert nicht! was mache ich falsch?

REGWrite funktioniert nicht! was mache ich falsch?

feste GUI Position