Beiträge von Greek

Greek

Hallo, also mir soll eine email geschickt werden wenn eine datei groß genug ist. In dem Beispiel seht ihr ja wie ich das bis jetzt gelöst hab, aber ich grig ein paar emails mehr als ich will... Gibt es eine Lösung, wo er nur eine email versendet?

[autoit]

Func Absenden()
$size=FileGetSize ( "C:\Hardware\in337.txt" )
If $size>'1032' and $size<'1038' Then
$read=FileRead ( "C:\Hardware\in337.txt" )

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

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

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

$rc = _INetSmtpMailCom('meine daten')
If @error then
msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
EndIf
EndIf
EndFunc

[/autoit]

Edit : Schreib erst morgen zurück, geh jetzt ins Bett.

Greek

Deutsch?

Das was ich verstanden hab geht so :

MouseClick ( "button" [, x, y [, clicks [, speed ]]] )

Greek

Nen Script zum Bildschirm absuchen hab ich sogar zufälliger weise =D

Spoiler anzeigen

[autoit]

HotKeySet ( "{F1}", "ext" )

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

Global $start = 100, $end = 700, $step = 5, $tmp
For $x = 100 To 900 Step +5
For $y = $start To $end Step $step
Mousemove($x, $y, 1)
; If _delete() Then ExitLoop 2
Next
$tmp = $start
$start = $end
$end = $tmp
$step = -$step
Next
Func ext()
Exit
EndFunc

[/autoit]

Mfg Greek

Greek

habs auch ma gemacht

Spoiler anzeigen

[autoit]

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

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

Dim $hallo

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 633, 447, 193, 125)
$Button1 = GUICtrlCreateButton("Los", 256, 264, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Beenden", 520, 400, 75, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 192, 88, 220, 145)
GUICtrlSetState(-1,$GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$var = IniReadSection( "test.ini", "dieerste")
For $i = 1 To $var[0][0]
$hallo &= "Schlüssel"&": "&$var[$i][0]&" | "&" Wert "&" :"&$var[$i][1] & @CRLF
Next
GUICtrlSetData ( $Edit1, $hallo)

Case $Button2
Exit
EndSwitch
WEnd

[/autoit]

Greek

Spoiler anzeigen

[autoit]

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($mail_server,$absender_name,$absender_adresse, $empfaenger_adresse, $betreff, $nachrichtentext, $anhang, $cc_emfaenger,$bcc_empfaenger, $mail_benutzername, $mail_passwort)
If @error then
msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
EndIf

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
$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.Cc = $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 $ex = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
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
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
;Authenticated SMTP
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
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
if @error then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc;==>MyErrFunc

[/autoit]

Du musst die hier verwenden dann klappts auch =)
$mail_sever und den ganzen käse musste da noch ausfüllen
(bei web.de ist es smtp.web.de)

Edit: Komm ich jetzt in die Credits? XD

Greek

vieleicht könnte man das so irgendwie lösen

_ispressed ( enter )
Send ( tab)

Greek

http://www.cheatengine.org/downloads.php

Suchst du das Programm oder hast du es?

Greek

geh in eine auto it datei und drück F1, dann kommt die hilfe. Da stehen dann auch die macros unter macros reference

Spoiler anzeigen

@AppDataDir path to current user's Application Data
@DesktopDir path to current user's Desktop
@MyDocumentsDir path to My Documents target
@FavoritesDir path to current user's Favorites
@ProgramsDir path to current user's Programs (folder on Start Menu)
@StartMenuDir path to current user's Start Menu
@StartupDir current user's Startup folder
@UserProfileDir Path to current user's Profile folder.

Other macros for the computer system:
@HomeDrive Drive letter of drive containing current user's home directory.
@HomePath Directory part of current user's home directory. To get the full path, use in conjunction with @HomeDrive.
@HomeShare Server and share name containing current user's home directory.
@LogonDNSDomain Logon DNS Domain.
@LogonDomain Logon Domain.
@LogonServer Logon server.
@ProgramFilesDir path to Program Files folder
@CommonFilesDir path to Common Files folder
@WindowsDir path to Windows folder
@SystemDir path to Windows' System (or System32) folder
@TempDir path to the temporary files folder
@ComSpec value of %comspec%, the SPECified secondary COMmand interpreter;
primarly for command line uses, e.g. Run(@ComSpec & " /k help | more")

Greek

Also dein Fadenkreuz tut dinge zeichnen? Dann würde ich mit einem Hotkey , eine mousemove funktion machen.

Greek

lol und ich dachte nur bei mir geht das net xD, bist du sicher das so der befehl war?

Greek

Geht soweit ich weis nur mit bmp bildern

Greek

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#NoTrayIcon

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

$Form2 = GUICreate("Anmelden", 547, 546, 193, 125)
$Group1 = GUICtrlCreateGroup("Server", 10, 10, 150, 221)
$radio1= GUICtrlCreateRadio("1. Mosha", 20, 30, 121, 21)
$radio2= GUICtrlCreateRadio("2. Karthago", 20, 50, 121, 21)
$radio3= GUICtrlCreateRadio("3. Astreya", 20, 70, 121, 21)
$radio4= GUICtrlCreateRadio("4. Hyperion", 20, 90, 121, 21)
$radio5= GUICtrlCreateRadio("5. Antharos", 20, 110, 121, 21)
$radio6= GUICtrlCreateRadio("6. Cascardon", 20, 130, 121, 21)
$radio7= GUICtrlCreateRadio("7. Lesanya", 20, 150, 121, 21)
$radio8= GUICtrlCreateRadio("8. Torkas", 20, 170, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Channel", 170, 10, 150, 221)
$radio9= GUICtrlCreateRadio("CH 1", 180, 30, 121, 21)
$radio10= GUICtrlCreateRadio("CH 2", 180, 50, 121, 21)
$radio11= GUICtrlCreateRadio("CH 3", 180, 70, 121, 21)
$radio12= GUICtrlCreateRadio("CH 4", 180, 90, 121, 21)
$radio13= GUICtrlCreateRadio("CH 5", 180, 110, 121, 21)
$radio14= GUICtrlCreateRadio("CH 6", 180, 130, 121, 21)
GUISetState(@SW_SHOW)

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

While 1
ControlClick ("Anmelden", "unsicht", "Button5")
$nMsg = GUIGetMsg()
Switch $nMsg

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

Case $GUI_EVENT_CLOSE
Exit
Case $radio2
GUICtrlSetState ( $radio14,$GUI_HIDE)

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

EndSwitch
WEnd

[/autoit]

Greek

Also so wenn ich es richtig verstanden hab ( passwort ist alex )

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 173, 44, 443, 345)
$Input1 = GUICtrlCreateInput("", 8, 8, 121, 21)
$Button1 = GUICtrlCreateButton("OK", 136, 8, 27, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$jo = GUICtrlRead ( $input1 )
Maingui()
EndSwitch
WEnd

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

Func Maingui()
If $jo = "alex" Then
GUISetState(@SW_HIDE,$Form1)
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 633, 447, 193, 125)
$Label2 = GUICtrlCreateLabel("Hallo", 288, 200, 28, 17)
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
Else
MsgBox ( 0, "Falsches Passwort", "Das Eingegebene Passwort ist falsch" )
EndIf
EndFunc

[/autoit]

Greek

Die übertreiben das mit der Suchfunktion viel zu sehr -.-

Also, hatte mich auch lange damit beschäftigt email zu senden. Doch das hat mit der Funktion die du nimmst nie geklappt.Probiers mal mit der hier die funktioniert zu 100% =)

