Beiträge von Teare

Teare · 11. Februar 2015

Zitat von Kanashius

Ich hätte es so gemacht:
(muss man den Button nicht selbst mitverschieben, minimieren, etc.)

Spoiler anzeigen

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
Opt("GUIOnEventMode",1)

Global $first=true
$hGui = GUICreate("OtherHW", 100, 25, 10,10, $WS_POPUP)
$Button = GUICtrlCreateButton("Bilder", 0, 0, 100, 25)
GUICtrlSetOnEvent(-1,"_GibTitle")
;GUICtrlSetState(-1,$GUI_ONTOP)
GUICtrlSetBkColor(-1, 0xFFFF00)
GUISetState(@SW_HIDE,$hGui)

While sleep(100)
if StringInStr(WinGetTitle("[active]"),"Homework ") then
if $first then
$first=false
GUISetState(@SW_SHOW,$hGui)
$handle=WinGetHandle("[active]")
_WinAPI_SetParent($hGui,$handle)
elseif NOT WinActive($handle) then
$handle=WinGetHandle("[active]")
_WinAPI_SetParent($hGui,$handle)
endif
endif
WEnd

Func _gibTitle()
msgbox(48,"",WinGetTitle($handle))
EndFunc

Irgendwo ist da aber noch nen kleiner Fehler... Der Button wird erst angezeigt, wenn man an die Stelle klickt, wo er sein sollte (oben links im Fenster)

Alles anzeigen

Bei mir ( Im SciTE ) Wird er direkt angezeigt

Teare · 11. Februar 2015

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
$hGUI = GUICreate('TOPMOST',350,200,-1,-1,BitOR($WS_POPUP,$WS_BORDER))
$check=GUICtrlCreateCheckbox('Always on Top',5,5,120,30)
GUISetState()
While 1
Switch GUIGetMsg()
Case -3
ExitLoop
Case $check
If GUICtrlRead($check) = $GUI_CHECKED Then
WinSetOnTop ( "T", "", 1 )
Else
WinSetOnTop ( "T", "", 0 )
EndIf
EndSwitch
WEnd

Teare · 6. Februar 2015

Bei mir funktionierts aber nicht wenn Chrome schon geöffnet ist

Teare · 6. Februar 2015

#include <GUIConstantsEx.au3>
;Main GUI
$hWnd_Main = GUICreate("Form1", 459, 74, 192, 124)
$Open2nd1 = GUICtrlCreateButton("Open 2nd GUI Hide Mode", 8, 8, 443, 25)
$Open2nd2 = GUICtrlCreateButton("Open 2nd GUI Disable Mode", 8, 40, 443, 25)
GUISetState(@SW_SHOW)
;Sub GUI - Erstellen und verstecken
$hWnd_Sub = GUICreate("Form1", 268, 42, 192, 124)
$hBtn_Close = GUICtrlCreateButton("Close", 8, 8, 251, 25)
GUISetState(@SW_HIDE)

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $Open2nd1
GUISetState(@SW_SHOW,$hWnd_Sub)
GUISetState(@SW_HIDE,$hWnd_Main)
GUISwitch($hWnd_Sub)
$mode = 0
Case $Open2nd2
GUISetState(@SW_SHOW,$hWnd_Sub)
GUISetState(@SW_DISABLE,$hWnd_Main)
GUISwitch($hWnd_Sub)
$mode = 1
Case $GUI_EVENT_CLOSE,$hBtn_Close
Switch $nMsg[1]
Case $hWnd_Main
Exit
Case Else
If $mode = 0 Then
GUISetState(@SW_SHOW,$hWnd_Main)
GUISetState(@SW_HIDE,$nMsg[1])
GUISwitch($hWnd_Main)
ElseIf $mode = 1 Then
GUISetState(@SW_ENABLE,$hWnd_Main)
GUISetState(@SW_HIDE,$nMsg[1])
GUISwitch($hWnd_Main)
EndIf
EndSwitch

EndSwitch

WEnd

Teare · 22. Januar 2015

Hey . ich habe eine frage. Ich möchte dass wenn mann eine bestimmte Reihenfolge an buttons drückt etwas passiert.

