Beiträge von Carsten8

Carsten8

ja wo willst du denn das Passwort zum testen reinschreiben? Also in welches eingabefeld? Was passiert wenns richtig? was wenn es falsch ist?

Carsten8

is rüschtüsch

Carsten8

+= addiert den nachfolgenden wert und -= subtrahiert diesen.
Beispiel:

[autoit]

$i = 1 ;$i ist 1
$i += 4 ;zu $i wird 4 addiert
MsgBox(0, "Test", $i) ;$i ist jetzt 5
$i -= 2 ;von $i wird 2 subtrahiert
MsgBox(0, "Test", $i) ;$i ist jetzt 3

[/autoit]

Es gibt auch noch weitere wie *= und /= (*= zum multiplizieren;/= zum dividieren)
und auch &=. &= fügt zu einem String einen weiteren hinzu.
Beispiel:

[autoit]

$string1 = "Anfang" ;$string1 ist Anfang
$string2 = " und Ende" ;$string2 ist Ende
$string1 &= $string2 ;zu $string1 wird $string2 ans ende gehängt
MsgBox(0, "Test", $string1) ;$string1 ist jetzt "Anfang und Ende"

[/autoit]

Mehr kenn ich nicht

Lg
Carsten

Carsten8

versuchs mal mit ShellExecute anstatt Run

Carsten8

und als nächstes gehste mal ins ICQ pls xD

Carsten8

@bayersoftware: nein bin mir nicht sicher. Ich werd die Lage nochmal durchsehn.

Edit: Ja du hast tatsächlich Recht. Ich hab das mit der gewerblichen Nutzung verwechselt.

Carsten8

wenn du ein Copyright druntersetzt... dann darf ers nicht. Ansonsten darf ers.

PS: Gib mir mal endlich meine Modrechte xD

Carsten8

oder du machst

[autoit]

While 1
If WinExists("Self extracting ZIP File") Then
sleep(100)
Else
ExitLoop
EndIf
WEnd

[/autoit]

Damit läuft dein Skript erst weiter nachdem das Fenster zu ist. Das ganze geht auch mit dem Prozess (anstatt WinExists("Self extracting ZIP File") einfach ProcessExists("setup.exe") )
Mal schaun obs klappt. Ansonsten... k.A.

Carsten8

Wird die Datei zum Zeitpunkt des Updates verwendet bzw. ist es das Skript selbst das geupdatet werden soll?

Carsten8

tja... Wie macht es dann der Internet Explorer unter Vista? na gut der IE ist nicht mit AutoIt erstellt xD

Carsten8

Fast2: Ne geht net.
@Billig: Warum? bringt letzten Endes doch auch nix. Schließlich ist die Animation in einer DLL. Und die will ich ja xD außerdem hab ich grad kein normaler video da

Carsten8

Hi
folgendes Skript funktioniert bei mir nicht (bzw. es funktioniert aber die avi wird nicht abgespielt):

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#RequireAdmin
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Test", 367, 235, 429, 334)
$Avi1 = GUICtrlCreateAvi("shell32.dll", 167, 6, 10) ;sollte die "Runterladen" Animation abspielen
GUICtrlSetState($Avi1, 1)
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]

EndSwitch
WEnd

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

Liegt es an Vista dass es nicht geht? Wenn ja, gibts eine möglichkeit es noch anders abzuspielen? Der IE schafft es doch auch die Animation abzuspielen

Danke schonmal
Carsten

Carsten8

versuchs mal damit:
Für die Maus:

[autoit]

DLLCall("user32.dll", "long", "SetCursor", "long", $hCursor)

[/autoit]

Den Hintergrund weiß ich nicht. Da muss ich noch suchen Nur die Farbe kann man ändern (wie gesagt: Beim Bild such ich noch ^^). Such dazu mal nach Hintergrund ändern

//Edit: Sry hab mich vertan. SetCurser setzt ja nur den aktuellen Mauszeiger

Carsten8

Forensuche und Tutorial FTW
[ offen ] einer fertig generierten .exe parameter mitgeben?

Carsten8

aso kk Hab mich auch im Forentitel verlesen

