Beiträge von autoBert

**autoBert**

Zitat von Baaam

wie meinst du das mit den ftp funktionen
jetzt versteh ich gar nichts mehr o,O

Zitat

Und zwar möchte ich online was in eine Datei speichern lassen.

das soll doch wohl heissen, dass du die Daten wieder online haben möchtest, oder habe ich da etwas falsch verstanden?

mfg (Auto)Bert

**autoBert**

Zitat von WhiteLion

hmmm, inhaltlich nicht sehr hilfreich.
nur handelt es sich um einen gameserver, da liegt es in der natur der sache. und die software bezieht sich, auf das steuern der konsole aus dem spiel heraus per hotkeys...

Klingt nach Spiele-BOT, dies widerspricht den Forenregeln.

MoD bitte closen

danke (Auto)Bert

**autoBert**

Zitat von Baaam

Hi
Ich habe ein Problem.
Und zwar möchte ich online was in eine Datei speichern lassen. Wenn ich etwas auslese funktioniert alles also die Verbindung ist da. Doch wenn ich etwas hineinschreiben möchte funktioniert nichts die Datei bleibt leer.

mach es so und es wird etwas lokal an die Datei angehängt:

[autoit]

HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.6) Gecko/20100625 Firefox/3.6.6")
InetGet("http://www.autoit.de/index.php?page=Thread&threadID=21538", @TempDir & "\test.txt", 1, 0)
$file = FileOpen(@TempDir & "\test.txt", 0)
$Test =FileReadLine($file,-1)
FileClose($file)
ConsoleWrite("Letzte Zeile (InetGet) " & $Test & @CRLF)
$file = FileOpen(@TempDir & "\test.txt", 1) ;im Schreibmodus mit anhängen öffnen
FileWrite($file, "Das ist angehängter Text")
FileClose($file)
$file = FileOpen(@TempDir & "\test.txt", 0)
$Test =FileReadLine($file,-1)
FileClose($file)
ConsoleWrite($Test @CRLF)

[/autoit]

diese must du dann mit FTP funktionen wieder online stellen

mfg (Auto)Bert

**autoBert**

Zitat von Kuroihana

Das mit dem @Computername geht nicht wenn andre die compiled .exe ausführen krieg ich ne mail geschcikt in der mein eignenr Computername steht.
Würde gerne Wissen wie ich die MAC Adresse oder den PC des andren und di IP des andren mir zuschicken lassen kann.

das mit @Computername kann ich mir eigentlich nicht vorstellen, kannst du dein Skript(-Ausschnitt) posten wie du die Email-Funktion aufrufst? Da sich IP-Adressen aber bei DHCP ja auch täglich ändern, ist die MAC-Adresse der bessere Weg. Du kannst doch hiermit die Ausgabe von IPConfig auswerten:

[autoit]

#include <array.au3>
#include <file.au3>
#include <Process.au3>
_RunDOS("ipconfig /all > " & @ScriptDir & "\ipconfig.txt")
Dim $aResult[1]
_FileReadToArray(@ScriptDir & "\ipconfig.txt",$aResult)
_ArrayDisplay($aResult)

[/autoit]

mfg (Ato)Bert

**autoBert**

Hallo Inferior,

auch Namenslisten sind Inhalt dieser Seite, also ist auch das Einstellen der TXT-Datei hier auf AutoIt bereits ein Verstoss, oder hast du die Erlaubnis dazu.

mfg (Auto)Bert

**autoBert**

bevor hier Support geleistet wird, bereits aus dem Impressum heraus ist zu entnehmen dass es nicht gestattet ist. Du solltest also den DownLoadLink entfernen

Zitat

Urheberrecht
Alle Rechte vorbehalten. Sämtliche Texte, Bilder und andere in der Website und im Magazin veröffentlichten Informationen unterliegen größtenteils dem Copyright von GuniWeb Internetdienste. Jede Vervielfältigung, Verbreitung, Speicherung, Sendung und Wieder- bzw. Weitergabe der Inhalte ist ohne Genehmigung von GuniWeb Internetdienste ausdrücklich untersagt. Änderungen und Irrtümer bleiben vorbehalten.

MoD bitte prüfen und evtl. schliessen,

danke (Auto)Bert

**autoBert**

Hallo dtex,

