Da musst du dich leider noch bis morgen gedulden. Bin aufm Sprung und komme erst spät in der Nacht wieder. Aber morgen kann ich es Posten.
Nochmal kurz nachgeharkt - kannst Du bitte das Ergebnis als ausführbaren Code posten?
(Oder hast Du den Code irgendwo weiter oben schon eingefügt?)
teamnoobPDB kpmmt warscheins von einem anderen Planeten auf dem die Tage länger sind. Hoffentlich ist er nicht auf dem neu entdecktem Planet 9 zu Hause, denn dann brauchst du noch sehr viel Geduld
Einfach
GUICtrlSetData($Combo1, $DropDownListe,$DropDownListe)Für dein Projekt würde ich dir zu einem fertigen Produkt ala WordPress raten.
Falls du aber deine Lösung über AutoIt weiter verfolgen willst würde ich dein Problem mit StringReplace so lösen:
#include <FileConstants.au3 >
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#include <Misc.au3>
#include <ProgressConstants.au3>
#include <WinAPISys.au3>
#include <GDIPlus.au3>
#include <File.au3>
#include <Array.au3>
#include <String.au3>
#include <GuiStatusBar.au3>
#include <GuiToolbar.au3>
#include <ToolbarConstants.au3>
#include <GuiEdit.au3>
#include <IE.au3>
#include <INet.au3>
#include <GuiRichEdit.au3>
#include <Color.au3>
#include <GUIListBox.au3>
Local $sText = FileRead("Ursprung.html")
$aStyles = _StringBetween($sText, '<style type="text/css">', '</style>')
$aStyles = StringSplit($aStyles[0], '.', 2)
If IsArray($aStyles) Then
For $x = UBound($aStyles) - 1 To 0 Step -1
If StringStripWS($aStyles[$x], 8) <> '' Then
$aStyles[$x] = '.' & $aStyles[$x]
Else
_ArrayDelete($aStyles, $x)
EndIf
Next
_ArrayDisplay($aStyles)
For $x = 0 To UBound($aStyles) - 1
If StringInStr($aStyles[$x], 'font') Then
$sText = StringReplace($sText, $aStyles[$x], _ChangeFont($aStyles[$x]))
EndIf
Next
Else
Exit
EndIf
$hNeu = FileOpen('Neu.html', BitOR($FO_OVERWRITE, $FO_CREATEPATH))
FileWrite($hNeu, $sText)
FileClose($hNeu)
Func _ChangeFont($sStyleOld)
Local $sStyleNew = $sStyleOld
Local $aStyle = _StringBetween($sStyleOld, '.', '{')
;MsgBox features: Title=No, Text=Yes, Buttons=Yes and No, Default Button=Second, Icon=None
Local $iMsgBoxAnswer = MsgBox($MB_YESNO + $MB_DEFBUTTON2, $aStyle[0], "Soll der Font für "&$aStyle[0]& " geändert werden?")
If $iMsgBoxAnswer = $IDNO Then Return $sStyleOld
Local $a_font = _ChooseFont("Arial", 12)
If (@error) Then
MsgBox(0, "", "_ChooseFont-Fehler: " & @error)
Return
Else
$neulesen_font = $a_font[2]
$neulesen_groesse = $a_font[3]
$neulesen_farbe = $a_font[7]
$farbwert = StringTrimLeft($a_font[7], 2)
;###################### Font Überschrift ############
Local $aOldFont = _StringBetween($sStyleNew, 'font-family:', ';')
If @error Then
$aOldFont = _StringBetween($sStyleNew, 'font-family:"', '";')
EndIf
If @error Then
MsgBox(64, "Fehler", "Diese Font geht nicht")
Return
EndIf
$sStyleNew = StringReplace($sStyleNew, $aOldFont[0], $neulesen_font, 1)
;###################### Größe Überschrift ############
$aoldSize = _StringBetween($sStyleNew, 'font-size:', 'px;')
$sStyleNew = StringReplace($sStyleNew, $aoldSize[0], $neulesen_groesse, 1)
;###################### Farbe Überschrift ############
$aOldColor = _StringBetween($sStyleNew, 'color:#', ';')
$sStyleNew = StringReplace($sStyleNew, $aOldColor[0], $farbwert, 1)
EndIf
Return $sStyleNew
EndFunc ;==>_ChangeFontdie überflüssigen includes habe ich drun gelassen, da du ja anscheinen eine GUI aussen rum basteln willst, obiges ist nur ein 1. Ansatz.
Ist es möglich folgene Aufgabe mit Autoit zu lösen? Drücken der Rechten Maustaste führt ganz normal einen Rechtsklick aus. Wird die Rechte Maustaste aber 200 Millisekunden gedrückt + gehalten wird ein Mittelklick ausgeführt und gehalten ,bis man eben die Taste loslässt.
Das ganze soll für Starcraft sein damit es sich leichter Scrollen lässt.
Würde mich über ein Ratschlag sehr freuen.
Starcraft ist ein Game, lies also die Forenregeln und du wirst verstehen warum das Thema ncht supported wird.
StringBetween() ist in der Includedazei: String.au3 enthalten, also diese mit:
#include <String.au3>am Anfang des Skriptes einbinden.
zu allererst einmal _StringBetween ändert gar nichts es gibt nur ein Array mit allen Treffern zurück. Das Problem liegt imho auf der HTML Schiene, da bin ich Laie. Aber ändere doch einfach einmal deine Datei mit einem HTML fähigen Tool, speicher unter einem anderen Namen und vergleiche die Unterschiede, dann erkennst du was du im Skript ändern musst.
Das ist das komplette script so wie ich es aufgezeichnet hat. Die IP Adresse ist die 10.96....
Sorry die IP habe ich glatt überlesen, bin aber verwundert dass der Makrorekorder _WinWaitActivate (welche es nicht gibt) verwendet. Welche AutoIT-Version benutzt du?
Wo finde ich die deusche IE.au3 Datei und wie verwende ich diese dann?
Es gibt keine dt. IE.au3, das Include wird mit AutoIt mitgeliefert und befindet sich im /Include Ordner. Es gibt aber eine dt.Hilfe dort solltest du dir die Funktionen dazu anschauen.
Das Skript scheint eigene Includes zu verwenden und/oder das TUT aus dem das Skript ist ist veraltet, denn _WinWaitActivate ist kein gültiger Funktionsname.
Außerdem ist dies immer noch nicht das komplette Skript, kann nämlich keinen einzigen Hinweis auf Eingabe einer IP finden.
Und aufgezeichnet ist es auch nicht oder hast du einen Virus der dir gültige Funktionsnamen gegen ungültige austauscht?
Nimm also die IE.au3 und die originale oder die dtt. AutoIt-Hilfe und verlasse dich nicht auf TUT's deren Skripte nicht laufen.
Die oben gezeigte Fehlermeldung kann nicht von diesem Skript erzeugt werden. Au3Check wirft zwar Fehlermeldungen aus aber nicht die im Bild gezeigte:
>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /prod /AU3Check /in "C:\Users\Bert\AutoIt3.My\Test\jhgfddfgh.au3"
+>11:32:57 Starting AutoIt3Wrapper v.14.801.2025.0 SciTE v.3.4.4.0 Keyboard:00000407 OS:WIN_81/ CPU:X64 OS:X64 Environment(Language:0407)
+> SciTEDir => C:\Program Files\AutoIt3\SciTE UserDir => C:\Users\Bert\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\Bert\AppData\Local\AutoIt v3\SciTE
>Running AU3Check (3.3.14.1) from:C:\Program Files\AutoIt3 input:C:\Users\Bert\AutoIt3.My\Test\jhgfddfgh.au3
"C:\Users\Bert\AutoIt3.My\Test\jhgfddfgh.au3"(7,16) : error: WinWaitActivate(): undefined function.
WinWaitActivate
~~~~~~~~~~~~~~~^
"C:\Users\Bert\AutoIt3.My\Test\jhgfddfgh.au3"(9,58) : error: WinWaitActivateSend(): undefined function.
WinWaitActivateSend("{SHIFTDOWN}P{SHIFTUP}assword{ENTER}")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Bert\AutoIt3.My\Test\jhgfddfgh.au3 - 2 error(s), 0 warning(s)
!>11:32:57 AU3Check ended. Press F4 to jump to next error.rc:2
+>11:32:57 AutoIt3Wrapper Finished.
>Exit code: 0 Time: 1.079Du hast sicherlich beim Einstellen die Skripte verwechselt. Stelle also das zur Fehlermeldung gehörige Skript ein falls du noch Hilfe benötigst. Oder hast du schon herausgefunden was es mit der fehlenden rechten Klammer auf sich hat?
Im übrigen ist es sinnvoller den IE mit Hilfe der IE.au3 fernzusteuern als mit
Ich denke HotKeySet ist der falsche Ansatz, da ja alle Tasten gleichzeitig gedrückt werden müsten der Barcodescanner sie aber warscheins nacheinander ausgibt. Besser wäre imho eine kleine Gui welche die Teilenr empfängt und nach Enter (Default-Button) eine Routine anspringt die das umkopieren nach Stringmanipulation der Eingabe übernimmt. Da ja klare Regeln für die Abhängigkeit der Dateipfade bestehen ist dies die einfachste Variante.
Edit: Da du bei jedem Aufruf einer HotKeySet-Funktion auch alle *.rcp Dateien im Zielordner löschst kann logischerweise nur das zuletzt kopierte im Zielordner sein.
Edit2: Hier ein kleines Skript das die nötigen Stringmanipulationen zeigt. Wenn du deinem Scanner beibringen kannst, das er nach der Teile-Nr. noch Chr(13)=Entertaste sendet ist es sogar für deine Bedürnisse lauffähig:ManipulateString.au3
Diese beiden Themen:
könnten eine gute Vorlage sein.
mfg autoBert
Ändere Zeile 48 zu
$idMenge=GUICtrlCreateInput($AnzahlAusExcel, 200, 75, 100, 20,BitOR($ES_CENTER, $ES_NUMBER, $ES_READONLY))
In dieser Variable wird die ControlID des Inputfeldes gesoeichert. Um den Inhalt des Inputfeldes zu ändern musst du mit GuiCtrlSetData ihm den neuen Wert zuweisen. Füge also
GUICtrlSetData($idMenge,$AnzahlAusExcel)deinen berechnenden Funktionen an.
Nachdem du evtl. die alten Werte angepasst hast einfach noch
_ArrayDisplay($tmpArray, 'Vor einfügen')
_ArrayAdd($tmpArray, $newNrFrom & '|' & $newNrTo)
_ArraySort($tmpArray)
_FileWriteFromArray($outpout, $tmpArray)
_ReplaceStringInFile($outpout, "|", "-")
_ArrayDisplay($tmpArray, 'Nach einfügen')ausführen.
Danach soll diese Seriennummer mit der in Spalte 7 abgeglichen werde, sollte Spalte 44 abweichen von der Spalte 7, dann soll die Spalte 44 Ihren Wert mit den in Spalte 7 ersetzen.
Danach ist der Inhalt von Spalte 44 identisch mit Spalte 7, das kannst du auch durch einfügen von:
$Array2D[$i - 1][44] = $Array2D[$i - 1][7]direkt vor dem letzten Next erreichen.
Schau dir HotKeySet an damit kannst du es lösen.
Schau dir @AutoItExe (z.B. mit MshBox) an, danach solltest du wissen wie du dein Problem lösen kannst.
Ist vielleicht nicht genau was du suchst kommt ihm aber sehr nahe:
;found https://www.autoitscript.com/forum/topic/87619-trans-gui/
^#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: HAL9000
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <Constants.au3>
#include <StaticConstants.au3>
#NoTrayIcon
Opt("TrayMenuMode", 1)
HotKeySet("{F6}", "hide")
$1 = GUICreate("TRANS GUI", 700, 550, -1, -1, $WS_POPUP, $WS_EX_CLIENTEDGE)
$pic = GUICtrlCreatePic("bin\bg" & Random(1, 8, 1) & ".jpg", 0, 0, 700, 550) ;change bgX.jpg with your jpeg
GUICtrlSetState(-1, $GUI_DISABLE)
WinSetOnTop("TRANS", "", 1)
GUISetState(@SW_SHOW, $1)
$2 = GUICreate("GUI", 700, 550, -1, -1, $WS_POPUP, $WS_EX_MDICHILD, $1)
WinSetTrans("GUI", "", 0)
WinSetOnTop("GUI", "", 1)
GUISetState(@SW_SHOW, $2)
$progressbar1 = GUICtrlCreateProgress(0, 540, 700, 10, $PBS_SMOOTH)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", 0, "wstr", 0)
$close = GUICtrlCreateIcon("bin\close.ico", -1, 700 - 16, 0, 16, 16)
$w = GUICtrlCreateLabel("0", 300, 250, 150, 60)
GUICtrlSetFont(-1, 20, 800)
$idInput=GUICtrlCreateInput('My Input',20,300,600) ;eingefügt autoBert
GUICtrlSetFont(-1,13,1500)
;------------------------MENU FILE
$filemenu = GUICtrlCreateLabel("File", 3, 0, 25, 15)
GUICtrlSetFont(-1, 10, 800)
$filesDummy = GUICtrlCreateDummy()
$fileContext = GUICtrlCreateContextMenu($filesDummy)
$fileopen = GUICtrlCreateMenuItem("Background", $fileContext)
GUICtrlCreateMenuItem("", $fileContext)
$OptionsExit = GUICtrlCreateMenuItem("Exit", $fileContext)
;--------------------Menu EDIT
$editmenu = GUICtrlCreateLabel("Edit", 33, 0, 30, 15)
GUICtrlSetFont(-1, 10, 800)
$editDummy = GUICtrlCreateDummy()
$editContext = GUICtrlCreateContextMenu($editDummy)
$editcopy = GUICtrlCreateMenuItem("Copy", $editDummy)
$editpaste = GUICtrlCreateMenuItem("Past", $editDummy)
;---------------------MENU HELP
$helpmenu = GUICtrlCreateLabel("Help", 63, 0, 35, 15)
GUICtrlSetFont(-1, 10, 800)
$HelpDummy = GUICtrlCreateDummy()
$HelpContext = GUICtrlCreateContextMenu($HelpDummy)
$HelpWWW = GUICtrlCreateMenuItem("Website", $HelpContext)
GUICtrlCreateMenuItem("", $HelpContext)
$HelpAbout = GUICtrlCreateMenuItem("Help", $HelpContext)
$helpregister = GUICtrlCreateMenuItem("License", $HelpContext)
;-------------------LINE
$line = GUICtrlCreateGraphic(0, 16, 700, 2)
GUICtrlSetGraphic($line, $GUI_GR_LINE, 0, 0)
GUICtrlSetColor(-1, 0)
;-----------------ICONS
GUICtrlCreateIcon("shell32.dll", -100, 0, 25, 32, 32, $SS_SUNKEN)
GUICtrlCreateIcon("shell32.dll", -4, 32, 25, 32, 32, $SS_SUNKEN)
GUICtrlCreateIcon("shell32.dll", -7, 64, 25, 32, 32, $SS_SUNKEN)
For $a = 0 To 100 Step 2
Sleep(1)
WinSetTrans("GUI", "", $a * 1.5)
GUICtrlSetData($progressbar1, $a)
GUICtrlSetData($w, $a & " %")
Next
GUICtrlDelete($w)
While 1
Sleep(1)
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Or $msg = $OptionsExit Then ExitLoop
If $msg = $close Then ExitLoop
If $msg = $filemenu Then ShowMenu($2, $msg, $fileContext)
If $msg = $helpregister Then InputBox("License", "Type your license key", "", " ", Default, Default, Default, Default, Default, $2)
If $msg = $helpmenu Then ShowMenu($2, $msg, $HelpContext)
If $msg = $editmenu Then ShowMenu($2, $msg, $editContext)
If $msg = $fileopen Then
$var = FileOpenDialog("Select a file", @ScriptDir & "\bin", "Images (*.jpg)", 1, "", $2)
GUICtrlSetImage($pic, $var)
EndIf
;FileSelectFolder("Select","",6,"",$2)
If $msg = $HelpAbout Then MsgBox(64, "Help", "F6 Hide/Show Gui" & @CRLF & "File/Background to change background", Default, $2)
WEnd
; -------------- func
Func hide()
GUISetState(@SW_HIDE, $1)
GUISetState(@SW_HIDE, $2)
HotKeySet("{F6}", "show")
EndFunc ;==>hide
Func show()
GUISetState(@SW_SHOW, $1)
GUISetState(@SW_SHOW, $2)
HotKeySet("{F6}", "hide")
EndFunc ;==>show
; Show a menu in a given GUI window which belongs to a given GUI ctrl
Func ShowMenu($hWnd, $CtrlID, $nContextID)
Local $arPos, $x, $y
Local $hMenu = GUICtrlGetHandle($nContextID)
$arPos = ControlGetPos($hWnd, "", $CtrlID)
$x = $arPos[0]
$y = $arPos[1] + $arPos[3]
ClientToScreen($hWnd, $x, $y)
TrackPopupMenu($hWnd, $hMenu, $x, $y)
EndFunc ;==>ShowMenu
; Convert the client (GUI) coordinates to screen (desktop) coordinates
Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
Local $stPoint = DllStructCreate("int;int")
DllStructSetData($stPoint, 1, $x)
DllStructSetData($stPoint, 2, $y)
DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))
$x = DllStructGetData($stPoint, 1)
$y = DllStructGetData($stPoint, 2)
; release Struct not really needed as it is a local
$stPoint = 0
EndFunc ;==>ClientToScreen
; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd)
Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc ;==>TrackPopupMenu
; ----------------------------------------die Technik funktioniert über eine (Teil)-transparente Childgui die mit Hilfe von WinSetTrans eingestellt wird.
Edit: du solltest dir das Original RAR herunterladen zwecks den HG-Bildern, kannst aber auch ein eigenes verwenden.
Das ganze so aus:1_VollBild.jpg
Welche Windowsversion benutzt du?
Einfach nur Top
Danke dir. Bekomme nun true oder false je nach status ausgegeben.
Wenn mann 1x die Lösung hat merkt man es sich für die Zukunft
Falls ich aber dennoch nochmals auf schwierigkeiten stoßen sollte, komme ich nochmal auf dich zurück.
Falls ich aber dennoch nochmals auf schwierigkeiten stoßen sollte, komme ich nochmal auf dich zurück.
Kein Problem. du solltest aber die XMLDomWrapper.au3 einmal hochladen. Die die ich gefunden habe ist aus 2008 und nicht vollständig
Ich werde dann versuchen die dir vorliegende Version dahin zu erweitern dass sie auch direkt mit URL's benutzt werden kann.
so sollte es jetzt klappen:
#include <Array.au3>
#include <String.au3>
main()
Func main()
$sXML = StringReplace(BinaryToString(InetRead("http://10.20.200.3/config/xmlapi/state.cgi?datapoint_id=1471")),'"',"'")
MsgBox(0,'XML Inhalt',$sXML)
;$sXML="?xml version='1.0' encoding='ISO-8859-1' ?><state><datapoint ise_id='1471' value='false'/></state>"
;zu Testzwecken da ich ja kein Zugriff auf die URL habe
$davor="<datapoint ise_id='1471' value='"
$danach="/></state>"
$wert = _StringBetween($sXML, $davor, $danach)
If @error Then
MsgBox(1, "", @error)
Else
_ArrayDisplay($wert)
EndIf
EndFunc ;==>main