Carsten8

welche Kategorien? Achja und falsches Forum xD

Carsten8

Habs mal mit Vista unter eingeschränkten Benutzer getestet:

net user TEST

Der Benutzername konnte nicht gefunden werden.
Sie erhalten weitere Hilfe, wenn Sie NET HELPMSG 2221 eingeben.

net user

Funktioniert.

net user TEST /ADD

Systemfehler 5 aufgetreten.
Zugriff verweigert

net user TEST *

Geben Sie ein Kennwort für den Benutzer ein:
Wiederholen Sie die Eingabe des Kennworts:
Systemfehler 5 aufgetreten.
Zugriff verweigert

net user TEST /DELETE

Systemfehler 5 aufgetreten.
Zugriff verweigert

Die mit Fehler 5 klappen nur als Admin
maycontainnuts hat also Recht.

Carsten8

[autoit]

$TypeLib = ObjCreate("Scriptlet.TypeLib")
MsgBox(0, "", $TypeLib.Guid)

[/autoit]

generiert eine Guid. Nur so nebenbei

Carsten8

Hi,
Ich hatte heute ein wenig langeweile und hab schnell eine UDF für POP3-Server gebastelt.
Ich hatte leider noch keine Zeit es zu testen, deshalb wäre ich euch dankbar wenn ihr es mal testen könntet

Bevor ihr die Funktionen verwendet könnt, müsst ihr TCPStartup aufrufen
- POP3 UDF.au3

Spoiler anzeigen

[autoit]

