Beiträge von syne

syne

bei mir gehts auch, mit der "_MouseHover.au3"; liegt im archiv bei.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.2.0
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

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

;############## CHANGE ################################################

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

#include <_MouseHover.au3> ; nötiger include

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

_ErstelleNeuBearbeitenGUI("Sender hinzufügen", "Name", "www.www.www")

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

Func _ErstelleNeuBearbeitenGUI($xiTitel, $xiSendername = "", $xiSenderadresse = "", $xiGenre = "", $xiBewertung = "")
Opt("GUIOnEventMode", 0)
Global $xProgrammOrdner = @ScriptDir
Local $xGenreListe = IniRead($xProgrammOrdner & "\Settings.ini", "Radio Station Manager", "GenreList", "")
Global $AltePos[1]

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

Global $SenderGUI_Handle = GUICreate($xiTitel, 406, 186)
GUISetBkColor(0xFFFFFF)

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

WinSetOnTop($SenderGUI_Handle, "", 1)

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

GUICtrlCreateLabel("Sie haben hier die Möglichkeit, Desktop Radio mit weiteren Sendern zu ergänzen.", 8, 8, 389, 17)
GUICtrlSetColor(-1, 0x005ACE)
GUICtrlCreateLabel("Sendername:", 8, 40, 67, 17)
$xSendername = GUICtrlCreateInput($xiSendername, 96, 32, 265, 21)
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 32, 16, 16)
GUICtrlSetTip(-1, "FGVFDGDFG"&@LF&"DXFDSVFGDSGD")

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

GUICtrlCreateLabel("Senderadresse:", 8, 64, 78, 17)
$xSenderadresse = GUICtrlCreateInput($xiSenderadresse, 96, 64, 265, 21)
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 64, 16, 16)

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

GUICtrlCreateLabel("Genre:", 8, 96, 36, 17)
$xGenre = GUICtrlCreateCombo("", 96, 96, 265, 25)
GUICtrlSetData(-1, $xGenreListe, "Mix")
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 96, 16, 16)

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

GUICtrlCreateLabel("Sender bewerten:", 8, 128, 88, 17)

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

Global $xPicArray[6] = [5, _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 104, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 120, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 136, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 152, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 168, 128, 16, 16)]

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

;############## CHANGE ################################################

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

For $i = 1 To UBound($xPicArray)-1 Step +1
_HoverAddCtrl($xPicArray[$i]) ; Controls zum Hovern "registrieren"
Next

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

$xAbbrechen = GUICtrlCreateButton("Abbrechen", 320, 152, 75, 25, $WS_GROUP)
$xOk = GUICtrlCreateButton("Ok", 240, 152, 75, 25, $WS_GROUP)
$xSenderTesten = GUICtrlCreateLabel("Sender testen", 8, 160, -1, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)

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

AdlibRegister("_SenderGUIHoverFunktion", 70)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Opt("GUIOnEventMode", 1)
Return 0

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

Case $xAbbrechen
Opt("GUIOnEventMode", 1)
Return 0

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

Case $xOk
Opt("GUIOnEventMode", 1)
Return 0
EndSwitch
WEnd
EndFunc

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

Func _SenderGUIHoverFunktion()

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

;############## CHANGE ################################################

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

$hv = _HoverCheck() ; Hover-Informationen
If IsArray($hv) Then
If $hv[0] = "LostHover" Then ; wenn Hover verloren alle Sterne zurücksetzen, keine If-Abfrage nötig da die Sterne die einzigen Controls zum Hovern sind
For $i = 1 To UBound($xPicArray)-1 Step +1
GUICtrlSetImage($xPicArray[$i], $xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif")
Next
ElseIf $hv[0] = "AcquiredHover" Then ; wenn Hover erhalten dann checken welcher Stern un bis zu diesem alle aktivieren
Switch $hv[1]
Case $xPicArray[1]
$to = 1
Case $xPicArray[2]
$to = 2
Case $xPicArray[3]
$to = 3
Case $xPicArray[4]
$to = 4
Case $xPicArray[5]
$to = 5
EndSwitch
For $i = 1 To $to Step +1
GUICtrlSetImage($xPicArray[$i], $xProgrammOrdner & "\Images\Radio Station Manager\StarOn.gif")
Next
EndIf
EndIf
EndFunc

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

syne

[autoit]

Local $out = ""
For $i = 1 To StringLen($0xWeg) Step +6
$out &= StringMid($oxWeg, $i, 6) & " "
Next
$0xWeg = $out

[/autoit]

greetz:)

