Beiträge von autoBert

**autoBert**

Hallo Al.Gaida

Zitat von Al.Gaida

i=zufall
also hab im inet rumgesucht aber NICHTS gefunden
daher meine frage wie stelle ich ein das i zufällig zwischen 100 und 200 eingestellt wird

Zitat von Boardinterne Suche

Suchergebnisse 1-20 von insgesamt 218 für »Zufall«.
Diese Suchbegriffe wurden hervorgehoben:

Zitat von Google Suche

Ergebnisse 1 - 10 von ungefähr 444 für Zufall AutoIt. (0,23 Sekunden)

entweder bist du zu bequem oder du solltest dir (z.B. in der Volkshochschule) die Grundlagen des Internets erklären lassen,

mfg (Auto)Bert

**autoBert**

Hallo Al.Gaida,

Zitat von Pinguin94

Kann ich mir nicht denken, ließ nochmal GANZ GENAU
[autoit]
While 1
;...
WEnd
[/autoit]

durch.

Zitat von Al.Gaida

hab ich aber DU nicht

du solltest wirklich zuerst in der Hilfe die Kapitel Tutorials, Sprachreferenz und Gui-Referenz lesen, anstatt uns hier sinnlos mit Beiträgen zuzuSPAMen,

mfg (Auto)Bert

**autoBert**

Ansage:

Zitat von AutoBert

tippe mal auf einen Bot, daher Tut für Anklick-BOTs

**autoBert**

tippe mal auf einen Bot, daher Tut für Anklick-BOTs

mfg (Auto)Bert

**autoBert**

Hallo Eistee,

das könntest du über diesen Workaround machen:

Spoiler anzeigen

[autoit]

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

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

Global $pic = @SystemDir & '\oobe\images\nextover.jpg'
Global $pic2 = @SystemDir & '\oobe\images\nextdown.jpg'

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

$gui = GUICreate("Test", Default, Default, -1, -1)
$btnPic = GUICtrlCreatePic($pic, 30, 40, 24, 24)
$btnPic2 = GUICtrlCreateButton("OK",-100,-100,1,1)
GUICtrlSetState($btnPic2,$GUI_FOCUS)
GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $btnPic
If _AnimButton($gui, $btnPic) Then MsgBox(0, '', 'click Pic')
GUICtrlSetState($btnPic2,$GUI_FOCUS)
Case $msg = $btnPic2
_AnimButton($gui, $btnPic)
MsgBox(0, '', 'auch ein click')
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

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

;==================================================================================================
; Function Name: _AnimButton($IDgui, $IDbtn [, $delay=150])
; Description: animiert ein Pic, wie einen geklickten Button
; Parameter(s): $IDgui ID der GUI
; $IDbtn ID des Picture als Button
;==================================================================================================
Func _AnimButton($IDgui, $IDbtn)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos(GUICtrlGetHandle($IDbtn))
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 1, $pos[2] - 1, $pos[3] - 1)
Sleep(10)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 2, $pos[2] - 2, $pos[3] - 2)
Sleep(10)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 3, $pos[2] - 3, $pos[3] - 3)
GUICtrlSetImage($IDbtn, $pic2)
;Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0], $pWin[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
;WinSetTrans($tmpGui, '', 120)
;GUISetState(@SW_SHOWNOACTIVATE, $tmpGui)
$return = 1
Do
$x = GUIGetCursorInfo($IDgui)
If $x[4] <> $IDbtn Then $return = 0
Sleep(10)
Until $x[2] = 0
;GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 2, $pos[2] - 2, $pos[3] - 2)
Sleep(10)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 1, $pos[2] - 1, $pos[3] - 1)
Sleep(10)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
GUICtrlSetImage($IDbtn, $pic)
Return $return
EndFunc ;==>_AnimButton

[/autoit]

abgeändertes Skript von BugFix

mfg (Auto)bert

**autoBert**

Hallo L0c4lh0sT,
schau dir [ gelöst ] Fehler im Code ??? von Oscar an,

mfg (Auto)Bert

**autoBert**

Hallo eketrix,

es gibt mehrere Möglichkeiten:

mit GuiCtrRead Kombo auslesen, Wert anhängen und danach mit GuiCtrlSetData Kombo neu füllen.
_GUICtrlComboBox_AddString

mfg (Auto)Bert

**autoBert**

Hallo Iwasready,

das Skript läuft bei mir ohne abzuschmieren, ist allerdings bedingt durch meinen INet-Zugang (Web'n'walk ca. 12 KB/s) sehr träge (Verzögerungen bis zu 20 sec).
Die einzige Änderung die ich vorschlagen würde:

[autoit]