schau dir dazu das Beispiel FormatSubItemLVex.au3 in ListView - SubItem einzeln färben/formatieren, Finale Version! an. Die Func WM_NOTIFY aus deinem musst du entsprechend anpassen, bzw. die von BugFix mit dem gewünschten Funktionen für Doppelklick ergänzen

mfg (Auto)Bert

**autoBert**

Ja dazu musst du GuiRegisterMsg verwenden, hier das geänderte Skript:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>

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

Global $sLVdat = @ScriptDir & "\LV_Daten.Dat"

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

$hGui = GuiCreate("DKP Manager",300,500,100,100)
$check = 0

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

$input_name=GUICtrlCreateInput("", 15, 15, 110, 20)
$input_dkp=GUICtrlCreateInput("", 140, 15, 60, 20)
$button_create=GUICtrlCreateButton("Add char", 210, 15, 75, 20)

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

$liste=GUICtrlCreateListView("Name|DKP", 15, 50, 270, 400,-1, $LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($liste,$LVM_SETCOLUMNWIDTH, 0, 160)
GUICtrlSendMsg($liste,$LVM_SETCOLUMNWIDTH, 1, 110)

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

$button_delete=GUICtrlCreateButton("Delete character", 15, 465, 270, 20)

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

_LoadLV()
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") ;<=========================================== Bemachrichtigung Doppelklick

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

GuiSetState()

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

Global $B_DESCENDING[_GUICtrlListView_GetColumnCount($liste)]

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

While 1
$msg=GuiGetMsg()
If $msg=-3 Then
_saveLV()
Exit
EndIf
If $msg = $button_create then
$check = 0
For $i = 0 To _GUICtrlListView_GetItemCount($liste) - 1
If _GUICtrlListView_GetItemText($liste, $i) = GUICtrlRead($input_name) Then
_GUICtrlListView_SetItemText($liste, $i, GUICtrlRead($input_dkp), 1)
$B_DESCENDING = True
_GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
$check = 1
ExitLoop
EndIf
next
If $check = 0 then
GUICtrlCreateListViewItem(GUICtrlRead($input_name) & "|" & GUICtrlRead($input_dkp), $liste)
$B_DESCENDING = True
_GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
EndIf
GUICtrlSetData($input_name, "")
GUICtrlSetData($input_dkp, "")
ControlFocus($hGui,"",$input_name)
endif
If $msg = $button_delete Then
If GUICtrlRead($liste) <> 0 Then
_GUICtrlListView_DeleteItemsSelected($liste)
endif
endif
Wend

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

Func _saveLV()
Local $sFile, $aItem, $hFileOut
$hFileOut = FileOpen($sLVdat, 2)
For $j = 0 To _GUICtrlListView_GetItemCount($Liste) - 1
$aItem = _GUICtrlListView_GetItemTextString($Liste, $j)
FileWriteLine($hFileOut, $aItem)
Next
FileClose($hFileOut)
EndFunc ;==>_saveLVs

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

Func _LoadLV()
Local $aItems
If FileExists($sLVdat) Then
$aItems = ""
_FileReadToArray($sLVdat, $aItems)
If IsArray($aItems) Then
For $j = 1 To $aItems[0]
GUICtrlCreateListViewItem($aItems[$j], $Liste)
Next
EndIf
EndIf
EndFunc ;==>_LoadLVs

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

Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam)
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return 0
$code = DllStructGetData($tagNMHDR, 3)
If $wParam = $liste Then
ConsoleWrite($code & @CRLF)
Switch $code
;case $NM_CLICK ;Klick
Case $NM_DBLCLK ;Doppelklick
If _GUICtrlListView_GetSelectedCount($liste) > 0 Then
For $i = 0 To _GUICtrlListView_GetItemCount($liste)
If _GUICtrlListView_GetItemSelected($liste, $i) Then
$aItem = _GUICtrlListView_GetItemTextArray($liste, $i)
MsgBox(0, "Doppel-Klick auf ", $aItem[1] & @CRLF & @CRLF & $aItem[2])
EndIf
Next
EndIf
EndSwitch
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

[/autoit]

im Moment erscheint eine MsgBox und gibt dir die Name und DKP aus. Für was steht das Kürzel DKP

mfg (Auto)Bert
mfg (Auto)Bert

**autoBert**

ja mit ControlFocus. hier das geänderte Skript (2 Zeilen weggekürzt, ControlFocus eingefügt)

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>

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

Global $sLVdat = @ScriptDir & "\LV_Daten.Dat"

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

