Beiträge von Schnuffel

[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
EndIf
EndFunc;==>_INetSmtpMailCom

[/autoit]

[autoit]

ShellExecute ( "filename" [, "parameters" [, "workingdir" [, "verb" [, showflag]]]] )

[/autoit]

[autoit]

$size = WinGetPos("Dein Fenster")
If WinExists("Dein Fenster") And $size[2] = "Breite Deines Fensters" And $size[3] = "Höhe Deines Fenster" Then
.......
EndIf

[/autoit]

[autoit]

#include <GUIConstants.au3>
#Include <Date.au3>

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

#NoTrayIcon

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

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Lerntagebuch", 694, 739, -1, -1)
GUISetBkColor(0xA6CAF0)
$Date = GUICtrlCreateDate(_NowDate(), 0, 688, 225, 42)
$Beenden = GUICtrlCreateButton("Beenden", 536, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Speichern = GUICtrlCreateButton("Speichern", 384, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Datum = GUICtrlCreateLabel("Datum", 8, 16, 183, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$TDR = GUICtrlCreateLabel("Thema der Reihe", 8, 56, 179, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Box1D = GUICtrlCreateInput("Unten Links??", 200, 16, 265, 21)
$BoxTDR = GUICtrlCreateInput("", 200, 56, 265, 21)
$Drucken = GUICtrlCreateButton("Drucken", 232, 688, 145, 41, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$TDS = GUICtrlCreateLabel("Thema der Stunde", 8, 96, 180, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxTDS = GUICtrlCreateInput("", 200, 96, 265, 21)
$Material = GUICtrlCreateLabel("Material", 8, 136, 178, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxMaterial = GUICtrlCreateInput("BoxMaterial", 200, 136, 265, 21)
$Bearbeitung = GUICtrlCreateLabel("Bearbeitung", 8, 176, 177, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$EditBearbeitung = GUICtrlCreateEdit("", 200, 176, 265, 169)
GUICtrlSetData(-1, "EditBearbeitung")
$ErgebnisDerStunde = GUICtrlCreateLabel("Ergebnis der Stunde", 8, 368, 179, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Edit1 = GUICtrlCreateEdit("", 200, 368, 265, 121)
GUICtrlSetData(-1, "Edit1")
$Hausaufgaben = GUICtrlCreateLabel("Hausaufgaben", 8, 512, 181, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Edit2 = GUICtrlCreateEdit("", 200, 520, 265, 137)
GUICtrlSetData(-1, "Edit2")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Beenden
Exit
Case $Speichern
tb_speichern()
EndSwitch
WEnd

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

Func tb_speichern()
$tb = FileOpen("tagebuch.txt",1)
FileWriteLine($tb,GUICtrlRead($Date)&@CRLF&"Thema der Reihe :"&GUICtrlRead($TDR)&@CRLF&"Thema der Stunde :"&GUICtrlRead($TDS))
FileWriteLine($tb,GUICtrlRead($BoxMaterial)&@CRLF&GUICtrlRead($EditBearbeitung)&@CRLF&GUICtrlRead($Edit1)&@CRLF&GUICtrlRead($Edit2)&@CRLF&@CRLF)
FileClose($tb)
EndFunc

[/autoit]

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
GUICreate('')
$input = GUICtrlCreateInput("Suchkriterien eingeben ...",10,10,300,20)
$button = GUICtrlCreateButton("OK",135,40,40,20)
GUICtrlSetState($button,$GUI_FOCUS)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
$nNotifyCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0xFFFF)
Switch $nNotifyCode
Case 512 ; verläßt Focus

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

Case 256 ; erhält Focus
GUICtrlSetData($input,"")
Case 1024 ; Edit in Focus

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

EndSwitch
EndFunc ;==>MY_WM_COMMAND

[/autoit]