; #FUNCTION# ====================================================================================================================
; Name...........: _CheckForInternetConnection()
; Description ...: Check if the needed host is available on the network
; Syntax.........: _CheckForInternetConnection()
; Author ........: Y. Menge ([email='yves_menge@swi.salvationarmy.org'][/email])
; ===============================================================================================================================
Func _CheckForInternetConnection()
AdlibUnRegister("_CheckForInternetConnection")
$Result=_CheckInternet(_DBSettings_GET("ConnectionCheckURL","http://update.salvationarmy.ch/sysman/connectiontest.html"),_DBSettings_GET("ConnectionCheckValue","142199AB5289B0EA68E697DD4C0E6E7081ECBF385501722D60D7233FD984"))
if $Result=0 then
$InternetConnection=0
_GUICtrlStatusBar_SetText($hStatus,"Internet connection unavailable! ={",0)
ConsoleWrite("No Internet :(" & @CRLF)
Else
$InternetConnection=1
_GUICtrlStatusBar_SetText($hStatus,"Internet connection available! =}",0)
ConsoleWrite("Working :)" & @CRLF)
EndIf
AdlibRegister("_CheckForInternetConnection",10000)
EndFunc

[/autoit]

Ich verstehe aber den Sinn der laufenden Überprüfung nicht (vor allem in so kurzen Abständen), es würde doch reichen nur bei Bedarf die Verbindung zu prüfen

mfg (Auto)Bert

**autoBert**

Hallo eketrix,

kann dein Problem nicht erkennen. Suchst du vielleicht GuiCtrlSetData

mfg (Auto)Bert

**autoBert**

Hallo Iwasready,

jetzt lässt es sich bei mir starten (nach verneinen 2 maligem Nachfragen ob ich es wirklich beenden will) danach bekomme ich aber Fehlermeldungen

Code

_SQLite_LibVersion=3.5.7
!   SQLite.au3 Error
--> Function: _SQLite_Exec
--> Query:    INSERT INTO Log ("Type","Value") VALUES("SysMan","Application started!")
--> Error:    no such table: Log


!   SQLite.au3 Error
--> Function: _SQLite_Query
--> Query:    SELECT value FROM settings WHERE name='ConnectionCheckURL'
--> Error:    no such table: settings
;usw.

Alles anzeigen

das heisst die DB existiert bei mir nicht, eine Funktion zum Anlegen der benötigten DB kann ich im Skript nicht finden. Evtl. fehlt auch noch sysmandata.ini,

mfg (Auto)Bert

**autoBert**

Hallo Iwasready,

kannst du auch noch einen Link zur Ribbonsbar.au3 einstellen,

mfg (Auto)Bert

**autoBert**

Hallo iwasready,

kannst du das komplette Skript posten und auch richtig formatieren?

mfg (Auto)Bert

**autoBert**

Hallo rostefix,

schau nach FileOPenDialog bzw. FileSaveDialog,

mfg (Auto)Bert

**autoBert**

Strings werden mit dem & verknüpft, also so

[autoit]

GUICtrlSetData($Input1_username, "User" & $Username)

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo owidowispin,

klappt dieses kleine Beispiel bei dir?

Spoiler anzeigen

[autoit]

Opt('MustDeclareVars', 1)

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

Example()

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

Func Example()
Local $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m

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

GUICreate("My GUI Progressbar", 220, 100, 100, 200)

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

DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; Classic-Style ;<=============
$progressbar1 = GUICtrlCreateProgress(10, 10, 200, 20)
GUICtrlSetColor(-1, 32250); not working with Windows XP Style
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; Standard-Windows-Style ;<=============
$progressbar2 = GUICtrlCreateProgress(10, 40, 200, 20, $PBS_SMOOTH)
$button = GUICtrlCreateButton("Start", 75, 70, 70, 20)
GUISetState()

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

$wait = 20; wait 20ms for next progressstep
$s = 0; progressbar-saveposition
Do
$msg = GUIGetMsg()
If $msg = $button Then
GUICtrlSetData($button, "Stop")
For $i = $s To 100
If GUICtrlRead($progressbar1) = 50 Then MsgBox(0, "Info", "The half is done...", 1)
$m = GUIGetMsg()

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

If $m = -3 Then ExitLoop

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

If $m = $button Then
GUICtrlSetData($button, "Next")
$s = $i;save the current bar-position to $s
ExitLoop
Else
$s = 0
GUICtrlSetData($progressbar1, $i)
GUICtrlSetData($progressbar2, (100 - $i))
Sleep($wait)
EndIf
Next
If $i > 100 Then
; $s=0
GUICtrlSetData($button, "Start")
EndIf
EndIf
Until $msg = $GUI_EVENT_CLOSE
EndFunc ;==>Example

[/autoit]

(abgeändert aus der Hilfe)

mfg (Auto)Bert

**autoBert**

Hallo L3viathan2142

Zitat von L3viathan2142

Das sehen allerdings andere Rechtsexperten anders.

In allen Fachartikeln, die ich über solche Programme geschrieben habe, wird die Legalität hervorgehoben.

