Beiträge von autoBert

**autoBert**

Hallo freaky,

Deine Fragestellung sieht verdächtig nach etwas aus, was den Forenregeln widerspricht.

mfg (Auto)Bert

**autoBert**

Zitat von BadBunny

C:\Users\xxxxx\Desktop\test.au3 (5) : ==> Error opening the file.:
#include <_INetSmtpMailCom.au3>

Du musst dir dieses File natürlich auch herunterladen im Pfad der zu includenden Files speichern normalerweise: C:\Programme\AutoIt3\Include

Zitat von AutoBert

Werde meinen vorherigen Post editieren und das Include dort angehängen, damit Skript und Include zusammen gefunden werden können,

**autoBert**

Hallo L3viathan,

auch von mir alles Gute zu deinem 18. Geburtstag und eine schöne ins WE,

mfg (Auto)Bert

**autoBert**

Zitat von BadBunny

Ich hatte den von dir verwendet / ausporbiert und dann kommt da ne nachricht das Error opening the file

mit dieser ungenauen Fehlerbsechreibung kann man dir nicht helfen

Zitat von AutoBert

falls ein Fehler auftritt poste einfach die Ausgabemeldungen von Scite-Konsole.

mfg (Auto)Bert

**autoBert**

Du musst

[autoit]

,$WS_CLIPSIBLINGS

[/autoit]

weglassen, dann funktioniert es,

mfg (Auto)Bert

**autoBert**

Hallo Skriptbär,

lässt sich bei mir nicht ausführen. Ausgabe von Scite-Console:

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Examples\Tests\skriptbär_2.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>18:03:04 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
+>18:03:08 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Examples\Tests\skriptbär_2.au3"    
C:\Programme\AutoIt3\Examples\Tests\skriptbär_2.au3 (39) : ==> Subscript used with non-Array variable.:
If $klick[2] = 1 Then
If $klick^ ERROR
->18:03:17 AutoIT3.exe ended.rc:1
>Exit code: 1    Time: 20.260

mfg (Auto)Bert

**autoBert**

Hallo BadBunny,

dann hast du den von mir bereits geposteten Link auch noch nie getestet, denn dort ist das benötigte Include-File gepostet), sagtest aber dass dieser nicht funktioniert.
Werde meinen vorherigen Post editieren und das Include dort angehängen, damit Skript und Include zusammen gefunden werden können,

mfg (Auto)Bert

**autoBert**

Hallo Baris,

so funktionierts:

[autoit]

$Pfad = "C:\Dokumente und Einstellungen\Bert\Eigene Dateien\Beetle9.jpg" ;gegen eigenen Bildpfad austauschen
Run('mspaint.exe "' & $Pfad & '"')

[/autoit]

ps.: Lösung habe ich aus [ gelöst ] Paint öffnen und automatisch Bild laden abgeleitet und getestet. Dieser Link wird unter ähnliche Themen unter deinem Thread angezeigt

Edit: zu langsam, @SEuno war schneller,

mfg (Auto)Bert

**autoBert**

Hallo BadBunny,

die Standardfunktion

[autoit]

_INetSmtpMail

[/autoit]

kann nicht funktionieren, da du dort keinen Port mitgeben kannst und Web.de nicht über den Standardport 25 funktioniert, deshalb

[autoit]

_INetSmtpMailCom

[/autoit]

teste doch einfach dieses SKript mir deinen Zugangsdaten:

Spoiler anzeigen

[autoit]

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

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

;#include <_pop3.au3>
#include <_INetSmtpMailCom.au3>

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

;##################################
; Variables
;##################################
$SmtpServer = "smtp.web.de" ; address for the smtp-server to use - REQUIRED
$FromName = "" ; name from who the email was sent
$FromAddress = "myName@web.de" ; address from where the mail should come
$ToAddress = "taAdress@gmx.de" ; destination address of the email - REQUIRED
$Subject = "Userinfo" ; subject from the email - can be anything you want it to be
$Body = "Test" ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = "" ; the file you want to attach- leave blank if not needed
$CcAddress = "" ; address for cc - leave blank if not needed
$BccAddress = "" ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
$Username = "myName@web.de" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "PassWort" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 587 ; port used for sending the mail normaly 25
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

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