$hGui = GuiCreate("DKP Manager",300,500,100,100)
$check = 0

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

$input_name=GUICtrlCreateInput("", 15, 15, 110, 20)
$input_dkp=GUICtrlCreateInput("", 140, 15, 60, 20)
$button_create=GUICtrlCreateButton("Add char", 210, 15, 75, 20)

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

$liste=GUICtrlCreateListView("Name|DKP", 15, 50, 270, 400,-1, $LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($liste,$LVM_SETCOLUMNWIDTH, 0, 160)
GUICtrlSendMsg($liste,$LVM_SETCOLUMNWIDTH, 1, 110)

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

$button_delete=GUICtrlCreateButton("Delete character", 15, 465, 270, 20)

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

_LoadLV()
GuiSetState()

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

Global $B_DESCENDING[_GUICtrlListView_GetColumnCount($liste)]

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

While 1
$msg=GuiGetMsg()
If $msg=-3 Then
_saveLV()
Exit
EndIf
If $msg = $button_create then
$check = 0
For $i = 0 To _GUICtrlListView_GetItemCount($liste) - 1
If _GUICtrlListView_GetItemText($liste, $i) = GUICtrlRead($input_name) Then
_GUICtrlListView_SetItemText($liste, $i, GUICtrlRead($input_dkp), 1)
$B_DESCENDING = True
_GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
$check = 1
ExitLoop
EndIf
next
If $check = 0 then
GUICtrlCreateListViewItem(GUICtrlRead($input_name) & "|" & GUICtrlRead($input_dkp), $liste)
$B_DESCENDING = True
_GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
EndIf
GUICtrlSetData($input_name, "")
GUICtrlSetData($input_dkp, "")
ControlFocus($hGui,"",$input_name)
endif
If $msg = $button_delete Then
If GUICtrlRead($liste) <> 0 Then
_GUICtrlListView_DeleteItemsSelected($liste)
endif
endif
Wend

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

Func _saveLV()
Local $sFile, $aItem, $hFileOut
$hFileOut = FileOpen($sLVdat, 2)
For $j = 0 To _GUICtrlListView_GetItemCount($Liste) - 1
$aItem = _GUICtrlListView_GetItemTextString($Liste, $j)
FileWriteLine($hFileOut, $aItem)
Next
FileClose($hFileOut)
EndFunc ;==>_saveLVs

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

Func _LoadLV()
Local $aItems
If FileExists($sLVdat) Then
$aItems = ""
_FileReadToArray($sLVdat, $aItems)
If IsArray($aItems) Then
For $j = 1 To $aItems[0]
GUICtrlCreateListViewItem($aItems[$j], $Liste)
Next
EndIf
EndIf
EndFunc ;==>_LoadLVs

[/autoit]

leider wieder keine Möglichkeit zum testen

mfg (Auto)Bert

**autoBert**

Hallo Kyubinoyoko,

schau dir [ offen ] Weshalb schliessen sich beide Fenster ? an

mfg (Auto)Bert

**autoBert**

Hallo BurakSZ,

du kannst mehrere Fälle für case angeben (spart hier 2 Zeilen) :

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$gui1 = GUICreate("Programm", 200, 200) ;Gui 1
$bt1 = GUICtrlCreateButton("About", 50, 50) ;Button zur About-box
GUISetState(@SW_SHOW, $gui1) ;GUI anzeigen

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

$gui2 = GUICreate("About", 150, 150) ;Gui 2
$bt2 = GUICtrlCreateButton("Schließen", 10, 10) ;Gui 2 schließen button
GUISetState(@SW_HIDE, $gui2) ;GUI verstecken

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

While 1 ;schleife
$nMsg = GUIGetMsg(1) ;Die 1 ist wichtig
Switch $nMsg[1] ;Hier ebenfalls
Case $gui1 ;Wenn gui1 benutzt wird
Switch $nMsg[0] ;Wieder switch $nMSG nur mit 0
Case $bt1 ;Wenn button 1 in gui 1 gedrückt wird
GUISetState(@SW_HIDE, $gui1) ;GUI 1 verstecken
GUISetState(@SW_SHOW, $gui2) ;GUI 2 anzeigen
Case $GUI_EVENT_CLOSE ;Falls GUI 1 geschlossen
Exit ;Skript schließen
EndSwitch ;Ende der Switch von dem GUI 1
Case $gui2 ;Falls gui2 benutzt wird
Switch $nMsg[0] ;Wieder switch $nMsg und wieder mit 0
Case $bt2, $GUI_EVENT_CLOSE ;Falls Button 2 (schließen) gedrückt wird oder Gui2 geschlossen wird(X / Alt-F4 / Esc)
GUISetState(@SW_SHOW, $gui1) ;GUI 1 anzeigen
GUISetState(@SW_HIDE, $gui2) ;GUI 2 verstecken
EndSwitch ;Ende der Switch von dem GUI 2
EndSwitch ;Ende der switch des allem guis. du kannst so weitermachen mit x GUI's
WEnd ;schleifenende

[/autoit]

auch finde ich es besser die Konstanten zu verwenden, anstatt ihres Wertes. Trotzdem Musterlösung, bleibt nur zu hoffen das es auch über die SuFu gefunden wird,

mfg (Ato)Bert

**autoBert**

Hallo dtex,

Zitat von Dtex

er gibt mir einen fehler aus:C:\Dokumente und Einstellungen\Dtex.DTEX-YI8SXFHVNC\Desktop\dkp manager.au3(78,42) : ERROR: _FileReadToArray(): undefined function._FileReadToArray($sLVdat, $aItems)

ja da fehlt am Anfang noch #include <File.au3>, hier noch einmal das ganze Skript (jetzt auch getestet, sorry hatte gestern ein zeitaufwendiges Skript gestartet so das ich nicht testen konnte):

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>

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

Global $sLVdat = @ScriptDir & "\LV_Daten.Dat"

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

GuiCreate("DKP Manager",300,500,100,100)
$check = 0

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

$input_name=GUICtrlCreateInput("", 15, 15, 110, 20)
$input_dkp=GUICtrlCreateInput("", 140, 15, 60, 20)
$button_create=GUICtrlCreateButton("Add char", 210, 15, 75, 20)

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

$liste=GUICtrlCreateListView("Name|DKP", 15, 50, 270, 400,-1, $LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($liste,$LVM_SETCOLUMNWIDTH, 0, 160)
GUICtrlSendMsg($liste,$LVM_SETCOLUMNWIDTH, 1, 110)

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

$button_delete=GUICtrlCreateButton("Delete character", 15, 465, 270, 20)

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

_LoadLV()
GuiSetState()

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

Global $B_DESCENDING[_GUICtrlListView_GetColumnCount($liste)]

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

While 1
$msg=GuiGetMsg()
If $msg=-3 Then
_saveLV()
Exit
EndIf
If $msg = $button_create then
$check = 0
For $i = 0 To _GUICtrlListView_GetItemCount($liste) - 1
If _GUICtrlListView_GetItemText($liste, $i) = GUICtrlRead($input_name) Then
_GUICtrlListView_SetItemText($liste, $i, GUICtrlRead($input_dkp), 1)
$B_DESCENDING = True
_GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
GUICtrlSetData($input_name, "")
GUICtrlSetData($input_dkp, "")
$check = 1
ExitLoop
EndIf
next
If $check = 0 then
GUICtrlCreateListViewItem(GUICtrlRead($input_name) & "|" & GUICtrlRead($input_dkp), $liste)
$B_DESCENDING = True
_GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
GUICtrlSetData($input_name, "")
GUICtrlSetData($input_dkp, "")
EndIf
endif
If $msg = $button_delete Then
If GUICtrlRead($liste) <> 0 Then
_GUICtrlListView_DeleteItemsSelected($liste)
endif
endif
Wend

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

Func _saveLV()
Local $sFile, $aItem, $hFileOut
$hFileOut = FileOpen($sLVdat, 2)
For $j = 0 To _GUICtrlListView_GetItemCount($Liste) - 1
$aItem = _GUICtrlListView_GetItemTextString($Liste, $j)
FileWriteLine($hFileOut, $aItem)
Next
FileClose($hFileOut)
EndFunc ;==>_saveLVs

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

Func _LoadLV()
Local $aItems
If FileExists($sLVdat) Then
$aItems = ""
_FileReadToArray($sLVdat, $aItems)
If IsArray($aItems) Then
For $j = 1 To $aItems[0]
GUICtrlCreateListViewItem($aItems[$j], $Liste)
Next
EndIf
EndIf
EndFunc ;==>_LoadLVs

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo Dtex,

sorry, am besten fügst du das Laden also

[autoit]

_loadLV()

[/autoit]

direkt vor GuiSetState ein,

mfg (Auto)Bert

**autoBert**

Schau dir das Beispiel zu

[autoit]

_Crypt_HashFile

[/autoit]

in der Hilfe an, oder bentze die SuFu mit folgender Eingabe: MD5-Hash,

mfg (Auto)Bert

**autoBert**

Hallo ichhabfragen,

Mozrepl wird dafür benötigt, kannst du von hier installieren: http://wiki.github.com/bard/mozrepl/
FF.au3 herunterladen
Mozrepl über Extras|Mozrepl im Firefox starten
Funktionsrefernz findest du hier
Zum testen Skript starten: [autoit]#Include <FF.au3>

_FFStart("http://www.autoit.de", Default, 2)

If _FFIsConnected() Then
If _FFLoadWait() Then MsgBox(64, "", "Page was loaded in " & @extended & "ms")

Sleep(3000)
;_FFQuit() ;FireFox schliessen
EndIf
[/autoit]

[autoit]

Eine Tutorial findest du hier
dieser Link Wenn mal was nicht geht ... bitte zuerst hier nachschauen ... enthält auch sehr nützliche Hinweise von [user='200122']Stilgar[/user] (Author von ff.au3)

[/autoit]

Viel Spass bei der FireFox-Automatisierung

mfg (Auto)Bert

**autoBert**

Zitat von EpicWorld

ich wollte euch fragen ob man das machen kann das wenn jemand den Script bearbeitet dann eine MSGBOX kommt wo drin steht das man das nicht draf und der Script danach nicht mehr funktioniert geht sowas?

Ein Skript kannst du nie vor Änderungen schützen, eine EXE ja z.B. MD5-Prüfsummenvergleich.

Zitat von EpicWorld

Oder wenn man z.b. eine Ini ändert

dann brauchst du erst gar keine INI, kannst ja alle Werte als Konstanten im Skript hinterlegen.

mfg (Auto)Bert

**autoBert**

Zitat von ichhabfragen

so ne while schleife brauch ich damit mein script "wartet" bis eine spezielle internetseite zuendegeladen hat .

also mein script geht einfach weiter obwohl die seite noch ncith da ist.

muss ja ncith zwangsweise ne while schleife sein (wenn es bessere methoden gibt)

schau dir die Hilfe zu

[autoit]

_IECreate

[/autoit]

an, damit kannst du dich direkt mit der Seite verbinden, je nach Paramater wird mit der Skriptausführung gewartet bis die Seite fertig geladen ist. Auch

[autoit]

_IENavigate

[/autoit]

verwendet standardmässig den Parameter $f_wait = 1. Beide Methoden sind 100% zuverlässig anders als die Methode auf eine Farbe zu warten,

mfg (Auto)Bert

**autoBert**

Zitat von hellboy3

Mit Icons geht`s 100 % , aber die sind zu klein ....ausser mir sagt jetzt jemand : Bist du dumm machse halt größer nämlich so:......

MfG Hellboy

Wieso ich habe deine BMP in ICO gewandelt: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Klappt einwandfrei:

Spoiler anzeigen

[autoit]

#CS ----------------------------------------------------------------------------

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

AUTOIT VERSION: 3.3.6.1
AUTHOR: MYNAME

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

SCRIPT FUNCTION:
TEMPLATE AUTOIT SCRIPT.

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

#CE ----------------------------------------------------------------------------

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

; SCRIPT START - ADD YOUR CODE BELOW HERE
#include <GUICONSTANTSEX.AU3>
#include <WINDOWSCONSTANTS.AU3>
#include <SLIDERCONSTANTS.AU3>

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

Opt('GUIONEVENTMODE', 1)

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

Global $PPLAY = 1
Global $GUI_WIDTH = 300
Global $GUI_HEIGHT = 255
Global $iOldVolume = -99

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

$HGUI = GUICreate("BUG?", $GUI_WIDTH, $GUI_HEIGHT, 300, 100, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE, $WS_EX_TOPMOST, $WS_EX_APPWINDOW))
GUISetBkColor(0X800000)
GUISetOnEvent(-3, "_EXIT")
$MOVINGLABEL = GUICtrlCreateLabel("BUG?", 25, 40, 250, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 11, 800, 0, "MS SANS SERIF")
GUICtrlSetColor(-1, 0X00FF00)
$SEARCHINPUT = GUICtrlCreateInput("", 20, 190, 170, 20)
$SEARCHBUTTON = GUICtrlCreateButton("BUG?", 195, 190, 50, 20)
$STOPBUTTON = GUICtrlCreateIcon(@ScriptDir & "\DATEN\STOP.ICO", -1, 245, 220, 32, 32)
$PBUTTON = GUICtrlCreateIcon(@ScriptDir & "\DATEN\PLAY.ICO", -1, 205, 220, 32, 32)
GUICtrlSetOnEvent(-1, "_YTPLAY")
$VOLUMESLIDER = GUICtrlCreateSlider(10, 223, 150, 25)
GUICtrlSetData($VOLUMESLIDER, 50)
GUICtrlSetBkColor(-1, 0X800000)
$VOLUMEPIC = GUICtrlCreateIcon(@ScriptDir & "\DATEN\VOLUME_MIDDLER.ICO", -1, 160, 220, 32, 32)
GUISetState(@SW_SHOW)

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

While Sleep(100)
$IVOLUME = GUICtrlRead($VOLUMESLIDER)
If $iOldVolume <> $IVOLUME Then
If $IVOLUME = 0 Then
GUICtrlSetImage($VOLUMEPIC, @ScriptDir & "\DATEN\MUTE.ICO")
ElseIf $IVOLUME < 40 Then
GUICtrlSetImage($VOLUMEPIC, @ScriptDir & "\DATEN\VOLUME_LOWR.ICO")
ElseIf $IVOLUME < 70 Then
GUICtrlSetImage($VOLUMEPIC, @ScriptDir & "\DATEN\VOLUME_MIDDLER.ICO")
ElseIf $IVOLUME > 70 Then
GUICtrlSetImage($VOLUMEPIC, @ScriptDir & "\DATEN\VOLUME_HIGHR.ICO")
EndIf
$iOldVolume = $IVOLUME
EndIf
WEnd

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

Func _EXIT()
Exit
EndFunc ;==>_EXIT

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

Func _YTPLAY()
If $PPLAY = 1 Then
GUICtrlSetImage($PBUTTON, @ScriptDir & "\DATEN\PAUSE.ICO")
$PPLAY = 0
Else
GUICtrlSetImage($PBUTTON, @ScriptDir & "\DATEN\PLAY.ICO")
$PPLAY = 1
EndIf
EndFunc ;==>_YTPLAY

[/autoit]

mfg (Auto)Bert

**autoBert**

Zitat von ichhabfragen

ich bin noob , gerade hab ich mich angemeldet . ein lbutiger anfänger

herzlich willkomen im Forum

Hier kannst du dir die Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

Zitat von ichhabfragen

ich brauche eine while-schleife die endet sobalt eine bestimmter pixel (zum beispiel pixel: 0x0E0c01) auf den desctop erscheint.

Wir können dir am besten helfen, wenn du uns sagst, was du am Ende erreichen willst und was bis jetzt funktioniert (bitte Code dazu posten, falls vorhanden). Dann können wir uns Gedanken über den besten Weg dorthin machen. Denn ein Skript endlos? laufen zu lassen, bis eine bestimmter Farbpixel auf dem Monitor erscheint, ist meines Erachtens nach nutzlos

mfg (Auto)Bert

**autoBert**

Zitat von AutoBert

vielleicht kannst du es ja auch noch mit anderen Bildformaten testen,

Oscar verwendet in seinem Starplayer ICOns. Eventuell musst du die JPGs auch nur nacharbeiten

mfg (Auto)Bert

Beiträge von autoBert

FileWrite

Hilfe! ControlSend verursacht lags!

FileWrite

Computernamen rausfinden.

nur bestimmte werte aus html code auslesen

nur bestimmte werte aus html code auslesen

Input werte der größe nach ordnen lassen

Input werte der größe nach ordnen lassen

Input werte der größe nach ordnen lassen

String vom Webserver lesen

Weshalb schliessen sich beide Fenster ?

Input werte der größe nach ordnen lassen

Input werte der größe nach ordnen lassen

Veränderung vermeiden

while schleife beenden wen bestimmter pixel aufm desctop angezeigt wird

Veränderung vermeiden

while schleife beenden wen bestimmter pixel aufm desctop angezeigt wird

GuictrlsetImage und Bmp`s , wo ist der Bug?

while schleife beenden wen bestimmter pixel aufm desctop angezeigt wird

GuictrlsetImage und Bmp`s , wo ist der Bug?