;===============================================================================
;
; Name: POP3 UDF
; Vorraussetzungen: TcpStartup () am Anfang des Skripts
; Beschreibung: Eine UDF um mit AutoIt auf einen POP3 Server zuzugreifen.
; Autor: Carsten8
;
;===============================================================================
Global $csocket
Global $sMsg
;===============================================================================
;
; Beschreibung: Verbindet sich zu einem POP3 Server und loggt sich ein.
; Parameter: $sServer - Adresse des Pop3-Servers
; $iPort - Port über den Verbunden werden soll (meistens 110)
; $sUser - Benutzername zum einloggen (bei ua. web.de ist es die E-Mail Adresse)
; $sPass - Passwort des E-Mail Accounts
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; Rückgabewerte: Erfolg: Gibt 1 zurück.
; Fehler: Gibt 0 zurück zu setzt @error:
; 1 = Timeout
; 2 = Server gab einen anderen Fehler zurück
; 3 = Konnte nicht zum Server verbinden (meist falsche Adresse oder Port)
; 4 = Benutzername und/oder Passwort falsch
;===============================================================================
Func _pop3_connect($sServer, $iPort, $sUser, $sPass, $timeout = 10000)
$csocket = TCPConnect($sServer, $iPort)
If @error = 1 Then
$csocket = TCPConnect(TCPNameToIP($sServer), $iPort)
EndIf
If $csocket = -1 Then
SetError(3)
Return 0
EndIf
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
Until StringLeft($Recv, 3) = "+OK"
TCPSend($csocket, "USER " & $sUser & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
Until StringLeft($Recv, 3) = "+OK"
TCPSend($csocket, "PASS " & $sPass & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(4)
Return 0
EndIf
Until StringLeft($Recv, 3) = "+OK"
Return $csocket
EndFunc
;===============================================================================
;
; Beschreibung: Gibt die Anzahl und die Größe der E-Mails auf dem Server zurück
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; Rückgabewerte: Erfolg: Setzt @error auf 0 und gibt ein Array mit folgenden Daten zurück:
; $array[0] = Anzahl der E-Mails
; $array[1] = Größe aller E-Mails in Bytes
; Fehler: Setzt @error auf 1 bei einem unbekannten Fehler (2 bei Timeout und gibt 0 zurück)
; und gibt den vom Server gesendeten Fehler zurück.
;===============================================================================
Func _pop3_info($socket, $timeout = 10000)
TCPSend($socket, "STAT" & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(2)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(4)
Return $recv
EndIf
Until StringLeft($Recv, 3) = "+OK"
$sTrim = StringTrimLeft($recv, 4)
$split = StringSplit($sTrim, " ")
Dim $aStat[2]
$aStat[0] = $split[1]
$aStat[1] = $split[2]
Return $aStat
EndFunc
;===============================================================================
;
; Beschreibung: Empfängt eine E-Mail mit ihrem Header
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; $iMail - Die Nummer der E-Meil zum Empfangen
; Rückgabewerte: Erfolg: Gibt die E-Mail zurück
; Fehler: Gibt 0 zurück und setzt @error bei einem Timeout auf 1 (bei anderen Fehlern 0)
;===============================================================================
Func _pop3_getmailraw($socket, $iMail, $timeout = 10000)
TCPSend($socket, "RETR " & $iMail & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(0)
Return 0
EndIf
Until StringLeft($recv, 3) = "+OK"
$split = StringSplit($recv, @CRLF)
For $i = 2 to $split[0] - 1
$sMsg &= $split[$i] & @CRLF
Next
Return $sMsg
EndFunc
;===============================================================================
;
; Beschreibung: Löscht eine E-Mail vom Server
; Parameter: $socket - Serversocket
; $timeout - Gibt an, wie lange auf eine Antwort gewartet werden soll (Standart: 10 Sek.).
; $iMail - Die Nummer der E-Meil zum Empfangen
; Rückgabewerte: Erfolg: Gibt 1 zurück
; Fehler: Gibt 0 zurück und setzt @error bei einem Timeout auf 1 (bei anderen Fehlern 0)
;===============================================================================
Func _pop3_deletemail($socket, $iMail, $timeout = 10000)
TCPSend($socket, "DELE " & $iMail & @CRLF)
$iTimer = TimerInit ()
Do
If TimerDiff ($iTimer) > $timeout Then
SetError(1)
Return 0
EndIf
$recv = TCPRecv($csocket, 1024)
If StringLeft($recv, 4) = "-ERR" Then
SetError(0)
Return 0
EndIf
Until StringLeft($recv, 3) = "+OK"
Return 1
EndFunc
;===============================================================================
;
; Beschreibung: Trennt die Verbindung zum Server
; Parameter: $socket - Serversocket
; Rückgabewerte: Keine
;===============================================================================
Func _pop3_disconnect($socket)
TCPSend($socket, "QUIT" & @CRLF)
TCPCloseSocket($socket)
EndFunc

[/autoit]

-Sehr einfaches Beipsiel (Empfängt die erste E-Mail auf dem Server, gibt diese aus und löscht sie.)

Spoiler anzeigen

[autoit]

#include <POP3 UDF.au3>
;Ab hier ändern
$server = "pop3.web.de"
$port = 110
$user = "max.musterman@web.de"
$password = "musterpasswort"
;Ab hier nichts mehr ändern
TCPStartup()
$pop3sock = _pop3_connect($server, $port, $user, $password)
$pop3info = _pop3_info($pop3sock)
MsgBox(0, "Ergebnis", "Auf dem Server sind " & $pop3info[0] & " E-Mails mit einer Größe von " & $pop3info[1] & " Bytes.")
$mail = _pop3_getmailraw($pop3sock, 1)
MsgBox(0, "E-Mail 1", $mail)
_pop3_deletemail($pop3sock, 1)
_pop3_disconnect($socket)

[/autoit]

Todo: IMAP und SMTP

Viel Spaß

Carsten8

lol er will aber nichts löschen sondern was erstellen du schlaukopf

Beiträge von Carsten8

Brute Force

Film Abspielen

Was ist += und -= ?

Film Abspielen

Copyright?

Copyright?

Copyright?

Warten

Updater (Bin neu)

GUICtrlCreateAvi unter WinVista?

GUICtrlCreateAvi unter WinVista?

GUICtrlCreateAvi unter WinVista?

registry aktualisieren

variablen an autoit (exe-datei) versenden

Kategorien

Kategorien

Windows XP mit Passwortschutz ist sicher ! ? oder eher nicht?

Systemordner mit shdocvw.dll erstellen

POP3 (E-Mail) UDF

Systemordner mit shdocvw.dll erstellen