Beiträge von Kizum

Kizum

Wäre super wenn der Chat per Browser erreichbar ist.
Wahrscheinlich aber schon zu spät zum umsetzen

Kizum

Das ist dein ganzes Script ?

Wenn FF schon gestartet wurde, braucht man FFstart() nicht

[autoit]

#include <FF.au3>
_FFConnect()

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

If _FFIsConnected() Then

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

_FFOpenURL ("http://www.handedict.de/")

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

Else
MsgBox(128, Default, 'Connected = Nein')
EndIf

[/autoit]

Edit
Dein Script öffnet bei mir auch 4242.
Und so Google...

[autoit]

#include <FF.au3>
_FFStart("http://www.google.de")

[/autoit]

Kizum

[autoit]

Msgbox(0, 'Kizum wünscht allen', 'Frohe Weihnachten')

[/autoit]

Kizum

[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>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Global $farbebackup
Global $farbe
Global $ini = @ScriptDir & "\Pipette.ini"

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

$farbehtml = "#000000"
$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)

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

While 1
$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))

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

EndSwitch

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

If $on = True Then
$farbe = PixelGetColor (MouseGetPos (0),MouseGetPos (1))

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

if $farbebackup <> $farbe Then

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

$farbehex = Hex ($farbe)
$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))

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

EndIf
EndIf

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

$farbebackup = $farbe
Sleep(25)
WEnd

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

Func _Mark ()
$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)
EndFunc

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

Func _binaer ()
$Icon = "0x000001000100101010000100040028010000160000002800000010000000200000000100040000000000000000000000000000000000000000000000000080808000FFFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002222200000000222222220111111002222222011111101022200001111110000220110111111111022011011000111102201101111111110220110110000011022011011111111102201101100000110220110111111111022011011111111102201100000000000220111111111022222011111111102222200000000000222F8070000F8030000F8010000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0000000C0070000C0070000C0070000"
FileOpen("copy.ico", 18)
FileWrite(FileOpen("copy.ico", 18), Binary($Icon))
FileClose("copy.ico")
EndFunc

[/autoit]

Kizum

Zitat von UEZ

Schaue mal hier rein: http://www.autoitscript.com/forum/topic/12…in-tab-control/

Gruß,
UEZ

Lese doch mal nach, dort ist alles was du brauchst, sogar mit Bild.

Kizum

http://wwww.gidf.de

Ergebnis:
http://www.autoitscript.com/forum/topic/98712-winapiex-udf/

Dann bekommst du ein Error und nach nochmaliger SuFu ($WM_PRINTCLIENT)

Ergebnis2
http://www.autoitscript.com/forum/topic/134606-change-tab-color/page__p__938498__hl__$wm_printclient__fromsearch__1#entry938498

Ergebnis3

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Kizum

Ja, in dem du (ich) mit Stringreplace die Dateiendung .srt gegen _x.srt ersetzt.

Spoiler anzeigen

[autoit]

#include<array.au3>
#include <file.au3>

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

dim $aFLta

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

$aFLta = _FileListToArray(@ScriptDir & "\", "*.srt") ;Dateiliste in ein Array schreiben
_ArrayDisplay($aFLta) ;Array anzeigen lassen

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

For $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])
$str = StringReplace($str, "þ", "t")
$str = StringReplace($str, "ã", "a")
$str = StringReplace($str, "º", "s")
$str = StringReplace($str, "ª", "S")
$str = StringReplace($str, "º", "S")

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

$aFLta[$i]= StringReplace($aFLta[$i], ".srt", "_" & $i & ".srt") ;.srt wird durch _x.srt ersetzt
FileWrite(@ScriptDir & "\" & $aFLta[$i], $str) ;datei gespeichert

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

Kizum

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>
#include <file.au3>

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

dim $aFLta

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

$aFLta = _FileListToArray(@ScriptDir & "\", "*.srt") ;Dateiliste in ein Array schreiben
_ArrayDisplay($aFLta) ;Array anzeigen lassen

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

For $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])
$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 x

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

Kizum

falsch gelesen...

Under construction.

Kizum

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]

_IEFormSubmit ($oForm1)

[/autoit]

Kizum

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.

Kizum

@tuttifrutti & Awesome Herzlich willkommen

Alina schau dir mal das Datum an

Kizum

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.

Kizum

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

Kizum

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]

#include <GUIConstantsEx.au3>
#include <StructureConstants.au3>
#include <WindowsConstants.au3>

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

$gui = GUICreate("gui", 200, 200, 200, 200)
GUISetState(@SW_SHOW, $gui)

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

GUICtrlCreateInput("meine katze hat durchfall", 5, 40, 135, 40)
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)

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

GUICtrlCreateButton("sind", 50, 120, 40, 20)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP)
GUICtrlCreateButton("unerwünscht", 100, 120, 80, 20)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP)
;SOLL WEG ENDE

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

Func _GuiResize($Guiname, $Posx, $posy, $Breite, $Hoehe)
$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)
EndFunc

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

While 1
$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

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

Kizum

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.

Kizum

Du könntest mit

[autoit]

FileInstall

[/autoit]

eine Ini-Datei in die Exe einbinden.
Oder du holst/speicherst dir die Daten aus dem Internet.

Kizum

IniDelete("data.ini", GUICtrlRead($Combo1))

Einfach in der Combo den Namen auswählen, Button drücken, dann ist die Gesamte Sektion weg.

Kizum

Na weil du ein QuizScript hochgeladen hast

Vielleicht bin ich auch wieder verwirrt und erkenne den Zusammenang nicht

Code

FrageDing.au3 (53,64 kB - 1 mal heruntergeladen - zuletzt: Heute, 15:08)

Kizum

Hää gings hier nicht um dieses Lagerscript ?

Beiträge von Kizum

Wünsch dir was: Chatserver

_FFStart() öffnet 4242.com

Frohe Weihnachten

Pipette

Hintergrundbild hinter TabCreate

Hintergrundbild hinter TabCreate

StringReplace .SRT mehrere Dateien

StringReplace .SRT mehrere Dateien

GUI Start/Stop Button

Wie den Zugriff auf einen falschen" Submit-Knopf auf einer Webseite ansteuern?

Übersetzter für Online-games

Alex

SciTE output-konsole in $variable speichern?

Ein "Klappmenü" erstellen

Ein "Klappmenü" erstellen

Button in der GUI Titelleiste für Hardcopy (screenshot)

Variable intern ablegen

zuvor erstellten account kommplett aus ini löschen aber wie

Mittlere von 3 Spalten wird nicht angezeigt

Mittlere von 3 Spalten wird nicht angezeigt