Spoiler anzeigen

[autoit]

#include<file.au3>
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

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

$rc = _INetSmtpMailCom('', "", "", "", "", "Test <b>Ich habs geschafft!</b>", "", "","", "", "")
If @error then
msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
EndIf

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

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
$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.Cc = $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])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
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
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
;Authenticated SMTP
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
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
if @error then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc;==>MyErrFunc

[/autoit]

Edit: Ja ich weis das, das nicht die frage war, aber mit der Funktion kann er keine email z.B. an https://autoit.de/www.web.de schreiben.

Greek

So?

Spoiler anzeigen

[autoit]

$zahl1 =IniRead ( "ini name", "temp",1, "not found" )
$zahl2 =IniRead ( "ini name", "temp",2, "not found" )

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

if $zahl1 = $zahl2 Then
...

[/autoit]

Greek

Poste doch mal deinen Code :>

Greek

Man danke das war ne perfekte Lösung zu meinem problem

thx thx thx

Greek

öö und was mach ich jetzt genau damit ?

$reg = RegRead ( "HKEY_CURRENT_USER\Software\mein programm.net\mein programm", "ProgramFilesDir" )

wie lass ich mir jetzt z.B. den pfad mit ner msgbox ausgeben?

Edit: AHHH man muss noch InstallPath bei valvue hinschreiben

Greek

ne ist nicht dabei

Brauch ne andere Lösung...

E: Ah bei HKEY_current_user war es dabei

Greek

Zitat von Xenobiologist

Hi,

du musst auch noch entscheiden, ob du zuende suchen willst, oder die erste gefundene ini ausreicht.

Mega

zu ende suchen brauch alle

FireFlyer : Wo kann ich den nach sehen ob eine datei davon in der registrie ist?

Beiträge von Greek

Erhalte zu viele emails

Ankliken automatisch

Bildschirm absuchen nach "Link"

Inhalt einer INI ab der zweiten Zeile in einem GUI anzeigen lassen.

_INetSmtpMail klappt irgendwie nicht

tauschen Enter mit Tab

memory-funktionen hilfe

flexiblen Pfad aus datei einlesen

Auto It direkt auf den Bildschirm zeichnen

Mit autoit cmd befehle "auslesen"

GUICtrlCreatePic zeigt kein bild an :'(

Probleme/Fragen zu Radiobuttons

Passwort abfrage im Gui

Gui mit Inputboxen für Email Script - Problem

Keys aus einer ini auslesen und vergleichen

unendliche While-Schleifen

Überall nach einer bestimmten ini suchen

Überall nach einer bestimmten ini suchen

Überall nach einer bestimmten ini suchen

Überall nach einer bestimmten ini suchen