Beiträge von bernd670

#include <INet.au3>

$s_SmtpServer = "smtp.web.de"
$s_FromName = "bernd670"
$s_FromAddress = "bernd670@web.de"
$s_ToAddress = "bernd670@gmx.de"
$s_Subject = "My Test UDF"
$s_UName = "bernd670" ; Benutzername ohne @web.de
$s_PWD = "<passwort>"
Dim $as_Body[2]
$as_Body[0] = "Testing the new email udf"
$as_Body[1] = "Second Line"
$Response = _INetSmtpMailAuth ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_UName, $s_PWD, $s_Subject, $as_Body, "EHLO ")
;~ $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf

;===============================================================================
;
; Function Name: _INetSmtpMailAuth()
; Description: Sends an email using SMTP over TCP IP.
; Parameter(s): $s_SmtpServer - SMTP server to be used for sending email
; $s_FromName - Name of sender
; $s_FromAddress - eMail address of sender
; $s_ToAddress - Address that email is to be sent to
; $s_Username - Username for Authentication (bernd670)
; $s_Passwd - Password for Authentication (bernd670)
; $s_Subject - Subject of eMail
; $as_Body - Single dimension array containing the body of eMail as strings
; $s_helo - Helo identifier (default @COMPUTERNAME) sometime needed by smtp server
; $s_first - send before Helo identifier (default @CRLF) sometime needed by smtp server
; $b_trace - trace on a splash window (default 0 = no trace)
; Requirement(s): None
; Return Value(s): On Success - Returns 1
; On Failure - 0 and sets
; @ERROR = 1 - Invalid Parameters
; @ERROR = 2 - Unable to start TCP
; @ERROR = 3 - Unable to resolve IP
; @ERROR = 4 - Unable to create socket
; @ERROR = 5x - Cannot open SMTP session
; @ERROR = 50x - Cannot send body
; @ERROR = 5000 - Cannot close SMTP session
; Authors: Original function to send email via TCP - Asimzameer
; Conversion to UDF - Walkabout
; Correction Helo, timeout, trace - Jpm
; Correction send before Helo - Jpm
; Include Authentication - bernd670
;
;===============================================================================
Func _INetSmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Username, $s_Passwd, $s_Subject = "", $as_Body = "", $s_helo = "", $s_first="-1", $b_trace = 0)

Local $v_Socket
Local $s_IPAddress
Local $i_Count
Local $s_Send[9]
Local $s_ReplyCode[9];Return code from SMTP server indicating success

If $s_SmtpServer = "" Or $s_FromAddress = "" Or $s_ToAddress = "" Or $s_Username = "" Or $s_Passwd = "" Or $s_FromName = "" Or StringLen($s_FromName) > 256 Then
SetError(1)
Return 0
EndIf
If $s_helo = "" Then $s_helo = @ComputerName
If TCPStartup() = 0 Then
SetError(2)
Return 0
EndIf
StringRegExp($s_SmtpServer, "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)")
If @extended Then
$s_IPAddress = $s_SmtpServer
Else
$s_IPAddress = TCPNameToIP($s_SmtpServer)
EndIf
If $s_IPAddress = "" Then
TCPShutdown()
SetError(3)
Return 0
EndIf
$v_Socket = TCPConnect($s_IPAddress, 25)
If $v_Socket = -1 Then
TCPShutdown()
SetError(4)
Return (0)
EndIf

$s_Send[0] = "HELO " & $s_helo & @CRLF
If StringLeft($s_helo,5) = "EHLO " Then $s_Send[0] = "EHLO " & $s_helo & @CRLF
$s_ReplyCode[0] = "250"

$s_Send[1] = "AUTH LOGIN" & @CRLF
$s_ReplyCode[1] = "334"
$s_Send[2] = _Base64Encoding($s_Username) & @CRLF
$s_ReplyCode[2] = "334"
$s_Send[3] = _Base64Encoding($s_Passwd) & @CRLF
$s_ReplyCode[3] = "235"
$s_Send[4] = "MAIL FROM: <" & $s_FromAddress & ">" & @CRLF
$s_ReplyCode[4] = "250"
$s_Send[5] = "RCPT TO: <" & $s_ToAddress & ">" & @CRLF
$s_ReplyCode[5] = "250"
$s_Send[6] = "DATA" & @CRLF
$s_ReplyCode[6] = "354"

$s_Send[7] = "From: " & $s_FromName & " <" & $s_FromAddress & ">" & @CRLF & _
"To: " & "<" & $s_ToAddress & ">" & @CRLF & _
"Subject: " & $s_Subject & @CRLF & _
"Mime-Version: 1.0" & @CRLF & _
"Content-Type: text/plain; charset=US-ASCII" & @CRLF & _
@CRLF
$s_ReplyCode[7] = ""