Wie ein Cheatcode sozusagen.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("KK", 160, 88, 192, 124)
$Label1 = GUICtrlCreateButton("up", 28, 8, 40, 24)
$Label2 = GUICtrlCreateButton("down", 28, 56, 40, 24)
$Label3 = GUICtrlCreateButton("left", 8, 32, 40, 24)
$Label4 = GUICtrlCreateButton("right", 56, 32, 40, 24)
$Label5 = GUICtrlCreateButton("a", 104, 56, 40, 24)
$Label6 = GUICtrlCreateButton("b", 112, 32, 40, 24)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
ConsoleWrite("UP")
Case $Label2
ConsoleWrite("DOWN")
Case $Label3
ConsoleWrite("LEFT")
Case $Label4
ConsoleWrite("RIGHT")
Case $Label5
ConsoleWrite("A")
Case $Label6
ConsoleWrite("B")
EndSwitch
WEnd

Teare · 24. Februar 2013

;Habe folgende Opt. ausprobiert, obs vielleicht daran liegt:;AutoItSetOption("MouseCoordMode", 1)
;AutoItSetOption("GUICoordMode", 1)

Dim $cordinates = PixelSearch( 50, 300, 10030, 750, 0xDD1717, 10, 2)
If Not @error Then
$xmous = MouseGetPos(0)
$ymous = MouseGetPos(1)

MouseMove($xcord ,$ycord , 10)
EndIf

Das mit dem "MouseGetPos" kannst du vereinfachen.:

;Habe folgende Opt. ausprobiert, obs vielleicht daran liegt:;AutoItSetOption("MouseCoordMode", 1)
;AutoItSetOption("GUICoordMode", 1)

Dim $cordinates = PixelSearch( 50, 300, 10030, 750, 0xDD1717, 10, 2)
If Not @error Then
$Pos = MouseGetPos()
MouseMove($Pos[0] ,$Pos[1] , 10)
EndIf

MfG

Teare · 17. Februar 2013

Ich würd mich wohl für das "Map - Designen" melden . Sprich Maps aus den Grafiken bauen.

Z.B Mit Tiled .

Teare · 15. Februar 2013

BugFix bis die maximale Zeilenlänge von 4095 erreicht ist

Teare · 31. Januar 2013

$raute_ascii = "Dies ist eine {ASC 35}" & @LF
Send($raute_ascii)

Raute mit ASCII Schreiben

Teare · 5. Januar 2013

Miauuuuuu !

Teare · 23. Dezember 2012

Könnte aber auch ein Virus sein.

Ich hatte auch mal einen der den PC herutergefahren hat, - System neu aufsetzten . Nur das hat geholfen .

Teare · 14. Dezember 2012

Du kannst 1.st keine Gifs in eine Dll Einbinden.

2. Du kannst mit Resource Hacker > DLL's bearbeiten. (Resourcen hinzufügen / editieren / löschen)

Teare · 12. Dezember 2012

Das :

Visual C++ 2010
Das umfassende Handbuch

Teare · 12. Dezember 2012

Hallo :

1.st : Setze deinen Code in die AutoIt CodeTags ( [autoit'][/autoit'] ohne * )
Dann siehts So Aus: For $i = 1 To Hirnzellen

2. Variablen werden ohne Klammern Definiert:
$pFile = "E:\Musik\Bushido-AMYF-2CD-DE-2012-VOiCE\102_bushido_-_selbst_ist_der_mann.mp3"

Und hier ist das was du suchst :

http://pastebin.com/Ka5VUh3a

Teare · 11. Dezember 2012

WinSetState ("R:\EDA\Mentor\Common\Config\AutoIt","","@SW_MAXIMIZE")

Das @SW_MAXIMIZE kommt meines wissens nach nicht in Anführungsstrichen.

Teare · 11. Dezember 2012

Ambesten wäre es wenn du uns den Code zeigst

Teare · 5. Dezember 2012

Darf man auch Hintergrundmusik benutzen ?

Teare · 30. November 2012

Du öffnest Koda -> File -> Import -> Import AutoIT GUI

Und da Gibst du dann den Code an .

Spoiler anzeigen

Teare · 16. Oktober 2012

Soo

Ich habe den fehler gefunden.

ich hatte in einer permanenten schleicfe ( AdlibRegister ) die Funktion WInSetTrans.

Deswegen hat es komischerweise bei Win XP und wenn Aero aus war geflackert nun ists weg trotzdem danke

Teare · 15. Oktober 2012

Hey liebe AutoIT Freunde. Und zwar habe ich ein Problem mit meinem Downloader.
Und zwar wenn Windows Vista's/7's Aero aus ist, flackert das Programm
Bei Win XP genau das selbe.
Da ich den "Source" eigendlich nicht veröffentlichen will (Spoiler) vergebe ich ihn nur an "vertrauten" Personen via PN.
Um selber das Problem zu testen :
http://lthd.de/downloads/LtHD-Setup.exe

Der Ganze Downloader Basiert auf diesem Script :

