Ja Schon klar aber wenn User und pss erforderlich sind wieso kommt es dann beim Fhelen der werte nicht zum abbruch sonder der Teil wird übergangen.
im übrigen habe ich jetz versuch mit einem Anderen Server zu arbeiten und da ist es so das eine Andere Meldung kommt wenn kein Username und Password eingetragen sind. da were ich vom Server abgewehrt.
Aber gut ich denke ich habe eine Lösung gefunden. Die gefällt mich zwar nicht so aber geht auch.
Auch das habe ich schon versucht.
aber dennoch wundert mich das das ich das brauche denn in der quelle ist es och so:
[autoit]If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
und das bedeutet doch das wenn der Username leer ist keine Verwendet wird.
Hallo,
Ich möchte diese udf _INetSmtpMailCom (http://www.autoitscript.com/forum/index.php?showtopic=23860) Verwenden.
allerding bekomme ich eine Fehlermeldung
### COM Error ! Number: 80020009 ScriptLine: 131 Description Der Transport konnte keine Verbindung zum Server herstellen.
ich habe das script orginal verwendet.
Nur ip vom localen Mailserver eingetragen und eine gültige toaddress.
Funktioniert soweit,
allerding hate ich etwas problem mit HTML senden, das geht jetzt aber auch ich habe die Orginal UDF umgeschrieben, Sprich die Codierung abhänig vom $as_body feld.
Jetzt geht es.
Aber wenn die com Funktion ihren diest tuhen wurde könnte ich noch einen Anhang mitschicken.
Hallo ich möchte HTML im Body meiner emails versenden.
oder alternativ _INetSmtpMailCom() verwenden
allerding kommt die Fehlermeldung
### COM Error ! Number: 80020009 Description Der Transport konnte keine Verbindung zum Server herstellen.
Nimm einfach TimerInit ( ) da hast die Zeit seit 01.01.1970 in Millisekunden.
Danke für den Hinweis Hatte ich so gemacht weil ich dachte es währe einfacher, ist es auch aber:
Kaum erstellst du zwei Elemente in einer Millisekunde, schon hast du ein Problem. Außerdem bringt ein Zurückstellen der Systemuhr Ärger mit sich. Bessere Varianten s.o.
Johannes
Diese Hinweis hat mich Stutzig gemacht. Jetzt erzeuge ich einen hash von dem string den ich wegspeichern will, es entsteht noch ein Vorteil, es wird immer der selbe hash gebildet. 
Funktioniert also.
denkt Ihr es besteht Interesse an dem Tool:
Es ist dafür Strings aus UI Funktionen zu entfernen und gesondert abzulegen (ini) dort kann man dann für jede Sprache eine Eigene Section anlegen. Ziel ist es einem Projekt eine Language ini beizufügen.
Hallo,
Wie prüfst du denn in deinem Programm ob die SN wirklich von dir kommt.
oder kann es sein das tu ein Tool für eine BruteForce Attacke schreibst?
Hallo,
ich bin auf der Suche nach einer Möglichkeit eine Unikat Nummer zu bilden die in jeden Fall nie wieder erstellt wird.
also z.B. die Sekunden seit 01.01.1970 + random Wert
Wichtig dabei ist das ganze sollte nicht so lang werden also eine Codierung über Buchstaben und Zahlen oder so.
Grund für die Überlegung:
ich Programmiere ein Tool welches durch Dateien geht und alle Strings mit bestimmten Kriterien raus sucht und in eine gesonderte Datei schreibt, und einen Verweis auf den String hinterlässt.
Das ist noch kein Problem. Aber es sollen Mehrere Dateien untersucht werden, für jede Datei soll so eine zweite Datei gespeichert werden mit den Strings, irgend wann sollen alle String Dateien zu einer zusammen gefasst werden. Hier ist dann das Problem jetzt muss ich 100% tig sicher sein das kein Verweis doppelt vorkommen kann.
Hi,
ich hab mir da nochwas drumgebaut
Func _OpenFTP($server, $username = "", $pass = "")
If $FTPOpen = 0 Then $FTPOpen = _FTPOpen ('AutoIt v3')
If Not @error Then
If $FTPConn = 0 Then $FTPConn = _FTPConnect ($FTPOpen, $server, $username, $pass, True)
If Not @error Then
Return 1
Else
SetError(1)
Return 0
EndIf
Else
SetError(1)
Return 0
EndIf
Return 0
EndFunc ;==>_OpenFTP
Func _CloseFTP()
If Not $FTPConn = 0 Then
_FTPClose ($FTPConn)
$FTPConn = 0
EndIf
If Not $FTPOpen = 0 Then
_FTPClose ($FTPOpen)
$FTPOpen = 0
EndIf
Return 1
EndFunc ;==>_CloseFTP
ich hatte auch schwirigkeiten mit dem Connect ..... aber hiermit gings dann,
die Func kannst du immer ausfrüfen, es wird nur eine Verbindung geöffnet.
$FTPConn noch Global declarieren
Local $Dirlist = _FTPFilesListToArray ($FTPConn, 1)
Hallo,
edit: funktioniert sogar einfach mit copy + paste, nur das ";" vor send ist zuviel. Nochmals vielen dank
Klar das send hab ich auskomentiert ich will ja nicht senden *g*
wenn du die Daten in irgent einem System Datenbank oder Excel hast kann man die auch direckt daraus lesen und Irgentwo einfügen ich benütze das Send do gut wie nie.
so funktioniert es bei mir und Sieht gut aus,
ich denke du hast das Problem das $IP noch ein @crlf drin ist.
#include<CMD.au3>
Global Const $_CMD_USEWINDOW = True
Global $info, $DNS_zu_IP ,$DNS ,$IP_DNS, $error = 0, $n = 0, $send = 0, $recev = 0, $lost = 0 ,$Ping_D ,$Ping_G ,$Ping_min ,$Ping_max ,$anzahl_pings,$T
_CMD_STARTUP()
_CMD_Write(@CRLF)
_CMD_Write("********************************************************************************")
_CMD_Write("Ping Maker by_Matthias_199"&@CRLF)
_CMD_Write("********************************************************************************")
_CMD_Write("Bitte IP/DNS eingeben : "&@CRLF)
$IP = StringReplace(_CMD_READ(),@CRLF,"")
_CMD_Write("Bitte Ping Anzahl eingeben : "&@CRLF)
$anzahl_pings = _CMD_READ()
$anzahl_pings=Int ($anzahl_pings)
If $anzahl_pings = 0 Then
_CMD_Write("Ping Anzahl Fehlerhaft. Bitte neustarten und neu eingeben"&@CRLF)
_CMD_READ()
Exit
EndIf
Dim $Ping[$anzahl_pings]
Dim $Error[$anzahl_pings]
$Step_1 = StringReplace ( $IP, ".", "")
$Step_2 = Number ($Step_1)
If $Step_2 = 0 Then
TCPStartup()
$DNS_zu_IP = TCPNameToIP ($IP)
If $DNS_zu_IP = "" Then
$IP = "Nicht verfügbar"
$DNS = "Nicht verfügbar"
$error = 1
Else
$DNS = $IP
$IP = $DNS_zu_IP
EndIf
TCPShutdown ()
Else
$DNS = "Nicht verfügbar"
EndIf
If $error = 1 then
_CMD_Write("IP/DNS Fehlerhaft. Bitte neustarten und neu eingeben"&@CRLF)
_CMD_READ()
Exit
EndIf
_CMD_Write("********************************************************************************")
_CMD_Write("IP: "&$IP&@CRLF)
_CMD_Write("DNS: "&$DNS&@CRLF)
_CMD_Write("********************************************************************************")
Sleep(1000)
While 1
$Ping[$n] = Ping ($IP,999)
$Error[$n] = @error
$send = $send +1
If $Ping[$n] > 0 Then
_CMD_Write("Antwort von " & $IP & " Antwortszeit = "&$Ping[$n]&" ms" &@CRLF)
$recev = $recev +1
Else
If $Error[$n] = 1 Then
$Text = "Der Computer ist offline"
ElseIf $Error[$n] = 2 Then
$Text = "Der Computer ist nicht erreichbar"
ElseIf $Error[$n] = 3 Then
$Text = "Falsche Adresse"
ElseIf $Error[$n] = 4 Then
$Text = "Andere Fehler"
EndIf
_CMD_Write("Keine Antwort von "&$IP&"!"&"Fehlercode "&$Error[$n]&" : "&$Text&""&@CRLF)
$lost = $lost +1
EndIf
If $n = ($anzahl_pings-1) then ExitLoop
$n = $n + 1
Sleep(1000)
WEnd
_CMD_Write("********************************************************************************")
_CMD_Write("Ping Statistik für "&$IP&@CRLF)
_CMD_Write("********************************************************************************")
_CMD_Write("Gesendete Pakete = "&$send&@CRLF)
_CMD_Write("Empfangene Pakete = "&$recev&@CRLF)
_CMD_Write("Verlorene Pakete = "&$lost&@CRLF)
$P_Verlust = Round (($lost/$send)*100)
_CMD_Write("Datenverlust = "&$P_Verlust&"%"&@CRLF)
_CMD_Write("********************************************************************************")
$n = 0
While 1
If $Ping[$n] > 0 Then
$Ping_G = $Ping_G + $Ping[$n]
EndIf
If $n = ($anzahl_pings-1) then ExitLoop
$n = $n + 1
Sleep(50)
WEnd
$Ping_D = Round (($Ping_G/$send))
[/autoit] [autoit][/autoit] [autoit]$n = 0
$Ping_min = 999
While 1
If $Ping[$n] > 0 Then
If $Ping_min > $Ping[$n] Then
$Ping_min = $Ping[$n]
EndIf
EndIf
If $n = ($anzahl_pings-1) then ExitLoop
$n = $n + 1
Sleep(50)
WEnd
$n = 0
$Ping_max = 0
While 1
If $Ping[$n] > 0 Then
If $Ping_max < $Ping[$n] Then
$Ping_max = $Ping[$n]
EndIf
EndIf
If $n = ($anzahl_pings-1) then ExitLoop
$n = $n + 1
Sleep(50)
WEnd
_CMD_Write("Durchschnittlicher Ping = "&$Ping_D&"ms"&@CRLF)
_CMD_Write("Minimaler Ping = "&$Ping_min&"ms"&@CRLF)
_CMD_Write("Maximaler Ping = "&$Ping_max&"ms"&@CRLF)
_CMD_Write("********************************************************************************")
_CMD_PAUSE()
[/autoit]Hallo,
Versuchs mal so
[autoit]If _func1() = 1 Then
MsgBox(0, "erfolgreich", "erfolgreich")
EndIf
;==============
[/autoit][autoit][/autoit][autoit]Func _func1()
TrayTip("bla", "blablabla", 1)
sleep(1000)
Return _func2()
EndFunc
Func _func2()
Return 1
EndFunc
Hallo,
ich hab mir das mal angeschaut,
und festgestellt das _CMD_READ nicht auf eine Eingabe Wartet, bist du sicher das das so Funktiopnieren soll?
Und, HInter denFragen solltet du noch ein @crlf einfürgen.
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<CMD.au3>
Global Const $_CMD_USEWINDOW = True
Global $info, $DNS_zu_IP ,$DNS ,$IP_DNS, $error = 0, $n = 0, $send = 0, $recev = 0, $lost = 0 ,$Ping_D ,$Ping_G ,$Ping_min ,$Ping_max ,$anzahl_pings,$T
_CMD_STARTUP()
_CMD_Write("********************************************************************************"&@CRLF)
_CMD_Write("Ping Maker by_Matthias_199"&@CRLF)
_CMD_Write("********************************************************************************"&@CRLF)
_CMD_Write("Bitte IP/DNS eingeben : "&@CRLF)
$IP = _CMD_READ()
_CMD_Write("Bitte Ping Anzahl eingeben : "&@CRLF)
$anzahl_pings = _CMD_READ()
$anzahl_pings=Int ($anzahl_pings)
If $anzahl_pings = 0 Then
_CMD_Write("Ping Anzahl Fehlerhaft. Bitte neustarten und neu eingeben"&@CRLF)
_CMD_READ()
Exit
EndIf
Dim $Ping[$anzahl_pings]
Dim $Error[$anzahl_pings]
$Step_1 = StringReplace ( $IP, ".", "")
$Step_2 = Number ($Step_1)
If $Step_2 = 0 Then
TCPStartup()
$DNS_zu_IP = TCPNameToIP ($IP)
If $DNS_zu_IP = "" Then
$IP = "Nicht verfügbar"
$DNS = "Nicht verfügbar"
$error = 1
Else
$DNS = $IP
$IP = $DNS_zu_IP
EndIf
TCPShutdown ()
Else
$DNS = "Nicht verfügbar"
EndIf
If $error = 1 then
_CMD_Write("IP/DNS Fehlerhaft. Bitte neustarten und neu eingeben"&@CRLF)
_CMD_READ()
Exit
EndIf
_CMD_Write("********************************************************************************"&@CRLF)
_CMD_Write("IP: "&$IP&@CRLF)
_CMD_Write("DNS: "&$DNS&@CRLF)
_CMD_Write("********************************************************************************"&@CRLF)
Sleep(1000)
While 1
$Ping[$n] = Ping ($IP,999)
$Error[$n] = @error
$send = $send +1
If $Ping[$n] > 0 Then
$var = StringFormat ( "Antwort von %s Antwortszeit = %sms",$IP,$Ping[$n]&@CRLF)
_CMD_Write(""&$var&@CRLF)
$recev = $recev +1
Else
If $Error[$n] = 1 Then
$Text = "Der Computer ist offline"
ElseIf $Error[$n] = 2 Then
$Text = "Der Computer ist nicht erreichbar"
ElseIf $Error[$n] = 3 Then
$Text = "Falsche Adresse"
ElseIf $Error[$n] = 4 Then
$Text = "Andere Fehler"
EndIf
_CMD_Write("Keine Antwort von "&$IP&"!"&"Fehlercode "&$Error[$n]&" : "&$Text&""&@CRLF)
$lost = $lost +1
EndIf
If $n = ($anzahl_pings-1) then ExitLoop
$n = $n + 1
Sleep(1000)
WEnd
_CMD_Write("********************************************************************************"&@CRLF)
_CMD_Write("Ping Statistik für "&$IP&@CRLF)
_CMD_Write("********************************************************************************"&@CRLF)
_CMD_Write("Gesendete Pakete = "&$send&@CRLF)
_CMD_Write("Empfangene Pakete = "&$recev&@CRLF)
_CMD_Write("Verlorene Pakete = "&$lost&@CRLF)
$P_Verlust = Round (($lost/$send)*100)
_CMD_Write("Datenverlust = "&$P_Verlust&"%"&@CRLF)
_CMD_Write("********************************************************************************"&@CRLF)
$n = 0
While 1
If $Ping[$n] > 0 Then
$Ping_G = $Ping_G + $Ping[$n]
EndIf
If $n = ($anzahl_pings-1) then ExitLoop
$n = $n + 1
Sleep(50)
WEnd
$Ping_D = Round (($Ping_G/$send))
[/autoit] [autoit][/autoit] [autoit]$n = 0
$Ping_min = 999
While 1
If $Ping[$n] > 0 Then
If $Ping_min > $Ping[$n] Then
$Ping_min = $Ping[$n]
EndIf
EndIf
If $n = ($anzahl_pings-1) then ExitLoop
$n = $n + 1
Sleep(50)
WEnd
$n = 0
$Ping_max = 0
While 1
If $Ping[$n] > 0 Then
If $Ping_max < $Ping[$n] Then
$Ping_max = $Ping[$n]
EndIf
EndIf
If $n = ($anzahl_pings-1) then ExitLoop
$n = $n + 1
Sleep(50)
WEnd
_CMD_Write("Durchschnittlicher Ping = "&$Ping_D&"ms"&@CRLF)
_CMD_Write("Minimaler Ping = "&$Ping_min&"ms"&@CRLF)
_CMD_Write("Maximaler Ping = "&$Ping_max&"ms"&@CRLF)
_CMD_Write("********************************************************************************"&@CRLF)
_CMD_PAUSE()
[/autoit]Hallo, wo ist die UDF?
#include<CMD.au3>
Hallo,
ich weis nicht so recht ob das hilft aber Vielleicht nütz CoProc was
http://www.autoitscript.com/forum/index.php?showtopic=29326
Hallo,
[autoit]#include <file.au3>
[/autoit][autoit][/autoit][autoit]Dim $aFile
_FileReadToArray("test.txt",$aFile)
for $i = 1 to $aFile[0]
;send("2009" & $aFile[$i])
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $aFile[$i] = ' & $aFile[$i] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
Next
Hallo,
Ich möschte eine DLL die in VB einwandfrei Funktioniert aufrufen,
Public Declare Function RSA_encrypt Lib "rsa_dll.dll" _
(ByRef Source As Byte, ByVal Source_size As Long, _
ByRef Target As Byte, ByVal Target_size As Long, _
ByRef Certificate As Byte, ByVal Certificate_size As Long) As Long
Public Declare Function RSA_decrypt Lib "rsa_dll.dll" _
(ByRef Source As Byte, ByVal Source_size As Long, _
ByRef Target As Byte, ByVal Target_size As Long, _
ByRef Certificate As Byte, ByVal Certificate_size As Long) As Long
Public Declare Function RSA_verify Lib "rsa_dll.dll" _
(ByRef Source As Byte, ByVal Source_size As Long, _
ByRef Target As Byte, ByVal Target_size As Long, _
ByRef Certificate As Byte, ByVal Certificate_size As Long) As Long
Public Declare Function RSA_sign Lib "rsa_dll.dll" _
(ByRef Source As Byte, ByVal Source_size As Long, _
ByRef Target As Byte, ByVal Target_size As Long, _
ByRef Certificate As Byte, ByVal Certificate_size As Long) As Long
Public Declare Function RSA_generate_keys Lib "rsa_dll.dll" _
(ByRef Key As Byte, ByRef Certificate As Byte, _
ByRef Key_size As Long, ByRef Certificate_size As Long) As Long
Public Declare Function HMaxF_RSA_version Lib "rsa_dll.dll" (ByRef Target As Byte, ByVal Target_size As Long) As Long
'delare public variable
Public FileHandle As Integer
Public SourceFile As String
Public TargetFile As String
Public KeyFile As String
Public CertificateFile As String
Public SourceBytes() As Byte
Public TargetBytes() As Byte
Public KeyBytes() As Byte
Public CertificateBytes() As Byte
Public SourceLength As Long
Public TargetLength As Long
Public KeyLength As Long
Public CertificateLength As Long
Public StartTime As Long
Public FinishTime As Long
Public Op_Mode As Long
Public Result As Long ' return value
nur alles was ich Fersuche endet in eine Absturtz der Autoit.exe
hier mein Letzer Versuch:
Func RSA_encrypt(ByRef $Source, ByRef $Certificate)
[/autoit] [autoit][/autoit] [autoit]local $Source_size = BinaryLen($Source) * 2
If $Source_size < 255 Then $Source_size = 255
local $Certificate_size = BinaryLen($Certificate)
Local $Target, $Target_size = $Source_size * 4
$result = DllCall("rsa_dll.dll", "long", "RSA_encrypt", "byte", $Source, "long", $Source_size, "byte", $Target, "long", $Target_size, "byte", $Certificate, "long", $Certificate_size)
[/autoit] [autoit][/autoit] [autoit]Return $Target
[/autoit]ich habe das Thema DLLcall leider irgentwie nicht verstanden.
ich vermute es hat irgentwas mit der Vareabelen Reservierung zu tun, Die wird nemlich im VB so geregelt:
.
.
.
Private Sub cmdEncrypt_Click()
If SourceLength = 0 Then
MsgBox "Source buffer is empty !", vbOKOnly, "Error"
Exit Sub
End If
If CertificateLength = 0 Then
MsgBox "Certificate buffer is empty !", vbOKOnly, "Error"
Exit Sub
End If
'reserve enough space
TargetLength = SourceLength * 2
If (TargetLength < 256) Then
TargetLength = 256 ' set minimum of one block size
End If
ReDim TargetBytes(0 To (TargetLength - 1))
DoIt 1 ' encrypt
If Result <> 0 Then
Form1.lblMsg.Caption = "Success !" & vbCrLf & StrConv(TargetBytes, vbUnicode)
'resize to the correct value
ReDim Preserve TargetBytes(0 To (Result - 1))
TargetLength = Result
Else
Form1.lblMsg.Caption = "Error, RSA encrypt return zero value"
End If
End Sub
.
.
.
Private Sub DoIt(Operation As Long)
Op_Mode = Operation
FormDoer.Show vbModal, Me ' show as modal
End Sub
.
.
.
Private Sub cmdStart_Click()
StartTime = Timer
Me.cmdCancel.Enabled = False
Me.cmdStart.Enabled = False
Me.MousePointer = vbHourglass
'select operation
Select Case Op_Mode
Case 1
Me.lblMsg.Caption = "Encryption in progress ..."
Result = RSA_encrypt(SourceBytes(0), SourceLength, TargetBytes(0), TargetLength, CertificateBytes(0), CertificateLength)
Case 2
Me.lblMsg.Caption = "Decryption in progress ..."
Result = RSA_decrypt(SourceBytes(0), SourceLength, TargetBytes(0), TargetLength, KeyBytes(0), KeyLength)
Case 3
Me.lblMsg.Caption = "Signing in progress ..."
Result = RSA_sign(SourceBytes(0), SourceLength, TargetBytes(0), TargetLength, KeyBytes(0), KeyLength)
Case 4
Me.lblMsg.Caption = "Verification in progress ..."
Result = RSA_verify(SourceBytes(0), SourceLength, TargetBytes(0), TargetLength, CertificateBytes(0), CertificateLength)
Case 5
Me.lblMsg.Caption = "Generating Keys in progress ..."
Result = RSA_generate_keys(KeyBytes(0), CertificateBytes(0), KeyLength, CertificateLength)
End Select
Me.MousePointer = vbDefault
Me.cmdCancel.Caption = "&Finish"
Me.cmdCancel.Enabled = True
'check error
If (Op_Mode = 5) Then
If (Result <> 0) Then
Me.lblMsg.Caption = "Generate keys error"
Exit Sub
End If
Else
If (Result = 0) Then
Me.lblMsg.Caption = "Process fail !"
Exit Sub
End If
End If
FinishTime = Timer
Me.lblMsg.Caption = "Finished and success, elapsed time = " & FinishTime - StartTime
End Sub
.
.
.
Danke düe Nützliche Tipps
Hallo BugFix,
Danke für die Antwort, das wusste ich aber schon, früher hatte ich mir die Mühe auch mal gemacht, genau 2 mal nach dem ich mir meine Datei zu 3ten mal zerstört habe habe ich aufgehört, man achtet doch eher auf die UDFs als auf die au3.user.calltip.api deswegen habe ich überlegt ob das irgendwie funktionieren könnte, immerhin weis ich ja welche includs ich einbinden möchte manchmal überlege ich aber an der Syntax und wenn nach dem einbinden die Syntax klar wäre .... immerhin funktioniert ja auch ctrl + j um in die include Datei an die Funktion zu springen.
Ich glaube ich baue mir ein Script welches mir meine Includes durchsucht und eine Geschrieben Hilfe aus dem Header in die au3.user.calltip.au3 einträgt. so brauche ich nur meine UDFs sichern und das File.
EDIT@bugfix: *g* ich habe mal die automatischen Forenforschläge für verwante Themen durchsucht .... und was soll ich sagen ... da aist schon alles gesagt .... das Tool was ich suche und und und... dennoch danke.
Hallo,
gibt es eine Möglichkeit die Scite Call Tips in die UDF zu integrieren so das wenn eine UDF included wird die Call Tips existieren?
Gruß und Danke
Hallo,
Firefox mit Firebug ....
EDIT: oder du lädst mit inetget() die HTML datei als Datei oder
#include <inet.au3> $HTMLFile = _INetGetSource($s_URL, $s_Header) dann hast du sie Stream.