$s_Send[8] = @CRLF & "." & @CRLF
$s_ReplyCode[8] = "250"

; open stmp session
If _SmtpSend($v_Socket, $s_Send[0], $s_ReplyCode[0], $b_trace, "220", $s_first) Then
SetError(50)
Return 0
EndIf

; send header
For $i_Count = 0 To UBound($s_Send) - 2
If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
SetError(50 + $i_Count)
Return 0
EndIf
Next

; send body records (a record can be multiline : take care of a subline beginning with a dot should be ..)
For $i_Count = 0 To UBound($as_Body) - 1
; correct line beginning with a dot
If StringLeft($as_Body[$i_Count], 1) = "." Then $as_Body[$i_Count] = "." & $as_Body[$i_Count]

If _SmtpSend($v_Socket, $as_Body[$i_Count] & @CRLF, "", $b_trace) Then
SetError(500 + $i_Count)
Return 0
EndIf
Next

; close the smtp session
$i_Count = UBound($s_Send) - 1
If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
SetError(5000)
Return 0
EndIf

TCPCloseSocket($v_Socket)
TCPShutdown()
Return 1
EndFunc ;==>_INetSmtpMailAuth

;===============================================================================
;
; Function Name: _Base64Encoding()
; Description: Kodiert eine Zeichenfolge mit dem Base64-Verfahren
; (http://de.wikipedia.org/wiki/Base64)
; Parameter(s): $String - Zeichenfolge die kodiert werden soll
; Requirement(s): None
; Return Value(s): Kodierte Zeichenfolge
; Authors: bernd670
;
;===============================================================================
Func _Base64Encoding ($String)

$strUmsetzung = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
$strRetValue = ""

For $i = 1 To StringLen($String) Step 3
$strTok = StringMid($String,$i,3)
Switch StringLen($strTok)
Case 3
$iTokVal = (Asc(StringMid($strTok,1,1)) * 256 + _
Asc(StringMid($strTok,2,1))) * 256 + _
Asc(StringMid($strTok,3,1))
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1)
$iTokVal = BitShift($iTokVal,6)
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1) & $strTokCryt
$iTokVal = BitShift($iTokVal,6)
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1) & $strTokCryt
$iTokVal = BitShift($iTokVal,6)
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1) & $strTokCryt
$strRetValue &= $strTokCryt

Case 2
$iTokVal = (Asc(StringMid($strTok,1,1)) * 256 + _
Asc(StringMid($strTok,2,1))) * 256
$iTokVal = BitShift($iTokVal,6)
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1)
$iTokVal = BitShift($iTokVal,6)
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1) & $strTokCryt
$iTokVal = BitShift($iTokVal,6)
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1) & $strTokCryt
$strRetValue &= $strTokCryt & "="

Case 1
$iTokVal = Asc(StringMid($strTok,1,1)) * 65536
$iTokVal = BitShift($iTokVal,12)
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1)
$iTokVal = BitShift($iTokVal,6)
$strTokCryt = StringMid($strUmsetzung,(BitAND($iTokVal,63)) + 1,1) & $strTokCryt
$strRetValue &= $strTokCryt & "=="

EndSwitch
Next

Return $strRetValue
EndFunc

#include <File.au3>
#include <GuiListView.au3>
#Include <GUIComboBox.au3>
#include <GUIConstants.au3>
#NoTrayIcon

