Beiträge von Sirocool

Sirocool

wie in diesen link https://autoit.de/index.php?page…52&pageNo=3
musst nur im forum schauen gibt noch mehr spiele davon

https://autoit.de/index.php?page=Board&boardID=7

Sirocool

habe ich nichts gesagt wegen den istaller deswegen dachte ich es sind nur wieder fertige exe dateien habe des wegen nehmmlich nicht installier

Sirocool

weil wenn man dein teil auf macht der flackert ja nur
2 ich würde es mit bildern machen die teile habe ich dir auch gleich unter den bottuns gemacht

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include <IE.au3>
#include <WindowsConstants.au3>
#include <GuiConstants.au3>

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

$navigate = IniRead("daten.ini","startseite","start","http://www.simon-webstation.de")

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

_IEErrorHandlerRegister ()

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

$hGui1= GUICreate("Embedded Web control Test", 1265, 700,0,0,$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

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

GUISetBkColor(0xCDAD00)

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

$1 = GUICtrlCreateMenu("Datei")
$startseitespeichern = GUICTrlCreateMenuitem("Startseite",$1)
GUICTrlCreateMenuitem("",$1)
$ausmachen = GUICtrlCreateMenuitem("Beenden",$1)
$ie = _IECreateEmbedded()
$Group1 = GUICtrlCreateObj($ie,10, 40, 1245, 620)
GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
$ie.navigate($navigate)
$leiste = GUICtrlCreateInput("",350,7,800,20)
$okey = GUICtrlCreateButton("okay", 1200,7,30,30)
;$okey = GUICtrlCreatePic(@Scriptdir & "/search.jpg",1200,7,30,30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;GUICTrlSEtCursor(-1,0)
$GUI_Button_Back = GUICtrlCreateButton("Back", 60,7,30,30)
;$GUI_Button_Back = GUICtrlCreatePic(@ScriptDir & "/pfeil2.jpg",60,7,30,30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;GUICTrlSEtCursor(-1,0)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 150,7,30,30)
;$GUI_Button_Forward = GUICtrlCreatePic(@ScriptDir & "/pfeil.jpg",150,7,30,30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;GUICTrlSEtCursor(-1,0)
$GUI_Button_Home = GUICtrlCreateButton("Home", 150,7,30,30)
;$GUI_Button_Home = GUICtrlCreatePic(@Scriptdir & "/home.jpg",150,7,30,30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;GUICTrlSEtCursor(-1,0)

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

GUISetState()

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

While True
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle
Case $hGui1
Switch $msg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $okey
_IENavigate($ie,GUICtrlRead($leiste),0)
Case $GUI_Button_Back
_zurueck()
Case $GUI_Button_Forward
_vorwarts()

EndSwitch
EndSwitch

WEnd

Exit

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

Func _zurueck()
$ie.GoBack
EndFunc
Func _vorwarts()
$ie.GoForward
EndFunc

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

Sirocool

nur noch exe datein zum vorscheinen ist das jetzt neuerdings modern das man sein scriptcode nicht mehr anzeigt ?

Sirocool

ihr hast mal das neuste vorab in dein beitrag

nicht wundern da kommt zum schluss ein fehler weiss nicht wie man den beheben tut wenn wenn man den browser beenden will

Sirocool

das habe ich nicht rausgenohmmen vergessen einfach rausnehmmen die #inlcude "uskin.au3" das ist für die neue version wegen styl das lade ich heute abend noch hoch das neuste

Sirocool

nicht wundern das ist estwas neuer als wie der schon der veröffentlicht wurde bau gerade auch an der neusten version mit mazo und Jam der uns abund zu mal unter die arme greift

alle anderen daten mach ich in einer rar wäre zu viel aufwand jetzt

ist noch nicht die version mit styl ändern und drucken arbeite noch dran

Sirocool

vom devil browser dann gebe ich ihn frei

Sirocool

aber gute ideen werde mal um setzen demnäckst oki

und so wie du im spoiler gemacht hast geht es bei mir nicht^^

Sirocool

ziehe post 1

Sirocool

meine frage ist wie macht man das das man Benutzernamen und Password gleich haben muss beim login weil zurzeit geht es nur wenn benutzername Test ist und wenn das password test ist das man rein kommt aber ich will es so haben das Benutzername Test und das Password 12345 sein kann oder anders ist ja nur ein beispiel gerade im text

Sperrung

Spoiler anzeigen

[autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Webbrowser Version 1.0.5 ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** Helfer: Mazo ********
******** Helfer: Jam00 ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 100% auf Windows 07 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
$Meldung=""
#include <GUIConstants.au3>
#include <GUIComboBox.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#include <StaticConstants.au3>
#include "LogIn.au3"
#cs
$INI3Status = False
$INI3StatusAlt = True
$User = "Admin|Test|Test3|"
$Pass = "test|test|test3|"
#ce
Global $Login = @ScriptDir &"\data\setting.ini"
if not FileExists($Login) Then
$user = Iniread($Login,"User Daten", "User", "Default")
Else
$User = Iniread($Login,"User Daten", "User", "Default")
EndIf
if not FileExists($Login) Then
$Pass = Iniread($Login,"User Password", "Password", "Default")
Else
$Pass = Iniread($Login,"User Password", "Password", "Default")
EndIf

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

#Region ### START Koda GUI section ### Form=H:\Projeckte\CDN Argentur\Form\Callcenter\Login.kxf
$hGui = GUICreate("CallCenter_Login", 400, 168, 502, 319)
GUISetIcon("Icon\Login.ico")
GUISetBkColor(0xFFFFFF)
$bg1=GUICtrlCreatePic("image\default\stop.jpg",260, 15, 240, 240, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
$Login = GUICtrlCreateGroup("", 16, 8, 225, 105)
$Label1 = GUICtrlCreateLabel("Name", 24, 32, 32, 17)
$Label2 = GUICtrlCreateLabel("Password", 24, 72, 50, 17)
$UserIN = GUICtrlCreateInput("", 96, 32, 121, 21)
$PassIN = GUICtrlCreateInput("", 96, 72, 121, 21,0x0020)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Okay = GUICtrlCreateButton("Okay", 25, 128, 75, 25, 0,"MS Sans Serif")
$Chancel = GUICtrlCreateButton("Chancel", 153, 128, 75, 25, 0,"MS Sans Serif")
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ####
$hgui1 = GUICreate('Devil Web Filter 2009', 500, 600, -1, -1)
GUISetIcon("Icon\App.ico")
GUISetBkColor(0xFFFFFF)
$menu1=Guictrlcreatemenu("Datei")
$menu11=Guictrlcreatemenuitem("Aktualisieren",$menu1)
$menu12=Guictrlcreatemenuitem("",$menu1)
$menu13=Guictrlcreatemenuitem("Beenden",$menu1)
$menu2=Guictrlcreatemenu("Konfiguration")
$menu21=Guictrlcreatemenuitem("Passwort ändern",$menu2)
$menu22=Guictrlcreatemenu("Dienst",$menu2)
$menu23=Guictrlcreatemenuitem("Sperrdatei Updaten",$menu2)
$menu3=Guictrlcreatemenu("?")
$menu31=Guictrlcreatemenuitem("Über..",$menu3)
$Input1 = GUICtrlCreateInput("", 10, 10, 280, 21)
$Button = GUICtrlCreateButton("Sperren", 295, 12, 75, 30, 0)
$Buttondel = GUICtrlCreateButton("Markierte Seite löschen", 375, 12, 120, 30, 0)
$Listview1 = GUICtrlCreateListView("Nr|Webseite|Kategorie", 5, 50, 485, 500)
GUICtrlSetFont($Listview1, 8, 400, 0, "MS Sans Serif")
$mnu = GUICtrlCreateContextMenu($Listview1)
;$mnu_edit = GUICtrlCreateMenuItem('Webseite Bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Webseite Löschen', $mnu)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle#
Case $hGui
Switch $msg[0] ; Event
Case $Okay ;und von hier
$Meldung = False
if _LogIn($UserIN,$PassIN,$User,$Pass,$hGui1,"Zeigen") = True then GUISetState(@SW_HIDE, $hGui)
Case $Chancel
GUICtrlSetData($UserIN, "")
GUICtrlSetData($PassIN, "")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $hGui1
Switch $msg[0]

Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch

EndSwitch
WEnd

[/autoit]

Login.au3

Spoiler anzeigen

[autoit]

cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: Hendrik Norkowski

Script Function:
Dies ist ein UDF-Script. UDFs: _LogIn
Das schrip fragt Benutzerdaten ab und gibt bei erfold die Gewünschten felder frei!

Sreibe: _LogIn ($UserInput,$PasswortInput,$UserDaten,$Passwortdaten,$Veränderfeld,$Status ("Zeigen","Verstecken")
Setzen sie Befor sie Die Func beim Ersten mal ausführen umbedingt $Meldung = False
Trenne die User und Passworter mit "|"
Wenn sie mehrere Objekte mit einem Passwort anzeigen mochten, füchren sie die Func erneut mit den gleichen daten aus bist auf $Feld
wollen sie die Func jedoch auf eine Neues Passwortfeld beziehen nehmen sie die neuen daten, und setzen sie $Meldung = False wieder

Um die Felder zu verstecken, befor das paswort eingegeben wurde müssen sie dieses Tun: GuiCtrlSetState ($Feld,$Status) $Status = $GUI_HIDE zum verstecken, $GUI_SHOW zum anzeigen
#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
Global $INI3Status = False
Func _LogIn($InUser, $InPass, $UserData, $PassData, $FreiFeld, $AnzeigeStatus)

$PassINR = GUICtrlRead($InUser)
$UserINR = GUICtrlRead($InPass)
If $PassINR <> "" Then
If $UserINR <> "" Then
$sUser = StringSplit($UserData, "|")
$sPass = StringSplit($PassData, "|")
$Benutzerdaten = True
For $i = 1 To $sUser[0]
If $sUser[0] = $sPass[0] Then
If $UserINR = $sUser[$i] Then
If $PassINR = $sPass[$i] Then
$INI3Status = True
EndIf
EndIf
Else
$Benutzerdaten = False
EndIf
Next
If $Benutzerdaten = False Then
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Fehler in den Benutzerdaten!")
EndIf
ElseIf $sPass[0] <> $sUser[0] Then
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Falscher Benutzerdatenbank!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Es wurden keine Anmelde-Daten eingegeben!")
EndIf
EndIf
If $INI3Status = True Then
If $AnzeigeStatus = "Zeigen" Then
GUISetState(@SW_SHOW, $FreiFeld)
Return True
ElseIf $AnzeigeStatus = "Verstecken" Then
GUISetState(@SW_HIDE, $FreiFeld)
Return False
EndIf
Else
If $Meldung = False Then
$Meldung = True
MsgBox(16, "Error", "Falsche Benutzerdaten!")
EndIf
EndIf
EndFunc ;==>_LogIn

[/autoit]

data\setting.ini

Spoiler anzeigen

[Sprache]
Global=Deutsch
[Startseite]
Webadresse=www.Devil-Browser.de
[User Daten]
User=test
[User Password]
password=test

Sirocool

Spoiler anzeigen

[autoit]

#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>

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

Opt('MustDeclareVars', 1)

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

$Debug_CB = False ; Check ClassName being passed to ComboBox/ComboBoxEx functions, set to True and use a handle to another control to see it work

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

Global $iMemo

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

_Main()

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

Func _Main()
Local $hGUI, $hImage, $hCombo

$hGUI = GUICreate("ComboBoxEx Set Image List", 400, 300)
$hCombo = _GUICtrlComboBoxEx_Create ($hGUI, "", 2, 2, 394, 100)
$iMemo = GUICtrlCreateEdit("", 2, 32, 396, 266, 0)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()

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

$hImage = _GUIImageList_Create (16, 16, 5, 3)
_GUIImageList_AddIcon ($hImage, @ScriptDir & "\images\flags\de.ico")
_GUIImageList_AddIcon ($hImage, @ScriptDir & "\images\flags\us.ico")
;@SystemDir & "\shell32.dll", 110)
_GUIImageList_AddIcon ($hImage, @SystemDir & "\shell32.dll", 131)
_GUIImageList_AddIcon ($hImage, @SystemDir & "\shell32.dll", 165)
_GUIImageList_AddIcon ($hImage, @SystemDir & "\shell32.dll", 168)
_GUIImageList_AddIcon ($hImage, @SystemDir & "\shell32.dll", 137)
_GUIImageList_AddIcon ($hImage, @SystemDir & "\shell32.dll", 146)
_GUIImageList_Add ($hImage, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo, 0xFF0000, 16, 16))
_GUIImageList_Add ($hImage, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo, 0x00FF00, 16, 16))
_GUIImageList_Add ($hImage, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo, 0x0000FF, 16, 16))
;Set Image List
_GUICtrlComboBoxEx_SetImageList ($hCombo, $hImage)
_GUICtrlComboBoxEx_AddString ($hCombo, StringFormat("01 : Deutsch", Random(1, 100, 1)), 0)
_GUICtrlComboBoxEx_AddString ($hCombo, StringFormat("02 : Englich", Random(2, 100, 2)), 1)

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

;Get Image List
MemoWrite("ImageList Handle: " & _GUICtrlComboBoxEx_GetImageList($hCombo))

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

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main

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

; Write a line to the memo control
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite

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

Sirocool

ich mach dir mal bild mit dazu

Sirocool

sonst hat man ja nachherr eine ganze spalte mit tabs

Sirocool

wie bekomme ich in einer combo die Länderfahnen rein ?
im bei spiel geht es aber in mienen script nicht bräuchte mal hilfe

Beispiel

Spoiler anzeigen

[autoit]

#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>

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

Opt('MustDeclareVars', 1)

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

$Debug_CB = False ; Check ClassName being passed to ComboBox/ComboBoxEx functions, set to True and use a handle to another control to see it work

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

Global $iMemo

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

_Main()

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

Func _Main()
Local $hGUI, $hImage, $hCombo

; Create GUI
$hGUI = GUICreate("ComboBoxEx Set Image List", 400, 300)
$hCombo = _GUICtrlComboBoxEx_Create ($hGUI, "", 2, 2, 394, 100)
$iMemo = GUICtrlCreateEdit("", 2, 32, 396, 266, 0)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()

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

$hImage = _GUIImageList_Create (16, 16, 5, 3)
_GUIImageList_AddIcon ($hImage, @ScriptDir & "\images\flags\de.ico")
_GUIImageList_AddIcon ($hImage, @ScriptDir & "\images\flags\us.ico")
_GUICtrlComboBoxEx_SetImageList ($hCombo, $hImage)
_GUICtrlComboBoxEx_AddString ($hCombo, StringFormat("01 : Deutsch", Random(1, 100, 1)), 0)
_GUICtrlComboBoxEx_AddString ($hCombo, StringFormat("02 : Englich", Random(2, 100, 2)), 1)

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

;Get Image List
MemoWrite("ImageList Handle: " & _GUICtrlComboBoxEx_GetImageList($hCombo))

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

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main

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

; Write a line to the memo control
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite

[/autoit]

so und jetzt der Script von mir

Spoiler anzeigen

[autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Web Radio Version 0.0.0 beta ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 100% auf Windows 07 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce

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

#include <GUIConstants.au3>

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

#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#Include <GuiTreeView.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>
#include <array.au3>
#include <Guiconstants.au3>
#include <Sound.au3>
#include <File.au3>
#include <GuiTab.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTreeView.au3>
#include<GuiImageList.au3>
#include <GuiComboBoxEx.au3>
#include <GuiConstantsEx.au3>

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

Local $Image,$Combo

#Region ### START Koda GUI section ### Form=
$hGUI = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
GUISetIcon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Combo = _GUICtrlComboBoxEx_Create($hGUI,"Sprache wähle", 256, 120, 200, 25)
$Image = _GUIImageList_Create (16, 16, 5, 3)
_GUIImageList_AddIcon ($Image, @ScriptDir & "\images\flags\de.ico")
_GUIImageList_AddIcon ($Image, @ScriptDir & "\images\flags\us.ico")
_GUIImageList_Add ($Image, _GUICtrlComboBoxEx_CreateSolidBitMap ($Combo, 0xFF0000, 16, 16))
_GUIImageList_Add ($Image, _GUICtrlComboBoxEx_CreateSolidBitMap ($Combo, 0x00FF00, 16, 16))
_GUIImageList_Add ($Image, _GUICtrlComboBoxEx_CreateSolidBitMap ($Combo, 0x0000FF, 16, 16))
_GUICtrlComboBoxEx_SetImageList ($Combo, $Image)
_GUICtrlComboBoxEx_AddString ($Combo, StringFormat("01 : Deutsch", Random(1, 100, 1)), 0)
_GUICtrlComboBoxEx_AddString ($Combo, StringFormat("02 : Englich", Random(2, 100, 2)), 1)
_GUIImageList_Add ($Image,_GUICtrlComboBoxEx_GetImageList($Combo))
;GUICtrlSetData(-1,"Deutsch|Englisch|")
$Button1 = GUICtrlCreateButton("Abbrechen", 440, 264, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW,$hGUI)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
GUISetIcon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$ie = _IECreateEmbedded()
$Group1 = GUICtrlCreateObj($ie, 144, 0, 500, 201)
GUICtrlSetFont($Group1, 8, 400, 0, "MS Sans Serif")
$ie.navigate(@ScriptDir & "\data\DE.txt")
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button3 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
GUICtrlSetState($Button3, $GUI_ENABLE)
$Button4 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button4, $GUI_DISABLE)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

#Region ### START Koda GUI section ### Form=
$hGUI2 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
GUISetIcon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput("C:\Programme\Devil",160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button4, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While True
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle
Case $hGUI
Switch $msg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $Combo
GUICtrlSetState($Button2, $GUI_DISABLE)
;If GUICtrlRead($Combo) ="01 : Deutsch" then _DEUTSCH()
;If GUICtrlRead($Combo) ="02 : Englisch" then _ENGLISCH()
Guictrlsetstate($Combo,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Combo,1)
Case $Button1
_End()
Case $Button2
GUISetState(@SW_SHOW, $hGui1)
GUISetState(@SW_HIDE, $hGui)
EndSwitch

Case $hGUI1
Switch $msg[0]
Case $Checkbox1
GUICtrlSetState($Button4, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button3, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button3, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button4, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button3
GUISetState(@SW_SHOW, $hGui)
Case $Button4
GUISetState(@SW_SHOW, $hGui2)
GUISetState(@SW_HIDE, $hGui1)

Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
Case $hGUI2
Switch $msg[0]

Case $Checkbox3
GUICtrlSetState($Button3, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button4, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)

Case $Checkbox4
GUICtrlRead("C:\Programme\Devil")
GUICtrlSetState($Button4, $GUI_DISABLE)
Guictrlsetstate($Checkbox4,-1)
GUICtrlSetState($Button3, $GUI_ENABLE)
Guictrlsetstate($Checkbox4,1)
Case $Button3
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button4, $GUI_ENABLE)
EndIf
Case $Button4
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button4, $GUI_ENABLE)
DirCreate($PH1)
InetGet("http://sirocool.si.funpic.de/i.TV/TV%20Sender/Deutschland/Devil%20iTV.exe ", $PH1 & "\Devil iTV.exe ", 1)
$PH1 = 0
do
$PH1 = $PH1 + 10
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
sleep(1000)
;_sound()
GUISetState(0)
EndIf
Case $Button5
GUISetState(@SW_SHOW, $hGUI)
GUISetState(@SW_HIDE, $hGUI2)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui2)
EndSwitch
EndSwitch
WEnd
#cs
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite
#ce

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

Func _DEUTSCH()
GUICtrlSetData($Button1, "Abbrechen")
EndFunc

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

Func _ENGLISCH()
GUICtrlSetData($Button1, "Cancel")
GUICtrlSetData($Button2, "Next")
GUICtrlSetData($Button3, "back")
GUICtrlSetData($Button4, "Next")
GUICtrlSetData($Checkbox1 , "I am with these agreements do not agree")
GUICtrlSetData($Checkbox2 , "I agree with these arrangements")
$ie.navigate(@ScriptDir & "\data\EN.txt")
EndFunc

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

Func _TUERKCE()

EndFunc

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

Func _ITALIAN()

EndFunc

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

Func _SPANISH()

EndFunc

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

Func _FRENCH()

EndFunc

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

Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui, "int", 500, "long", 0x00050004)
Exit
EndFunc

[/autoit]

ich mach auch das ganze in download rein

Sirocool

Spoiler anzeigen

[autoit]

#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Internet TV Version 0.0.0 beta ********
******** Copyright: Sirocool ( http://www.autoit.de ) ********
******** ********
******** Es läuft zu 100% auf Windows XP ********
******** Es läuft zu 100% auf Windows 07 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include <ProgressConstants.au3>
#include <IE.au3>
#include <INet.au3>
#include <Date.au3>
#include <WindowsConstants.au3>
#cs
#include <ComboConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <String.au3>
#ce
#Region ### START Koda GUI section ### Form=
$hgui = GUICreate("Form1", 563, 340, -1, -1)
GUISetBkColor(0xFFFFFF)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui, "int", 400, "long", 0x00040008)
$bg1=GUICtrlCreatePic("bg2.jpg",0, 0, 1498, 64, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
$Edit1 = GUICtrlCreateEdit("Die folgenden Bedinungen/ Rechte und Pflichten sind vorraussetzung für die Benutzung und Installation der " & @CRLF & "Software. Sollten Sie sie nicht annehmen so beenden Sie bitte das Installationsprogramm. " & @CRLF & "Sollten Sie fragen haben klären Sie diese bitte indem Sie sich mit [email='info@euro-networkz.de'][/email] in Verbindung setzen. "& @CRLF & "§1. Für die Benutzung der Software wird keine garantie übernommen und keine Funktion wird zum Reibungslosen ablauf gewährt. Sollten wirtschaftliche Schäden entstehen können Sie sich mit uns in Verbindung setzen, jedoch wird ein schadenersatz nicht garantiert.", 0, 64, 564, 145,$ES_READONLY )
GUICtrlSetState($Edit1, $GUI_ENABLE)
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 24, 232, 297, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 24, 272, 281, 17)
$Button1 = GUICtrlCreateButton("Abbrechen", 360, 304, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Weiter", 456, 304, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW,$hGui)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$hgui1 =GUICreate("Form1", 563, 340, -1, -1)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("Optionen", 8, 8, 545, 121)
$Input1 = GUICtrlCreateInput("C:\Programme\Devil", 24, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("Durchsuchen", 400, 64, 123, 25, 0)
GUICtrlSetState($Button3, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 24, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 40, 96, 113, 17)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 232, 96, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Erweiterte Optionen", 8, 136, 545, 73)
$Checkbox5 = GUICtrlCreateRadio("Verknüpfungen auf Desktop", 16, 168, 161, 17)
$Checkbox6 = GUICtrlCreateRadio("Autostartverzeichniss speichern", 184, 168, 169, 17)
$Checkbox7 = GUICtrlCreateRadio("Programm nach Instalation Starten", 360, 168, 185, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Status", 8, 216, 545, 105)
$Progress1 = GUICtrlCreateProgress(32, 256, 350, 25)
$Button4 = GUICtrlCreateButton("Installieren", 408, 256, 115, 25, 0)
GUICtrlSetState($Button4, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While True
$msg = GUIGetMsg(1)
Switch $msg[1] ; Window Handle
Case $hGui
Switch $msg[0] ; Event
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Devil iTV beenden?") = 6 Then _End()
Case $Button2
GUISetState(@SW_SHOW, $hGui1)
GUISetState(@SW_HIDE, $hGui)
EndSwitch
Case $hGui1
Switch $msg[0]
Case $Checkbox3
GUICtrlSetState($Button3, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button4, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)

Case $Checkbox4
GUICtrlSetState($Button4, $GUI_DISABLE)
Guictrlsetstate($Checkbox4,-1)
GUICtrlSetState($Button3, $GUI_ENABLE)
Guictrlsetstate($Checkbox4,1)
Case $Button3
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button4, $GUI_ENABLE)
EndIf
Case $Button4
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button4, $GUI_ENABLE)
DirCreate($PH1)
InetGet("http://sirocool.si.funpic.de/i.TV/TV%20Sender/Deutschland/Devil%20iTV.exe ", $PH1 & "\Devil iTV.exe ", 1)
$PH1 = 0
do
$PH1 = $PH1 + 10
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
sleep(1000)
;_sound()
GUISetState(0)
EndIf
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $hGui1)
EndSwitch
EndSwitch
WEnd

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

Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui, "int", 500, "long", 0x00050004)
Exit
EndFunc

[/autoit]

Sirocool

die agb ist ja auch nur ein beispiel wie sie aus sehn könnte

Sirocool

es einfach mal Link

Sirocool

SMTP mit Login (maximale Sicherheit) das drin aber nichts weiter gemacht bei gmx
dieser GMX mailer funktioniert auch bei anderen hast vieleicht deine sicherheit zu hoch auf den rechner ? oder firewall eine sperre drin

Sirocool

also bei mir geht es jetzt

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include<Inet.au3>
#include<GUIConstantsEx.au3>

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

#region ### START Koda GUI section ### Form=
$GUI = GUICreate("Email Senden", 407, 119, 193, 125)
GUICtrlCreateGroup("", 8, 0, 393, 113)
GUICtrlCreateLabel("Betreff", 16, 16, 92, 17)
$betreff_I = GUICtrlCreateInput("", 112, 16, 281, 21)
GUICtrlCreateLabel("Text", 16, 48, 92, 17)
$text_I = GUICtrlCreateInput("", 112, 48, 281, 21)
$send_B = GUICtrlCreateButton("&Senden", 112, 80, 283, 25, 0)
GUICtrlCreateLabel("by ...", 16, 88, 92, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $send_B
_senden()
EndSwitch
WEnd
func _senden()
$s_SmtpServer = "mail.gmx.net"
$s_FromName = @UserName
$s_FromAddress = "Streitmarcel@gmx.de";diese adresse muss immer gleich bleiben mit dem $s_UName
$s_ToAddress = "Streitmarcel@hotmail.com";an den wo gesendet werden soll
$s_Subject = GUICtrlRead ($betreff_I)
$s_UName = "Streitmarcel@gmx.de"
$s_PWD = "**********"

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

Dim $as_Body[4]
$as_Body[0] = GUICtrlRead ($text_I)
$as_Body[1] = "Mit freundlichen Grüßen ";dies wird beim Empfänger unten angzeigt
$as_Body[3] = _GetIp()
$Response = _INetSmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_UName, $s_PWD, $s_Subject, $as_Body)
;~ $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
EndFunc

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

Func _INetSmtpMailAuth($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Username, $s_Passwd, $s_Subject = "$betreff_I", $as_Body = "$text_I", $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] = "EHLO " & $s_helo & @CRLF
;~ If StringLeft($s_helo,5) <> "EHLO " Then $s_Send[0] = "EHLO " & $s_helo & @CRLF
$s_ReplyCode[0] = "250"

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

$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"

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

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

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

; 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

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

;===============================================================================
;
; 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)

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

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

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

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

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

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 & "="

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

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 & "=="

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

EndSwitch
Next

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

Return $strRetValue
EndFunc ;==>_Base64Encoding

[/autoit]

Beiträge von Sirocool

Springen Funktion

PC-Cleaner

Bilder

PC-Cleaner

Projekt-Idee die zweite: Browser?

Devil Browser

Devil Browser

Projekt-Idee die zweite: Browser?

Setup

Setup

wegen password abfrage

ListView Items speichern

MySetup

Tab per Button hinzufügen?

Setup

Setup

Setup

Gmx Mail mit autoit geht ned

Gmx Mail mit autoit geht ned

Gmx Mail mit autoit geht ned