"also gesamtanzahl wo failure steht"
was meinst du damit? was soll konkret jetzt in status, alive und total stehen?
lg Phil-It
"also gesamtanzahl wo failure steht"
was meinst du damit? was soll konkret jetzt in status, alive und total stehen?
lg Phil-It
was kann ich tun?
hat jemand ein setup zur version früher zufällig zur verfügung?
haha ich merks auch ich war gerade im englischen forum unterwegs und hab auch gelesen dass es an dem autoit wrapper oder so liegt.. Hier:
+>13:19:17 Starting AutoIt3Wrapper v.14.801.2025.0 SciTE v.3.4.4.0 Keyboard:00000407 OS:WIN_7/Service Pack 1 CPU:X64 OS:X64 Environment(Language:0407)
+> SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE UserDir => C:\Users\Phil\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\Phil\AppData\Local\AutoIt v3\SciTE
ich verstehe nicht auf was du hinaus willst? der fehler muss in dieser funktion liegen? aber ich verstehe leider nicht wie das sein kann und was an dem '$objEmail.To = $s_ToAddress' falsch sein sollte.
mein eigentliches script ist ~3450 zeilen...
Außerdem, wenn ich alle aufrufe dieser funktion auskommentiere, entsteht der gleiche fehler!
Hi
ich habe folgendes Programm, wie normal:
[autoit]Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF)
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 then $IPPort = 25
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
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
If $ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
$objEmail.Configuration.Fields.Update
Switch $s_Importance
Case "High"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
$objEmail.Send
If @error Then
MsgBox(16, "test", "Ihr Nachricht wurde nicht gesendet. Bitte prüfen Sie ihre Internetverbindung oder versuchen Sie es später erneut.")
EndIf
$objEmail=""
EndFunc
und das hat auch immer funktioniert als ich noch normales SciTE hatte.. jetzt das hier:
"C:\Users\...\Test.au3"(1865,15) : error: missing separator character before keyword.
$objEmail.To
~~~~~~~~~~~~~~^
C:\Users\...\Test.au3 - 1 error(s), 0 warning(s)
!>12:08:37 AU3Check ended. Press F4 to jump to next error.rc:2
+>12:08:37 AutoIt3Wrapper Finished.
>Exit code: 2 Time: 0.8801
Lg Phil-IT
Hi GTA,
Danke für die Aufklärung!:)
Auch wenn das jetzt eigentlich hier nicht hingehört habe ich trotzdem folgende Frage datz:
Also angenommen ich schließe viele Handles nicht oder zb die GDI+ Graphics lösche ich am schluss nicht was passiert denn dann genau oder was ist das problem wenn das Programm dann sowieso geschlossen wird? Danke schonmal;)
Lg Phil-IT
Algemein:
[autoit]
mehrzeilige kommentare gehn so:#cs
[/autoit]
Mehrzeiliger
Kommentar
#ceDann musst du nicht so viele ; schreiben
man kann auch genauso den text markieren und dann auf dem numpad - drücken?? geht viel einfacher und schneller.
EDIT: Damit geklärt lol:D
Wie schnitzel schon sagt es ist eigentlich unsinnig so zu arbeiten aber hier trotzdem wie es funktionieren könnte..
#include <GUIConstants.au3>
main()
Func main()
Local $x = 10, $y = 10
Dim $addbutton[10]
GUICreate("GSD", 310, 315) ; Erstellt die Gui
GUISetState() ; Macht die Gui sichtbar
$new = GUICtrlCreateButton("New File", $x, $y, 100)
$close = GUICtrlCreateButton("Exit", 210-$x, $y, 100)
While 1
$msg = GUIGetMsg()
If $msg = $close Or $msg = -3 Then
Exit
ElseIf $msg = $new Then
$y += 30
If $y < 310 Then $addbutton[($y-10)/30] = GUICtrlCreateButton("...", $x, $y, 100)
ElseIf $msg = $addbutton[1] And $addbutton[1] <> 0 Then
MsgBox(0, "", "Button 1 gedrückt!")
EndIf
WEnd
EndFunc
Die andere variante die schnitzel anspricht kann man zb so machen:
#include <GUIConstants.au3>
main()
Func main()
Local $x = 10, $y = 10, $shown = 1
Dim $addbutton[10]
GUICreate("GSD", 310, 315) ; Erstellt die Gui
GUISetState() ; Macht die Gui sichtbar
$show = GUICtrlCreateButton("New File", $x, $y, 100)
$close = GUICtrlCreateButton("Exit", 210-$x, $y, 100)
For $i = 1 To 9
$y += 30
$addbutton[$i] = GUICtrlCreateButton("...", $x, $y, 100)
GUICtrlSetState($addbutton[$i], $GUI_HIDE)
Next
While 1
$msg = GUIGetMsg()
If $msg = $close Or $msg = -3 Then
Exit
ElseIf $msg = $show Then
If $shown < 10 Then
GUICtrlSetState($addbutton[$shown], $GUI_SHOW)
$shown += 1
EndIf
ElseIf $msg = $addbutton[1] Then
MsgBox(0, "", "Button 1 gedrückt!")
EndIf
WEnd
EndFunc
Lg Phil-IT
ohh mein fehler:DD ich dachte man muss als ersten parameter nicht die explorer.exe sondern den eigentlichen pfad angeben sorry! hab ich nicht richtig gesehen.. danke!
so ich hatte jetzt endlich zeit es zu testen, aber es funktioniert nicht?:/ was genau muss $path sein? nochmal der ganze pfad?? mach bitte nochmal ein konkretes beispiel mit der Datei: Beispiel.txt auf dem Desktop.
Lg Phil-IT
ich werde süäter wahrscheinlich noch das fertige programm hochladen, ist ganz witzig dann werdet ihr sehen wieso ich es wirklich schnell brauche:)
Hey Phil-IT
wäre nett wenn du deine Themen immer als gelöst markierst sobald sie abgeschlossen sind.
Einfach den ersten Beitrag editieren, Präfix gelöst wählen und absenden
stimmt sorry hab ich in letzter zeit immer vergessen, werde ich gleich mal überall nachtragen!
Danke danke!!!:D
Hi,
wie kann ich einen Ordner im normalen Explorer öffnen lassen, und dabei eine Datei markieren?
also normal ordner öffnen kann man ja zb mit ShellExecute aber wie dann mit markierung?
lg Phil-IT
ja das hab ich auch schon versucht:D trotz allem ist meine variante die schnellste:DDD
ja das ist natürlich auch möglich, aber das dauert in sofern leider auch zu lange, denn allein ein FileRead() um diesen $sString zu bekommen dauert dann ja ewig wenn die entsprechende Datei groß ist. Aber danke tdm.
Lg Phil-IT
ich hab eine andere lösung für mich erstellt! ist vielleicht für mich bisschen leichter..
[autoit]
$ext = ".txt"
MsgBox(64, "RegKey:" & $ext, "RegKey von '" & $ext & "' ist " & RegRead("HKEY_CLASSES_ROOT" & $ext, "PerceivedType")) ; lieft bei Text-editierbaren Extensions 'text'
Danke tdm für deine Lösung!
Lg Phil-IT