wusste gar nicht dass du solche Fachartikel schreibst, oder war das nur ein Freud'scher Schreibfehler
Der 1. Artikel den ich zu Suche "YouTube Download legal" gesichtet habe, kommt zu einem anderen Ergebniss: Zitat aus: http://www.loadblog.de/video-musik/yo…rboten-erlaubt/

Zitat

...
Nach deutschem Recht ist es nicht erlaubt, Kopien von “offensichtlich rechtwidrigem” Material zu machen, allerdings ist auch das Wort “offensichtlich” umstritten. Beim neuesten Hollywood-Blockbuster ist es natürlich eindeutig — eindeutiger etwa als beim Video eines Teenies, der vor der Kamera seinen Lieblings-Pophit trällert.
...

mfg (Auto)Bert

**autoBert**

Hallo XXlolimanxx,

diese kleine Änderung sollte reichen:

[autoit]

GUISetState(@SW_SHOW,$IEGUI)
#endregion ### END Koda GUI section ###
;WinWaitActive ("Mp3-Player") ;überflüssig

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo das sind ja für einen MP3-Player schon sehr viel Zeilen. Leider fehlen Includes so dass ich folgende Fehler bekomme

Spoiler anzeigen

C

C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3(96,10) : ERROR: can't open include file <Includes\E-Mail.au3>
#include <Includes\E-Mail.au3>
~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3(97,10) : ERROR: can't open include file <Includes\Windows Media Player.au3>
#include <Includes\Windows Media Player.au3>
~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3(98,10) : ERROR: can't open include file <Includes\Youtube.au3>
#include <Includes\Youtube.au3>
~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3(105,33) : ERROR: _wmpcreate(): undefined function.
$oWMP = _wmpcreate(1,0,0,200,200)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3(106,27) : ERROR: _wmpvalue(): undefined function.
_wmpvalue($oWMP,"controls")
~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3(263,38) : ERROR: _wmploadmedia(): undefined function.
		_wmploadmedia($oWMP,$IniReadRadio,1)
		~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3(575,22) : ERROR: Berichterstatten(): undefined function.
			Berichterstatten ()
			~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3(748,26) : ERROR: YoutubeHerunterLaden(): undefined function.
			YoutubeHerunterLaden ()
			~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Downloads\XXlolimanx\mp3Player\Mp3-Player V1.1.7 Beta BlackEditionfürInet.au3 - 8 error(s), 0 warning(s)
!>19:42:08 AU3Check ended.rc:2
>Exit code: 0    Time: 8.017

Alles anzeigen

wobei mir nicht klar ist warum ein MP3-Player EMails versenden soll.

Meine Lösungsvorschlag für deinen Fehler:

[autoit]

;Zeile 241 WinWaitActive ("Mp3-Player") ;überflüssig
GUISetState() ;fehlt definitiv
while 1 ;fehlt warscheins auch
$msg = GUIGetMsg()
;hier wird normallerweise auf Ereignisse reagiert z.B. Cklick auf MenuItem
WEnd

[/autoit]

als Tipp, wenn man seinen Original-Skript nicht posten will macht man ein Beispiel-Skript in dem der Fehler auch auftritt (Mit etwas Glück, findet man hierbei schon die Lösung)

PS.: ich gebe keinen Support per PN, poste also bitte öffentlich. Da können sich dann auch mehrere um die Lösung kümmern,

mfg (Auto)Bert

**autoBert**

Hallo XXlolimanxx,

meine Glaskugel ist defekt, also schaffe ich es ohne dein Skript nicht die richtige Antwort zu geben,

mfg (Auto)Bert

**autoBert**

Hallo L3viathan2142,

Zitat von L3viathan2142

Youtube verbietet das zwar in seinen AGB, die muss man aber nur akzeptieren, wenn man sich einen Account erstellt.

da streiten sich die Rechtsgelehrten noch, den wenn du YouTube benutzt (auch als nicht registrierter User), hast du nach deren Auffassung automatisch die AGBs akzeptiert,

mfg (Auto)Bert

Beiträge von autoBert

i=zufall

Schleife

Klick

Klick

Fokus auf eine element setzn ?

DefaultGateway herauslesen?

Gui Problem => Felder füllen

InetRead TimeOut? Script stürtzt ab!

Gui Problem => Felder füllen

InetRead TimeOut? Script stürtzt ab!

InetRead TimeOut? Script stürtzt ab!

InetRead TimeOut? Script stürtzt ab!

Datei/ Verzeichniswähler AutoIt V3

Schleife bis Farbcode geändert.

Progressbar auf Error stellen

MP3 mittels YouTube downloaden

Fenster von Gui wird nicht angezeigt :O

Fenster von Gui wird nicht angezeigt :O

Fenster von Gui wird nicht angezeigt :O

MP3 mittels YouTube downloaden