Spoiler anzeigen

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Global $created = 0, $ID
Global $Pic, $Label, $Packname = 'nochkeins'
Global $hListView
Dim $aArray[3][5]=[['DL1','Link1','1','20 MB','/vorschau1.jpg'],['DL2','Link2','2','20 MB','/vorschau2.jpg'],['DL3','Link3','3','20 MB','/vorschau3.jpg']]
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

If FileExists(@TempDir&'/vorschau1.jpg') = 0 Then InetGet('http://www.pixey.de/wp-content/uploads/2007/07/texturmauer.jpg',@TempDir&'/vorschau1.jpg',0)
If FileExists(@TempDir&'/vorschau2.jpg') = 0 Then InetGet("http://h3.abload.de/img/minecraftlogovwfaf.jpg", @TempDir&'/vorschau2.jpg',0)
If FileExists(@TempDir&'/vorschau3.jpg') = 0 Then InetGet('http://www.designersfondcollection.de/bild.aspx?id=122&G=32768',@Tempdir&'/vorschau3.jpg',0)

Global $GUI = GUICreate("Downloader", 547, 470)
Global $Processbar = GUICtrlCreateProgress(24, 392, 497, 25)
$Group1 = GUICtrlCreateGroup("Vorschau", 24, 112, 497, 257)
$Group1 = GUICtrlCreateGroup("Vorschau", 24, 112, 497, 257)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("Download", 24, 430, 97, 25, $WS_GROUP)
_createListView()
GUISetState(@SW_SHOW)

Func _createListView()
Global $hListView = _GUICtrlListView_Create($GUI, "", 24, 16, 497, 89)
_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
_GUICtrlListView_InsertColumn($hListView, 0, "Name", 165)
_GUICtrlListView_InsertColumn($hListView, 1, "Auflösung", 165)
_GUICtrlListView_InsertColumn($hListView, 2, "Größe", 165)

For $i = 0 To UBound($aArray) -1
_GUICtrlListView_AddItem($hListView, $aArray[$i][0], 0)
_GUICtrlListView_AddSubItem($hListView, $i, $aArray[$i][2], 1)
_GUICtrlListView_AddSubItem($hListView, $i, $aArray[$i][3], 2)
Next
EndFunc

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
_download($ID)

EndSwitch
WEnd

Func _download($ID)
GUICtrlSetState($Button2,$GUI_DISABLE)
$hFileSize = InetGetSize($aArray[$ID][1])
$Anzeige = Round($hFileSize / 100,-1) ; auf ganze Zahl runden
$hDownload = InetGet($aArray[$ID][1],@DesktopDir& '\' & $aArray[$ID][0]&'.zip',0,1)
do
$aData = InetGetInfo($hDownload)
GUICtrlSetData($Processbar,Round($aData[0]*100/$aData[1],-1))

Until InetGetInfo($hDownload,2) ; Download fertig
MsgBox(0,"Download Abgeschlossen","Der Download von"&$aArray[$ID][0]&" ist abgeschlossen")
GUICtrlSetData($Processbar,'')
GUICtrlSetState($Button2,$GUI_ENABLE)
InetClose($hDownload)

EndFunc
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
$hWndListView = $hListView
If Not IsHWnd($hListView) Then $hWndListView = GUICtrlGetHandle($hListView)

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_CLICK
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
$ID = DllStructGetData($tInfo, "Index")
_createImage(DllStructGetData($tInfo, "Index"))
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

Func _createImage($lvSubID)
If $created = 1 Then
GUICtrlDelete($Pic)
GUICtrlDelete($Label)
$created = 0
Endif
If $created = 0 Then
$Pic = GUICtrlCreatePic(@TempDir&$aArray[$lvSubID][4],40,140,460,200)
$created = 1
Endif

EndFunc

Beiträge von Teare

[ERLEDIGT]Button über anderen Anwendungen als Overlay

Checkbox GUI im Vordergrund

Browser als eingebettetes Object möglich

Problem 2 Guis

Konami Code

Maus bewegen in Anwendung

[Suche Leute] 2D RPG-Spiel in Autoit

If...Then Mehrere Statements per Zeile

Problem mit send @ und #

SB-Zitate Nummer 5

PC geht immer aus

GUICtrlStatusBar animiert

Weihnachtswünsche

Während Sounplay MSG's aufblinken lassen

Problem mit WinSetState unter Win7 64-bit

Problem mit WinSetState unter Win7 64-bit

Weihnachtsscripting-Challenge

Script zurück in Koda

Downloader Problem

Downloader Problem