Beiträge von Greenhorn

Kann ich nicht bestätigen ..., wird korrekt umbenannt in dummy_1 bis dummy_5.

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate ("Rename", 153, 231, 652, 344)
GUISetBkColor (0x808080)
$Input1 = GUICtrlCreateInput ("", 16, 40, 121, 21)
$Input2 = GUICtrlCreateInput ("", 48, 96, 65, 21)
$Label1 = GUICtrlCreateLabel ("Endung ", 56, 72, 44, 17)
$Label2 = GUICtrlCreateLabel ("Pfad zum Ordner ", 40, 8, 86, 17)
$Button1 = GUICtrlCreateButton ("Umbennen", 40, 192, 75, 25, 0)
$Input3 = GUICtrlCreateInput ("", 16, 160, 121, 21)
$Label3 = GUICtrlCreateLabel ("Neuer Name", 48, 128, 64, 17)
GUISetState (@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Global $n=1

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

While 1

Switch GUIGetMsg ()
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$pfad = GUICtrlRead ( $Input1 )
$endung = GUICtrlRead ( $Input2 )
$name = GUICtrlRead ( $Input3 )
$search = FileFindFirstFile ($pfad&"\*."&$endung)
If $search = -1 Then
MsgBox (0, "Error", "Keine Datei mit der Endung "&$endung&" in "&$pfad&" gefunden")
Exit
EndIf
While 1
$file = FileFindNextFile ($search)
If @error Then ExitLoop
_Umbenennen ($file)
$n += 1
WEnd
$n = 1
EndSwitch
WEnd

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

Func _Umbenennen ($sFile)
Return FileMove ($pfad&"\"&$sFile, $pfad&"\"&$name&"_"&$n&"."&$endung, 0)
EndFunc

[/autoit]

LG
Greenhorn

Also bei mir wird alles richtig umbenannt und nichts gelöscht oder nicht umbenannt, es sei denn die Datei existiert bereits ...

[autoit]

Func _Umbenennen ($sFile)
Return FileMove ($pfad&"\"&$sFile, $pfad&"\"&$name&"_"&$n&"."&$endung, 0)
EndFunc

[/autoit]

Nein, es liegt an dem Flag bei FileMove ...
Wenn ich den auf 0 setze, dann ist's schon besser ...

Sorry, die Operatoren vertauscht ...

Richtig, mein Beispiel hat lediglich die Kbits angezeigt, die aktuell heruntergeladen wurden, aber der Rest ist doch bloß Rechensache ...
(Naja, gut. Auch nicht so meine Stärke )

[autoit]

$iFileSize = InetGetSize ('http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe')

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

; Advanced example - downloading in the background
InetGet("http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe", @DesktopDir&"\autoit-v3-setup.exe", 1, 1)

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

ProgressOn ('Test', '')

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

While @InetGetActive
$iLastKbits = ((@InetGetBytesRead*8)/1024)
Sleep (100)
$iNewKbits = ((@InetGetBytesRead*8)/1024)
$iPercent = Int ((@InetGetBytesRead / $iFileSize) * 100)
ProgressSet ($iPercent, StringFormat ('%50s',($iNewKbits - $iLastKbits)*10 &' Kbit/s'))
Wend

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

ProgressOff ( )

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

LG
Greenhorn

In der Hilfe steht doch alles drin ...

[autoit]

; Advanced example - downloading in the background
InetGet("http://www.nowhere.com/somelargefile.exe", "test.exe", 1, 1)

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

While @InetGetActive
; Angepasst ...
TrayTip("Downloading", "Bytes = " & @InetGetBytesRead/8*1024, 10, 16)
Sleep(250)
Wend

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

LG
Greenhorn

Nicht ganz, eine Klammer vergessen ...

[autoit]

$ptnLinkText = '(?:Um den Downloadlink zu starten, drücken sie bitte )(Hier)'

[/autoit]

EDIT:
Und den Rest brauchst Du auch nicht, wenn dem nichts mehr folgt ...
Und sLinkText muss natürlich der Seiteninhalt sein ...

LG
Greenhorn

Moin,

vielleicht solltest Du auch mal ein Auge auf die Excel UDF werfen ...
http://www.autoitscript.com/forum/index.php?showtopic=34302&hl=excel+udf

LG
Greenhorn

[autoit]

#include <Array.au3>

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

$sLinkText = 'Um diesen Downloadlink zu bestätigen müssen sie Hier drücken, um ..., ansonsten müssen sie Hier drücken, um ...'
; Den Suchtext finden und daraus nur "Hier" zurückgeben.
$ptnLinkText = '(?:müssen sie )(Hier)(?: drücken)'
$asLinkText = StringRegExp ($sLinkText, $ptnLinkText, 3)
; Wenn Suchtext gefunden ...
If (IsArray ($asLinkText)) Then _
_ArrayDisplay ($asLinkText)

[/autoit]

Moin,

ja, ein wenig HTML-Quelltext für die relevanten Stellen wäre nicht schlecht ...

So bringt es wohl nicht viel, aber trotzdem ...

[autoit]

#include <Array.au3>

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

$sLinkText = 'Um diesen Downloadlink zu bestätigen müssen sie Hier drücken, um ..., ansonsten müssen sie Hier drücken, um ...'

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

$ptnLinkText = '(?:müssen sie )(.*?)(?: drücken)'
$asLinkText = StringRegExp ($sLinkText, $ptnLinkText, 3)
; Wenn Suchtext gefunden ...
If (IsArray ($asLinkText)) Then _
_ArrayDisplay ($asLinkText)

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

Mit dem HTML-Quelltext könnte ich dir den Link herausfischen, aber so ...

LG
Greenhorn

Moin,

zu 1. und 2.
Steuerelemente

zu p.s.
Du kannst Firefox nicht über die Window... Funktionen ansteuern.
Dafür brauchst Du Stilgar's UDF.

LG
Greenhorn

Natürlich kannst Du dein Bild der EXE hinzufügen, jedes Windows Programm tut das ...

Resource UDF

Beispiele sind anbei ...

LG
Greenhorn

Das ist ja eigentlich nur ein Darstellungsproblem und sollte keinen Einfluss auf deine Funktion haben.
Vergleiche die Texte über den Zeichencode und nicht über Strings.

Oder Du installierst dir über deine Windows CD die benötigte Sprache nach, sofern auf der CD vorhanden ...

LG
Greenhorn

Moin,

[autoit]

$ipsinfoexe = FileGetShortName (@WorkingDir & "\psinfo.exe")
$parameters = " \\"& $pc &" -u "& $domain &"\"& $username &" -p "& $password & $iparam &' > "'& $idir &"\"& $pc &'.txt"'
RunWait ($ipsinfoexe & $parameters, @WorkingDir , @SW_HIDE)

[/autoit]

LG
Greenhorn

Moin,

Are my AutoIt EXEs really infected?

Das hilft vllt weiter ...

LG
Greenhorn

Moin,

http://de.wikipedia.org/wiki/Compilerbau

LG und viel Spaß
Greenhorn

Meinst Du in etwa so ?

Spoiler anzeigen

[autoit]

#include <Constants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$IDC_EDIT = GUICtrlCreateInput ('foo', 56, 72, 200, 20)
$IDC_BUTTON = GUICtrlCreateButton ('OK', 20, 400, 80)
GUICtrlSetState($IDC_BUTTON, $GUI_FOCUS)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

Case $IDC_BUTTON
If (GUICtrlGetState($IDC_EDIT) <> $GUI_FOCUS) Then
GUICtrlSetState($IDC_EDIT, $GUI_FOCUS)
Send ('{RIGHT}')
EndIf

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

EndSwitch
WEnd

[/autoit]

LG
Greenhorn

Meinst Du in etwa so ... ???

Spoiler anzeigen

[autoit]

#include <Constants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$IDC_EDIT = GUICtrlCreateEdit('Anton'&@crlf&'Bertie'&@crlf&'Det'&@crlf, 56, 72, 473, 257)
$IDC_BUTTON = GUICtrlCreateButton ('OK', 20, 400, 80)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

Case $IDC_BUTTON
GUICtrlSetData ($IDC_EDIT, _
StringReplace (GUICtrlRead ($IDC_EDIT), 'Bertie', 'Ersatztext'))

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

EndSwitch
WEnd

[/autoit]

LG
Greenhorn

Wo ist die Funktion "Ende" ???

LG
Greenhorn

Zitat von peethebee

Ist das gemeint (nur grob gelesen...)?

[autoit]

@ScriptDir & "\..\res\rot.jpg"

[/autoit]

peethebee

Nein, ich habe es getestet.

Der Fernsterstil WS_CLIPSIBLINGS darf nicht verwendet werden.

LG
Greenhorn

Moin,

[autoit]

$Pic1 = GUICtrlCreatePic(@ScriptDir & "\res\rot.jpg", 16, 120, 188, 20, BitOR($GUI_SS_DEFAULT_PIC, $SS_NOTIFY, $WS_GROUP))
$Pic2 = GUICtrlCreatePic(@ScriptDir & "\res\weiß.jpg", 200, 120, 180, 20, BitOR($GUI_SS_DEFAULT_PIC, $SS_NOTIFY, $WS_GROUP))

[/autoit]

EDIT:
Oh, und nicht vergessen:

[autoit]

; cleanup at end of script !!!
_TrayIconDelete($nID)

[/autoit]

LG
Greenhorn