Hallo Keyle,
bin durch diesen Beitrag auf Gobby gestossen. Die Idee von Gobby find ich gut, dass du es für AutoIt angepasst hast find ich so 
, das ( peethebee ) ich vorschlage diesen Beitrag entweder im Forum Projekte oder Skripte in der Ruprik Ankündigungen und wichtige Themen aufzunehmen. Vielleicht schreibt ja auch jemand ein Tutorial dazu,
mfg (Auto)Bert
Hallo L3viathan2142,
denke eigentlich, dass es von der Aufgabenstellung her von einem zu lösen ist und wollte es auch alleine machen. Falls du aber Mitstreiter findest bzw. das Projekt selbst realisieren willst, halte ich mich zurück, bin trotzdem gerne bereit das Projekt zu unterstützen,
mfg (Auto)Bert
Hallo chrisatack,
danke dass du dich so schnell gemeldet hast, dann kann ich ja anfangen.
peethebee , denke mal dass @Madmaxx89 dem du es ja vorgeschlagen hattest auch noch nicht angefangen hat.
mfg (Auto)Bert
Hallo peethebee,
ich dachte eigentlich dass sich chrisatack daran probiert, aber wenn er sich bis morgen nicht meldet wage ich mich daran.
Falls jemand anderes bereits daran ist bitte auch melden,
mfg (Auto)Bert
Hallo chip,
schau dir mal DriveMapAdd an dies wurde auch in diesem Thread: https://autoit.de/index.php?page…97591#post97591 behandelt,
mfg (Auto)Bert
Hallo Raupi,
ich einmal in einem anderen Thread in Zusammenhang mit GuiRichEdit nach Hinweisen von @progandy ModernMenu angepasst (glaube es war für Mehmex), kannst ja bei Bedarf danach suchen. (Falls ich mich genauer erinnere und den Thread finde, stelle ich den Link in diesem Post ein)
mfg (Auto)Bert
Hallo Elodie,
versuch es einmal mit _GUICtrlTab_SetItemSize. Du müsstest m.E. nach etwas in der Breite zugeben, damit sich die Beschriftung auch garantiert hinein passt,
mfg (Auto)Bert
Hallo tuttifrutti,
Wenn du vor dem Posten deines Skriptes nicht so faul gewesen wärst und ein bischen nachgedacht hättest, könntest du schon längst die Lösung haben, Deshalb "without thinking" in #7. Wissen tun es sicher viele, aber BOTern helfen ....
Sehr freundlich.
Deswegen ist man hier in einem Forum und erhofft sich hilfe von anderen. Nunja...----Back To Topic----
sei doch froh das dein Thread noch nicht geclosed ist und verhalte dich in Zukunft an die Forenregeln, dann wird dir auch geholfen,
mfg (Auto)Bert
Hallo tuttifrutti,
Ein bot ist für mich , der Sachen macht wofür man zu faul ist & alles Automatisch macht.
dann müssten sich ja sehr viele Forenmitglieder in BOT umbenennen, da sie für dich die Sachen machen und dabei automatisch das Wort BOT überlesen sollen.
Zitat AutoBert: Dieser Skriptauszug hat mir besonders gefallen:
AutoIt-Quellcode
1
$trayNo = TrayTip("","Nothink Found",5000)aber ich würde Nothink auseinanderschreiben oder besser without thinking,
Und zu dem auszug ich habe ein "k" geschrieben wollte aber ein "g" schreiben für ' Nothing found ' =)
Ich hoffe ob jemand weiß warum er die Liste zwar aktualisiert aber nicht überschreibt ?
Wenn du vor dem Posten deines Skriptes nicht so faul gewesen wärst und ein bischen nachgedacht hättest, könntest du schon längst die Lösung haben, Deshalb "without thinking" in #7. Wissen tun es sicher viele, aber BOTern helfen ....
mfg (Auto)Bert
Hallo PoloShirt,
hab dein Skript mal abgeändert damit die Mehrfachinstanzen vermieden werden:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt('GUIOnEventMode', 1) ; OnEventMode für die GUI
Opt('TrayOnEventMode', 1) ; OnEventMode für das Traymenü
Opt('TrayMenuMode', 1) ; Standard-Traymenü entfernen
$sTitle = 'Extended Tooltip'
$BgColor = 0xFFFFDF ; Hintergrundfarbe
$ShColor = 0x666666 ; Schattenfarbe
$Width = 320 ; Breite des Fensters
$Height = 200 ; Höhe des Fensters
$Left = Int(@DesktopWidth/2-$Width/2) ; Horizontale Position (zentriert)
$Top = Int(@DesktopHeight/2-$Height/2) ; Vertikale Position (zentriert)
$hGui = GUICreate($sTitle, $Width, $Height, $Left, $Top, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW) ; keine Titelleiste, kein Button in der Taskleiste
GUISetBkColor($BgColor) ; Hintergrundfarbe setzen
GUISetOnEvent($GUI_EVENT_CLOSE, '_End') ; [ESC] beendet das Programm
$hLabel = GUICtrlCreateLabel('', 0, 0, $Width, $Height, Default, $GUI_WS_EX_PARENTDRAG) ; Transparentes Label zum verschieben des Fensters
[/autoit] [autoit][/autoit] [autoit]$hHead = GUICtrlCreateLabel('', 10, 10, $Width-20, 30, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) ; Ein Label für die Überschrift
GUICtrlSetFont(-1, 16, 600, 0, 'Arial') ; Größe und Zeichensatz der Überschrift setzen
$hText = GUICtrlCreateEdit('', 10, 45, $Width-20, $Height-60, BitOr($WS_VSCROLL, $ES_AUTOVSCROLL, $ES_READONLY), $WS_EX_TRANSPARENT) ; ein scrollbares Editfeld erstellen
GUICtrlSetBkColor(-1, $BgColor) ; Hintergrundfarbe setzen
GUICtrlSetState(-1, $GUI_ONTOP) ; Das Editfeld nach vorne holen, damit man scrollen kann
GUICtrlSetFont(-1, 10, 500, 0, 'Arial') ; Größe und Zeichensatz der Überschrift setzen
;$hCountdown = GUICtrlCreateEdit('', 10, 45, $Width-20, $Height-20, $WS_EX_TRANSPARENT) ; ein scrollbares Editfeld erstellenEin Label für den Countdown
;GUICtrlSetFont(-1, 10, 500, 0, 'Arial') ; Größe und Zeichensatz der Überschrift setzen
$hContextMenu = GUICtrlCreateContextMenu($hLabel) ; Kontextmenü erstellen
GUICtrlCreateMenuItem('Minimieren', $hContextMenu) ; Minimieren-Eintrag erstellen
GUICtrlSetOnEvent(-1, '_Minimize') ; dem Eintrag eine Funktion zuweisen
GUICtrlCreateMenuItem('Beenden', $hContextMenu) ; Beenden-Eintrag erstellen
GUICtrlSetOnEvent(-1, '_End') ; dem Eintrag eine Funktion zuweisen
TrayCreateItem('Wiederherstellen') ; Traymenüeintrag erstellen
TrayItemSetOnEvent(-1, '_Restore') ; dem Eintrag eine Funktion zuweisen
TrayCreateItem('Beenden') ; Traymenüeintrag erstellen
TrayItemSetOnEvent(-1, '_End') ; dem Eintrag eine Funktion zuweisen
$hShadow = GUICreate('Shadow', $Width, $Height, $Left+6, $Top+6, $WS_POPUP, $WS_EX_TOOLWINDOW) ; Schattenfenster erzeugen
GUISetBkColor($ShColor) ; Farbe des Schattens setzen
WinSetTrans($hShadow, '', 128) ; Transparenz des Schattens einstellen
GUISetState(@SW_SHOW, $hShadow) ; Schatten anzeigen
GUISetState(@SW_SHOW, $hGui) ; GUI anzeigen
WinSetOnTop('Shadow', '', 1) ; Schatten immer im Vordergrund
WinSetOnTop($sTitle, '', 1) ; GUI immer im Vordergrund
GUIRegisterMsg($WM_MOVE, '_ShadowMove') ; Funktion zum "Schatten verschieben" registrieren
[/autoit] [autoit][/autoit] [autoit]#cs => um mehrere Zeilen auszukommentieren
Trafficlimit-Projekt
To Do:
überprüfung ob das Netzwerkkabel steckt
Deaktivierung der Netzwerkkarte für winxp, für vista: keine Ahnung
#ce
#include <IE.au3>
#include <array.au3>
#Include <Constants.au3>
#NoTrayIcon ; Trayicon erstmal verstecken
#include<EditConstants.au3>
#include<StaticConstants.au3>
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
Global $schwellenwert = 1.950000
Global $grenze1 = 1.400000 ;hier die variablen definieren,
Global $grenze2 = 1.800000 ;Local gilt hier nur als defaultwert, kann mit global über menü überschrieben werden
Global $grenze3 = 1.900000
Global $sleeptime0 = 1
Global $sleeptime1 = 90 ; in Min
Global $sleeptime2 = 30 ; = 30 Min
Global $sleeptime3 = 5 ;5 Min
Global $traffic = 0
Global $Minutes
Global $hShadow, $hGui, $sTitle
;ab hier Schleife
While 1=1 ; wenn der Ausdruck immer wahr ist: dann wie hier endlos
; hier stehen die Befehle,
; die immer wieder ausgefuehrt
; werden sollen
check()
Select ; Wartezeit bestimmen
Case $traffic >= $schwellenwert
Ueberschreitung ()
Case $traffic >= $grenze3
$Minutes = $sleeptime3
Sleep (20)
Case $traffic >= $grenze2
$Minutes = $sleeptime2
Sleep (20)
Case $traffic >= $grenze1
$Minutes = $sleeptime1
Sleep (20)
Case $traffic < $grenze1
$Minutes = $sleeptime0
Case Else
Fehler()
EndSelect
;MsgBox(64, "Info", "$Minutes ist:" & $Minutes & " ")
AusgabeimFenster () ;Im Fenster ausgeben
warten()
sleep (20)
WEnd
;--------------------------
Func warten ()
;Time Machine #1
;Minutes/seconds/miliseconds
; Author - Valuater
[/autoit] [autoit][/autoit] [autoit];$Minutes = 90 ; will wait 90 minutes: das hier löschen
[/autoit] [autoit][/autoit] [autoit]Global $60Count = 0, $begin = TimerInit()
While $Minutes > $60Count
$dif = TimerDiff($begin)
$dif2 = StringLeft($dif, StringInStr($dif, ".") -1)
$Count = int($dif/1000)
$60Count = Int($Count / 60)
;ToolTip("Minuten bis zur nächsten Traffic-Überprüfung = " & $Minutes & @CRLF & "Minuten vergangen = " & $60Count & @CRLF & "Sekunden vergangen = " & $Count & @CRLF & "Mili-Sekunden = " & $dif2, 20, 20, "Time Machine #1", 1)
;TrayTip("Traffic-Info", "Internetkontingent-Information " & $Uhrzeit, "Aktuell sind: " & $traffic & " Gbyte verbraucht", 5)
;AusgabeimFenster () ;Im Fenster ausgeben
Sleep(20) ;Prozessorentlastung in Endlosschleife
WEnd
;MsgBox(64, "Time-Up!!", "Your " & $Minutes & " minutes have passed ")
;sleep (20)
EndFunc
;------------------------------
Func check () ;Funktion die einmal den Traffic ausliest
Local $url = 'http://statistik.uni-trier.de/monatsstat.php'
Local $oIE = _IECreate($url, 0, 0)
Local $oTable = _IETableGetCollection($oIE, 0)
Local $array = _IETableWriteToArray($oTable, True) ; liest Tabelle in einen 2D-Array
;_ArrayDisplay($array) ; gibt Array auf dem Bildschirm aus -> Messagebox einfügen!
$traffic = $array[3][2] ;soll Gesamttraffic anzeigen: 4.Zeile (Zählung beginnt mit 0, 2.Spalte
$traffic = StringStripWS ( $traffic, 2 ) ;entfernt Leerzeichen u.ä. am Anfang und Ende von $traffic (führt sonst zu Überspringen von if-Abfrage)
_IEQuit($oIE) ; schließt IE
sleep (20)
EndFunc
;-----------------------------
Func Ueberschreitung ()
MsgBox(16, "Achtung: Kontingent erschöpft! " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr", "Das Internetkontingent wurde erreicht." & @CR & @CR & _
"Aktuell: " & $traffic & " Gbyte" & @CR & "Das Netzwerkkabel ziehen wäre jetzt die einfachste Lösung ;-)")
sleep(20)
EndFunc
;----------------------------
Func Fehler ()
MsgBox(64, "Fehler", "Ein Fehler ist aufgetreten.")
sleep (20)
EndFunc
;----------------------------
; Ab hier kommt die GUI
Func AusgabeimFenster ()
;Diese Variable möchte ich über mein Programm definieren.
;$msg = 'In der großen Koalition sorgt der Zank um die Novelle des Gesetzes für das Bundeskriminalamt (BKA) weiter für Unmut. Vor allem Bundesinnenminister Wolfgang Schäuble ist nach wie vor erzürnt über den Widerstand auch aus SPD-regierten Ländern gegen die vom Bundestag abgesegnete Ausweitung der BKA-Befugnisse einschließlich einer Lizenz für heimliche Online-Durchsuchungen.'
;$msg &= '"Die Führung der Partei kann ihre Entscheidungen derzeit nicht durchsetzen", klagte der CDU-Minister dem "Focus" sein Leid. Der Koalitionspartner befinde sich in einer "akuten Krise". Eine "Handvoll Jusos" in Sachsen könne das Inkrafttreten eines jahrelang beratenen Gesetzes verzögern, schimpfte Schäuble gegen das erste Nein eines Landes gegen das Vorhaben, in dem die Sozialdemokraten mit an der Macht sind.'
;GUICtrlSetData($hHead, 'Streit um BKA-Gesetz') ; Überschrift anzeigen
Global $Count, $60Count, $hShadow
Global $msg = @HOUR & ":" & @MIN & ":" & @SEC & " Uhr"
$msg &= @CRLF & @CRLF & "Aktuell sind: " ; Fensterinhalt definieren: Traffic und Verbleibende Minuten
$msg &= $traffic
$msg &= " Gbyte verbraucht."
$msg &= @CRLF & "Nächste Überprüfung in "
$msg &= $Minutes
$msg &= " Minuten."
GUICtrlSetData($hHead, "Internet-Kontingent") ; Überschrift anzeigen
GUICtrlSetData($hText, $msg) ; denText anzeigen
; Wie zeigt man einen Countdown an?
#cs While True ; Endlosschleife
Sleep(10) ; Prozessor entlasten
WEnd
#ce
EndFunc
;--------------------------------------------
Func _End()
Exit
EndFunc
Func _Minimize()
GUISetState(@SW_HIDE, $hShadow) ; Schatten verstecken
GUISetState(@SW_HIDE, $hGui) ; GUI verstecken
TraySetState(1) ; Trayicon anzeigen
EndFunc
Func _Restore()
GUISetState(@SW_SHOW, $hShadow) ; Schatten wiederherstellen
GUISetState(@SW_SHOW, $hGui) ; GUI wiederherstellen
TraySetState(2) ; Trayicon verstecken
EndFunc
Func _ShadowMove()
Local $pos = WinGetPos($sTitle) ; Fensterposition der GUI holen
WinMove('Shadow', '', $pos[0]+6, $pos[1]+6) ; das Schatten-Fenster entsprechend verschieben
EndFunc
Ich kann es aber leider nicht selbst testen, da schon dein Ursprungsskript mit folgende Fehler aussteigt:
C:\Programme\AutoIt3\Downloads\PoloShirt\VolumenGui.au3 (96) : ==> Subscript used with non-Array variable.:
$traffic = $array[3][2]
$traffic = $array^ ERROR
->18:37:46 AutoIT3.exe ended.rc:1
+>18:37:47 AutoIt3Wrapper FinishedZu Timern schau dir mal Adlib bzw. TimerInit/TimerDiff an, oder suche nach Beiträge der letzten Tage von @ChaosKeks oder von mir,
mfg (Auto)Bert
Hallo tuttifrutti,
wie Raupi schon schrieb: BOTs werden hier nicht unterstützt, siehe Forenregeln.
Dieser Skriptauszug hat mir besonders gefallen:
[autoit]$trayNo = TrayTip("","Nothink Found",5000)
[/autoit]aber ich würde Nothink auseinanderschreiben oder besser without thinking,
Edit: jetzt versteh ich auch warum du deine Skripte durch den Obfuscator jagst und Angst vorm Decompilen hast
mfg (Auto)Bert
Hallo cartan12,
Hi,
ich möchte, dass autoit ein programm startet und danach die ganze zeit einen Knopf drückt, während ich etwas anderes mache. Kann mir da jemand helfen? Ich wäre sehr dankbar.
Wie findet man raus, wo die Punkte x und y sind?
Hört sich nach einem BOT an, daher lies bitte erstmal die Forenregeln.
mfg (Auto)Bert
Hallo PokerFace,
wenn es unbedingt Text sein soll, dann schau dir auch Txt2Html von Oscar an,
mfg (Auto)Bert
Hallo G3Forward,
KeySend alles 22 Sekunden z.b die "1" senden an ClientHallo@all
ich suche eine lösung um mehrere tasten unabhänig voneinander an einen clienten zu senden ich mache es immoment nur mit
Wie Jam schon sagte BOTs werden hier nicht unterstützt, auch kenne ich keine Anwendung bei der es notwendig wäre auf die Sekunde genau eine Taste zu drücken. Daher solltest du das Programm das du automatisieren möchtest schon benennen, dann findet sich vielleicht auch ein anderer gangbarer Lösungsweg,
Edit: die folgende Excel-Tabelle die man G3Forward zuordnen kann bestätigt den BOT Verdacht:
http://spreadsheets.google.com/ccc?key=p_EilY--1WfqxS5KcXeloEw gefunden über Foreneintrag http://www.office-loesung.de/ftopic315007_0_0_asc.php
mfg (Auto)Bert
Hallo PlastoFix,
nimm doch statt RunWait stattdessen, dadurch ist das Explorerfenster ganrantiert aktiv, wenn <Alt>-<A> gesendet wird,
mfg (Auto)Bert
Hallo Digital2009,
benutze doch einmal das AutoIt Fenster-Informations-Tool (AU3Info) und lese die gleichnamige Hilfe dazu. Controlclick funktioniert über die ControlId die Koordinaten sind nur optional,
mfg (Auto)Bert
Hallo Elodie,
nimm doch einfach _GUICtrlTab_SetItemText oder benutze zum erstellen _GUICtrlTab_InsertItem, driite Möglichkeit wie bisher mit guictrlcreatetabitem erzeugen und das benötigte Handle für GUICtrlTab_GetCurSel mit GUICtrlGetHandle ermitteln,
mfg (Auto)Bert
Hallo Texos
Alles anzeigenHuhu
kann mir jemand helfen bei einem email script?
Wollte fragen ob es geht, das das script eine datei von meinem computer alle 5 minuten an eine email sendet.
und das script soll immer gestartet werden wenn der pc angemacht wird
hoffe ihr könnt mir helfen
Greetz
Texos aka. Dennis
kannst du uns (mir) erklären für was dieser (Un)Sinn soll, ausser SPAMen
mfg(Auto)Bert
Hallo @ChaosKeks,
ich glaub mein Timer geht stark vor, beim lesen dieses Themas drängt sich bei mir der Verdacht auf das heute der 1. April ist,
mfg (Auto)Bert
Hallo rayray99,
Bei user kann ich nur Zahlen eingeben und beim PW ist das egal. Warum weiss ich aber nicht.?????
meine Glaskugel ist mir leider vom Tisch gefallen und aus dem von dir bisher veröffentlichten Code kann ich die Antwort nicht erraten,
mfg (Auto)Bert
