Beiträge von McPoldy

McPoldy

So wird nur das Label aktualisiert, wenn sich der Wert in $min zum vorherigen Durchlauf geändert hat:

[autoit]

$oldMin = ''

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

While ProcessExists("TEST.EXE")
$CountLines = _FileCountLines("G:\Daten\log.txt")
$Logline=FileReadLine ( "G:\Daten\log.txt",$CountLines )
GUICtrlSetData($Log,$Logline)
$dif = TimerDiff($begin)/60000
$min=StringFormat("%.2f",$dif)
If $oldMin <> $min Then
GUICtrlSetData($Laufzeit,"Laufzeit: "&$min&" min")
$oldMin = $min
EndIf
WEnd

[/autoit]

McPoldy

Was blöde, um sich da anzumelden, braucht man eine Einladung oder man bekommt die Meldung "Schummeln gilt nicht". Da will man mal helfen und kann nicht Pech.

McPoldy

Ich hoffe ich habe bei der Erklärung keinen Fehler, BugFix schau noch mal drüber bitte.

[autoit]

Func _TinyQuery($sURL, $sMethod = "GET", $sSend = "")
; Hier wird das Objekt erzeugt, darum =
$oHTTP = ObjCreate("Microsoft.XMLHTTP")

; Wenn man ein Objekt hat, kann man dessen Eigenschaften ändern
; Zum Beispiel, das Objekt ist ein Auto, die Eigenschaft der Farbe ist
; Rot, diese kannst du ändern.
; Oder du kannst die Methoden eines Objektes aufrufen, zum Beispiel,
; das Auto soll fahren = Auto.fahr
; Die Eigenschaften / Methoden werden mit einem Punkt hinter der
; der Objektbezeichnung aufgerufen. Auto(das Objek) .(Der Trenner) fahr (die Methode)
$oHTTP.open($sMethod, $sURL, False)
$oHTTP.send($sSend)
$HTTPPost = $oHTTP.responseText

Return ($HTTPPost)
EndFunc ;==>_TinyQuery

[/autoit]

McPoldy

Sehr schön, kommt gleich mit in meine Tool Sammlung für unsere Mitarbeiter, ich finde lange Links furchtbar

McPoldy

So noch ein Part 8 zum Autoit Twitter Video, da hat man mich noch auf einen kleinen Fehler hingewiesen

Video - Link

McPoldy

Hi, da du ja immer den Timer neu startest, und damit auch $gesamt überschreibst, muss du die bisherigen Sekunden in einer anderen Variablen speichern und bei der Ausgabe mit dazu zählen.

Quelltext

[autoit]

Local $gesamt, $old = 0, $1 = 1

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

While 1
If WinActive("Unbenannt - Editor") = 1 Then
$start = TimerInit()
Do

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

$bisher = TimerDiff($start)

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

If $1 = 0 Then
$gesamt = $gesamt + $bisher
EndIf
If $1 = 1 Then
$gesamt = $bisher
$1 = 0

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

EndIf

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

$gesamt = $gesamt / 1000
$gesamt = Round($gesamt, 0)
ToolTip("" & $gesamt + $old & "", 0, 0) ;Hier wird $old wieder dazugezählt.
Until WinActive("Unbenannt - Editor") = 0
$old += $gesamt ; Schreibe die bisherigen Sekunden in $old
EndIf
WEnd

[/autoit]

McPoldy

Hi,

bitte das nächste mal den Spoiler UND den Autoit-Quellcode-Button nutzen

Bei dir steht

[autoit]

$Combo1 = GUICtrlSetData(-1, $AllLines2)

[/autoit]

Aber es muss

[autoit]

GUICtrlSetData($Combo1, $AllLines2)

[/autoit]

Warum, bei deiner Version überschreibst du den Wert von $Combo1 und das darf man nicht

McPoldy

So, ich habe mich noch mal dran gesetzt und eine halbwegs ansehnliche GUI zusammen gebastelt:

Vorab, hier das Video wie es derzeit aussieht: VIDEO

Quelltext

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Array.au3>

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