edit: Ups stimmt;) Beim 2. Mal hatts geklappt..

syne

so hier mein vorschlag für das logo:

ohne hintergrund:
[Blockierte Grafik: http://img5.imagebanana.com/img/o2jbtef3/Logo_AutoIt_trans.png]

und mit hintergrund:
[Blockierte Grafik: http://img5.imagebanana.com/img/5big1om/Logo_AutoIt_bk.png]

und die rar mit originaldateien gibts im anhang:)

greetz syne

syne

Coole Sache
Datei erstellt.. geht.
Datei mit nem Hexeditor öffnen.. geht nicht

syne

also erst mal sau gut gemacht:P
klasse sache, gut gebrauchbar für eig alle chat usw..

verbesserungen:
<div style="position:absolute; top:5px; left:10px; border:2px dotted #000000;">sooooo viel style</div>
positionsangaben un rahmen etc mit stylesheets sind noch möglich.. vll zumindest die positionangaben in der _Chatbox _SetData() löschenlassen..;)

greetz syne

syne

cooles script

ich mag den pilz x)

aber wann gibt der denn nen ton aus? bei mir passiert nichts..

syne

Du musst den ganzen Pfad mit angeben und einen anderen Befehl bentuzen würde ich sagen;)

[autoit]

GUICtrlSetImage($Pic1, "C:/Gedöns/pic2.jpg")

[/autoit]

syne

Du kanst einen unsichtbaren button erstellen und dann den Fokus darauf setzten.

[autoit]

$button_invisible = GUICtrlCreateButton("", 0, 0, 0, 0)
GUICtrlSetState($button_invisible, $GUI_HIDE)
GUICtrlSetState($button_invisible, $GUI_FOCUS)

[/autoit]

greetz syne =)

syne

und jetzt prüf nochmal nach:

Gibt es die Datei wirklich?
Sind Name & Pfad richtig (geschrieben)?
Ist es eine ini-Datei und keine .txt o. Ä.?

Und mir fällt grad auf:
Erst löschst du die ini mit FileDelete, dann kopierst du sie in eine .backup-Datei, und willst dann die Sections auslesen?
--> konstruktive Kritik =)

greetz syne

syne

hierbei finde ich auch das Design von Matthias besser weil es bei dem Profekt wirklich weniger ums Design als um die Funktionalität geht:)

greetz syne

edit:
ups 2. seite beiträge übersehn x)
stimmt aba imma noch x)

syne

joa has recht..
ist auch logisch oda?
da die bewegungen umgedreht sind, müsste man die maus aus dem bildschirm raus bewegen, damit ein unterschied zwischen $infN und infO entstehen kann.. is ja aber nicht möglich..;)

syne

hey!

such mal nach
MousGetPos() und _Ispressed()

z.B.:

[autoit]

#include

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

$user32 = DllOpen("user32.dll")

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

While 1
If _IsPressed("01", $user32) Then
$Mpos = MouseGetPos()
EndIf
WEnd

[/autoit]

greetz syne:)

syne

stimmt ja auch:P
hab ich ja auch oben hingeschrieben x)

syne

hey!

kleines Tool um die Mouse ohne Systemsteuerung schneller zu machn:P
Shift-Alt-s : schneller
Shift-Alt-x : langsamer
-> geht von -5 bis +5; negativ werden die Mousebewegungen umgekehrt
Shift-Alt-a : beenden

