Beiträge von Ineluki

LESEN!

So siehts etwas schöner aus ^^:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
$mouseout=0
$gui = GUICreate("Meine Gui", 401, 301)
GUISetState(@SW_SHOW)
AdlibRegister("CheckMouse")
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func CheckMouse()
$aMpos = MouseGetPos()
$aWpos = WinGetPos("Meine Gui")
If $aMpos[0] > $aWpos[0] And $aMpos[0] < $aWpos[0] + $aWpos[2] And $aMpos[1] > $aWpos[1] And $aMpos[1] < $aWpos[1] + $aWpos[3] Then
If $mouseout=1 Then
For $i=30 to 255 Step 30
WinSetTrans("Meine Gui", "", $i)
sleep(50)
Next
WinSetTrans("Meine Gui", "", 255)
$mouseout=0
EndIf
Else
If $mouseout=0 Then
For $i=255 to 30 Step -30
WinSetTrans("Meine Gui", "", $i)
sleep(50)
Next
$mouseout=1
EndIf
EndIf
EndFunc

[/autoit]

Zitat von darksider3

ja ich weiß, ich hab GuiCtrlRead vergessen, aber ich weiß eben nicht(noch nicht) wie man das im Script benutzt.

Du weißt nicht, wie man GUICtrlRead benutzt? Dann lern erstmal die Grundlagen...

Tolle UDF

_________________________________________________________________________________________________________________

Ich bin auch gegen Pen's, ich bin froh, dass man bei QuickDraw nicht alles erstellen und am Ende wieder disposen muss. Ein zusätzlicher Parameter, um die Linienstärke zu bestimmen würde völlig reichen.

Ich hab nun auch eine QuickDraw Version hochgeladen. Vielen Dank für die UDF und DLL an moritz1243.

Oder

[autoit]

StringReplace($string, " ", "")

[/autoit]

Du willst, dass jemand anders für dich eine Verschlüsselung schreibt und du die dann beim uLight einsendest?

[autoit]

ExitLoop

[/autoit]

[autoit]

#include <Array.au3>

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

$aDirs = FindEmptyDirs(@WindowsDir)
_ArrayDisplay($aDirs, "Leere Verzeichnisse")
For $i=0 to Ubound($aDirs)-1
DirRemove($aDirs[$i])
Next

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

Func FindEmptyDirs($sSD, Const $bS = True)
;by AspirinJunkie
Local $FFFF, $FFNF, $aD
Local Static $sRet, $hDLL
If $bS Then
$hDLL = DllOpen('kernel32.dll')
$sRet = ''
EndIf

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

For $i In StringSplit($sSD, '|', 2)
If StringRight($i, 1) = '\' Then $i = StringTrimRight($i, 1)
If Not FileExists($i) Then ContinueLoop

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

$FFFF = FileFindFirstFile($i & '\*')
If $FFFF <> -1 Then
Do
$FFNF = FileFindNextFile($FFFF)
If @error Then ExitLoop
If @extended Then
FileFindFirstFile($i & '\' & $FFNF & '\*')
If @error Then
$sRet &= $i & '\' & $FFNF & '|'
Else
$aD = DllCall($hDLL, 'dword', 'GetFileAttributesW', 'wstr', $i & '\' & $FFNF)
If @error And BitAND($aD[0], 0x400) Then ContinueLoop
FindEmptyDirs($i & '\' & $FFNF, False)
EndIf
EndIf
Until 0
FileClose($FFFF)
EndIf
Next
If $bS Then
DllClose($hDLL)
Local $aRet = StringSplit(StringTrimRight($sRet, 1), '|', 2)
$sRet = 0
Return $aRet
EndIf
EndFunc

[/autoit]

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 413, 305, 302, 218)
$Button1 = GUICtrlCreateButton("Button1", 168, 136, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
if MsgBox(0, 'Testtitel', 'Klicke auf OK um zum Menü zu gelangen') = 1 Then
ContinueLoop
EndIf
EndSwitch
WEnd

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

Script?

sleep(100) und sleep(500) machen keinen Unterschied? Das glaubst du doch wohl selber nicht...
Teste mal das Script:

[autoit]

sleep(1000)
MsgBox(0, "", "")
sleeP(500)
MsgBox(0, "", "")
sleep(100)
MsgBox(0, "", "")

[/autoit]

Merkst du da keinen Unterschied zwischen der ersten und der zweiten und der zweiten und der dritten MsgBox?
Und sleep(100) beansprucht doch nicht zu sehr den Pc Bei mir reicht ein sleep(10) völlig...

Ich meld mich mal an, aber ich weiß noch nicht, ob ich ein Script einsende... Muss mal sehen, ob ich eine gute Idee zum Thema Verschlüsselung hab...

Hier ein kleines Beispiel:

Spoiler anzeigen

[autoit]

GUICreate("GUIGetBkColor", 625, 443, 192, 124)
GUISetState()
sleep(500)
WinActive("GUIGetBkColor")
MsgBox(0, "GUIGetBkColor", "Background Color: "&GUIGetBkColor(192, 124))
While 1
Switch GUIGetMsg()
Case -3
Exit

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

EndSwitch
WEnd
Func GUIGetBkColor($x, $y)
Return StringRight(Hex(PixelGetColor($x+20, $y+40)), 6)
EndFunc

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

Guck dir mal ControlSend an

Mit IniRead kannst du keine Felder ausfüllen IniRead gibt nur die gelesenen Daten zurück, mehr nicht.

Und wo ist das Problem? Ich würde nur sagen:

[autoit]

IniWrite ; Um etwas in eine Ini zu schreiben
IniRead ; Um etwas aus einer Ini zu lesen
_StringEncrypt; zum verschlüsseln
_Crypt_EncryptData ; zum verschlüsseln
_Crypt_DecryptData ; zum entschlüsseln

[/autoit]

[autoit]

FileOpen
FileWrite
FileClose

[/autoit]

Hm... wenn ich es 64 Bit Compile und Techmix Lösungsvorschlag auch noch einbaue, klappt es bei mir.

Wie wäre es , wenn du erstmal die vorgeschlagene Lösung ausprobieren und uns das Ergebnis berichten würdest?