$FormInfo = GUICreate("Form1", 300, 50, -1, -1, $WS_POPUP, 0)
GUISetBkColor(0xcccccc)
GUICtrlCreateLabel("Daten werden geladen...",10,10,300,30)
GUICtrlSetFont(-1,20)
$hwnd = WinGetHandle($FormInfo)
GUISetState(@SW_SHOW,$hwnd)

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

Const $bgColor = 0x999999
Const $totalwidth = 426
Const $totalheight = 236
Const $refreshTime = 2500
Const $stdSchwellwert = 20

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

Global $aPoints[42][2]

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

; 1. Adresse
Global $ArrDat1[40]
$ArrDat1 = _startupPing($ArrDat1,'www.google.de')

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

; 2. Adresse
Global $ArrDat2[40]
$ArrDat2 = _startupPing($ArrDat2,'www.blog4it.de')

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

; 3. Adresse
Global $ArrDat3[40]
$ArrDat3 = _startupPing($ArrDat3,'www.autoit.de')

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

; 4. Adresse
Global $ArrDat4[40]
$ArrDat4 = _startupPing($ArrDat4,'www.youtube.com')
GUIDelete($hwnd)

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 852, 550)
GUISetBkColor($bgColor)
$hwnd = WinGetHandle($Form1)
GUISetState(@SW_SHOW,$hwnd)
#EndRegion ### END Koda GUI section ###

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

; GDI starten und Grafikobjekt erzeugen wo wir malen können.
_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hwnd)
Sleep(200)

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

; Grafik das erstemal laden
$ArrDat1 = _PaintStatistik('www.google.de',0,20,$stdSchwellwert,$ArrDat1)
$ArrDat2 = _PaintStatistik('www.blog4it.de',426,20,$stdSchwellwert,$ArrDat2)
$ArrDat3 = _PaintStatistik('www.autoit.de',0,280,$stdSchwellwert,$ArrDat3)
$ArrDat4 = _PaintStatistik('www.youtube.com',426,280,$stdSchwellwert,$ArrDat4)

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

; in einem Zeitintervall von x MS refresh
AdlibEnable('_RePing',$refreshTime)

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

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

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

EndSwitch
WEnd

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

Func _RePing()
AdlibDisable()
$ArrDat1 = _PaintStatistik('www.google.de',0,20,$stdSchwellwert,$ArrDat1)
$ArrDat2 = _PaintStatistik('www.blog4it.de',426,20,$stdSchwellwert,$ArrDat2)
$ArrDat3 = _PaintStatistik('www.autoit.de',0,280,$stdSchwellwert,$ArrDat3)
$ArrDat4 = _PaintStatistik('www.youtube.com',426,280,$stdSchwellwert,$ArrDat4)
AdlibEnable('_RePing',$refreshTime)
EndFunc

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

Func _PaintStatistik($adresse,$posX,$posY,$schwellwert,$datenArray,$titel = $adresse)
; Dekleration Variablen
Dim $ping,$hBrushBackground,$hPenBoarder,$messwerteX = $posX+40,$messwerteY = $posY+131,$summe = 0

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

; Deklaration Zeichenwergzeuge
$hBrushBackground = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
$hBrushStatusOK = _GDIPlus_BrushCreateSolid(0xFF00FF00)
$hBrushStatusFehler = _GDIPlus_BrushCreateSolid(0xFFFF0000)
$hBrushKurveRot = _GDIPlus_BrushCreateSolid(0x22FF0000)
$hBrushKurveGruen = _GDIPlus_BrushCreateSolid(0x2200FF00)
$hPenBoarder = _GDIPlus_PenCreate(0xFF000000,3)

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

; Rahmen etc. zeichen, Grunddaten
_GDIPlus_GraphicsFillRect($hGraphics,$posX,$posY,$totalwidth,$totalheight,$hBrushBackground)
_GDIPlus_GraphicsDrawRect($hGraphics,$posX,$posY,$totalwidth,$totalheight,$hPenBoarder)
_GDIPlus_GraphicsDrawLine($hGraphics,$posX,$posY+160,$posX+$totalwidth,$posY+160,$hPenBoarder)
_GDIPlus_GraphicsDrawLine($hGraphics,$posX+40,$posY+31,$posX+419,$posY+31)
_GDIPlus_GraphicsDrawLine($hGraphics,$posX+40,$posY+56,$posX+419,$posY+56)
_GDIPlus_GraphicsDrawLine($hGraphics,$posX+40,$posY+81,$posX+419,$posY+81)
_GDIPlus_GraphicsDrawLine($hGraphics,$posX+40,$posY+106,$posX+419,$posY+106)
_GDIPlus_GraphicsDrawLine($hGraphics,$posX+40,$posY+131,$posX+419,$posY+131)

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