ohne GUI, mit TrayIcon^^

un noch der Code:

Spoiler anzeigen

[autoit]

;#NoTrayIcon

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

HotKeySet("+!a", "_end")
HotKeySet("+!s", "_speedUp")
HotKeySet("+!x", "_speedDown")

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

Global $infN, $infO, $mvchk = True, $speed = 1

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

$infN = MouseGetPos()
$infO = MouseGetPos()

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

AdlibEnable("_do", 25)

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

While 1
Sleep(1000)
ToolTip("")
WEnd

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

Func _do()
$infN = MouseGetPos()
If $infN[0] <> $infO[0] Or $infN[1] <> $infO[1] Then
MouseMove($infN[0]+$speed*($infN[0]-$infO[0]), $infN[1]+$speed*($infN[1]-$infO[1]), 0)
$infN = MouseGetPos()
$infO = MouseGetPos()
EndIf
$infO = $infN
EndFunc

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

Func _speedUp()
$speed += 0.5
If $speed > 5 Then $speed = 5
ToolTip("Speed: " & $speed)
EndFunc

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

Func _speedDown()
$speed -= 0.5
If $speed < -5 Then $speed = -5
ToolTip("Speed: " & $speed)
EndFunc

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

Func _end()
Exit
EndFunc

[/autoit]

greetz syne

syne

hey!

vll hilft

[autoit]

MouseClickDrag ( "button", x1, y1, x2, y2 [, speed] )

[/autoit]

um die scrollbars zu bewegen.. glaub aba nich das das die eleganteste lösung ist;)

greetz syne

syne

Forenregeln!!!
keine Bots!

syne

so danke für die flotten antworten:)

find ich gut das das geht, das mit dem langsam passt schon i.wie:P

syne

hey!

weiß jemand ob AutoIT beim Bundeswettbewerb Informatik zugelassen ist?

Zitat von den AGB von der Hp des BwInf

Beinahe alle bekannten Sprachen fallen unter den Begriff "gängige höhere Programmiersprache", der im Aufgabenblatt verwendet wird, sicher also u.a. C/C++, C#, Delphi, Java, Lisp, ML, Objective-C, Pascal, Perl, Prolog, Python, Ruby, Scala, ...; auch Basic-Dialekte sind akzeptabel.

Zählt AutoIT zu den höheren Programmiersprachen? Oder ist AutoIT ein Basic-Dialekt? hab keine Ahnung von Basic, kann daher auch nichts dazu sagen..:P

greetz syne:)

syne

hey!

gibt es:P
also einfachen style $WS_POPUPWINDOW benutzen; damit es nicht in der windows taskbar gezeigt wird, erweiterten style $WS_EX_TOOLWINDOW benutzen:)

[autoit]

#include <WindowsConstants.au3>

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

$GUI = GUICreate("TestGUI", 400, 300, 100, 100, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)

[/autoit]

greetz syne

syne

@ oscar:

kla darf man ein trennzeichen benutzen oda nich?!
in dateinamen darf "|" nicht vorkommen, zumindest bei windows^^, un FileRead gibt ja nur 0-9 und A-F zurück oder?

Beiträge von syne

Hilfe bei Hover-Funktion

Elendig langen String mit Leerzeichen nach jedem 6. zeichen versehen

Offizieller Logo-Wettbewerb

DummyFile Generator

Chatbox-UDF

Maple-Desktop <Last Update>

AutoIT Spiel Probleme mit Bildern !!!

Umrandung bei Buttons entfernen

Array Problem

UDF-Portal

MouseFast

MausPos bei Klick in Variable speichern!

MouseFast

MouseFast

Flash-Datei mit GUI zurechtrücken

Virtuelle Maus & Fenster mit Variablem Namen

Bundeswettbewerb Informatik

Bundeswettbewerb Informatik

Taskleiste in Gui

WinRar ähnliches Programm in AutoIt erstellen.