Beiträge von funkey

[autoit]

#include <Array.au3>

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

ConsoleWrite(_IsAdmin("Testkonto", @IPAddress1) & @CR)

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

Func _NetUserGetLocalGroups($sUsername, $sServer = "") ; array[0] contains number of elements
Local Const $LG_INCLUDE_INDIRECT = 0x1
Local $tBufPtr = DllStructCreate("ptr")
Local $ptBufPtr = DllStructGetPtr($tBufPtr)
Local $tEntriesRead = DllStructCreate("dword")
Local $ptEntriesRead = DllStructGetPtr($tEntriesRead)
Local $tTotalEntries = DllStructCreate("dword")
Local $ptTotalEntries = DllStructGetPtr($tTotalEntries)
Local $aRet = DllCall("Netapi32.dll", "int", "NetUserGetLocalGroups", "wstr", $sServer, "wstr", $sUsername, "dword", 0, "dword", $LG_INCLUDE_INDIRECT, "ptr", $ptBufPtr, "dword", -1, "ptr", $ptEntriesRead, "ptr", $ptTotalEntries)
If $aRet[0] Then Return SetError(1, $aRet[0], False)
Local $iEntriesRead = DllStructGetData($tEntriesRead, 1)
Local $pBuf = DllStructGetData($tBufPtr, 1)
Local $sLocalGroupUsersInfo0 = "ptr"
Local $tLocalGroupUsersInfo0 = DllStructCreate($sLocalGroupUsersInfo0)
Local $zLocalGroupUsersInfo0 = DllStructGetSize($tLocalGroupUsersInfo0)
Local $tLocalGroupName
Local $aLocalGroupNames[1] = [0]
For $i = 1 To $iEntriesRead
$tLocalGroupUsersInfo0 = DllStructCreate($sLocalGroupUsersInfo0, $pBuf + ($i - 1) * $zLocalGroupUsersInfo0)
$tLocalGroupName = DllStructCreate("wchar[256]", DllStructGetData($tLocalGroupUsersInfo0, 1))
$aLocalGroupNames[0] += 1
ReDim $aLocalGroupNames[$aLocalGroupNames[0] + 1]
$aLocalGroupNames[$aLocalGroupNames[0]] = DllStructGetData($tLocalGroupName, 1)
Next
DllCall("Netapi32.dll", "int", "NetApiBufferFree", "ptr", $pBuf)
Return $aLocalGroupNames
EndFunc ;==>_NetUserGetLocalGroups

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

Func _IsAdmin($UserName, $sServer = "")
Local $aLocalGroupNames = _NetUserGetLocalGroups($UserName, $sServer)
Local $ArraySearch = _ArraySearch($aLocalGroupNames, "Administratoren", 1) ;Anmerkung funkey: String nur für deutsche Systeme
If $ArraySearch == -1 Then
Return False
Else
Return True
EndIf
EndFunc ;==>_IsAdmin

[/autoit]

[autoit]

