Wenn man Zeile 2 richtig schreibt, funktioniert sie auch:
[autoit]Run('netsh interface ip add dns name="LAN-Verbindung" addr=123.123.128.3 index=2',"",@SW_SHOW)
[/autoit]Funktioniert bei mir unter XP (wenn es als Admin ausgeführt wird) einwandfrei !
Unter Umständen geht folgende Alternative:
1. Wenn mit der rechten Maustaste geklickt wird,
2. markiertes Item merken
3. Mausklick Links an gleicher Stelle (damit wird das aktuelle markiert)
4. markiertes für spätere Weiterverarbeitung merken
5. wieder das alte (aus 2.) markieren (alten Zustand herstellen)
6. Item aus 4. im Script weiter verarbeiten
Gruß
micha_he
Die Zahl 10 ist ja gleich der Zahl 10.00. Soll heißen rein rechnerisch ist es ja egal und AutoIt rechnet ja auch korrekt.
Das was Du gerne hättest ist eine geänderte "Darstellung" der Zahl "10". Daher findest Du die Lösung ja auch bei den String-Funktionen:
[autoit]$zahl = 10
Msgbox(0,"",StringFormat("Zahl mit 2 Nachkommastellen : %.2f",$zahl))
Edit: zu langsam
Da fehlt einiges. Wie wäre es mit Testen vor dem Posten !
Zeile 61 müsste wohl wie folgt aussehen: Send(GUICtrlRead($Input1) & "{ENTER}")
Man kann aber den Befehl auch direkt per RUN starten, siehe hier:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Adminbar", 155, 454, 494, 158)
GUISetBkColor(0x000000)
GUISetCursor (3)
$Button2 = GUICtrlCreateButton("Beenden", 24, 420, 113, 25, BitOR($BS_CENTER,$BS_FLAT), $WS_EX_CLIENTEDGE)
[/autoit] [autoit][/autoit] [autoit]$Button1 = GUICtrlCreateButton("ipconfig /all", 24, 56, 113, 25, BitOR($BS_CENTER,$BS_FLAT), $WS_EX_CLIENTEDGE)
GUICtrlSetTip(-1, "ipconfig Befehl")
$Label1 = GUICtrlCreateLabel("Tools", 40, 8, 66, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Input1 = GUICtrlCreateInput("Adresse", 8, 128, 137, 21)
$Label2 = GUICtrlCreateLabel("Bitte geben sie eine IP ein:", 8, 112, 138, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("IP anpingen", 8, 152, 137, 25, 0)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Send( "{lwin}")
Send("{u}")
WinWait("Ausführen","")
If Not WinActive("Ausführen","") Then WinActivate("Ausführen","")
WinWaitActive("Ausführen","")
Send("cmd{ENTER}")
WinWait("C:\WINDOWS\system32\cmd.exe","")
Send("ipconfig{SPACE}{SHIFTDOWN}7{SHIFTUP}all{ENTER}")
Case $Button2
Exit
Case $Button3
; Opt("WinWaitDelay",100)
; Opt("WinTitleMatchMode",4)
; Opt("WinDetectHiddenText",1)
; Send( "{lwin}")
; Send("{u}")
; WinWait("Ausführen","")
; If Not WinActive("Ausführen","") Then WinActivate("Ausführen","")
; WinWaitActive("Ausführen","")
; Send("cmd{ENTER}")
; WinWait("C:\WINDOWS\system32\cmd.exe","")
; Send("ping{space}")
; Send(GUICtrlRead($Input1) & "{ENTER}")
$rueckgabe = ""
$pid = Run("ping " & GUICtrlRead($Input1) ,"",@SW_HIDE,6)
While 1
; Rückgabe auslesen
If StdOutRead($pid,True) Then $rueckgabe &= StdOutRead($pid)
If StdErrRead($pid,True) Then $rueckgabe &= StdErrRead($pid)
; bei Fehler ist der Process beendet
If @error Then ExitLoop
; und warten, oder wollen wir den Rechner 100% auslasten
Sleep(100)
Wend
Msgbox(0,"",$rueckgabe)
EndSwitch
WEnd
Und bei "Ping" wie in diesem Beispiel, gäbe es auch noch die Möglichkeit mit dem AutoIt-Ping-Befehl:
[autoit]Ping()
[/autoit]Wenn ich Dein Script richtig interpretiere, prüft es Zahlenkombinationen aber unter Umständen doppelt !
"Random" erzeugt ja nun Zufallszahlen und die ggf. dann auch doppelt. Wenn es dumm kommt, trifft dein
Script NIE die richtige Kombination, obwohl es von der Anzahl her, alle Zahlen probiert hat.
Ich glaube, so viele Rechtschreibfehler habe ich noch nie in einem Thread gesehen !
Das ist ja kaum noch zu verstehen...
Schnuffel: Im Hauptscript definierte / oder erstmals benutzte Variablen, sind immer GLOBAL. Das ändert bei Deiner Version eigentlich nichts. Es funktioniert nur, weil Du die Variable "$open" des FileDialoges nutzt, statt das Inputfeld.
zawn: Nein es geht nicht ! Nur mit dem Dialog. Gib mal eine Datei direkt ein, dann wirst Du sehen das es damit nicht klappt.
Hier eine kommentierte und aufgeräumte Lösung !
#include <GuiConstantsEx.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Gui Create
GuiCreate("HPGL-Print", 500, 100)
GuiSetIcon(@SystemDir & "\rtcshare.exe", 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
[/autoit] [autoit][/autoit] [autoit];Label
GuiCtrlCreateLabel("Bitte den Pfad zur zu druckenden hpgl-Datei angeben:", 10, 20, 400, 20)
;Textbox
$input = GUICtrlCreateInput("", 10, 35, 400, 20)
;Durchsuchenbutton
$Button_D = GUICtrlCreateButton("Durchsuchen", 415, 35, 80, 20)
GUICtrlSetonEvent($Button_D, "Durchsuchenbutton")
;Druckenbutton
$Button_P = GUICtrlCreateButton("Drucken", 200, 70, 80, 20)
GUICtrlSetonEvent($Button_P, "Druckenbutton")
GUISetState(@SW_SHOW)
While 1 ; keine GUIGetMsg bei "GUIOnEventMode"
Sleep (100) ; nichts tun, wenn kein Event
WEnd
; besser die Funktionen an das Ende des Scripts und nicht mittendrin
Func Durchsuchenbutton()
$open = FileOpenDialog("HPGL-Datei auswählen...", @DesktopDir, "HPGL (*.hpgl)")
GUICtrlSetData($input, $open)
EndFunc
Func Druckenbutton()
$path = GUICtrlRead($input) ; hier war der Fehler ! Du musst den Path schon irgendwann lesen !
If $path <> "" Then
;RunWait(@COMSPEC & " /c Dir C:\")
;RunWait(@COMSPEC & " /c copy "$path" LPT2")
MsgBox(0, "", $path)
EndIf
EndFunc
Func CLOSEClicked()
Exit
EndFunc
Ich habe es jetzt nicht extra probiert, aber dein Fehler scheinen nur die fehlenden "&" zu sein. Anführungszeichen sind bei möglichen Leerzeichen in Ordnernamen auch nicht zu verachten. Hier eine mögliche Lösung:
[autoit]RunWait(@COMSPEC & ' /c copy "' & $path & '" LPT2')
[/autoit]Erstell doch einfach mal ein kurzes (lauffähiges) Beispiel, das Deinen Fehler zeigt. Dann kann man Dir daran erklären was Du ggf. ändern musst.
Bei mir zeigen beide Scripte einen kleinen Schönheitsfehler:
Nach dem Start steht im Verzeichnis-Input-Feld "C:\Programme\Autoit" und in der Statuszeile erscheint "Bitte warten! Verzeichnis wird eingelesen..."
Nur tun, tut er nichts !
Wähle ich den Ordner nochmal per Hand, das ist, schwups die wups, der Inhalt da. Wenn das Script also nach dem Start "nix" tut, sollte besser auch die Eingabezeile leer bleiben und der Status passen. Der eine oder andere wartet sonst nächstes Jahr noch.
Warum nutzt Du nicht den 4. und 5. Parameter (x-Pos, y-Pos) der ProgressOn-Funktion ?
$id=FileOpen("pfad\datei.end",1) ; wichtig ist die "1" für anhängen
FileWriteLine($id,'SET realmName "Arthas"')
FileClose($id)
Ich habe hier bisher auch nur wenige gesehen die für das entfernen eines Ordners den DosBefehl "RD" benutzen, wenn sie ein AutoIt-Script schreiben, in dem die Funktion
[autoit]DirRemove()
[/autoit]verfügbar ist !
Direkt auf dem TAB ? Das gibts es doch gar nicht, jedensfalls fällt mir im Moment nichts ein. Auf dem TAB-Objekt, musst Du erst ein Control (Button, Edit, ListView, o.ä.) erzeugen. Dieses Control kann dann ggf. mit Scrollbalken sein.
Aber ich lasse mich da such eines besseren belehren, falls jemand eine Lösung präsentieren kann.
Ich weiß zwar nicht wo Du den Scrollbalken haben willst (Problem besser beschreiben, Beispiel liefern), aber bei den GUICtrl's (z.B. Edit-Fenster) über die Styles "$WS_VSCROLL" & "$WS_HSCROLL".
Du könntest auch mit TimerInit() / TimerDiff() arbeiten.
Dann muss die Abfrage nur lauten:
[autoit]If TimerDiff($start) > 900000 Or ProcessExists("explorer.exe") Then ...
[/autoit]Nachdem Du den aktuellen Text in das Edit-Feld geschrieben hast:
[autoit]GUICtrlSetState($Edit1, $GUI_FOCUS) ; kann sein das diese Zeile nicht nötig ist, wenn gerade etwas hineingeschrieben wurde
Send("{END}")
Stimmt, über die Eigenschaftsseite der Datei geht es !
Und warum über FileGetVersion nicht ? Ideen ?
Ich hatte mir diese Funktion für spätere Nutzung mal zurückgelegt.
Ich habe mir die Funktion von Xenobiologist einmal angesehen. Mit dem "CompanyName" haut es einwandfrei hin, nur in meinem Test mit der "FileVersion" (siehe unten) will das ganze nicht. Wo liegt mein Fehler ?
FileCopy(@WindowsDir & "\Notepad.exe", @ScriptDir)
$filename = @ScriptDir & "\Notepad.exe"
Msgbox(0,"Old FileVersion",FileGetVersion($filename,"FileVersion"))
If _FileSetVersion($filename,"FileVersion","1.2.3333.4444") = 1 Then
$NewVersion = FileGetVersion($filename,"FileVersion")
MsgBox(4096, "New FileVersion", $NewVersion)
Else
MsgBox(4096, "Error!", "Can not set the field FileVersion!")
EndIf
; #INTERNAL_USE_ONLY#============================================================================================================
; __NullEntryPoint
; __NullRepeat
; __Binary
;================================================================================================================================
; #FUNCTION# ====================================================================================================================
; Name...........: _FileSetVersion
; Description ...: Updating the StringFileInfo section.
; Syntax.........: _FileSetVersion( FileName, "StringName", "StringText" )
; Parameters ....: FileName - Path and filename.
; StringName- name of the field info, default is "FileVersion".
; StringText- string to fill the field info, default is @AutoItVersion.
; Return values .: Success - Returns 1 and set @error to 0
; Failure - Returns 0 and set @error to 1
; Author ........: jscript "FROM BRAZIL"
; Modified.......:
; Remarks .......: The information contained in the StringFileInfo section is not necessarily more difficult
; to change, but it does have the constraint that the new information be the same size or smaller
; than the old information. Extra characters would inevitably write on something important.
; Related .......: FileGetVersion
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _FileSetVersion($hFileName, $sStringName = "FileVersion", $sStringText = @AutoItVersion)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $iResourceSize, $hFileOpen, $bFileRead, $bSearch, $bReplace, $bHex, $NewResSize, $iPos
Local $aStrSplit, $iResFieldSize, $bBinStrName, $sBinStrText, $sFileGetInfo, $iValue, $iCont
Local $bHeader = "34000000560053005f00560045005200530049004f004e005f0049004e0046004f"
Local $bEndHeader = "5400720061006e0073006c006100740069006f006e0000000000"
;
; If not file found return 0 and set @error to 1
If Not FileExists($hFileName) Then Return SetError(1, 0, 0)
;
; First open file in only binary read mode and close
$hFileOpen = FileOpen($hFileName, 16)
$bFileRead = FileRead($hFileOpen)
FileClose($hFileOpen)
;
; Get resource info, if no version information found, return 0 and set @error to 1
If FileGetVersion($hFileName) = "0.0.0.0" Then Return SetError(1, 0, 0)
#cs
;
; Determine the size of the resource information
$bSearch = StringMid($bFileRead, StringInStr($bFileRead, $bHeader, 0, -1) - 4, 4)
; Invert and return value in bytes
$iResourceSize = Dec(StringRight($bSearch, 2) & StringLeft($bSearch, 2))
#ce
;
; Update Resource information
If $sStringName = "FILEVERSION" Or $sStringName = "PRODUCTVERSION" Then
;
; Split FileVersion, format is: 00.00.0000.0000
$aStrSplit = StringSplit($sStringText, ".")
; If wrong FileVersion format, return 0 and set @error to 1
If $aStrSplit[0] > 4 Then Return SetError(1, 0, 0)
;
; Convert to Hex and Invert data
Dim $bReplace[5] = [5, Hex(0, 4), Hex(0, 4), Hex(0, 4), Hex(0, 4)]
For $i = 1 To $aStrSplit[0]
$bHex = Hex($aStrSplit[$i], 4)
$bReplace[$i] = StringRight($bHex, 2) & StringLeft($bHex, 2)
Next
;
; Set FILEVERSION / PRODUCTVERSION
If $sStringName = "FILEVERSION" Then $iPos = StringInStr($bFileRead, "bd04effe00000100", 0, -1) + 16
If $sStringName = "PRODUCTVERSION" Then $iPos = StringInStr($bFileRead, "bd04effe00000100", 0, -1) + 32
$bFileRead = StringReplace($bFileRead, $iPos, $bReplace[2] & $bReplace[1] & $bReplace[4] & $bReplace[3])
; free the memory
$aStrSplit = 0
$bReplace = 0
;
; If error found, return 0 and set @error to 1
If @error Then Return SetError(1, 0, 0)
Else
; If FileGetVersion returns error then
If @error Then Return SetError(1, 0, 0)
;
; Set the length of $sStringName resource field
$bBinStrName = __Binary(__NullEntryPoint($sStringName))
$iPos = StringInStr($bFileRead, $bBinStrName)
$iValue = StringMid($bFileRead, $iPos + StringLen($bBinStrName), 10)
For $i = 1 To 10
$iCont = StringMid($iValue, $i, 2)
If $iCont = "00" Then $bBinStrName &= __Binary(Chr("00"))
If $iCont <> "00" Then ExitLoop
$i += 1
Next
;
; Get the resource field size
$iValue = StringMid($bFileRead, $iPos + StringLen($bBinStrName), 400)
For $i = 1 To 400
If StringMid($iValue, $i, 6) = "000000" Then
$iValue = Int($i / 2) + 3
ExitLoop
EndIf
$i += 1
Next
$iResFieldSize = Dec(StringMid($bFileRead, $iPos - 8, 2))
If $iValue > $iResFieldSize Then $iResFieldSize = $iValue
;
If $iResFieldSize <= 1 Then Return SetError(1, 0, 0)
;
; fix $sStringText length
$sBinStrText = __Binary(StringMid(__NullEntryPoint(__NullRepeat($sStringText, $iResFieldSize, 32)), 1, $iResFieldSize - 3))
;
; Replace resource
$bFileRead = StringReplace($bFileRead, $iPos + StringLen($bBinStrName), $sBinStrText)
; If error found, return 0 and set @error to 1
If @error Then Return SetError(1, 0, 0)
;
; Update resource field size
$bHex = Hex($iResFieldSize, 2)
$bFileRead = StringReplace($bFileRead, StringInStr($bFileRead, $bBinStrName, 0, -1) - 8, $bHex, 1)
; If error found, return 0 and set @error to 1
If @error Then Return SetError(1, 0, 0)
EndIf
#cs
;
; Get new resource size
$bSearch = StringMid($bFileRead, StringInStr($bFileRead, $bHeader, 0, 1) - 4)
$bSearch = StringMid($bSearch, 1, StringInStr($bSearch, $bEndHeader, 0, -1) + 60)
$iResourceSize = Int(BinaryLen($bSearch) / 2)
; Convert to Hex, invert and set new resource size
$bHex = Hex($iResourceSize, 4)
$iResourceSize = StringRight($bHex, 2) & StringLeft($bHex, 2)
$bFileRead = StringReplace($bFileRead, StringInStr($bFileRead, $bHeader, 0, -1) - 4, $iResourceSize, 1)
;
; If error found, return 0 and set @error to 1
If @error Then Return SetError(1, 0, 0)
#ce
;
; Open file in binary write mode, save modified data and close
$hFileOpen = FileOpen($hFileName, 18)
; If error found, return 0 and set @error to 1
If $hFileOpen = -1 Then Return SetError(1, 0, 0)
FileWrite($hFileOpen, $bFileRead)
FileClose($hFileOpen)
;
; Set @error to 0 and return 1
Return SetError(0, 0, 1)
EndFunc ;==>_FileSetVersion
Func _UnHexEntry($t)
;Return _StringReverse(_HexToString($t))
EndFunc ;==>_UnHexEntry
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: __NullEntryPoint
; Description ...: Adding the Chr("00") enter each char.
; Syntax.........: __NullEntryPoint( $sString )
; Parameters ....: $sString - String to pass.
; Return values .: Success - Returns Chr("00") enter each char
; Failure -
; Author ........: jscript "FROM BRAZIL"
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......;
; ===============================================================================================================================
Func __NullEntryPoint($sString)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $iLen = StringLen($sString), $bNullString = "";Chr("00")
;
For $i = 1 To $iLen
$bNullString &= StringMid($sString, $i, 1)
If $i = $iLen Then ExitLoop
$bNullString &= Chr("00")
Next
Return $bNullString
EndFunc ;==>__NullEntryPoint
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: __NullRepeat
; Description ...: Adding the Chr("00") at the end of the string
; Syntax.........: __NullRepeat( $sString, $iValue, $vChar = 0 )
; Parameters ....: $sString- String to pass.
; $iValue - Number of times to repeat
; $vChar - Char type, default is 00
; Return values .: Success - Returns Chr("00") enter each char
; Failure -
; Author ........: jscript "FROM BRAZIL"
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......;
; ===============================================================================================================================
Func __NullRepeat($sString, $iValue, $vChar = 0)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $sRepeat = ""
;
$iValue = $iValue - StringLen($sString)
If $iValue > 0 Then
For $i = 1 To $iValue
$sRepeat &= Chr($vChar)
Next
EndIf
Return $sString & $sRepeat
EndFunc ;==>__NullRepeat
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: __Binary
; Description ...: Returns the binary representation of an expression.
; Syntax.........: __Binary( $sExpression )
; Parameters ....: $sExpression - An expression to convert into binary/byte data.
; Return values .: Success - Returns a Binary variant without: 0x
; Failure -
; Author ........: jscript "FROM BRAZIL"
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......;
; ===============================================================================================================================
Func __Binary($sExpression)
Return StringTrimLeft(Binary($sExpression), 2)
EndFunc ;==>__Binary
Es sind immer alte und neue Version der "Notepad.exe" gleich !
... zur vorgegebenen Urzeit fonktioniert es dann ...
In der "Urzeit" gab es Dino's und keine AutoIt-Scripte 
