Für _TCPIpToName musst du zuerst ein TCPStartup machen. 
#include <iNet.au3>
[/autoit] [autoit][/autoit] [autoit]TCPStartup()
MsgBox(0,"", _TCPIpToName(@IPAddress1))
TCPShutdown()
Das musst du genauer erläutern! BugFix will sicher wissen was da bei seiner Funktion nicht funktionieren soll.
Welche Datei findet er mit welchen Parametern definitiv nicht?
Was findet manche Dateien nicht? _GetFilesFolder_Rekursiv oder _FindFiles?
Hier ein paar Funktionen um Ordner oder Dateien mittels DOS zu suchen.
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]$a = _FindFiles('notepad.exe')
_ArrayDisplay($a)
$a = _FindFiles('Neu *')
_ArrayDisplay($a)
$a = _GetAllFolders(@ScriptDir)
_ArrayDisplay($a)
$a = _GetAllFiles(@ScriptDir)
_ArrayDisplay($a)
$a = _GetFolders("System")
_ArrayDisplay($a)
Func _FindFiles($sFileName, $sStartPath = @HomeDrive)
;funkey 20.12.2009
Local $line, $aFiles
Local $cmd = 'dir /a /b /s "' & $sFileName & '"'
Local $Pid = Run(@ComSpec & " /c " & $cmd, $sStartPath & "\", @SW_HIDE, 2)
While 1
$line &= StdoutRead($Pid, 0, 0)
If @error Then ExitLoop
WEnd
$aFiles = StringSplit(StringTrimRight($line, 2), @CRLF, 3)
If $aFiles[0] = "" Then Return SetError(1, 0, "")
For $i = 0 To UBound($aFiles) - 1
$aFiles[$i] = _OEMToAnsi($aFiles[$i])
Next
Return $aFiles
EndFunc ;==>_FindFiles
Func _GetAllFolders($sPath = @HomeDrive)
;funkey 04.12.2009
Local $line, $aFolder
Local $cmd = 'dir /ad /b /s'
Local $Pid = Run(@ComSpec & " /c " & $cmd, $sPath & "\", @SW_HIDE, 2)
While 1
$line &= StdoutRead($Pid, 0, 0)
If @error Then ExitLoop
WEnd
$aFolder = StringSplit($line, @CRLF, 3)
If $aFolder[0] = "" Then Return SetError(1, 0, "")
ReDim $aFolder[UBound($aFolder) - 1]
For $i = 0 To UBound($aFolder) - 1
$aFolder[$i] = _OEMToAnsi($aFolder[$i])
Next
Return $aFolder
EndFunc ;==>_GetAllFolders
Func _GetFolders($SearchPath, $sStartPath = @HomeDrive)
;funkey 23.12.2009
Local $line, $aFolder
Local $cmd = 'dir /ad /b /s "' & $SearchPath & '"'
Local $Pid = Run(@ComSpec & " /c " & $cmd, $sStartPath & "\", @SW_HIDE, 2)
While 1
$line &= StdoutRead($Pid, 0, 0)
If @error Then ExitLoop
WEnd
$aFolder = StringSplit($line, @CRLF, 3)
If $aFolder[0] = "" Then Return SetError(1, 0, "")
ReDim $aFolder[UBound($aFolder) - 1]
For $i = 0 To UBound($aFolder) - 1
$aFolder[$i] = _OEMToAnsi($aFolder[$i])
Next
Return $aFolder
EndFunc ;==>_GetFolders
Func _GetAllFiles($sPath = @HomeDrive, $sExt = "*.*")
;funkey 20.12.2009
Local $line, $aFiles
Local $cmd = 'dir /a-d /b /s ' & $sExt
Local $Pid = Run(@ComSpec & " /c " & $cmd, $sPath & "\", @SW_HIDE, 2)
While 1
$line &= StdoutRead($Pid, 0, 0)
If @error Then ExitLoop
WEnd
$aFiles = StringSplit($line, @CRLF, 3)
If $aFiles[0] = "" Then Return SetError(1, 0, "")
ReDim $aFiles[UBound($aFiles) - 1]
For $i = 0 To UBound($aFiles) - 1
$aFiles[$i] = _OEMToAnsi($aFiles[$i])
Next
Return $aFiles
EndFunc ;==>_GetAllFiles
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
mfg funkey
Gewöhnungsbedürftig und noch fehlerhaft, aber schön!!
Ich denke _GetFilesFolder_Rekursiv ist dafür nicht die richtige Funktion. Folgendes dauert anstelle von 5min nur 5sec. Außerdem kann man Wildcards verwenden.
#Include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]$a = _FindFiles('notepad.exe', 'C:\')
_ArrayDisplay($a)
$a = _FindFiles('note*', 'C:\')
_ArrayDisplay($a)
Func _FindFiles($sFileName, $sStartPath)
;funkey 20.12.2009
Local $line, $aFiles
Local $cmd = 'dir /a /b /s "' & $sFileName
Local $Pid = Run(@ComSpec & " /c " & $cmd, $sStartPath, @SW_HIDE, 2)
While 1
$line &= StdoutRead($Pid, 0, 0)
If @error Then ExitLoop
WEnd
Return StringSplit(StringTrimRight($line, 2), @CRLF, 3)
EndFunc
Hä? So?
#include <WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$hwnd = GUICreate("Secret Starter", 420, 420)
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
$edit = GUICtrlCreateEdit("", 10, 10, 400, 400)
GUISetState()
Do
Sleep(10)
Until GUIGetMsg() = -3
Func MY_WM_COMMAND($hwnd, $Msg, $wParam, $lParam)
$nNotifyCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0x0000FFFF)
$hCtrl = $lParam
If $nID = $edit And $nNotifyCode = 768 Then
ConsoleWrite($nNotifyCode & @CR)
If GUICtrlRead($edit) = "blubb" Then Run("calc")
If GUICtrlRead($edit) = "hallo" Then Run("notepad")
EndIf
EndFunc ;==>MY_WM_COMMAND
Na klar qixx
GUICreate("Unsichtbar", 100, 50, 0, 0, 0x80000000)
$Btn = GUICtrlCreateButton("Test unsichtbar", 0, 0,100, 50)
WinSetTrans("Unsichtbar", "", 1)
GUISetState()
Local $Msg
Do
$Msg = GUIGetMsg()
If $Msg = $Btn Then MsgBox(0,"Unsichtbarer Button", "")
Sleep(10)
Until $Msg = -3
Wird mit dem Window Info-Tool der Text angezeigt?
Stimmt, sorry. Hab mich vertan. Das kommt davon wenn man nichts handfestes zum Testen hat. 
Benutze INIReadSection, dann geht das einfacher, denke ich.
If $7-1 = 0 Then
[/autoit]Diese Bedingung wird in deinem Fall NIE zutreffen. was willst du damit erreichen?
Der Ausdruck, den du da verwendest heißt im Klartext übersetzt:
Wenn das Control $7 das erste ist, das in diesem Skript erstellt wird (und das ist es nicht!) dann mache .......
Ist irgendwie ein blödes Beispiel.
#cs **************************************************************************
[/autoit] [autoit][/autoit] [autoit]_GUIScrollBars mit der Maus scrollen?
[/autoit] [autoit][/autoit] [autoit]http://www.autoit.de/index.php?page…7200#post127200
[/autoit] [autoit][/autoit] [autoit]#ce **************************************************************************
[/autoit] [autoit][/autoit] [autoit]#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
#Include <SendMessage.au3>
Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
Local $nFileMenu, $nExititem, $GUIMsg, $hGUI, $h_cGUI, $h_cGUI2
Local $listview, $button
$hGUI = GUICreate("ScrollBar Example", 400, 400, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
GUISetBkColor(0x88AABB)
$nFileMenu = GUICtrlCreateMenu("File")
$nExititem = GUICtrlCreateMenuItem("Exit", $nFileMenu)
$listview = GUICtrlCreateListView("col1 |col2|col3 ", 10, 10, 200, 150);,$LVS_SORTDESCENDING)
$button = GUICtrlCreateButton("Value?", 75, 170, 70, 20)
GUICtrlSetResizing($button, $GUI_DOCKALL)
For $x = 1 To 30
GUICtrlCreateListViewItem("item" & $x & "|col2|col3", $listview)
Next
GUICtrlSetResizing($listview, $GUI_DOCKALL)
$h_cGUI = GUICreate("Child GUI1", 200, 200, 10, 200, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
GUICtrlCreateButton("a button", 10, 10, 90, 20)
GUISetBkColor(0X006400)
GUISetState()
GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
GUISwitch($hGUI)
[/autoit] [autoit][/autoit] [autoit]$h_cGUI2 = GUICreate("Child GUI2", 200, 200, 215, 10, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
GUICtrlCreateButton("a button", 10, 10, 90, 20)
GUISetBkColor(0X006400)
GUISetState()
GUICtrlSetResizing($h_cGUI2, $GUI_DOCKALL)
GUISwitch($hGUI)
[/autoit] [autoit][/autoit] [autoit]GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")
GUIRegisterMsg(0x020A, "_Scrollen")
GUISetState()
[/autoit] [autoit][/autoit] [autoit]_GUIScrollBars_Init($hGUI)
_GUIScrollBars_Init($h_cGUI)
While 1
$GUIMsg = GUIGetMsg()
Switch $GUIMsg
Case $GUI_EVENT_CLOSE, $nExititem
ExitLoop
EndSwitch
WEnd
Exit
EndFunc ;==>_Main
Func _Scrollen($hWnd, $Msg, $wParam, $lParam)
Local $down = 1
If BitShift($wParam, 16) > 0 Then $down = 0
Switch WinGetTitle($hWnd)
Case "Child GUI1" And $down
_SendMessage($hWnd ,$WM_VSCROLL, $SB_BOTTOM, 0)
Case "Child GUI1" And Not $down
_SendMessage($hWnd ,$WM_VSCROLL, $SB_TOP, 0)
Case "Child GUI2" And $down
_SendMessage($hWnd ,$WM_VSCROLL, $SB_BOTTOM, 0)
Case "Child GUI2" And Not $down
_SendMessage($hWnd ,$WM_VSCROLL, $SB_TOP, 0)
EndSwitch
EndFunc
Func WM_SIZE($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam
Local $index = -1, $yChar, $xChar, $xClientMax, $xClient, $yClient, $ivMax
For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$xClientMax = $aSB_WindowInfo[$index][1]
$xChar = $aSB_WindowInfo[$index][2]
$yChar = $aSB_WindowInfo[$index][3]
$ivMax = $aSB_WindowInfo[$index][7]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0
Local $tSCROLLINFO = DllStructCreate($tagSCROLLINFO)
[/autoit] [autoit][/autoit] [autoit]; Retrieve the dimensions of the client area.
$xClient = BitAND($lParam, 0x0000FFFF)
$yClient = BitShift($lParam, 16)
$aSB_WindowInfo[$index][4] = $xClient
$aSB_WindowInfo[$index][5] = $yClient
; Set the vertical scrolling range and page size
DllStructSetData($tSCROLLINFO, "fMask", BitOR($SIF_RANGE, $SIF_PAGE))
DllStructSetData($tSCROLLINFO, "nMin", 0)
DllStructSetData($tSCROLLINFO, "nMax", $ivMax)
DllStructSetData($tSCROLLINFO, "nPage", $yClient / $yChar)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
; Set the horizontal scrolling range and page size
DllStructSetData($tSCROLLINFO, "fMask", BitOR($SIF_RANGE, $SIF_PAGE))
DllStructSetData($tSCROLLINFO, "nMin", 0)
DllStructSetData($tSCROLLINFO, "nMax", 2 + $xClientMax / $xChar)
DllStructSetData($tSCROLLINFO, "nPage", $xClient / $xChar)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_SIZE
Func WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $index = -1, $xChar, $xPos
Local $Min, $Max, $Page, $Pos, $TrackPos
For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$xChar = $aSB_WindowInfo[$index][2]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0
;~ ; Get all the horizontal scroll bar information
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_HORZ)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
; Save the position for comparison later on
$xPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $xPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
#forceref $Min, $Max
Switch $nScrollCode
Case $SB_LINELEFT ; user clicked left arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)
Case $SB_LINERIGHT ; user clicked right arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)
Case $SB_PAGELEFT ; user clicked the scroll bar shaft left of the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)
Case $SB_PAGERIGHT ; user clicked the scroll bar shaft right of the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)
Case $SB_THUMBTRACK ; user dragged the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch
;~ // Set the position and then retrieve it. Due to adjustments
;~ // by Windows it may not be the same as the value set.
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
;// If the position has changed, scroll the window and update it
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($Pos <> $xPos) Then _GUIScrollBars_ScrollWindow($hWnd, $xChar * ($xPos - $Pos), 0)
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_HSCROLL
Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $index = -1, $yChar, $yPos
Local $Min, $Max, $Page, $Pos, $TrackPos
For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$yChar = $aSB_WindowInfo[$index][3]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0
; Get all the vertial scroll bar information
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
; Save the position for comparison later on
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $yPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
Switch $nScrollCode
Case $SB_TOP ; user clicked the HOME keyboard key
DllStructSetData($tSCROLLINFO, "nPos", $Min)
Case $SB_BOTTOM ; user clicked the END keyboard key
DllStructSetData($tSCROLLINFO, "nPos", $Max)
Case $SB_LINEUP ; user clicked the top arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)
Case $SB_LINEDOWN ; user clicked the bottom arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)
Case $SB_PAGEUP ; user clicked the scroll bar shaft above the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)
Case $SB_PAGEDOWN ; user clicked the scroll bar shaft below the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)
Case $SB_THUMBTRACK ; user dragged the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch
;~ // Set the position and then retrieve it. Due to adjustments
;~ // by Windows it may not be the same as the value set.
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
;// If the position has changed, scroll the window and update it
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($Pos <> $yPos) Then
_GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
$yPos = $Pos
EndIf
Return $GUI_RUNDEFMSG
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>WM_VSCROLL
[/autoit]Das ganze wird doch durch die Werbung finanziert. Glaub nicht, dass wir da helfen können bzw. wollen.
_TCPIpToName
[/autoit]Was willst du denn suchen? Dateien auf deinem PC ist kein Problem.
Habe auch kein Win7, aber als Version 3.3.0.0 herausgekommen ist, da gab es noch kein Win7. Mittlerweile gibt es aber Beta-Versionen, die Win7 unterstützen. Kann dir nicht versprechen, dass es damit dann funktioniert, aber es ist auf alle Fälle einen Versuch Wert.
Am besten ist, wenn du das Icon des jeweiligen Programmes mit dem Resource Hacker austauschst.
Bei eigenen Guis kannst du einfach mit GUISetIcon das Icon bestimmen.
Ansonsten probier mal das da:
_GUISetIcon(WinGetHandle("[ACTIVE]", ""), "shell32.dll", 322) ; name, not ordinal value
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _GUISetIcon($hGui, $sModule, $iName) ; for loaded modules in this shape
[/autoit] [autoit][/autoit] [autoit]Local $a_hCall = DllCall("kernel32.dll", "hwnd", "GetModuleHandleW", "wstr", $sModule)
[/autoit] [autoit][/autoit] [autoit]Local $hModule = $a_hCall[0]
[/autoit] [autoit][/autoit] [autoit]$a_hCall = DllCall("user32.dll", "hwnd", "LoadImageW", _
"hwnd", $hModule, _
"int", $iName, _
"dword", 1, _ ; IMAGE_ICON
"int", 32, _
"int", 32, _
"dword", 0) ; LR_DEFAULTCOLOR
Local $hIcon = $a_hCall[0]
[/autoit] [autoit][/autoit] [autoit]DllCall("user32.dll", "hwnd", "SendMessageW", _
"hwnd", $hGui, _
"dword", 0x0080, _ ; WM_SETICON
"dword", 1, _ ; 1 = ICON_BIG, 0 = ICON_SMALL
"ptr", $hIcon)
EndFunc ;==>_GUISetIcon
[/autoit]Nachdem ich hingewiesen wurde, dass man solche Buttons auch mit _GUICtrlButton_SetImageList erstellen kann werde ich nicht mehr viel Zeit in diese Funktion hineinstecken.
Ich habe aber noch einen Parameter für die Ausrichtung des Icons hinzugefügt. Siehe Post#1.
Ich hoffe, dass diese Funktion doch noch einer brauchen kann.
Ohne Dos-Fenster ist einfach. Habe ich nur zum Testen eingeschalten
Local $ExePath = '"C:\Programme\Microsoft Office\Office12\EXCEL.EXE"'
Run(@ComSpec & " /c " & 'start "" /max /high /b ' & $ExePath, "", @SW_HIDE)
Schau mal in die Hilfe unter GuiCtrlCreateCombo. Damit kannst du dann die Priorität auswählen und vllt mit Checkboxen die verschiedenen Programme.
An sich kein Problem, nur startet Excel bei mir so nicht!?
[autoit]Local $ExePath = '"C:\Programme\Microsoft Office\Office12\EXCEL.EXE"'
Run(@ComSpec & " /k " & 'start /high /b ' & $ExePath, "");, @SW_HIDE)
