Beiträge von autoBert

**autoBert**

Hallo Lupar,

du verstösst gegen die Forenregeln welche das Automtisieren von Websites verbietet die dieses nicht erlauben:

Zitat

5. Use of the Services by you
...
5.3 You agree not to access (or attempt to access) any of the Services by any means other than through the interface that is provided by Google, unless you have been specifically allowed to do so in a separate agreement with Google. You specifically agree not to access (or attempt to access) any of the Services through any automated means (including use of scripts or web crawlers) and shall ensure that you comply with the instructions set out in any robots.txt file present on the Services.
Quelle: Google Nutzungsbedingungen

mfg autoBert

**autoBert**

Hallo Tw0F1sh1337,

du hast nict dein komplettes Skript gepostest. Wie erwartet lässt sich dieses Fragment noch nicht einmal starten. Fehlermeldungen:

Code

>Running AU3Check (1.54.19.0)  from:D:\Programme\AutoIt3
D:\Programme\AutoIt3\Test\asdf.au3(71,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(75,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(79,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(83,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(87,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(89,65) : ERROR: syntax error
			$IE_inst = _IECreate("steam://connect/212.224.116.236:50000" 0
			~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(91,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(95,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(99,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(103,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(109,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(117,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(124,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(128,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3(132,12) : ERROR: 'Return' not allowed from global scope.
			Return 0
			~~~~~~~~^
D:\Programme\AutoIt3\Test\asdf.au3 - 15 error(s), 0 warning(s)
!>23:18:55 AU3Check ended.rc:2
+>23:18:59 AutoIt3Wrapper Finished
>Exit code: 0    Time: 5.863

Alles anzeigen

mfg autoBert

**autoBert**

Herzlichen Glückwunsch zum 18. Gesundheit, Erfolg in Schule und/oder Beruf und Glück in allen Lebenslagen,

autoBert

**autoBert**

Zitat von 00-Schneider

falsche sektionsnamen waren nicht die ursache (alle sektionen heißen "section1").

Im geposteten Skript hast du aber bei SaveToIni andere Namen verwendet:

Zitat von 00-Schneider

[autoit]
Func SaveToIni()
IniWrite(@ScriptDir & "\Macro.ini", "Section Path to ARTA.exe", "Path", GUICtrlRead($input1))
IniWrite(@ScriptDir & "\Macro.ini", "Section Measurement Setup", "1", GUICtrlRead($input2))
IniWrite(@ScriptDir & "\Macro.ini", "Section Measurement Setup", "2", GUICtrlRead($input3))
IniWrite(@ScriptDir & "\Macro.ini", "Section Measurement Setup", "3", GUICtrlRead($input4))
IniWrite(@ScriptDir & "\Macro.ini", "Section Measurement Setup", "4", GUICtrlRead($input5))
EndFunc
[/autoit]
Alles anzeigen

mfg autoBert

**autoBert**

Das du die Ini-Werte neu eintragen musst liegt daran dass du beim Einlesen falsche Sektionsnamen verwendest. Ausserdem solltest du $read auch beim OK-Button zuweisen:

[autoit]

Case $Button2
SaveToIni()
$read = GUICtrlRead($input1)

[/autoit]

mfg autoBert

**autoBert**

Dann schalte einmal den trace-Modsu ein:

[autoit]

$Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, "EHLO " & @ComputerName, True)

[/autoit]

vielleicht kann man ja im Trce-Fenster erkennen woran es scheitert,

mfg autoBert

**autoBert**

Hallo mike,

ich habe dein Skript etwas abgeändert, so sollte es funktionieren:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=D:\Tools\Iconsammlung\active Ports.ico
#AutoIt3Wrapper_Outfile=SysInfo-Mailer2.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=SysInfo-Mailer ist ein Programm zum Senden von Systeminformationen via Mail
#AutoIt3Wrapper_Res_Description=SysInfo-Mailer ist ein Programm zum Senden von Systeminformationen via Mail
#AutoIt3Wrapper_Res_Fileversion=1.0.1.0
#AutoIt3Wrapper_Res_LegalCopyright=2011 - mike280399
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <INet.au3>
#include <File.au3>
#include <array.au3>
$rueckip = " "
$fehler = ""
MsgBox(64, "Einlesevorgang", "Das Einlesen der Daten in die Mail wird nun durchgeführt." & @CRLF & "Dieser Vorgang kann mehrere Minuten in Anspruch nehmen" & @CRLF & "Bitte warten Sie auf die Meldung, ob der Vorgang erfolgreich durchgeführt werden konnte.", 20) ;<=========
ShellExecuteWait("msinfo32", " /report " & @TempDir & "\TEST.txt", "") ;@SW_HIDE,6) ;<=========

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

Dim $eid[1] ;<=========
_FileReadToArray(@TempDir & "\TEST.txt", $eid) ;<=========
$iid = Run(@ComSpec & " /k ipconfig /all", "", @SW_HIDE, 6)
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.mike280399.de"
$s_FromName = @UserName
$s_FromAddress = "syscheck@mike280399.eu"
$s_ToAddress = "info@mike280399.eu"
$s_Subject = "Systeminformationen von " & @UserName
Dim $as_Body[$eid[0] + 7]
$as_Body[0] = "Systeminformationen von:"
$as_Body[1] = @UserName
$as_Body[2] = "Workstation:"
$as_Body[3] = @ComputerName
For $i = 1 To $eid[0] ;<========= von hier
$as_Body[$i + 4] = $eid[$i]
Next
$as_Body[$i + 5] = $rueckip ;<========= bis hier

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

$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 Herrn Mountain und nennen Sie den Fehlercode: " & $err)
EndIf

[/autoit]

die Änderungen sind mit ;<===== gekennzeichnet,

mfg autoBert

**autoBert**

Zitat von Ilse

Hallo,

ich habe folgendes Problem.
Ich habe eine Exe gemacht. Einfach Script kompiliert.

Wenn es aber gestartet wird, kommt ein DOS Fenster Tidy.

Wieso ???

Grüße
ILse

Da vermute ich einmal du verwendest Befehle wie Send oder MouseClick in deinem Skript. Wenn dann zufällig noch Scite offen ist und die Fernsteuerung des Skriptes versagt kommt soetwas dabei heraus,

mfg autoBert

**autoBert**

Teste einmal das >Skript mit der dazugehörigen UDF aus https://autoit.de/index.php?page…4707#post144707 in Post #14 findest du auch noch Zugangsdaten anderer Anbieter

mfg autoBert

**autoBert**

Einen Bedanken-Button finde ich absolut unnötig, es reciht wenn er das Thema auf gelöst stellt. Bei besonders guten Lösungen kann man ja den Google + Button benutzen.

**autoBert**

Hallo Zaziki,

warum sollte das nicht gehen? Du musst allerdings deine Pic-Controls der 1. Seite auch einer Variablen zuweisen damit du sie nachträgich ändern kannst. Ausserdem ist dein >Source nicht komplett (Fehler beim starten) und ich kann nirgends den Versuch erkennen einem Pic-Control der 1. Gui ein neues Bild zu zu weisen,

mfg autoBert

**autoBert**

Hallo Destiny of Faith,

ein freiwilliges Refreart sollte man nur zu einem Thema halten, dass man begerscht. Wir sollen jetzt also hier deine Problem lösen und du steckst die gute Note ein du Schlingel. Wenn du Daten aus einem Control weiterverwenden willst musst du sie mit GuiCtrlRead auslesen, die von dir verwendeten Variablen enthalten ja nur die ID des Controls deshalb die Zahlen. Mach es also so:

[autoit]

IniWrite ( "Settings.ini", "Texteinstellungen", "Ltext1", GuiCtrlRead($Ltext1))

[/autoit]

.
Word kannst du mit den Funktionen der Word.au3 (ist satndardmässig bei AutoIt dabei und auch in der Hilfe unter nbenutzerdefineierte Funktionen beschrieben) viel besser fernsteuern als mit dem Send-Befehl, die Nutzung dieses Befehls drängt mir den Verdacht auf das du eigentlich einen Spiele-Bot schreiben willst, deshalb war dies meine einzige Antwort in diesem Thema. Naja wenigstens hättest du dir dann eine gute Ausrede einfallen lassen und hast dir zudem die Arbeit gemacht ein Beispielskript hierzu zu schreiben,

mfg autoBert

**autoBert**

Zitat von skyteddy

In C habe ich schon fast ne Lösung Funktioniert noch nicht 100% auf allen Systemen, aber es passiert genau das, was ich will. Sollte das funktionieren, muss ich es "nur" noch nach AutoIt portieren.

Du kannst ja aus der C-Lösung eine DLL entwickeln, die du dann mit AutoIt ansteuerst,

mfg autoBert

**autoBert**

Schaun dir in der Hilfe die Controll.... - Funktionen an,

mfg autobert

**autoBert**

Zitat von skyteddy

Ich suche sowas wie: Eine Datei mit der Maus selektieren, rechte Maustaste "Senden an" -> "Email-Empfänger". Das macht exakt das, was ich suche, nämlich ein neues Email-Fenster auf, des im System voreingestellten Default-Email-Clients.

Und trägt es dabei ausser dem Anhang auch die anderen von dir genannten Daten Empfänger, Betreff usw. schon ein. Ich denke nein. Bin aber (wieviele andere sicher auch) gespannt auf die Lösung, bezweifle aber dass es dies "Eine für alle (EMail-Clients)"-Lösung gibt,

mfg autoBert

**autoBert**

Zitat von skyteddy

Ich will nur, dass ein "Neues Email-Fenster" des vom Benutzer voreingestellten Email-Programmes aufgeht, wo dann schon Empfänger, Betreff, Mail-Inhalt und ein Anhang bereits vorausgewählt bzw. gesetzt wurden, und zwar von mir. Genau sowas wie die Funktion _InetMail macht, nur um die Erweiterung, dass man Attachments anhängen kann, also quasi ein:

_InetMailWithAttachments( $s_MailTo, $s_MailSubject, $s_MailBody , $s_MailAttachment).

Dies stelle ich mir nicht so einfach vor, du müsstest dazu anhand der API des benutzten Mailprogrammes die Daten übewrgeben. Für Outlook hat ja water dies schon ihn eine UDF umgesetzt, aber für ale anderen müsstest du dir anhand der API die Routinen selbst schreiben bestenfalls im Netz zusammen suchen.

mfg autoBert

**autoBert**

Zitat von unverschämt

autoBert was macht genau dieses "int" ?

Zitat

Int

Gibt einen Integer (ganze Zahl) eines Ausdrucks zurück

Quelle: dt.Hilfe

du benutzt den Win XP Style diesen musst du vor dem Erzeugen der Progressbar ändern, nach dem Erstellen und Farbe zuweisen kannst du ihn wieder aktivieren, siehe dazu das Beispiel das ich in https://autoit.de/index.php?page…6718#post236718 gepostet hatte, da war es enthalten.
du musst bei der Erzeugen des InputControls $ES_PASSWORD als Stil verwenden.

mfg autoBert

**autoBert**

Hallo unverschämt,

hier noch eine Lösung die schneller reagiert:

Spoiler anzeigen

[autoit]

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ###
$Gui_Login_System_Obj = GUICreate("Login System by Django", 365, 130, 800, 475)
GUISetFont(8, 400, 0, "Consolas")
$Gui_Login_Obj = GUICtrlCreateButton("Login", 16, 88, 145, 25)
$Gui_Cancel_Obj = GUICtrlCreateButton("Cancel", 185, 88, 145, 25)
$Gui_Ladebalken_Obj = GUICtrlCreateProgress(16, 55, 315, 25)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$Gui_Status_Obj = GUICtrlCreateLabel("0%", 300, 65, 30, 20, $SS_Right)
GUICtrlSetFont(-1, 10, 400, 0, "Consolas")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Gui_Benutzername_Obj = GUICtrlCreateLabel("Benutzername:", 16, 8, 90, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Consolas")
$Gui_Password_Obj = GUICtrlCreateLabel("Passwort:", 185, 8, 90, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Consolas")
$Gui_Benutzername_InputBox_Obj = GUICtrlCreateInput("", 16, 24, 145, 20)
$Gui_Password_InputBox_Obj = GUICtrlCreateInput("", 185, 24, 145, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Gui_Login_Obj
_Ladebalken()
Sleep(250)
_Password_Check()
Case $Gui_Cancel_Obj
Exit
EndSwitch
WEnd

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

Func _Ladebalken()
For $Zahlvariable = 0 To 2500 Step 1
$Funktionbeenden = GUIGetMsg()
If $Funktionbeenden = -3 Then
Exit
ElseIf $Funktionbeenden = ($Gui_Cancel_Obj) Then
Exit
EndIf
if mod($Zahlvariable,25) = 0 Then ;um unnötiges Flackern zu verhindern nur bei Änderung updaten
GUICtrlSetData($Gui_Ladebalken_Obj, Int($Zahlvariable / 25))
GUICtrlSetData($Gui_Status_Obj, Int($Zahlvariable / 25) & "%")
endif
Sleep(10)
Next
EndFunc ;==>_Ladebalken

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

Func _Password_Check()
$InputBoxBenutzername = GUICtrlRead($Gui_Benutzername_InputBox_Obj)
$InputBoxPassword = GUICtrlRead($Gui_Password_InputBox_Obj)
If $InputBoxBenutzername = "Django" And $InputBoxPassword = "1337" Then
GUIDelete($Gui_Login_System_Obj)
MsgBox(0, "Login System", "Erfolgreich eingeloggt")
;~ Hier kommt noch die Weiterleitung an die Nächte GuiOberfläche
ElseIf $InputBoxBenutzername = "Django" Then
MsgBox(0, "Login System", "Dein Passwort ist falsch")
GUICtrlSetData($Gui_Ladebalken_Obj, 0)
GUICtrlSetData($Gui_Status_Obj, 0 & "%")
ElseIf $InputBoxPassword = "1337" Then
MsgBox(0, "Login System", "Dein Benutzername ist falsch")
GUICtrlSetData($Gui_Ladebalken_Obj, 0)
GUICtrlSetData($Gui_Status_Obj, 0 & "%")
Else
MsgBox(0, "Login System", "Benutzername und Passwort sind falsch")
GUICtrlSetData($Gui_Ladebalken_Obj, 0)
GUICtrlSetData($Gui_Status_Obj, 0 & "%")
EndIf
EndFunc ;==>_Password_Check

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

mfg autoBert

**autoBert**

Variablen stehen immer links, der zugewiesene Wert immer rechts. Farben werden meist im RGB-Format in Hex angegeben, also so

[autoit]

$nColour = 0xC9E6FF

[/autoit]

mfg autoBert

**autoBert**

Hallo ,

schau dir dazu

[autoit]

_GUICtrlTab_SetCurSel

[/autoit]

und

[autoit]

_GUICtrlTab_GetItemText

[/autoit]

an.

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiTab.au3>

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

Opt('MustDeclareVars', 1)

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

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

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

_Main()

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

Func _Main()
Local $hTab

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

; Create GUI
GUICreate("Tab Control Set Current Selected", 400, 300)
$hTab = GUICtrlCreateTab(2, 2, 396, 296)
GUISetState()

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

; Add tabs
_GUICtrlTab_InsertItem($hTab, 0, "Tab 1")
_GUICtrlTab_InsertItem($hTab, 1, "Tab 2")
_GUICtrlTab_InsertItem($hTab, 2, "Tab 3")

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

; Get/Set current selection
_GUICtrlTab_SetCurSel($hTab, 2)
MsgBox(4160, "Information", "Current Selection: " & _GUICtrlTab_GetCurSel($hTab) & @CRLF &@CRLF & _GUICtrlTab_GetItemText ($hTab,_GUICtrlTab_GetCurSel($hTab)))

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

; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main

[/autoit]

mfg autoBert

Beiträge von autoBert

[HILFE] Programm hängt sich auf

[HILFE] Programm hängt sich auf

PokerFace ist 18

Problem: Ini-Werte werden (scheinbar?) nicht korrekt in GUI übernommen

Problem: Ini-Werte werden (scheinbar?) nicht korrekt in GUI übernommen

Textdatei einlesen und als Mail versenden...

Textdatei einlesen und als Mail versenden...

Tidy ?

email smtp senden

Thankomat auf autoit.de

Bei 2 GUI's GUICtrlSetImage auf die 1. GUI

Fragen bzgl. GUICtrlCreateInput, IniRead, Do - Until und Pause

_Inetmail mit Anhang

Programm im hintergrund laufen lassen können

_Inetmail mit Anhang

_Inetmail mit Anhang

Funktion geht nicht hilfe...

Funktion geht nicht hilfe...

Input mit Variable...

Auf der GUI ein Bestimmter Tab als Standart