; DatenArray verschieben um eins (39 nach 40, 38 nach 39,.....)
For $i = 39 To 1 Step -1
$datenArray[$i] = $datenArray[$i - 1]
Next

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

$ping = Ping($adresse,125)
If $ping > 125 Then $ping = 0
$datenArray[0] = $ping

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

; Messwerte setzen
$aPoints[0][0] = 41
$aPoints[1][0] = $messwerteX
$aPoints[1][1] = $messwerteY
$summe = 0
For $i = 2 to 40
$summe += $datenArray[$i - 2]
$aPoints[$i][0] = $messwerteX + (10 * ($i-2))
$aPoints[$i][1] = $messwerteY - $datenArray[$i - 2]
Next
$aPoints[41][0] = ($messwerteX + (10 * (($i - 2))) -10)
$aPoints[41][1] = $messwerteY

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

If round($summe / 40,2) >= $schwellwert Then
_GDIPlus_GraphicsFillPolygon ($hGraphics, $aPoints,$hBrushKurveRot)
Else
_GDIPlus_GraphicsFillPolygon ($hGraphics, $aPoints,$hBrushKurveGruen)
EndIf

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

; Texte schreiben
_GDIPlus_GraphicsDrawString($hGraphics,$titel,$posX + 10,$posY + 165,"Arial",14) ; Titel (Adresse)
_GDIPlus_GraphicsDrawString($hGraphics,StringFormat('(%s)',$adresse),$posX + 10,$posY + 185,"Arial",10) ; (Adresse)
_GDIPlus_GraphicsDrawString($hGraphics,StringFormat('Durchsch. Wert: %s',round($summe / 40,2)),$posX + 10,$posY + 210,"Arial",10) ; Durchsch. Wert:
_GDIPlus_GraphicsDrawString($hGraphics,StringFormat('Letzter Wert: %s',$datenArray[0]),$posX + 210,$posY + 210,"Arial",10) ; Letzter Wert:
_GDIPlus_GraphicsDrawString($hGraphics,'100',$posX + 5,$posY + 23,"Arial",10) ; 100 MS
_GDIPlus_GraphicsDrawString($hGraphics,'75',$posX + 10,$posY + 48,"Arial",10) ; 75 MS
_GDIPlus_GraphicsDrawString($hGraphics,'50',$posX + 10,$posY + 73,"Arial",10) ; 50 MS
_GDIPlus_GraphicsDrawString($hGraphics,'25',$posX + 10,$posY + 98,"Arial",10) ; 25 MS
_GDIPlus_GraphicsDrawString($hGraphics,'0',$posX + 17,$posY + 123,"Arial",10) ; 0 MS

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

; Status seten
If round($summe / 40,2) >= $schwellwert Then
_GDIPlus_GraphicsFillRect($hGraphics,$posX+355,$posY+166,65,65,$hBrushStatusFehler)
Else
_GDIPlus_GraphicsFillRect($hGraphics,$posX+355,$posY+166,65,65,$hBrushStatusOK)
EndIf

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

; Das geänderte DatenArray zurückgeben
Return $datenArray
EndFunc

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

Func _startupPing($arr,$adr)
For $i = 39 To 0 Step -1
$ping = Ping($adr,125)
If $ping > 125 Then $ping = 0
$arr[$i] = $ping
Next
Return $arr
EndFunc

[/autoit]

McPoldy

Na, dann muss ich wohl noch mal meinen Quelltext etwas anpassen Bin schon dabei

Allerdings stelle ich grade fest, das ich da wirklich total durcheinander geskriptet habe, Mist. Mal sehen was ich da noch retten kann, so das man es auch nachvollziehen kann.

McPoldy

Meinst du so etwas in dieser Richtung? Video

Ich sag es gleich, der Quelltext ist hässlich, hab ihn nur auf die schnelle zusammen getippt.