$hFile = FileOpen("123.txt", 0)
$text = FileRead($hFile)
FileClose($hFile)
$text = StringStripWS($text,
$hFile = FileOpen("123.txt", 1)
FileWrite($hFile, $text)
FileClose($hFile)

[/autoit]

[autoit]

#include <Array.au3>

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

FileChangeDir('C:\')

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

$start = TimerInit()
$ret1 = _GetFilesFolder_Rekursiv('.', '*', 1)
$diff1 = TimerDiff($start)

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

$start = TimerInit()
$ret2 = _GetAllFolders('C:')
$diff2 = TimerDiff($start)

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

ConsoleWrite($diff1 & @CR)
ConsoleWrite($diff2 & @CR)

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

_ArrayDisplay($ret1, "_GetFilesFolder_Rekursiv")
_ArrayDisplay($ret2, "_GetAllFolders")

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

Func _GetAllFolders($sPath = @HomeDrive)
;funkey 04.12.2009
Local $line, $aFolder
Local $cmd = 'dir /ad /b /s "' & $sPath & '\"'
Local $Pid = Run(@ComSpec & " /c " & $cmd, "", @SW_HIDE, 2)
While 1
$line &= StdoutRead($Pid, 0, 0)
If @error Then ExitLoop
WEnd
$aFolder = StringSplit($line, @CRLF, 3)
ReDim $aFolder[UBound($aFolder) - 1]
For $i = 0 To UBound($aFolder) - 1
$aFolder[$i] = _OEMToAnsi($aFolder[$i])
Next
Return $aFolder
EndFunc ;==>_GetAllFolders

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

Func _OEMToAnsi($sOEM)
Local $a_AnsiFName = DllCall('user32.dll', 'Int', 'OemToChar', 'str', $sOEM, 'str', '')
If @error = 0 Then $sAnsi = $a_AnsiFName[2]
Return $sAnsi
EndFunc ;==>_OEMToAnsi

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

;==================================================================================================
; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0 ,[$sDelim='0']]]])
; Description: Rekursive Auflistung von Dateien und/oder Ordnern
; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
; optional: $iRetType 0 gibt Array, 1 gibt String zurück
; optional: $sDelim legt Trennzeichen für Stringrückgabe fest
; 0 -@CRLF (Standard) 1 -@CR 2 -@LF 3 -';' 4 -'|'
; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;==================================================================================================
Func _GetFilesFolder_Rekursiv($sPath, $sExt = '*', $iDir = -1, $iRetType = 0, $sDelim = '0')
Global $oFSO = ObjCreate('Scripting.FileSystemObject')
Global $strFiles = ''
Switch $sDelim
Case '1'
$sDelim = @CR
Case '2'
$sDelim = @LF
Case '3'
$sDelim = ';'
Case '4'
$sDelim = '|'
Case Else
$sDelim = @CRLF
EndSwitch
If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
If $sExt = -1 Then $sExt = '*'
If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
_ShowSubFolders($oFSO.GetFolder($sPath), $sExt, $iDir, $sDelim)
If $iRetType = 0 Then
Local $aOut
$aOut = StringSplit(StringTrimRight($strFiles, StringLen($sDelim)), $sDelim, 1)
If $aOut[1] = '' Then
ReDim $aOut[1]
$aOut[0] = 0
EndIf
Return $aOut
Else
Return StringTrimRight($strFiles, StringLen($sDelim))
EndIf
EndFunc ;==>_GetFilesFolder_Rekursiv

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

Func _ShowSubFolders($Folder, $Ext = '*', $Dir = -1, $Delim = @CRLF)
If Not IsDeclared("strFiles") Then Global $strFiles = ''
If ($Dir = -1) Or ($Dir = 0) Then
For $file In $Folder.Files
If $Ext <> '*' Then
If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
$strFiles &= $file.Path & $Delim
Else
$strFiles &= $file.Path & $Delim
EndIf
Next
EndIf
For $Subfolder In $Folder.SubFolders
If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & $Delim
_ShowSubFolders($Subfolder, $Ext, $Dir, $Delim)
Next
EndFunc ;==>_ShowSubFolders

[/autoit]

[autoit]

#cs **************************************************************************

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

Erfassungsmaske - Springen zwischen den Inputfeldern per Enter-Taste

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

http://www.autoit.de/index.php?page…4634#post124634

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

#ce **************************************************************************

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

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <Guilistview.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 438, 192, 132)
$ListView1 = GUICtrlCreateListView("Input1|Input2|Input3|Input4", 16, 16, 601, 265)
Global $hLVHandle = GUICtrlGetHandle($ListView1)
_GUICtrlListView_SetColumn($hLVHandle, 0, "Input1", 130, 0)
_GUICtrlListView_SetColumn($hLVHandle, 1, "Input2", 130, 0)
_GUICtrlListView_SetColumn($hLVHandle, 2, "Input3", 130, 0)
_GUICtrlListView_SetColumn($hLVHandle, 3, "Input4", 130, 0)
$Input1 = GUICtrlCreateInput("", 16, 320, 129, 24)
$Input2 = GUICtrlCreateInput("", 168, 320, 129, 24)
$Input3 = GUICtrlCreateInput("", 328, 320, 137, 24)
$Input4 = GUICtrlCreateInput("", 496, 320, 121, 24)

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

GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")

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

$button = GUICtrlCreateButton("ADD", 250, 350, 100, 50)

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