;##################################
; Script
;##################################
;_pop3Connect("pop3.live.com", $Username, $Password)
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf

[/autoit]

falls ein Fehler auftritt poste einfach die Ausgabemeldungen von Scite-Konsole.

Du kannst dir natürlich auch die Inet.Au3 anpassen, damit du den richtigen Port 587 übergeben kannst,

mfg (Auto)Bert

@xp_user, deine Lösung ist die gleiche wie in dem von mir emphohlenen Link und obigen Skript, also darf auch hier nicht vergessen werden den Port auf 587 für web.de zu setzen

**autoBert**

Hallo DaisukeHideki,

dann mach es doch so:

[autoit]

FileInstall("start.bmp", @scriptdir & "\images\start.bmp")

[/autoit]

bei der Erstellung des Pic-Controls natürlich auch diesen Pfad verwenden,

mfg (Auto)Bert

**autoBert**

Hallo BadBunny,

auch das Skript, dessen Link: [ gelöst ] Daten an email senden AntiSpeed bereits gepostet hat funktioniert. Du musst für Web.de allerdings den Port anpassen, siehe Post #14 im gleichen Thread. im Post #14 sind ausserdem noch andere Daten für andere Freemailer

mfg (Auto)Bert

**autoBert**

Hallo Gwyn,

Zitat von Gwyn

PS der Code ist nur ein kleiner Auszug, daher kann das eine oder andere in diesem Fragment sinnlos erscheinen

dann poste doch einfach den kompletten Code,

mfg (Auto)Bert

**autoBert**

Hallo DarkLhykos,

hier ein Beispiel-Skript zum Umgang mit INI's und unsortierter ListBox

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GuiListBox.au3>
#include <ListboxConstants.au3>
#include <File.au3>
#include <array.au3>

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

Global $szDrive, $szDir, $szFName, $szExt
Global $aDropFiles[1], $WM_DROPFILES = 0x233

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

$idGUI = GUICreate("Flaggen", 300, 115, -1, -1, -1, $WS_EX_ACCEPTFILES)
$idListe = GUICtrlCreateList("", 10, 10, 180, 80, BitOR($WS_VSCROLL, $LBS_NOTIFY)) ;,BitOR($LBS_SORT, $LBS_MULTIPLESEL)
GUICtrlSetState($idListe, $GUI_DROPACCEPTED)
$idNeu = GUICtrlCreateButton("...", 200, 10, 30, 25)
$idVorschau = GUICtrlCreatePic(@ScriptDir & "\Flaggen\NA.jpg", 210, 40, 36, 24)
$idInfo = GUICtrlCreateButton("&alle auslesem", 10, 90, 180, 25)
GUISetState()

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

GUIRegisterMsg($WM_DROPFILES, "WM_DROPFILES_FUNC")

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_DROPPED
_FilesDropped()
Case $idInfo
$count = _GUICtrlListBox_GetCount($idListe)
Dim $aListe[$count]
For $i = 0 To $count - 1
$aListe[$i] = _GUICtrlListBox_GetText($idListe, $i)
Next
_ArrayDisplay($aListe)
Case $idNeu
$sAlt = GUICtrlRead($idListe)
$sPlus = FileOpenDialog("La(e)nder auswählen:", @ScriptDir & "\Flaggen", "Bilder (*.jpg)", 7, "", $idGUI)
$aPlus = StringSplit($sPlus, "|")
If IsArray($aPlus) Then
;_ArrayDisplay($aPlus)
If $aPlus[0] > 1 Then
For $i = 2 To $aPlus[0]
ConsoleWrite($aPlus[$i] & @CRLF)
_GUICtrlListBox_InsertString($idListe, $aPlus[$i], $i - 2)
Next
Else
_PathSplit($sPlus, $szDrive, $szDir, $szFName, $szExt)
ConsoleWrite($szFName & @CRLF)
_GUICtrlListBox_InsertString($idListe, $szFName & $szExt, 0)
EndIf
EndIf
Case $idListe
ConsoleWrite(GUICtrlRead($idListe) & ".jpg" & @CRLF)
GUICtrlSetImage($idVorschau, @ScriptDir & "\Flaggen\" & GUICtrlRead($idListe))
EndSwitch
WEnd

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

Func WM_DROPFILES_FUNC($hWnd, $msgID, $wParam, $lParam)
Local $nSize, $pFileName
Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255)
For $i = 0 To $nAmt[0] - 1
$nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0)
$nSize = $nSize[0] + 1
$pFileName = DllStructCreate("char[" & $nSize & "]")
DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", DllStructGetPtr($pFileName), "int", $nSize)
ReDim $aDropFiles[$i + 1]
$aDropFiles[$i] = DllStructGetData($pFileName, 1)
$pFileName = 0
Next
EndFunc ;==>WM_DROPFILES_FUNC

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