Local $ListView1, $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES), $hListView
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Filmmanager v2.1 (c) Carsten Schneider", 588, 355, 332, 186)
GUISetBkColor(0xC0DCC0)
GUISetCursor(14)
$ListView1 = _GUICtrlListView_Create($Form1, "Name|VHS|DVD|CZ", 3, 3, 334, 304, -1, 0x00000020)
_GUICtrlListView_SetExtendedListViewStyle ($ListView1, $exStyles)
_GUICtrlListView_SetColumnWidth($ListView1, 0, 197)
_GUICtrlListView_SetColumnWidth($ListView1, 1, 40)
_GUICtrlListView_SetColumnWidth($ListView1, 2, 40)
_GUICtrlListView_SetColumnWidth($ListView1, 3, 40)
$Button1 = GUICtrlCreateButton("Film entfernen", 339, 228, 246, 43, 0)
$Label1 = GUICtrlCreateLabel("Filmname:", 339, 6, 117, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Input1 = GUICtrlCreateInput("", 339, 42, 244, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Typ:", 339, 78, 51, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Combo1 = GUICtrlCreateCombo("", 339, 114, 244, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "VHS|DVD|CZ")
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
_GUICtrlComboBox_SetCurSel($Combo1, 0)
$Button3 = GUICtrlCreateButton("Ausgewählten Film bearbeiten", 339, 144, 246, 43, 0)
$Button4 = GUICtrlCreateButton("Neuen Film erstellen", 339, 186, 246, 43, 0)
$Button5 = GUICtrlCreateButton("Filmliste neu laden und sortieren", 2, 309, 336, 43, 0)
GUICtrlSetState($Input1, $GUI_FOCUS)
$Button6 = GUICtrlCreateButton("Schließen", 339, 270, 246, 39, 0)
$Button7 = GUICtrlCreateButton("Suchen", 462, 309, 123, 43)
$Button8 = GUICtrlCreateButton("Liste drucken", 339, 309, 123, 43, 0)
$Button9 = GUICtrlCreateButton("Abrufen", 460, 3, 123, 35)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

$merken = ""

Func _laden()
If FileExists("data.ini") Then
$count = IniReadSectionNames("data.ini")
SplashTextOn("", "Daten werden geladen (" & $count[0] & " Filme) ...", 300, 50, -1, -1, 33)
_GUICtrlListView_DeleteAllItems($ListView1)
$dataname = IniReadSectionNames("data.ini")
For $i = 1 to $dataname[0]
$datatyp = IniRead("data.ini", $dataname[$i], "typ", "Error")
_GUICtrlListView_AddItem($ListView1, $dataname[$i], $i)
If $datatyp = "VHS" Then
_GUICtrlListView_AddSubItem($ListView1, $i - 1, " X", 1)
ElseIf $datatyp = "DVD" Then
_GUICtrlListView_AddSubItem($ListView1, $i - 1, " X", 2)
ElseIf $datatyp = "CZ" Then
_GUICtrlListView_AddSubItem($ListView1, $i - 1, " X", 3)
EndIf
Next
Else
MsgBox(0, "Error", "Filme konnten nicht geladen werden da die Datei 'data.ini' nicht gefunden wurde. Datei wird nach dem ersten neu erstellten Film erstellt.")
EndIf
SplashOff()
_sort()
EndFunc

Func _sort()
$count = _GUICtrlListView_GetItemCount($ListView1)
SplashTextOn("", "Filme werden sortiert (" & $count & " Filme) ...", 300, 50, -1, -1, 33)
Global $B_DESCENDING[_GUICtrlListView_GetColumnCount ($ListView1) ]
_GUICtrlListView_SimpleSort($ListView1, $B_DESCENDING, 0)
SplashOff()
EndFunc

_laden()

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button6
Exit
Case $Button5
_laden()
Case $Button4
$newname = GUICtrlRead($input1)
$newtyp = GUICtrlRead($Combo1)
If $newname = "" Then
MsgBox(0, "Error", "Bitte geben Sie einen Filmname ein.")
Else
IniWrite("data.ini", $newname, "typ", $newtyp)
EndIf
_laden()
Case $Button3
$selected = _GUICtrlListView_GetSelectedIndices($ListView1)
$newname = GUICtrlRead($input1)
$newtyp = GUICtrlRead($Combo1)
If $newname = "" Then
MsgBox(0, "Error", "Bitte geben Sie einen Filmname ein.")
ElseIf $selected = "-1" Then
MsgBox(0, "Error", "Bitte wählen Sie einen Film zum editieren aus.")
Else
$selectedname = _GUICtrlListView_GetItemText($ListView1, $selected)
IniDelete("data.ini", $selectedname)
IniWrite("data.ini", $newname, "typ", $newtyp)
EndIf
_laden()
Case $Button1
$selected = _GUICtrlListView_GetSelectedIndices($ListView1)
If $selected = "-1" Then
MsgBox(0, "Error", "Bitte wählen Sie einen Film zum löschen aus.")
Else
$selectedname = _GUICtrlListView_GetItemText($ListView1, $selected)
IniDelete("data.ini", $selectedname)
EndIf
_laden()
Case $Button7
$suchbegriff = InputBox("Suche", "Bitte geben Sie einen Suchbegriff ein" & @CRLF & "ACHTUNG: Groß- und Kleinschriebung beachten!")
$suche = _GUICtrlListView_FindText($ListView1, $suchbegriff)
If $suche = -1 Then
MsgBox(0, "Error", "Es konnte kein Film gefunden werden.")
Else
_GUICtrlListView_SetItemSelected($ListView1, $suche)
MsgBox(0, "Suche", "Der gesuchte Film wurde markiert. Bitte beachten Sie dass das automatische scrollen noch nicht möglich ist.")
EndIf
Case $Button9
$selid = _GUICtrlListView_GetSelectionMark($ListView1)
$sel = _GUICtrlListView_GetItemTextArray($ListView1, $selid)
GUICtrlSetData($Input1, $sel[1])
If $sel[4] = " X" Then
GUICtrlSetData($Combo1, "CZ")
ElseIf $sel[3] = " X" Then
GUICtrlSetData($Combo1, "DVD")
ElseIf $sel[2] = " X" Then
GUICtrlSetData($Combo1, "VHS")
EndIf
Case $Button8
SplashTextOn("", "Druckvorgang wird vorbereitet...", 300, 50, -1, -1, 33)
If FileExists("data.ini") Then
$datacount = _GUICtrlListView_GetItemCount ($ListView1)
$printfile = @TempDir & "\" & random(0, 999, 1) & ".txt"
For $i = 1 to $datacount
$e = $i - 1
$data = _GUICtrlListView_GetItemTextArray($ListView1, $e)
If $data[4] = " X" Then
FileWriteLine($printfile, "[CZ ]" & $data[1])
ElseIf $data[3] = " X" Then
FileWriteLine($printfile, "[DVD]" & $data[1])
ElseIf $data[2] = " X" Then
FileWriteLine($printfile, "[VHS]" & $data[1])
EndIf
Next
EndIf
SplashOff()
SplashTextOn("", "Drucken...", 300, 50, -1, -1, 33)
$print = _FilePrint($printfile)
SplashOff()
If $print Then
MsgBox(0, "Druckvorgang", "Der Druckvorgang wurde erfolgreich an Ihren Standarddrucker gestartet!")
Else
MsgBox(0, "Druckvorgang", "Error: " & @error & @CRLF & "Datei konnte nicht gedruckt werden.")
EndIf
EndSwitch
WEnd

; Neue EventFunktion
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView

$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")

Switch $hWndFrom
Case $ListView1

Switch $iCode

Case $NM_CLICK ; Sent by a list-view control when the user clicks an item with the left mouse button
MsgBox(0,"", "Eintag wurde mit einfachklick angeklickt!")

EndSwitch
EndSwitch

Return $GUI_RUNDEFMSG
EndFunc

#include <GUIConstants.au3>

GUICreate( "HLTV Client by FireFlyer", 450, 200, 100, 100)
GUICtrlCreateLabel( "This is a help to configure your HLTV Proxy", 10, 15, 300, 20)

GUICtrlCreateLabel( "Server IP:", 10, 53, 100, 20)
$server = GUICtrlCreateInput( "", 120, 50, 150, 20)
GUICtrlCreateLabel( "(Example: 85.214.40.16:27100)", 275, 53, 200, 20)

GUICtrlCreateLabel( "Serverpassword:", 10, 83, 100, 20)
$serverpw = GUICtrlCreateInput( "", 120, 80, 150, 20)
GUICtrlCreateLabel( "(Example: Password)", 275, 83, 200, 20)

GUICtrlCreateLabel( "Demoname:", 10, 112, 100, 20)
$demoname = GUICtrlCreateInput( "", 120, 110, 150, 20)
GUICtrlCreateLabel( "(Example: Name)", 275, 112, 200, 20)

$start = GUICtrlCreateButton( "Start HLTV", 30, 150, 75, 25)
$end = GUICtrlCreateButton( "End HLTV", 120, 150, 75, 25)
$options = GUICtrlCreateButton( "Advanced Options", 210, 150, 110, 25)
$exit = GUICtrlCreateButton( "Exit", 335, 150, 75, 25)
GUISetState(@SW_SHOW)
While 1

$msg1 = GUIGetMsg()
Select
Case $msg1 = $GUI_EVENT_CLOSE
Exit
Case $msg1 = $exit
Exit
Case $msg1 = $start
FileDelete( "connect.cfg" )
$server2 = GUICtrlRead( $server, 1)
$serverpw2 = GUICtrlRead( $serverpw, 1)
$demoname2 = GUICtrlRead( $demoname, 1)
FileWriteLine ( "connect.cfg", "connect "&$server2)
FileWriteLine ( "connect.cfg", "serverpassword "&$serverpw2)
FileWriteLine ( "connect.cfg", "record "&$demoname2)
sleep(100)
run( "hltv.exe")
EndSelect

WEnd

Man kann jetzt Spoiler einen Namen geben, einfach:

[Spoiler=Name][/Spoiler]

schreiben![/spoiler]

Erwartet habe ich als Ergebnis folgendes:

[Spoiler=Name][/Spoiler]