Eigene Funktionen

DJMANU

Ich hab mal angefangen eigene Funktionen zu schreiben.

FTP:

Spoiler anzeigen

Code

;===============================================================================
;
; Function Name:    _FTPPutDir()
; Description:      Puts an dir on an FTP server.
; Parameter(s):     $l_FTPSession	- The Long from _FTPConnect()
;                   $s_LocalDir 	- The local directory.
;                   $s_RemoteDir  	- The remote Location for the directory.
;                   $l_Flags		- Special flags.
;                   $l_Context  	- I dont got a clue what this does.
; Requirement(s):   DllCall, wininet.dll
; Return Value(s):  On Success - 1
;                   On Failure - 0
; Author(s):        Manuel Kübler <mk-software@gmx.de>
; 
; Danke an Wouter für die Funktion _FTPMakeDir
;
;===============================================================================


Func _FTPPutDir($l_FTPSession, $s_LocalDir, $s_RemoteDir, $l_Flags = 0, $l_Context = 0)


	Local $ai_FTPPutDir = DllCall('wininet.dll', 'int', 'FtpPutDirectory', 'long', $l_FTPSession, 'str', $s_LocalDir, 'str', $s_RemoteDir, 'long', $l_Flags, 'long', $l_Context)
	If @error OR $ai_FTPPutDir[0] = 0 Then
		SetError(-1)
		Return 0
	EndIf

	Return $ai_FTPPutDir[0]

EndFunc   ;==> _FTPPutDir

Alles anzeigen

Mail:

Spoiler anzeigen

Code

;===============================================================================
;
; Function Name:    _Mail()
; Description:      Schreibt eine E-Mail
; Parameter(s):     $AdressFrom  = Adresse des Absenders
;                   $AdressTo    = Adresse des Empfängers
;                   $Subject     = Betreff der Nachricht
;                   $Message     = Text
; Requirement(s):   sendEmail.exe
; Author(s):        Manuel Kübler <mk-software@gmx.de>
;
;und vielen danke an GtaSpider
;===============================================================================
Func _Mail($AdressFrom, $AdressTo, $Subject, $Message)

	$AdressFrom = " -f " & $Text_AdressFrom
	$AdressTo   = " -t " & $Text_AdressTo
	$Subject    = " -u " & $Text_Subject
	$Message    = " -m " & $Text_Message

	RunWait(@ScriptDir & "\sendEmail.exe " & $AdressFrom & $AdressTo & $Subject & $Message)

EndFunc   ;==>_Mail

Alles anzeigen

Edit Gtaspider: "und vielen danke an GtaSpider" eingefügt!

**GtaSpider**

Hallo dj!

*hust* Die email funktion hab ich geschrieben und die FTP Putfile hat auch jmd anders geschrieben!

Ich hoffe das ich das nicht noch einmal von dir sehen muss!

Mfg Spider

DJMANU

Ich hab die zwei Funktionen heute morgen geschrieben und da wusste ich nicht das die schon geschrieben wurden

Tam0r

lol

**GtaSpider**

Hallo!

Das glaube ich dir nicht!
Deine Funktion:

Spoiler anzeigen

Code

;===============================================================================
;
; Function Name:    _FTPPutDir()
; Description:      Puts an dir on an FTP server.
; Parameter(s):     $l_FTPSession       - The Long from _FTPConnect()
;                   $s_LocalDir         - The local directory.
;                   $s_RemoteDir        - The remote Location for the directory.
;                   $l_Flags        - Special flags.
;                   $l_Context          - I dont got a clue what this does.
; Requirement(s):   DllCall, wininet.dll
; Return Value(s):  On Success - 1
;                   On Failure - 0
; Author(s):        Manuel Kübler <mk-software@gmx.de>
;
;===============================================================================


