Hallo Leute
hab in den letzten paar wochen daran gearbeitet. als sistemadministrator, ist es ein hilfreiches tool um ordnerrechte (auch und vorallem rekursiv) zu vergeben.
wäre froh wenn ihr es testen und feedback geben könntet.
http://rapidshare.com/files/241594462/FolderPermission.zip
grüsse
gianni
Hallo!
Hast du dir schon mal die "Word.au3" angeschaut und die funktion:
_WordDocFindReplace()
??
Grüsse
hei @ sir-gunny
könntest du mal ein file (savegame) hier posten, damit wir es uns besser anschauen könnten??
grüsse
danke an alle für die feedbacks
ja @ Matthias_199
ich hatte deine kritik, voll falsch verstanden..
tut mir leid und hast ja die zeit gesehen, hatte auch ein glas zu viel..
darum sorry, deine idee ist perfekt und genau für solche ideen hab ja auch mein tool gepostet..
grüsse
danke für das feedback
@ Matthias
Logisch ist das spielen an der INI eine einfache sache, aber wenn du schon kritisierst, hast du auch einen vorschlag wie das ganze nicht editierbar gespeichert werden könnte???
würde mich auf aufbauende kritik freuen ( siehe tobi_girst)
grüsse
gianni
Hallo
Hab da auch was gepostet:
https://autoit.de/index.php?page=Thread&threadID=12399
Vielleicht kann es dir noch weiter helfen..
Grüsse
Hallo Leute
Brauche dieses Tool für mich privat,schon seit einiger Zeit..
Hab gesehen, dass jemand anders schon etwas releasen wollte, deshalb
hier auch meine Version..
Auf Feedbacks würde ich mich freuen.
Grüsse
Gianni
oder so
geht auch
aber dann rechnet er ja immer + 2...
also dann 11+2 =13 usw... aber wenn er dann anchher 23+2 rechnet = 25 ???
muss da nicht auch irgendwas gemacht werden?
keine ahnung wie es dann reagiert.. müsste man testen
so sollte es gehen
[autoit]
Dim $i = 0
While 1
If @Hour = 11 + $i And @MIN = 51 Then
ProcessClose("iexplore.exe")
Sleep(1000)
ShellExecute("iexplore.exe")
$i = $i + 2
EndIf
WEnd
sorry, hab ein exit vergessen
[autoit]
While 1
If @Hour = 11 And @MIN = 55 Then
ProcessClose("iexplore.exe")
Sleep(1000)
ShellExecute("iexplore.exe")
Exit
EndIf
WEnd
vielleicht so??
[autoit]
While 1
If @Hour = 11 And @MIN = 53 Then
ProcessClose("iexplore.exe")
Sleep(1000)
ShellExecute("iexplore.exe")
EndIf
WEnd
Hallo UEZ
Unglaublich, heute ging mir die genau gleiche idee durch den kopf.hab das spiel früher mal für flash / action script programmiert. Dann kamm mir noch ein anderes Spiel (Klassiker) in den sinn, dass ich auch mal programmiert hatte. und zwar ist es arkanoid / breakout..
vielleicht könnte es eine idee für das nächste spiel sein..??!!
grüsse
Hallo Understood
Bitte beachte, das hier Bots nicht erlaubt sind..
Wünsche dir trotzdem viel spass hier im forum.
Grüsse
danke @ l3viathan2142
Schöne Udf
was das jetzt ironisch gmeint?? 
hallo und danke für das feedback.
ja hab eine funktion daraus gemacht, damit ich sie in meiner datenbank finden kann..
könntest du bei einer funktion, ein "Error-Management" -beispiel zeigen??
grüsse
Hallo Leute
Hab da am Wochenende wieder mal gespielt..
Wollte unbedingt mal die DLLCall Funktion anschauen.
Dabei ist diese UDF herausgekommen:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Gianni
Script Function:
DLL Utilities UDF
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit];===============================================================================
;
; Function Name: disableClock
; Description:: Hide Clock on the Task List
; Parameter(s): $switch -> Clock Hide/Show Switch
; 1 = Hide
; 0 = Show
; Requirement(s): v3.2.12.0 or higher
; Author(s): Gianni
;
;===============================================================================
Func _disableClock($switch)
Switch $switch
Case 1
DllCall("WinLockDll.dll", "int", "Clock_Show_Hide", "int", 0)
Case 0
DllCall("WinLockDll.dll", "int", "Clock_Show_Hide", "int", 1)
Case Else
MsgBox(0, "Fehler", "Die Uhr konnten nicht ausgeblendet werden")
EndSwitch
Return True
EndFunc
;===============================================================================
;
; Function Name: disable Task Manager
; Description:: Disable the Task Manager
; Parameter(s): $switch -> Disable / Enable Switch
; 1 = Disable
; 0 = Enable
; Requirement(s): v3.2.12.0 or higher
; Author(s): Gianni
;
;===============================================================================
Func _disableTaskManager($switch)
Switch $switch
Case 1
DllCall("WinLockDll.dll", "int", "TaskManager_Enable_Disable", "int", 0)
Case 0
DllCall("WinLockDll.dll", "int", "TaskManager_Enable_Disable", "int", 1)
Case Else
MsgBox(0, "Fehler", "Task Manager konnten nicht deaktiviert werden")
EndSwitch
Return True
EndFunc
;===============================================================================
;
; Function Name: hideDesktopIcons
; Description:: Hide Desktop Icons (Clean Desktop)
; Parameter(s): $switch -> Icons Hide/Show Switch
; 1 = Hide
; 0 = Show
; Requirement(s): v3.2.12.0 or higher
; Author(s): Gianni
;
;===============================================================================
Func _hideDesktopIcons($sw)
Const $SW_SHOW = 0
Const $SW_HIDE = 1
$hwnd = WinGetHandle("Program Manager")
Switch $sw
Case 1
$dll = DllCall("user32.dll", "int", "ShowWindow", "hwnd", $hwnd, "int", $SW_SHOW)
Case 0
$dll = DllCall("user32.dll", "int", "ShowWindow", "hwnd", $hwnd, "int", $SW_HIDE)
Case Else
MsgBox(0, "Fehler", "Icons konnten nicht ausgeblendet werden")
EndSwitch
Return True
EndFunc
;===============================================================================
;
; Function Name: hideTaskbar
; Description:: Hide Taskbar
; Parameter(s): $switch -> Taskbar Hide/Show Switch
; 1 = Hide
; 0 = Show
; Requirement(s): v3.2.12.0 or higher
; Author(s): Gianni
;
;===============================================================================
Func _hideTaskbar($switch)
Switch $switch
Case 1
DllCall("WinLockDll.dll", "int", "Taskbar_Show_Hide", "int", 0)
Case 0
DllCall("WinLockDll.dll", "int", "Taskbar_Show_Hide", "int", 1)
Case Else
MsgBox(0, "Fehler", "Taskbar konnten nicht ausgeblendet werden")
EndSwitch
EndFunc
;===============================================================================
;
; Function Name: setDesktopWallpaper
; Description:: Hide Taskbar
; Parameter(s): $switch -> Taskbar Hide/Show Switch
; 1 = Hide
; 0 = Show
; Requirement(s): v3.2.12.0 or higher
; Author(s): Gianni
;
;===============================================================================
Func _setDesktopWallpaper($file)
DllCall("user32.dll", "str", "SetDeskWallpaper", "str", $file)
;~ MsgBox(0, "Fehler", "Taskbar konnten nicht ausgeblendet werden")
EndFunc
Example:
[autoit]
#include <dllUtilitiesUDF.au3>
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; Script Start - Add your code below here
[/autoit][autoit][/autoit][autoit]; Disable
;~ _disableClock(1)
;~ _disableTaskManager(1)
;~ _hideDesktopIcons(1)
;~ _hideTaskbar(1)
;Enable
;~ _disableClock(0)
;~ _disableTaskManager(0)
;~ _hideDesktopIcons(0)
;~ _hideTaskbar(0)
;~_setDesktopWallpaper("wall.jpg")
grüsse
gianni
also ich find die suchmaschine ziemlich gut..
schlecht ist einfach, dass man unter AutoIt nichts findet..
Wie schon erwähnt, werde ich diese Funktion bald mehrmals gebrauchen.
Will Sie euch deshalb nicht vorenthalten. Sicher nichts spezielles aber vielleicht brauchbar.
UDF:
[autoit]
#include <Date.au3>
#include <String.au3>
#include <Array.au3>
#cs ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]AutoIt Version: 3.3.0.0
Author: Gianni
UDF Function:
[/autoit][autoit][/autoit][autoit]#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]Func _getFirstDayMonth ($date)
Local $MyDate, $MyTime, $RDate, $dateDay[2]
$date = _StringExplode($date, ".")
$date = String($date[2] & "/" & $date[1] & "/" & $date[0])
_DateTimeSplit($date, $MyDate, $MyTime)
$dateDayAdd = _DateAdd('D', - $MyDate[3] + 1, $date)
_DateTimeSplit($dateDayAdd, $RDate, $MyTime)
$dateToDay = _DateToDayOfWeek($RDate[1], $RDate[2], $RDate[3])
$dateDay[1] = _DateDayOfWeek($dateToDay)
$dateDayAdd = _StringExplode($dateDayAdd, "/")
$dateDay[0] = String($dateDayAdd[2] & "." & $dateDayAdd[1] & "." & $dateDayAdd[0])
Return $dateDay
EndFunc
Func _getLastDayMonth ($date)
Local $MyDate, $MyTime, $RDate, $dateDay[2]
$date = _StringExplode($date, ".")
$date = String($date[2] & "/" & $date[1] & "/" & $date[0])
_DateTimeSplit($date, $MyDate, $MyTime)
$calc = _DateAdd('M', 1, $date)
$dateDayAdd = _DateAdd("D", - $MyDate[3], $calc)
_DateTimeSplit($calc, $RDate, $MyTime)
$dateToDay = _DateToDayOfWeek($RDate[1], $RDate[2], $RDate[3])
$dateDay[1] = _DateDayOfWeek($dateToDay)
$dateDayAdd = _StringExplode($dateDayAdd, "/")
$dateDay[0] = String($dateDayAdd[2] & "." & $dateDayAdd[1] & "." & $dateDayAdd[0])
Return $dateDay
EndFunc
und hier ein beispiel dazu:
[autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <_firstLastDay.au3>
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Gianni
Script Function:
[/autoit][autoit][/autoit][autoit]#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; Script Start - Add your code below here
[/autoit][autoit][/autoit][autoit][/autoit][autoit]#Region ### START Koda GUI section ### Form=D:\Programmierung\AutoIt\FistLastMonth\fldForm.kxf
$fldForm = GUICreate("FirstLastDay", 372, 210, 202, 125)
GUISetFont(10, 800, 0, "Arial")
$labelDatum = GUICtrlCreateLabel("Date (dd.mm.yyyy)", 24, 32, 133, 20)
$inputDatum = GUICtrlCreateInput("", 168, 32, 121, 24)
$btnCalc = GUICtrlCreateButton("Calc", 136, 80, 75, 25, 0)
$fstinMonth = GUICtrlCreateLabel("First Day in Month", 24, 128, 118, 20)
$lstInMonth = GUICtrlCreateLabel("Last Day in Month", 232, 128, 117, 20)
$labelFDate = GUICtrlCreateLabel("Date", 48, 152, 70, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$labelFDay = GUICtrlCreateLabel("Day", 48, 176, 70, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$labelLastDate = GUICtrlCreateLabel("Date", 256, 152, 70, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
$labelLastDay = GUICtrlCreateLabel("Day", 256, 176, 70, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnCalc
$readDate = GUICtrlRead($inputDatum)
If $readDate <> "" And StringRegExp($readDate, '..........') Then
$getFirstDate = _getFirstDayMonth($readDate)
$getLastDate = _getLastDayMonth ($readDate)
GUICtrlSetData($labelFDate, $getFirstDate[0])
GuiCtrlSetData($labelFDay, $getFirstDate[1])
GUICtrlSetData($labelLastDate, $getLastDate[0])
GuiCtrlSetData($labelLastDay, $getLastDate[1])
Else
MsgBox(0, "Attention", "Please insert Date")
EndIf
EndSwitch
WEnd
grüsse
Gianni
hier die angepasste version:
[autoit]
#include <GUIConstants.au3>
#include <EditConstants.au3>
#Region ### START Koda GUI section ###
$Form2 = GUICreate("Login", 414, 133, 304, 173)
$Input1 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "User", ""), 16, 48, 297, 21)
$Input2 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Password", ""), 16, 96, 297, 21, $ES_PASSWORD)
$Password = GUICtrlCreateLabel("Password", 16, 72, 66, 17)
$Nickname = GUICtrlCreateLabel("Nickname", 16, 24, 52, 17)
$Save = GUICtrlCreateButton("Save", 328, 16, 73, 25)
$Login = GUICtrlCreateButton("Login", 328, 83, 73, 38)
$Group1 = GUICtrlCreateGroup("Loginbox", 2, 5, 407, 122)
$Delete = GUICtrlCreateButton("Delete", 327, 48, 75, 31, 0)
$Input3 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", ""), 174, 18, 136, 21)
$Webseite = GUICtrlCreateLabel("Webseite :", 120, 21, 52, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Save
IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", GUICtrlRead($Input1))
IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", GUICtrlRead($Input2))
IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", GUICtrlRead($Input3))
Case $Delete
GUICtrlSetData ($Input1, "")
GUICtrlSetData ($Input2, "")
GUICtrlSetData ($Input3, "")
;~ Delete = $Input1 , $Input2 , $Input3 ;ihr Sollte eigendlich die Felder Löschen aber Geht nit
IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", "")
IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", "")
IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", "")
Case $Login
; und Iher Firefox Starten oder IE aber Firefox Ware mir Lieber ware aber auch nett wenn es mir Jemmand Sagen Würde wie das mit IE Geht.
EndSwitch
WEnd
wollte mal mitteilen das ich auch gespendet hab..
wäre ohne dieses forum verloren.. ICH LIEBE ES!!!! 
Macht weiter so.
