Beiträge von Carsten8

Carsten8

Hätte auch gerne ne Fritz!Box. Hab im moment nen Router von der T-Com (das ding is nicht schlecht, aber die Fritz!Box hat eben mehr funktionen und ist erweiterbar (glaub ich ^^)).

Carsten8

http://www.autoitscript.com/autoit3/scite/downloads.shtml
ganz unten ist die Tidy.exe

Ich empfehl dir aber die Vollversion von SciTE (auf der gleichen Seite, ganz oben die Datei SciTE4AutoIt3.exe). Das ist der normale SciTE Editor der mit vielen nützlichen Tools und Erweiterungen ausgestattet ist. Tidy findest du dann unter Tools -> Tidy Autoit Source.

Carsten8

pee, deine Meinung kann ich gar nicht nachvollziehen. Arcor ist eig. der größte Müll. Bin schon jahrelng bei T-Online und hatte kaum Probleme. Wenn ich mal Probleme hatte, hab ich angerufen und ein Techniker kam vorbei (kostenlos).

Carsten8

Spoiler anzeigen

[autoit]

;~ Gleichmäßig Beschleunigte Bewegung | Gleichmäßig Beschleunigte Bewegung | Gleichmäßig Beschleunigte Bewegung | Gleichmäßig Beschleunigte Bewegung

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

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\xp\desktop\physik\kxf's\s-v-a-t ''was wird gesucht''.kxf
$Form2 = GUICreate("Form1", 364, 299, 218, 163)
$Label1 = GUICtrlCreateLabel("Was ist gesucht?", 136, 24, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$a2 = GUICtrlCreateRadio("Beschleunigung", 48, 152, 105, 25)
$s2 = GUICtrlCreateRadio("Strecke", 48, 72, 97, 25)
$v2 = GUICtrlCreateRadio("Geschwindigkeit", 48, 113, 97, 25)
$t2 = GUICtrlCreateRadio("Zeit", 48, 194, 97, 25)
$OK = GUICtrlCreateButton("OK", 48, 240, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
;~ Strecke wird berechnet
If BitAND(GUICtrlRead($s2), $GUI_Checked) Then
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\xp\desktop\physik\kxf's\v und t gegeben.kxf
$Form1_1 = GUICreate("Kinematik", 392, 206, 261, 393)
$a3 = GUICtrlCreateInput("", 104, 72, 185, 21)
$t3 = GUICtrlCreateInput("", 104, 104, 185, 21)
$Label1 = GUICtrlCreateLabel("Was ist gegeben?", 120, 24, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("a = ", 80, 72, 24, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("t = ", 80, 104, 20, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 160, 152, 65, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
$a2 = GUICtrlRead($a3)
$t2 = GUICtrlRead($t3)
Select
Case $a2 <= 0
MsgBox(64, "Error", "a und t müssen positiv sein! ")
Case $t2 <= 0
MsgBox(64, "Error", "a und t müssen positiv sein! ")
Case Else
$Strecke2 = 0.5 * $a2 * $t2 ^ 2
MsgBox(64, "", "Der zurückgelegte Weg betraegt " & $Strecke2 & " Meter")
EndSelect
EndSwitch
WEnd

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

;~ Geschwindigkeit wird berechnet
ElseIf BitAND(GUICtrlRead($v2), $GUI_Checked) Then
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\xp\desktop\physik\kxf's\v und t gegeben.kxf
$Form1_1 = GUICreate("Kinematik", 392, 206, 261, 393)
$a3 = GUICtrlCreateInput("", 104, 72, 185, 21)
$t3 = GUICtrlCreateInput("", 104, 104, 185, 21)
$Label1 = GUICtrlCreateLabel("Was ist gegeben?", 120, 24, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("a = ", 80, 72, 24, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("t = ", 80, 104, 20, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 160, 152, 65, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
$a2 = GUICtrlRead($a3)
$t2 = GUICtrlRead($t3)
Select
Case $s2 <= 0
MsgBox(64, "Error", "a und t müssen positiv sein! ")
Case $t2 <= 0
MsgBox(64, "Error", "a und t müssen positiv sein! ")
Case Else
$Geschwindigkeit2 = $a2 * $t2
MsgBox(64, "", "Die Geschwindigkeit betraegt " & $Geschwindigkeit2 & " Meter pro Sekunde")
EndSelect
EndSwitch
WEnd
EndIf

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

;~ Zeit wird berechnet
If BitAND(GUICtrlRead($t2), $GUI_Checked) Then
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 299, 170, 193, 125)
$va = GUICtrlCreateRadio(" v und a", 72, 48, 153, 25)
$sa = GUICtrlCreateRadio(" s und a", 72, 72, 153, 25)
$Label1 = GUICtrlCreateLabel("Was ist gegeben?", 96, 16, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 112, 112, 73, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
If BitAND(GUICtrlRead($va), $GUI_Checked) Then
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\xp\desktop\physik\kxf's\v und t gegeben.kxf
$Form1_1 = GUICreate("Kinematik", 392, 206, 261, 393)
$v3 = GUICtrlCreateInput("", 104, 72, 185, 21)
$a3 = GUICtrlCreateInput("", 104, 104, 185, 21)
$Label1 = GUICtrlCreateLabel("Was ist gegeben?", 120, 24, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("v = ", 80, 72, 24, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("a = ", 80, 104, 20, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 160, 152, 65, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
$v2 = GUICtrlRead($v3)
$a2 = GUICtrlRead($a3)
Select
Case $v2 <= 0
MsgBox(64, "Error", "v und a müssen positiv sein! ")
Case $a2 <= 0
MsgBox(64, "Error", "v und a müssen positiv sein! ")
Case Else
$Zeitva = $v2 / $a2
MsgBox(64, "", "Die Geschwindigkeit betraegt " & $Zeitva & " Sekunden")
EndSelect
EndSwitch
WEnd
ElseIf BitAND(GUICtrlRead($sa), $GUI_Checked) Then
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\xp\desktop\physik\kxf's\v und t gegeben.kxf
$Form1_1 = GUICreate("Kinematik", 392, 206, 261, 393)
$s3 = GUICtrlCreateInput("", 104, 72, 185, 21)
$a3 = GUICtrlCreateInput("", 104, 104, 185, 21)
$Label1 = GUICtrlCreateLabel("Was ist gegeben?", 120, 24, 113, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("s = ", 80, 72, 24, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("a = ", 80, 104, 20, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$OK = GUICtrlCreateButton("OK", 160, 152, 65, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
$s2 = GUICtrlRead($s3)
$a2 = GUICtrlRead($a3)
Select
Case $s2 <= 0
MsgBox(64, "Error", "a und s müssen positiv sein! ")
Case $a2 <= 0
MsgBox(64, "Error", "a und s müssen positiv sein! ")
Case Else
$Zeitsa = Sqrt(2 * $s2 / $a2)
MsgBox(64, "", "Die Geschwindigkeit betraegt " & $Zeitsa & " Sekunden")
EndSelect
EndSwitch
WEnd
EndIf
EndSwitch
WEnd
EndIf
EndSwitch
WEnd

[/autoit]

Du hast vergessen einige Schleifen zu schließen. Wie ich ja schon schrieben oben. Ich habe einfach mal Tidy drüberlaufen lassen. Der macht dir automatisch die TABs. Danach wars kein Problem den/die Fehler zu finden.

Carsten8

oh mein gott xD

Carsten8

Bitte script posten
DIe Meldung hatte ich auch mal. Da hatte ich ein EndIf vergessen. Schau am besten nach, ob alle Schleifen auch wirklich zu sind.

Carsten8

Screenshot und Beschreibung wären Hilfreich

Carsten8

Warum machst du nicht einfach ein Pic und frägst ab ob das angeklickt wurde?

Carsten8

InetGet hat doch den parameter background oder?

Carsten8

geht evtl. FileGetVersion("datei.mp3", "Dauer") oder FileGetVersion("datei.mp3", "Duration") oder so etwas? Ansonsten... kA

Carsten8

Schreib die Eingabe in eine Variable und mach ne Zahl mittels Number(123) draus. Mach dann ne If Abfrage ob IsNumber("123") 1 ist UND ob StringLen("123") 3 ist
z.B.:

[autoit]

$input = InputBox("Test", "Zahl eingeben")
$input = Number($input)
If IsNumber($input) = 1 and StringLen($input) = 3 Then
MsgBox(0, "Gut", "Eingabe is OK!")
EndIf

[/autoit]

Carsten8

Eig. Off-Topic aber egal. Wollte programmieren lernen, hab etwas gegoogelt und hab dann das Tutorial dieser Seite gefunden. Tja so gings los
http://wiki.autoit.de/wiki/index.php/Tutorial

Carsten8

was soll das $sWolfenstein.jpg am ende? soll das ne Variable oder ein String sein?

Carsten8

wenn du uns wenigstens sagen würdest was das teil macht und was nicht geht, könnten wir dir besser helfen.

Ich vermute mal das GUIDelte ist schuld.
Schreib mal das

[autoit]

$sPath = Guictrlread($pfad)
$oIE = _IECreate (Guictrlread($URL))

[/autoit]

nicht hinter die while sondern vor das GUIDelete.

Carsten8

Uff.... sry warn Leichtsinnsfehler.
So gehts:

[autoit]

$v = FileGetVersion($path & "\" & $filearray[$i])

[/autoit]

Danke für eure Hilfe

Edit: @progandy: Jo deshalb steht oben ";Hab schon diverse andere versucht..."

Carsten8

Spoiler anzeigen

[autoit]

#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <ListViewConstants.au3>

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

$path = "C:"

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

$Form1 = GUICreate("Test", 389, 298, 192, 124)
$ListView1 = _GUICtrlListView_Create($Form1, "|Beschreibung|DLL Name", 4, 4, 306, 290)
_GUICtrlListView_SetExtendedListViewStyle($ListView1, BitOr($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_CHECKBOXES))
_GUICtrlListView_SetColumnWidth($ListView1, 0, 25)
_GUICtrlListView_SetColumnWidth($ListView1, 1, 132)
_GUICtrlListView_SetColumnWidth($ListView1, 2, 132)
$Icon1 = GUICtrlCreateIcon("0.ico", 0, 320, 16, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetCursor($Icon1, 0)
$Icon2 = GUICtrlCreateIcon("1.ico", 0, 320, 84, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetCursor($Icon2, 0)
$Icon3 = GUICtrlCreateIcon("3.ico", 0, 320, 152, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetCursor($Icon3, 0)
$Icon4 = GUICtrlCreateIcon("4.ico", 0, 320, 220, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetCursor($Icon4, 0)
GUISetState()

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

load()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Icon4
load()
EndSwitch
WEnd

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

Func load()
$filearray = _FileListToArray($path & "\dlls", "*.dll", 1)
For $i = 1 to $filearray[0] - 1
_GUICtrlListView_AddItem($ListView1, "")
$v = FileGetVersion($filearray[$i]) ;Hab schon diverse andere versucht...
_GUICtrlListView_AddSubItem($ListView1, $i - 1, $v, 1)
_GUICtrlListView_AddSubItem($ListView1, $i - 1, $filearray[$i], 2)
Next
EndFunc

[/autoit]

Carsten8

Zum Datei auswählen FileOpenDialog
Zum Ordner auswählen FileSelectFolder
Zum Speicherort für eine Datei auswählen FileSaveDialog

Carsten8

Hi
Ich will von einigen DLLs die Dateibeschreibung auslesen (siehe Bild). Habs mit FileGetVersion versucht, aber das hat nicht geklappt

Weiß jemand wie man das realisieren könnte?

Screenshot: [Blockierte Grafik: http://img3.imagebanana.com/img/nyu1cql/Dateieigenschaften.PNG]

Danke schonmal

Carsten8

hi rifi
wir kennen uns ja schon ne?

Carsten8

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.12.1
Author: Markus K.

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

Script Function: New Pk3 Files auto downlaode

Template AutoIt script.

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

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

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

#include <IE.au3>
#Include <File.au3>

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

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Markus\Desktop\autoit-Projekts\Projects\Dowloader\Final\pfad+url abfrage.kxf
$Form1 = GUICreate("Wolfenstein Pk3 Downloader", 633, 447, 187, 118)

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

$Pfad = GUICtrlCreateInput("Pfad", 8, 320, 225, 21)
$URL = GUICtrlCreateInput("URL", 392, 320, 225, 21)
$OK = GUICtrlCreateButton("OK", 272, 128, 81, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()

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

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $OK

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

GUIDelete($Form1)
ExitLoop
EndSwitch
WEnd

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

$sPath = Guictrlread($pfad))
$oIE = _IECreate Guictrlread($URL))
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
If StringInStr($oLink.href, "pk3") Then
If Not FileExists($sPath & $oLink.innerHTML) Then
InetGet($oLink.href, $sPath & $oLink.innerHTML)
EndIf
EndIf
Next
_IEQuit($oIE)

[/autoit]

Beiträge von Carsten8

Freenet - Ja oder Nein?

Schleifen Problem

Freenet - Ja oder Nein?

Schleifen Problem

Bot Support im Militär [aber hier nicht :(^^]

Schleifen Problem

Mineralien-Skript

Beliebige JPGS auf Buttons

Mehrere Dateien gleichzeitig laden

länge eine Mp3 Datei

Text Box nur 3 zahlen erlauben

Autoit lernen.

was hab ich verkakt)???

was hab ich verkakt)???

Dateibeschreibung?

Dateibeschreibung?

Was nehme ich am Besten um einen Speicherpfad zu wählen?

Dateibeschreibung?

r1fLeX sagt "Hallo Autoit.de"

GUI Input