Func _FTPPutDir($l_FTPSession, $s_LocalDir, $s_RemoteDir, $l_Flags = 0, $l_Context = 0)


        Local $ai_FTPPutDir = DllCall('wininet.dll', 'int', 'FtpPutDirectory', 'long', $l_FTPSession, 'str', $s_LocalDir, 'str', $s_RemoteDir, 'long', $l_Flags, 'long', $l_Context)
        If @error OR $ai_FTPPutDir[0] = 0 Then
                SetError(-1)
                Return 0
        EndIf

        Return $ai_FTPPutDir[0]

EndFunc   ;==> _FTPPutDir

Alles anzeigen

Die version von Wouter:

Spoiler anzeigen

Code

;===============================================================================
;
; Function Name:    _FTPMakeDir()
; Description:      Makes an Directory on an FTP server.
; Parameter(s):     $l_FTPSession	- The Long from _FTPConnect()
;                   $s_Remote 		- The file name to be deleted.
; Requirement(s):   DllCall, wininet.dll
; Return Value(s):  On Success - 1
;                   On Failure - 0
; Author(s):        Wouter van Kesteren
;
;===============================================================================


Func _FTPMakeDir($l_FTPSession, $s_Remote)

	Local $ai_FTPMakeDir = DllCall('wininet.dll', 'int', 'FtpCreateDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
	If @error OR $ai_FTPMakeDir[0] = 0 Then
		SetError(-1)
		Return 0
	EndIf

	Return $ai_FTPMakeDir[0]

EndFunc ;==> _FTPMakeDir()

Alles anzeigen

Ich finde die haben eine sehr extreme änlichkeit!

Und die Mail funktion hast du einfach einbisschen abgespackt!

Wenn du schon was "böses" machst dann steh zumindestens auch dazu!

Mfg Spider

DJMANU

Ich hab mir die von Wouter angeschaut, aber ich möchte auch Ordner von PC auf FTP packen

**GtaSpider**

Dann Schreib das auch hin!!!!!

Zumindestens sowas wie "Thx to Wouter and Spider" oder sowas und schrieb nicht "Eigene Version"

Spider!

DJMANU

Ich möchte jetzt mal eine komplett eigene Funktion schreiben, weiß einer von euch, über was man eine Funktion schreiben kann. Am Ende soll es vielleicht eine UDF werden

trallala

hi,

ja, einfach mal Beispiele ansehen, verstehen lernen wie es funktioniert und dann selber versuchen etwas selber "eigenes" geistigen Eigentum zu produzieren - selbstverständlich auch ab und zu mal nachfragen bei kompetente Leute wenn`s mal nicht weiter geht.

Mfg
trallala

**Xenobiologist**

Hi,

fang doch mal mit etwas einfach zu testenden an. Z.B. eine Funktion, die einen String und ein Int übergeben bekommt und einen String zurück liefert, der ...

Eingabe Hello und 1

Ausgabe H e l l o

Viel Spaß

So long,

Mega

**BugFix**

Ich fand immer am Besten zum Üben das Umsetzen mathematischer Aufgaben.
Selbst wenn diese math. Funktionen schon in AutoIt enthalten sind, kann man sie zu Testzwecken auch mal selber neu erfinden.
Sehr schön zum Anfang finde ich z.B.: "n!" oder "Quersumme von n"
Wenn du es dann etwas härter magst: Primzahlen bis "n"
Als schöne Übung für eine GUI: Lotto 6 aus 49

Viel Spaß!

**GtaSpider**

Hallo!

Als erstes überlegst du dir was die menschheit braucht! Dann guckst du ob du eine idee hast wie man das probieren könnte. Dann schreibst du es =)

btw: UDF = User defined Function ist also das gleiche wie "Eine eigene Funktion"

Mfg Spider

muh_kuh

hallo
ich würde sagen die 1. Funktion kommt wenn man sie Braucht
meine 1. Richtige war glaube ich eine Wiki Bearbeitungs Tool

DJMANU

Ich hab mal angefangen eine eigene Funktion zu schreiben:

Es handelt sich um die Datei makecab.exe im Verzeichnis "C:Windowssytem32"

Spoiler anzeigen

[autoit]

#cs ===============================================================================

Function Name: _cab()
Description: Erstellt ein CAB-Archiv
Parameter(s): $sourcefiles - Quelldateien
$dest - Name des CAB-Archivs
Requirement(s): make.cab
Return Value(s): 0 = CAB-Archiv erfolgreich erstellt
1 = Keine Dateien gefunden
2 = CAB-Archiv konnte nicht erstellt werden
3 = Quelldateien konnten nicht gelöscht werden
Author(s): Manuel Kübler <[email='mk-software@gmx.de'][/email]>

#ce ===============================================================================

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

#include <File.au3>

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

Func _cab($sourcefiles, $dest)

#cs
Befehle:
$sourcefiles = source
$dest = destination
Funktion:
Erstelle CAB-Datei und verschiebe Dateien hinein
#ce

; Befehl
$befehl = " " & $sourcefiles & " " & $dest

; Programm
$action = RunWait(@SystemDir & "makecab.exe" & $befehl)

;~ If FileExists($sourcefiles) Then
;~ Return "3"
;~ Else
;~ Return $action
;~ EndIf

EndFunc ;==>_cab($sourcefiles, $dest)
; ----------------------------------------------------------------------------

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

Func _cab_error($returncode)

#cs
Return Code:
0 = CAB-Archiv erfolgreich erstellt
1 = Keine Dateien gefunden
2 = CAB-Archiv konnte nicht erstellt werden
3 = Quelldateien konnten nicht gelöscht werden
#ce

Select
Case $returncode = 0
Return _FileWriteLog(@ScriptDir & "log.txt", "ZIP erfolgreich")
Case $returncode = 1
Return _FileWriteLog(@ScriptDir & "log.txt", "Hinweis: keine Daten gefunden")
Case $returncode = 2
Return _FileWriteLog(@ScriptDir & "log.txt", "Fehler: Zipdatei konnte nicht erstellt werden")
Case $returncode = 3
Return _FileWriteLog(@scriptDir & "log.txt", "Fehler: Quelldateien konnten nicht geloescht werden")
Case Else
Return _FileWriteLog(@ScriptDir & "log.txt", "Fehler: Zip-Error " & $returncode)
EndSelect

EndFunc ;==>_cab_error($returncode)

[/autoit]

Nun möchte ich das am Ende von _cab die Func _cab_error ausgeführt wird. Wie geht das

**peethebee**

[autoit]

...
;~ Return $action
;~ EndIf

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

Return _cab_error($action)

EndFunc ;==>_cab($sourcefiles, $dest)
...

[/autoit]

Das ist aber keine gute Lösung, weil du den Return code wieder durch die erste Funktion durcschleifen musst. Lieber gleich dort den Select-Teil machen.

peethebee

DJMANU

Danke. Werd es mal ausprobieren.

Es funktioniert.

Nun möchte ich meine zweite Funktion schreiben, leider funktioniert sie noch nicht richtig

Spoiler anzeigen

[autoit]

#cs ===============================================================================

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

Function Name: _extract()
Description: Erstellt eine selbstextrahierende Datei
Parameter(s): $sourcefiles - Quelldatei (*.cab)
$dest - Name der selbstextrahierenden Datei
Requirement(s): extract32.exe
Return Value(s): 0 = Selbstextrahierende Datei erfolgreich erstellt
1 = Keine Dateien gefunden
2 = Selbstextrahierende Datei konnte nicht erstellt werden
3 = Quelldateien konnten nicht gelöscht werden
Author(s): Manuel Kübler <[email='mk-software@gmx.de'][/email]>
Copyrigt: (c) Manuel Kübler 2006

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

#ce ===============================================================================

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

#include <File.au3>

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

Func _extract($cabfile, $dest)

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

#cs
Befehle:
$file = source
$dest = destination
Funktion:
Erstelle eine selbstextrahierende Datei
#ce

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

; Befehl
$befehl = "+" & $cabfile & " " & $dest

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

; Programm
$action = RunWait("copy /b " & @ScriptDir & "\extract32.exe" & $befehl)

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

Return _extract_error($action)

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

EndFunc ;==>_extract($cabfile, $dest)
; ----------------------------------------------------------------------------

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

Func _extract_error($returncode)

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

#cs
Return Code:
0 = Selbstextrahierende Datei erfolgreich erstellt
1 = Keine Dateien gefunden
2 = Selbstextrahierende Datei konnte nicht erstellt werden
3 = Quelldateien konnten nicht gelöscht werden
#ce

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

Select
Case $returncode = 0
Return _FileWriteLog(@ScriptDir & "\log.txt", "Selbstextrahierende Datei erfolgreich erstellt";)
Case $returncode = 1
Return _FileWriteLog(@ScriptDir & "\log.txt", "Hinweis: Keine Dateien gefunden";)
Case $returncode = 2
Return _FileWriteLog(@ScriptDir & "\log.txt", "Fehler: Selbstextrahierende Datei konnte nicht erstellt werden";)
Case $returncode = 3
Return _FileWriteLog(@scriptDir & "\log.txt", "Fehler: Quelldateien konnten nicht geloescht werden";)
Case Else
Return _FileWriteLog(@ScriptDir & "\log.txt", "Fehler: Extract-Error " & $returncode)
EndSelect

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

EndFunc ;==>_extract_error($returncode)

[/autoit]

**Gun-Food**

copy ist doch ein dos befehl also auch mit rundos auszuführen, wenn ich mich nicht ganz irre.

DJMANU

wie füge ich dann die befehle ein

**GtaSpider**

Hallo!

Mit run :hm: Run("copy.exe Pfad1\bla.txt Pfad2\bla.txt") oder so

Mfg Spider

DJMANU

Werd es mal mit _RunDOS ausprobieren.

Hab noch zwei eigene Funktionen geschrieben.

1. Kompiliert eine AU3-Datei in eine EXE-Datei

Spoiler anzeigen

[autoit]

;===============================================================================
;
; Function Name: _decompile($infile, $outfile, $passphrase)
; Description:: Dekompiliert eine EXE-datei in eine AU3-Datei
; Parameter(s): $infile = AU3-Datei
; $outfile = EXE-Datei
; $iconfile = Icon-Datei
; $passphrase = Passwort
; Requirement(s): Exe2Aut.exe
; Return Value(s):
; Author(s): Manuel Kübler <[email='mk-software@gmx.de'][/email]
;
;===============================================================================
;
Func _compile($infile, $outfile, $iconfile, $passphrase)

#cs (Quelle: Aut2Exe - Command Line Parameters)
Aut2Exe.exe /in <infile.au3> [/out <outfile.exe>] [/icon <iconfile.ico>] [/comp 0-4] [/nodecompile] [/pass <passphrase>]
#ce

$befehl = ' /in "' & $infile & '" /out "' & $outfile & '" /icon "' & $iconfile & '" /pass "' & $passphrase & '"'

RunWait(@ScriptDir & '\Aut2Exe.exe' & $befehl)

EndFunc ;==>_compile

[/autoit]

2. Dekompiliert eine EXE-Datei in eine AU3-Datei

Spoiler anzeigen

[autoit]

;===============================================================================
;
; Function Name: _decompile($infile, $outfile, $passphrase)
; Description:: Dekompiliert eine EXE-datei in eine AU3-Datei
; Parameter(s): $infile = EXE-Datei
; $outfile = AU3-Datei
; $passphrase = Passwort
; Requirement(s): Exe2Aut.exe
; Return Value(s):
; Author(s): Manuel Kübler <[email='mk-software@gmx.de'][/email]
;
;===============================================================================
;
Func _decompile($infile, $outfile, $passphrase)

#cs (Quelle: Exe2Aut - Command Line Parameters)
Exe2Aut.exe /in <infile.exe> [/out <outfile.au3>] [/pass <passphrase>]
#ce

$befehl = ' /in "' & $infile & '" /out "' & $outfile & '"" /pass "' & $passphrase & '"'

RunWait(@ScriptDir & '\Exe2Aut.exe' & $befehl)

EndFunc ;==>_decompile

[/autoit]