Quelltext

[autoit]

#cs INI Datei Beispiel: myini.ini

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

[Setting]
Count=5
[Adressen]
Adresse1=www.google.de
Adresse2=www.google.com
Adresse3=www.blog4it.de
Adresse4=www.it-runde.de
Adresse5=www.it-runde123321.de

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

#ce ----------------------------------------------------------------------------

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

#include <Array.au3>

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

Const $iniFile = 'myini.ini'
Local $AnzAdr,$arrAdr[1][41]

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

_readINI()

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

Func _readINI()
$AnzAdr = IniRead($iniFile,'Setting','Count',0)
If $AnzAdr = 0 Then Return
ReDim $arrAdr[$AnzAdr][41]
For $i = 0 To $AnzAdr -1
$arrAdr[$i][0] = IniRead($iniFile,'Adressen','Adresse' & $i + 1,'NV')
For $n = 1 To 40
$arrAdr[$i][$n] = 0
Next
Next
EndFunc

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

Func _ping()
For $i = 0 To $AnzAdr -1
For $n = 40 To 2 Step -1
$arrAdr[$i][$n] = $arrAdr[$i][$n - 1]
Next
$arrAdr[$i][1] = Ping($arrAdr[$i][0])
Next
EndFunc

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

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Region ### START Koda GUI section ### Form=
$frmMain = GUICreate("PingMonitor", 820, 200)
$hWnd = WinGetHandle("PingMonitor")
$cmboZiele = GUICtrlCreateCombo($arrAdr[0][0], 8, 8, 177, 25)
For $i = 0 To $AnzAdr -1
GUICtrlSetData($cmboZiele, $arrAdr[$i][0])
Next
$lblDurchschnitt = GUICtrlCreateLabel('Durchs.: ',620,70,80)
$lblZuletzt = GUICtrlCreateLabel('Letzter Wert: ',620,90,80)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $aPoints[82][2]
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)

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