Global $hCM = GUICtrlCreateContextMenu($ListView1) ; ein Kontextmenü für das Listview erstellen
Global $hCMDel = GUICtrlCreateMenuItem("Markierte Einträge löschen", $hCM) ; der 3. Kontextmenüeint

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button
_NewItem()
Case $hCMDel
_GUICtrlListView_DeleteItemsSelected($hLVHandle)
EndSwitch
WEnd

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

Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
$nNotifyCode = BitAND($wParam, 0x0000FFFF)
$nID = BitAND($wParam, 0x0000FFFF)
$hCtrl = $lParam
If $nID = 1 Then
Switch ControlGetFocus("Form1")
Case "Edit1"
GUICtrlSetState($Input2, $gui_focus)
Case "Edit2"
GUICtrlSetState($Input3, $gui_focus)
Case "Edit3"
GUICtrlSetState($Input4, $gui_focus)
Case "Edit4"
GUICtrlSetState($button, $gui_focus)
EndSwitch
EndIf
EndFunc ;==>MY_WM_COMMAND

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

Func _NewItem() ; Funktion zum auslesen der Eingabefelder (Neuer Eintrag bzw. Eintrag bearbeiten)
GUICtrlCreateListViewItem(GUICtrlRead($Input1) & "|" & GUICtrlRead($Input2) & "|" & GUICtrlRead($Input3) & "|" & GUICtrlRead($Input4), $ListView1)
GUICtrlSetState($Input1, $gui_focus)
EndFunc ;==>_NewItem

[/autoit]

[autoit]

#cs **************************************************************************

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

Unbegreifliches Scriptproblem

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

http://www.autoit.de/index.php?page…4599#post124599

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

#ce **************************************************************************

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Array.au3>
#include <File.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Quellcode Schreiber", 343, 206, 192, 124)

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

$Group1 = GUICtrlCreateGroup("Speicherpfad", 0, 80, 337, 65)
$Input1 = GUICtrlCreateInput("Ordner", 8, 96, 297, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Button1 = GUICtrlCreateButton("Browse", 8, 120, 97, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Group2 = GUICtrlCreateGroup("Liste", 0, 8, 337, 65)
$Input2 = GUICtrlCreateInput("Datei", 8, 24, 297, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Button2 = GUICtrlCreateButton("Browse", 8, 48, 97, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Button3 = GUICtrlCreateButton("In .txt Dateien exportieren", 192, 176, 139, 25, 0)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$File = FileSelectFolder("Ordner, in dem die Dateien gespeichert werden sollen", "")
GUICtrlSetData($Input1, $File)
Case $Button2
$File2 = FileOpenDialog("Datei mit den Links", "", "Text files (*.txt)")
GUICtrlSetData($Input2, $File2)
Case $Button3
Dim $links
_FileReadToArray($File2, $links)
$name = ""
For $i = 1 to $links[0]
$Objekt = _IECreate($links[$i], 0, 0)
$HTML = _IEBodyReadHTML($Objekt)
$name = StringSplit($links[$i], "=", 0)
$hFile = FileOpen($File & "\" & $name[2] & ".txt", 2)
FileWrite($hFile, $HTML)
FileClose($hFile)
Next
MsgBox(0, "Erfolg", "Der Quellcode wurde erfolgreich in TXT abgespeichert!")
EndSwitch
WEnd

[/autoit]

[autoit]

#Include <Array.au3>
$Members = _LocalGroupMembers("Administratoren")
_ArrayDisplay($Members)

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

Func _LocalGroupMembers($sGroup)
;funkey 03.12.2009
Local $line, $aMembers
Local $cmd = "net localgroup "& $sGroup
Local $Pid = Run(@ComSpec & " /c " & $cmd, "", @SW_HIDE, 2)
While 1
$line &= StdoutRead($Pid)
If @error Then ExitLoop
Wend
$aMembers = StringSplit(StringTrimLeft($line, StringInStr($line, "-----", 0, -1) + 6), @CRLF, 3)
ReDim $aMembers[UBound($aMembers) - 3]
Return $aMembers
EndFunc

[/autoit]

[autoit]

#include <WindowsConstants.au3>

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

$GUI = GUICreate ("GUI", 300, 300)
GUIRegisterMsg($WM_NOTIFY, "_WM_Notify")

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

$Slider = GUICtrlCreateSlider (10, 100, 200, 30)
GUICtrlSetLimit (-1, 100, 0)
GUICtrlSetData ($Slider, 100)

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

GUISetState()

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

Do
Until GUIGetMsg() = -3

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

Func _WM_Notify($hWnd, $Msg, $wParam, $lParam)
$nNotifyCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0x0000FFFF)
$hCtrl = $lParam
If $nID = $Slider Then WinSetTrans($GUI, "", GUICtrlRead($slider) * 2.55)
EndFunc

[/autoit]