Wäre super wenn der Chat per Browser erreichbar ist.
Wahrscheinlich aber schon zu spät zum umsetzen
Beiträge von Kizum
-
-
Das ist dein ganzes Script ?
Wenn FF schon gestartet wurde, braucht man FFstart() nicht
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <FF.au3>
_FFConnect()If _FFIsConnected() Then
[/autoit][autoit][/autoit][autoit]_FFOpenURL ("http://www.handedict.de/")
[/autoit][autoit][/autoit][autoit]Else
[/autoit]
MsgBox(128, Default, 'Connected = Nein')
EndIfEdit
[autoit]
Dein Script öffnet bei mir auch 4242.
Und so Google...#include <FF.au3>
[/autoit]
_FFStart("http://www.google.de") -
[autoit]
Msgbox(0, 'Kizum wünscht allen', 'Frohe Weihnachten')
[/autoit] -
[autoit]
IniWrite (@TempDir & "\Pipette.txt"
[/autoit]Habe mal die Dateiendung "ini" eingeführt.
Und eine Prüfung ob $farbe immer noch die selbe Farbe wie im vorherigen Schleifendurchgang ist, dann kann man sich den Rest der Schleife sparen.
Und noch ein kleiner Sleep(25), ..freut sich der Prozessor.Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>Global $farbebackup
[/autoit] [autoit][/autoit] [autoit]
Global $farbe
Global $ini = @ScriptDir & "\Pipette.ini"$farbehtml = "#000000"
[/autoit] [autoit][/autoit] [autoit]
$R = 0
$G = 0
$B = 0
$on = False
GUICreate("Pipette", 615, 219)
GUICtrlCreateGroup("", 8, 8, 161, 201)
$vorschau = GUICtrlCreateLabel("", 13, 20, 148, 148)
GUICtrlSetBkColor(-1, 0x0)
$start = GUICtrlCreateButton("Pipette aufnehmen", 16, 176, 147, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Farbmodelle", 176, 16, 233, 193)
GUICtrlCreateLabel("Hexadezimal (HEX):", 192, 40, 98, 17)
$hex_input = GUICtrlCreateInput("#000000", 208, 57, 161, 21)
$copy_hex = GUICtrlCreateButton("", 376, 56, 21, 21, $BS_ICON)
GUICtrlSetImage(-1, "copy.ico", -1)
GUICtrlCreateLabel("RGB-Farbraum (RGB):", 192, 88, 109, 17)
$RGB_R = GUICtrlCreateInput("0", 208, 104, 49, 21)
$RGB_G = GUICtrlCreateInput("0", 264, 104, 49, 21)
$RGB_B = GUICtrlCreateInput("0", 320, 104, 49, 21)
$copy_rbg = GUICtrlCreateButton("", 376, 104, 21, 21, $BS_ICON)
GUICtrlSetImage(-1, "copy.ico", -1)
GUICtrlCreateLabel("Prozentualer RGB-Farbraum (RBG %):", 192, 136, 182, 17)
$Proz_R = GUICtrlCreateInput("0", 208, 152, 49, 21)
$Proz_G = GUICtrlCreateInput("0", 264, 152, 49, 21)
$Proz_B = GUICtrlCreateInput("0", 320, 152, 49, 21)
$copy_proz = GUICtrlCreateButton("", 376, 152, 21, 21, $BS_ICON)
GUICtrlSetImage(-1, "copy.ico", -1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Verlauf", 416, 16, 153, 193)
$verlauf = GUICtrlCreateList("", 424, 32, 137, 162)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete ($ini)
Exit
Case $copy_hex
ClipPut ($farbehtml)
Case $copy_rbg
ClipPut (Round ($R/255*100,1) & ", " & Round ($B/255*100,1) & ", " & Round ($G/255*100,1))
Case $start
HotKeySet ("{Enter}","_Mark")
GUICtrlSetState ($start,$GUI_DISABLE)
GUICtrlSetData ($start,"Zum Ablegen Enter drücken")
$on = True
Case $verlauf
GUICtrlSetData ($hex_input,IniRead ($ini,GUICtrlRead ($verlauf),"HexHTML","Error"))
GUICtrlSetBkColor ($vorschau,IniRead ($ini,GUICtrlRead ($verlauf),"HexVorschau","Error"))
GUICtrlSetData ($RGB_R, IniRead ($ini,GUICtrlRead ($verlauf),"R","Error"))
GUICtrlSetData ($RGB_G, IniRead ($ini,GUICtrlRead ($verlauf),"G","Error"))
GUICtrlSetData ($RGB_B, IniRead ($ini,GUICtrlRead ($verlauf),"B","Error"))
GUICtrlSetData ($Proz_R,Round (IniRead ($ini,GUICtrlRead ($verlauf),"R","Error")/255*100,1))
GUICtrlSetData ($Proz_G,Round (IniRead ($ini,GUICtrlRead ($verlauf),"G","Error")/255*100,1))
GUICtrlSetData ($Proz_B,Round (IniRead ($ini,GUICtrlRead ($verlauf),"B","Error")/255*100,1))EndSwitch
[/autoit] [autoit][/autoit] [autoit]If $on = True Then
[/autoit] [autoit][/autoit] [autoit]
$farbe = PixelGetColor (MouseGetPos (0),MouseGetPos (1))if $farbebackup <> $farbe Then
[/autoit] [autoit][/autoit] [autoit]$farbehex = Hex ($farbe)
[/autoit] [autoit][/autoit] [autoit]
$farbehex = StringTrimLeft ($farbehex,2)
$farbehtml = "#" & $farbehex
$farbedarstellung = "0x" & $farbehex
GUICtrlSetBkColor($vorschau, $farbedarstellung)
$HR = StringMid($farbehex, 1, 2)
$HG = StringMid($farbehex, 3, 2)
$HB = StringMid($farbehex, 5, 2)
$R = Dec($HR)
$G = Dec($HG)
$B = Dec($HB)
GUICtrlSetData ($hex_input,$farbehtml)
GUICtrlSetData ($RGB_R, $R)
GUICtrlSetData ($RGB_G, $G)
GUICtrlSetData ($RGB_B, $B)
GUICtrlSetData ($Proz_R,Round ($R/255*100,1))
GUICtrlSetData ($Proz_G,Round ($G/255*100,1))
GUICtrlSetData ($Proz_B,Round ($B/255*100,1))EndIf
[/autoit] [autoit][/autoit] [autoit]
EndIf$farbebackup = $farbe
[/autoit] [autoit][/autoit] [autoit]
Sleep(25)
WEndFunc _Mark ()
[/autoit] [autoit][/autoit] [autoit]
$on = False
HotKeySet ("{Enter}")
GUICtrlSetState ($start,$GUI_ENABLE)
GUICtrlSetData ($start,"Pipette aufnehmen")
GUICtrlSetData ($verlauf, $R & " " & $G & " " & $B)
IniWrite ($ini,$R & " " & $G & " " & $B,"HexHTML",$farbehtml)
IniWrite ($ini,$R & " " & $G & " " & $B,"HexVorschau",$farbedarstellung)
IniWrite ($ini,$R & " " & $G & " " & $B,"R",$R)
IniWrite ($ini,$R & " " & $G & " " & $B,"G",$G)
IniWrite ($ini,$R & " " & $G & " " & $B,"B",$B)
EndFuncFunc _binaer ()
[/autoit]
$Icon = "0x000001000100101010000100040028010000160000002800000010000000200000000100040000000000000000000000000000000000000000000000000080808000FFFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002222200000000222222220111111002222222011111101022200001111110000220110111111111022011011000111102201101111111110220110110000011022011011111111102201101100000110220110111111111022011011111111102201100000000000220111111111022222011111111102222200000000000222F8070000F8030000F8010000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0070000C0070000C0070000"
FileOpen("copy.ico", 18)
FileWrite(FileOpen("copy.ico", 18), Binary($Icon))
FileClose("copy.ico")
EndFunc -
Schaue mal hier rein: http://www.autoitscript.com/forum/topic/12…in-tab-control/
Gruß,
UEZLese doch mal nach, dort ist alles was du brauchst, sogar mit Bild.
-
Ergebnis:
http://www.autoitscript.com/forum/topic/98712-winapiex-udf/Dann bekommst du ein Error und nach nochmaliger SuFu ($WM_PRINTCLIENT)
Ergebnis3
-
Ja, in dem du (ich) mit Stringreplace die Dateiendung .srt gegen _x.srt ersetzt.
Spoiler anzeigen
[autoit]#include<array.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <file.au3>dim $aFLta
[/autoit] [autoit][/autoit] [autoit]$aFLta = _FileListToArray(@ScriptDir & "\", "*.srt") ;Dateiliste in ein Array schreiben
[/autoit] [autoit][/autoit] [autoit]
_ArrayDisplay($aFLta) ;Array anzeigen lassenFor $i = 1 to UBound($aFLta) -1 ;Schleife durch das Array | -1 weil ein Array bei 0 anfängt zu zählen 0 1 2 3 = 4
[/autoit] [autoit][/autoit] [autoit]$str = FileRead($aFLta[$i])
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$str = StringReplace($str, "þ", "t")
$str = StringReplace($str, "ã", "a")
$str = StringReplace($str, "º", "s")
$str = StringReplace($str, "ª", "S")
$str = StringReplace($str, "º", "S")$aFLta[$i]= StringReplace($aFLta[$i], ".srt", "_" & $i & ".srt") ;.srt wird durch _x.srt ersetzt
[/autoit] [autoit][/autoit] [autoit]
FileWrite(@ScriptDir & "\" & $aFLta[$i], $str) ;datei gespeichertNext
[/autoit] [autoit][/autoit] [autoit][/autoit] -
Mit dem Befehl _FileListToArray kannst du mehrere Datein 'einlesen' und in einer Schleife abarbeiten.
Sieht dann folgendermaßen aus.Spoiler anzeigen
[autoit]#include<array.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <file.au3>dim $aFLta
[/autoit] [autoit][/autoit] [autoit]$aFLta = _FileListToArray(@ScriptDir & "\", "*.srt") ;Dateiliste in ein Array schreiben
[/autoit] [autoit][/autoit] [autoit]
_ArrayDisplay($aFLta) ;Array anzeigen lassenFor $i = 1 to UBound($aFLta) -1 ;Schleife durch das Array | -1 weil ein Array bei 0 anfängt zu zählen 0 1 2 3 = 4
[/autoit] [autoit][/autoit] [autoit]$str = FileRead($aFLta[$i])
[/autoit] [autoit][/autoit] [autoit]
$str = StringReplace($str, "þ", "t")
$str = StringReplace($str, "ã", "a")
$str = StringReplace($str, "º", "s")
$str = StringReplace($str, "ª", "S")
$str = StringReplace($str, "º", "S")
FileWrite(@ScriptDir & "\" & $i & "_new.srt", $str) ;datei wird durchnummeriert gespeichert 1 bis xNext
[/autoit] [autoit][/autoit] [autoit][/autoit] -
falsch gelesen...
Under construction.
-
Zitat
8.4 Der Login der Nutzer in ein von FARBFLUT betriebenes Spiel oder eine Anwendung ist nur über die zugehörige Webseite und die bereitgestellte Eingabemaske erlaubt. Ein automatisierter Login ist nicht erlaubt, unabhängig davon, ob die bereitgestellte Eingabemaske genutzt wird oder nicht.
IE = Browser
Laut dieser Nutzungsbedingungen wären aber so ziemlich alle Browser die Passwort & Benutzername speichern illegal.
Und was anderes macht dieses Script auch nicht.Vielleicht geht´s so ?
[autoit]
[/autoit]
_IEFormSubmit ($oForm1) -
Unter Firefox EXTRAS / TABS / STATT NEUEN FENSTER NEUEN TAB ÖFFNEN aktivieren falls nicht bereits aktiviert.
Und mit
[autoit]ShellExecute("firefox.exe", "www.google.de")
[/autoit][autoit][/autoit][autoit]Oder
[/autoit][autoit][/autoit][autoit]Run("firefox.exe http://www.google.de")
[/autoit]aufrufen.
Mit der FF.au3 läufts bei mir trotz der Settings anders, es wird immer im aktiven Tab eine Url bearbeitet.
-
@tuttifrutti & Awesome Herzlich willkommen
Alina schau dir mal das Datum an
-
Nachdem was in der Hilfe steht müsstest du das Script Kompilieren und mit
[autoit]ConsoleRead
[/autoit]in einer Schleife an die Erzeugnisse kommen.
Bei mir stürzt leider die Autoit.exe ab wenn ich dein Script teste...
Hat wohl irgendwas mit Curl.exe zu tun. -
Okay gut zu wissen danke bert.
Aber
[autoit]_GuiResize("gui", $aPos[0], $aPos[1], $aPos[2], 137)
[/autoit]
sollte Default bleiben da die Position vor der Whileschleife gelesen wird.
So wird das Fenster immer an die selbe Position gesetzt.den Rest werde ich schon mal übernehmen.
Achso und danke nochmal für die Hilfe in meinem alten Thread (Kontextmenü) werde darauf bei Gelegenheit nochmal zurück kommen, arbeite momentan an einem anderen Projekt.MFG
-
Versuche gerade für ein Chatscript das Usermenü ein & ausblenden zu lassen.
So dass nur noch das Inputfeld und der Senden-Button sichtbar ist.Soweit funzt alles.
Blos was ist mit den Controls während sie nicht sichtbar sind.
Müssen die nicht deaktiviert werden oder so ?Die Funktion ist von Raupi.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StructureConstants.au3>
#include <WindowsConstants.au3>$gui = GUICreate("gui", 200, 200, 200, 200)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $gui)GUICtrlCreateInput("meine katze hat durchfall", 5, 40, 135, 40)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKTOP)
$kl=GUICtrlCreateButton("x", 140, 40, 55, 40)
GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKTOP)
;SOLL WEG
GUICtrlCreateButton("wir", 5, 120, 40, 20)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP)GUICtrlCreateButton("sind", 50, 120, 40, 20)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUICtrlCreateButton("unerwünscht", 100, 120, 80, 20)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP)
;SOLL WEG ENDEFunc _GuiResize($Guiname, $Posx, $posy, $Breite, $Hoehe)
[/autoit] [autoit][/autoit] [autoit]
$Breite = $Breite + 6
$Hoehe = $Hoehe + 32
If $Posx = -1 Then
$PosxTemp = @DesktopWidth / 2 - $Breite / 2 + 1
Else
$PosxTemp = $Posx
EndIf
If $posy = -1 Then
$PosYTemp = @DesktopHeight / 2 - $Hoehe / 2 - 14
Else
$PosYTemp = $Posx
EndIf
WinMove($Guiname, "", $PosxTemp, $PosYTemp, $Breite, $Hoehe)
EndFuncWhile 1
[/autoit] [autoit][/autoit] [autoit][/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $kl
if GUICtrlRead($kl) == "x" Then
_GuiResize("gui", Default, Default, 200, 100)
GUICtrlSetData($kl, "o")
Else
GUICtrlSetData($kl, "x")
_GuiResize("gui", Default, Default, 200, 200)
EndIf
EndSwitch
WEnd -
Läuft doch flüssig.
Ein wenig mehr feedback vom Script wäre nicht schlecht.
z.B Traytip oder ToolTip "Button Erstellt" od "Screenhsot im Ordner so und so abgelegt"
Und der Button ist etwas zu klein (unauffällig) geraten bei meinem Versuch.
-
Du könntest mit
[autoit]FileInstall
[/autoit]eine Ini-Datei in die Exe einbinden.
Oder du holst/speicherst dir die Daten aus dem Internet. -
IniDelete("data.ini", GUICtrlRead($Combo1))
Einfach in der Combo den Namen auswählen, Button drücken, dann ist die Gesamte Sektion weg.
-
-
Hää gings hier nicht um dieses Lagerscript ?