AdlibEnable('_draw',1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_Shutdown ()
Exit

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

EndSwitch

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

WEnd

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

Func _draw()
$id = _ArraySearch($arrAdr,GUICtrlRead($cmboZiele))
_ping()
$posNullX = 180
$posNullY = 10
$hPen25 = _GDIPlus_PenCreate(0xFF00FF00)
$hPen50 = _GDIPlus_PenCreate(0xFF0000FF)
$hPen75 = _GDIPlus_PenCreate(0xFFFF0000)
$hPen100 = _GDIPlus_PenCreate(0xFFFF00FF)
$aPoints[0][0] = 42
$aPoints[1][0] = $posNullY
$aPoints[1][1] = $posNullX
$summe = 0
For $i = 1 to 40
$summe += $arrAdr[$id][$i]
$aPoints[$i + 1][0] = 15 * $i
$ping = $arrAdr[$id][$i]
If $ping >= 125 Or $ping = 0 Then $ping = 125
$aPoints[$i + 1][1] = $posNullX - (1 * $ping)
Next
$aPoints[42][0] = $posNullY + (15 * 40)
$aPoints[42][1] = $posNullX
$hBrush = _GDIPlus_BrushCreateSolid(0xFF88FFFF)
_WinAPI_RedrawWindow($hWnd)
_GDIPlus_GraphicsFillPolygon ($hGraphic, $aPoints,$hBrush)
_GDIPlus_GraphicsDrawLine($hGraphic,$posNullY,$posNullX -25,$posNullY + (15 * 40),$posNullX -25,$hPen25)
_GDIPlus_GraphicsDrawLine($hGraphic,$posNullY,$posNullX -50,$posNullY + (15 * 40),$posNullX -50,$hPen50)
_GDIPlus_GraphicsDrawLine($hGraphic,$posNullY,$posNullX -75,$posNullY + (15 * 40),$posNullX -75,$hPen75)
_GDIPlus_GraphicsDrawLine($hGraphic,$posNullY,$posNullX -100,$posNullY + (15 * 40),$posNullX -100,$hPen100)
_GDIPlus_GraphicsDrawRect($hGraphic,$posNullY,$posNullX-130,600,130)

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

GUICtrlSetData($lblDurchschnitt,'Durchs.: ' & Round($summe / 40,2))
GUICtrlSetData($lblZuletzt,'Letzter Wert: ' & $arrAdr[$id][1])
EndFunc

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

BeispielINI

[Setting]
Count=5
[Adressen]
Adresse1=www.google.de
Adresse2=www.google.com
Adresse3=www.blog4it.de
Adresse4=www.it-runde.de
Adresse5=www.it-runde123321.de

McPoldy

Oh man, ja klar, manchmal sind die einfachsten Dinge so naheliegend

McPoldy

Ich habe ein paar Videos erstellt, welche sich um Autoit in Verbindung mit Twitter handeln. Das Video richtet sich eigentlich an alle, die neu im Autoit Umfeld sind aber auch an etwas Fortgeschrittene, die vielleicht mal sehen wollen wie jemand anderes an so ein Skript rangeht.

Das Video ist leider in ganze 7 Teile verfallen, da ich ja noch immer im Aufbau meines YouTube Kannales bin und leider immer nur 10 Minuten Häppchen einstellen darf. Es ist auch nichts rausgeflogen, mit dem Hintergrund, das ich da auch ein paar Fehler gemacht habe, die wohl jedem mal passieren können, gehört eben auch dazu.

Hier mal ein kurzer Abriss über den Inhalt:

Allgemeines Geschwätz
Wo bekomme ich die Infos her
Wie sende ich ein Update
Wie hole ich mir meine Direct Messages
Wie hole ich mir meine @-Replies
Zwischen drinnen ein paar blöde Fehler von mir

Wenn Euch die Videos gefallen, werde ich gerne noch mehr Videos in dieser Richtung bauen. Wie Ihr mich erreichen könnt, sage ich noch am Ende des siebenten Teils.

Hier noch der Link zu der Playlist, damit Ihr euch nicht so viel suchen müsst.
http://www.youtube.com/view_play_list?p=49BD9268C4A9026A

Besucht auch meinen YouTube Kanal unter http://www.youtube.com/blog4itde

Nachtrag, Link zum Quelltext: Download

McPoldy

Hi,

Ich habe es mal mit ControlClick gemacht, klappt wunderbar, teste mal.

[autoit]

$sProgramm = 'cdbxp_setup_4.2.5.1490.exe'
run($sProgramm)

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

$titel = 'Setup - CDBurnerXP'
WinWaitActive($titel,'Willkommen')
ControlClick($titel,'','TNewButton1')

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

WinWaitActive($titel,'Lizenzvereinbarung')
ControlClick($titel,'','TNewRadioButton1')
ControlClick($titel,'','TNewButton2')

[/autoit]

McPoldy

OK, nur damit ich das richtig verstehe:

Du möchtest immer den Body - Bereich von (z.B.) autoit.de auslesen, wenn sich die Seite neu aufbaut bekommst du den Fehler, weil sich der Titel ändert. Aber wie sieht es den mit der URL aus, die sollte ja wohl gleich bleiben, dann könntest du das mit folgendem Befehl machen:

[autoit]

#include <IE.au3>
while 1
$seite = _IEAttach("autoit","URL")
$Text = _IEBodyReadText($seite)
sleep(250)
wend

[/autoit]

McPoldy

Poste doch mal deinen Quelltext, dann sieht man es evtl. besser (oder ich kapiere heute mal wieder nix).

McPoldy

Ich hoffe ich bekomme es so aus dem Kopf hin, müsste dann so aussehen:

[autoit]

Run (@ProgramFilesDir & '\WinRAR\WinRAR.exe a -hp c:\Testpacker.rar "C:\Documents and Settings\User2\My Documents\*.*"')

[/autoit]

McPoldy

Ja, das geht, ich habe es mal mit usercomment gemacht, ist nicht so kritisch

Beispiel

Nur lokal

[autoit]

ShellExecute('cmd','/c net user [USERNAME] /usercomment:"Netter Mensch" /DOMAIN',@TempDir,"",@SW_HIDE)

[/autoit]

In Domäne

[autoit]

ShellExecute('cmd','/c net user [USERNAME] /usercomment:"Netter Mensch"',@TempDir,"",@SW_HIDE)

[/autoit]

McPoldy

Was für ein, Stick, Drucker oder alle USB Geräte?

McPoldy

So, leider war ich die letzen Monate stark in Projekte eingebunden und hatte eigentlich Zeit für nichts , aber jetzt kann ich wieder meine Zeit etwas besser einteilen. Da ich ja Autoit sehr gerne schreibe, habe ich mir gedacht, ich könnte da anknüpfen wo ich mal aufgehört habe Ich hatte ja mal angefangen Videos zu Autoit zu machen, leider nehmen die erstens doch recht viel Zeit in Anspruch und zweitens ist der Traffic, wenn ich sie auf meinen Server lege, auch nicht ohne. Daher habe ich mir gedacht, da ich nun ja bei YouTube Videos in HD hoch laden kann, könnte ich das ganze Material dort unterbringen. Leider weit gefehlt, die Platte wo ich die Daten hatte sind nicht mehr und die FLV oder SWF Dateien kann ich auch nicht hoch laden, kein HD

OK, was hab ich also vor, ich habe einfach einen neuen Kanal bei YouTube erstellt und einen neuen Blog. Hier will ich jetzt mal eine neue Serie von Autoit Videos produzieren und veröffentlichen, heute kommt noch ein kleines Video und in den nächsten Wochen kommen noch einige weitere. Wer also Lust hat, mich zu unterstützen, darf das sehr gerne machen, Hintergrund, ich will diesen netten Partner Status, damit ich endlich mal Anleitungen machen kann die ich nicht in 10 Minuten Teile zerstückeln muss.

Hier natürlich auch noch die Links:

Mein Blog, wo immer Kurzbeschreibungen rein kommen und auch die Dateien zu finden sind, die ich in den Videos nutze: http://www.blog4it.de
Der YouTube Kanal, wo ich eben auch was über Autoit bringen werde aber auch anderen Themen nachgehe: http://www.youtube.de/blog4itde

McPoldy

Ich hab mal gewühlt und habe etwas im US Forum gefunden, etwas umgeschrieben damit es mir besser gefällt

Spoiler anzeigen

[autoit]

; Includes
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

; Gui erzeugen
$Gui = GUICreate("EditBox",300,300)

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

; Eine Editbox reinpacken
$Edit = GUICtrlCreateEdit("", 20, 20,260,260)

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

; Ein Dummy-Menü erzeugen
$dummyM = GUICtrlCreateDummy()
$cm = GUICtrlCreateContextMenu($dummyM)
$cm1 = GUICtrlCreateMenuItem("Eintrag 1", $cm)
$cm2 = GUICtrlCreateMenuItem("Eintrag 2", $cm)
GUICtrlCreateMenuItem("", $cm)
$cm3 = GUICtrlCreateMenuItem("Programm beenden (belegt)", $cm)

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

; Gui anzeigen lassen
GUISetState()

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

; Die nette Endlosschleife
While 1
; Cursor Informationen abfragen
$CurInfo = GUIGetCursorInfo($Gui)
if $CurInfo[3] = 1 And $CurInfo[4] = $Edit then ShowMenu($Gui, $cm)

$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $cm3
Exit
EndSwitch
WEnd

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

; Diese Funktion überschreibt das Standart Kontextmenü mit unserm Dummy Menü (Quelle US Autoit Forum)
Func ShowMenu($hWnd, $nContextID)
Local $hMenu = GUICtrlGetHandle($nContextID)

$arPos = MouseGetPos()

Local $x = $arPos[0]
Local $y = $arPos[1]

DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc

[/autoit]

Beiträge von McPoldy

Stream in eine Text-Datei sichbar machen

Im SVZ mit der Http-UDF anmelden (Hilfe)?

Fixer URL Shortener :)

Fixer URL Shortener :)

Hilfe Videos

Programm Zeit

ComboBox Problem

RMCHART

RMCHART

RMCHART

IE _IEBodyReadText und IEAttch Error problem

Hilfe Videos

[Problem] Option Butto auswählen

IE _IEBodyReadText und IEAttch Error problem

IE _IEBodyReadText und IEAttch Error problem

Autopacken mit Winrar

Net user [Username] /PASSWORDCHG:{YES|NO}

USB Deaktivieren

Hilfe Videos

Context Menü in RichEdit