Func _FilesDropped()
Local $szDrive, $szDir, $szFName, $szExt, $split
For $i = 0 To UBound($aDropFiles) - 1
$split = _PathSplit($aDropFiles[$i], $szDrive, $szDir, $szFName, $szExt)
$szExt = StringUpper($szExt)
;ConsoleWrite($aDropFiles[$i] & ", " & $szExt & @CRLF)
; Switch $szExt
; Case ".JPG"
_GUICtrlListBox_InsertString($idListe,$szFName & $szExt,0)
; EndSwitch
Next
EndFunc ;==>_FilesDropped

[/autoit]

du benötigst dazu noch Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
das angewandte Schema überträgst du auf dein Skript,

mfg (Auto)Bert

**autoBert**

Zitat von SEuBo

oder den OnEvent Mode / Advanced GUIGetMsg-Mode (findest du alles in der Hilfe zu GUI Referenz)

Du solltest zumindest ein lauffähiges (Beispiel-)Skript einstellen, bei dem der Fehler (auch) vorkommt.
Auch solltest du dir die Hilfe zu GUIGetMsg für Fortgeschrittene und mehrere Fenster anschauen

mfg (Auto)Bert

**autoBert**

Hallo Ineluki,

afair ist die max. Größe eines Schlüssels 32 KB, die gesamte Ini darf 64 KB nicht übersteigen.

Lege dir doch Textdateien an, da hast du diese Grenze nicht,

mfg (Auto)Bert

**autoBert**

Dein Skriptwiderspricht den Forenregeln.

MoD bitte closen

mfg (Auto)Bert

**autoBert**

Hallo

Zitat von Zeitriss

While 1 $nMsg = GUIGetMsg()
_GUICtrlButton_Click($Button2)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ExitLoop
EndSwitch
Wend

Alles anzeigen

Was soll

[autoit]

_GUICtrlButton_Click

[/autoit]

in der Msg-Loop Schleife

mfg (Auto)Bert

**autoBert**

Hallo

Zitat von LuZ1F3R

naja die sache ist die,... ich drück auf den knopf fürs neu verbinden und er macht das unendlich oft - lässt sich auch kein anderer knopf mehr drücken (Wie schließen z.b.)

meine abgespeckte Version auch nicht
Wenn nein, dann kommentiere nr noch die send Befehle aus, ich vermute, das eines dieser Send's an dein eigenes Skript geschickt wird. Wenn das funktoniert, ändere dein Skript in diesem Bereich mit Hilfe von _IE-Funktionen,

mfg (Auto)Bert

**autoBert**

Hallo Blli,

ich habe dein Skript überflogen und kann dir nur dringenst raten die Hilfe durchuzlesen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee .

mfg (Auto)Bert

**autoBert**

Hallo t002,

schau dir einmal meinen MP3-Player (Link siehe Signatur) an. Dort verwende ich eine Listview und ein JPG als Hintergrund.
Ich hoffe es ist das, was du suchst,

mfg (Auto)Bert

Beiträge von autoBert

Text mit Bild vergleichen

Email senden

Alles Gute, L3viathan

Email senden

Bild wird nicht korrekt im GUI angezeigt

Skript Problem (maussteuerung)

Email senden

Paint mit Bild öffnen

Email senden

Grafik in der .exe speichern?

Email senden

Blinkender Label die Hunderste....

Daten nummeriert in INI und Listbox eintragen und per Listbox auslesen

Gui in Gui schließen

IniWrite

Script beendet sich mit Exit Code 0

Guictrlcreatepic

Hängen in einer Schleife.....

hilfe bei mini projekt

Listview Transparenz ohne Screenshot - Focus / HitTest Problem