Beiträge von bernd670

**bernd670**

Hallo!

Einfach am Scriptanfang folgendes schreiben:

[autoit]

Dim $Variable = "\datei.exe"

[/autoit]

oder wenn die Variablen nicht verändert werden sollen (=Konstanten):

[autoit]

Const $Variable = "\datei.exe"

[/autoit]

und dann überall im Script "\datei.exe" durch $Variable ersetzen.

**bernd670**

Hallo!

skyteddy, Fehlercode 51 weisst daraufhin das der Befehl "AUTH LOGIN" nicht erkannt wird. Vllt hast du auch den SMTP-Server nicht korrekt angegeben. Mit welchem EMail-Anbieder hast du es den probiert? Evtl. mal den Code einstellen (ohne Passwort) dann kann ich mal drüberschauen.

**bernd670**

Hallo!

Die Version die ich eingestellt habe läuft bei mir jetzt seit knapp 7 Std. ohne Fehler.

**bernd670**

Hallo!

Ich habe es mal etwas umgeschrieben, jetzt wird alle 10 Sek der Aktualisieren-Button betätigt. Ist wohl besser als ständig IE zu schliesen und wieder neu zu laden.

[autoit]

#include <IE.au3>

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

Dim $IE = _IECreate("http://autoit.aufwaerts.de/jgs_portal_checker.php?sid=", 0, 1)
Dim $coll, $alt, $table

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

While 1
While UBound($alt,0) <> 2
$coll = _IETableGetCollection($IE, 0)
$alt = _IETableWriteToArray($coll)
WEnd

Do
$oForm = _IEFormGetObjByName ($IE, "sform")
_IEFormSubmit ($oForm)
$coll = _IETableGetCollection($IE, 0)
$table = _IETableWriteToArray($coll)
Until UBound($table,0) = 2

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

If $alt[0][1] <> $table[0][1] Then
TrayTip("Neues auf AutoIt.de", "In : " & $table[1][1] & @CRLF & "Von : " & $table[2][1], 10)
$oForm = _IEFormGetObjByName ($IE, "sform")
_IEFormSubmit ($oForm)
$coll = _IETableGetCollection($IE, 0)
$alt = _IETableWriteToArray($coll)
EndIf

Sleep(10000)
WEnd

[/autoit]

**bernd670**

Hallo!

Hier ein Beispiel:

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 200, 300, -1, -1)
$Button1 = GUICtrlCreateButton("groß", 18, 72, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

Case $Button1
$arPos = WinGetPos($Form1)
WinMove($Form1, "", $arPos[0], $arPos[1], 400, $arPos[3])

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

EndSwitch
WEnd

[/autoit]

**bernd670**

Hallo!

Schau dir mal WinMove an.

**bernd670**

Hallo!

Bei SQLite geht das nur mit dem Umweg über Temporäre Tabellen, so löst es SQLite-Administrator übrigens auch!

Beispiel:

Angenommen eine Tabelle mit Adressen enthält die Felder id, Str, und Ort. Der Feldname Str soll nun Strasse umbenannt werden.

Dazu wird zuerst eine Temporärtabelle erzeugt:

Code

CREATE TEMPORARY TABLE TEMP_TABLE(id INTEGER PRIMARY KEY, Strasse TEXT, Ort TEXT);

Dann wird die Temporärtabelle mit den Werten aus Adresse gefüllt:

SQL

INSERT INTO TEMP_TABLE SELECT id, Str, Ort FROM Adressen;

Dann kann die Tabelle Adressen gelöscht werden:

Code

DROP TABLE Adressen;

Jetzt wird die Tabelle Adressen neu erstellt und mit den Werten aus der Temptabelle wieder gefüllt:

Code

CREATE TABLE Adressen (id INTEGER PRIMARY KEY, Strasse TEXT, Ort TEXT);
INSERT INTO Adressen SELECT id, Strasse, Ort FROM TEMP_TABLE;
DROP TABLE TEMP_TABLE;

Das ist leider die einzige Möglichkeit um Feldnamen in SQLite umzubenenen.

**bernd670**

Hallo!

Die Befehle ipconfig /release und ipconfig /renew funktionieren aber nur wenn die Adresse von einen DHCP-Server bezogen wird, wenn die IP-Adresse fest eingestellt ist funktionieren diese Befehle nicht.

**bernd670**

Hallo!

Hier die Lösung des Problems:

Spoiler anzeigen

[autoit]

#include <INet.au3>

$s_SmtpServer = "mx.freenet.de"
$s_FromName = "Bernd670"
$s_FromAddress = "bernd670@freenet.de"
$s_ToAddress = "bernd670@gmx.de"
$s_Subject = "My Test UDF"
$s_UName = "bernd670@freenet.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

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

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

[/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)

$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

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

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

[/autoit]

Die Funktion _INetSmtpMail bietet keine Möglichkeit sich am SMTP-Server zu authentifizieren, heutzutage ist aber so das die meisten SMTP-Server eine Authentifizierung verlangen.

Die Funktion _INetSmtpMailAuth habe ich um diese funktionalität ergänzt.

Ausserdem hänge ich noch die korrigierte Datei INet.au3 an, in der Orignaldatei wurde der Standardwert für $s_first verkehrt angegeben.

Edit bernd670 (18.04.07): Dank skyteddy habe ich noch einen Fehler in der Funktion _INetSmtpMailAuth gefunden und behoben. Der Fehler ist beim smtp.1und1.de aufgetreten. Die korrigierte Version Funktioniert mit 1und1, gmx und web. Bei Freenet muss der Parameter $s_helo auf "EHLO " (leerzeichen nach O beachten) gesetzt werden, dann funktioniert auch mit Freenet.

**bernd670**

Hallo!

Es besteht auch die Möglichkeit über Computerrichtlinien Scripte/Programme zu starten bevor der Anmeldedialog angezeigt wird.

**bernd670**

Hallo!

Früher gab es den (nicht veröffentlichen) Parameter /y der dafür sorgte das man das Formatieren ohne die Sicherheitsabfrage durchführen konnte. Probiers doch mal damit vllt. geht der ja immer noch!

**bernd670**

Gib in der aktuellen AutoIt Hilfe unter Index mal das Schlüsselwort GUICtrlCreateList ein!

**bernd670**

Hallo!

Hier ein ausbaufähiges Beispiel:

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 236, 106, 193, 115)
$Label1 = GUICtrlCreateLabel("Eingabe:", 16, 24, 46, 17)
$Input1 = GUICtrlCreateInput("", 70, 19, 121, 21)
$Button1 = GUICtrlCreateButton("OK", 32, 56, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Abbruch", 128, 56, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

Case $Button1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "Checked", "REG_SZ", GUICtrlRead($Input1) & "|")
Exit

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

EndSwitch
WEnd

[/autoit]

Edit peethebee: | eingebaut...
Edit bernd670: Danke Pee, noch ein Exit nach OK-Button eingebaut

**bernd670**

Hallo und :willkommen:!

Wenn Du dich mit einem Rechner Remote verbindest und ein Programm ausführst läuft es immer unter deiner Kennung. Wenn es unter der Kennung des Nutzer laufen soll muss der der Nutzer auch ausführen. Du kannst das Programm ja ins Logon-Script der Nutzer eintragen.

**bernd670**

Hallo!

Automatisch wird nichts ausgelesen. Der Wert von $filepath bleibt solange gleich bis Du ihn änderst. Aber statt ihn wieder aus der Ini-Datei auszulesen kannst Du ihn auch direkt zuweisen.

[autoit]

$varpath = GUICtrlRead($input_pathmainfolder)
IniWrite((@ScriptDir & "\modmove.ini", "Folder", "filepath", $varpath)
GUICtrlSetData($input_pathmainfolder,$varpath) ; unötig da sich der Wert durch auslesen ja nicht ändert
$filepath = $varpath

[/autoit]

**bernd670**

Hallo!

Wenn Du auf die Seiten nicht mehr mit AutoIt zugreifen willst kannst Du Sie auch mit folgendem Befehl direkt mit Firefox öffenen.

[autoit]

run("C:\Programme\Mozilla Firefox\firefox.exe -new-window http://www.firefox-browser.de/wiki/Parameter")

[/autoit]

Wenn die Seite in einem neuen Tab statt in einem neuen Fester geöffnet werden soll musst Du '-new-window' durch '-new-tab' ersetzen!

**bernd670**

Ich denke es liegt daran das die Schleifen (For $olink IN $oDocLinks) nach dem Klick nicht beendet werden und so auf Elemente zugreifen die nicht mehr existieren.

Probiers mal so, ich habe an den entsprechenden Stellen ein Exitloop eingebaut:

Spoiler anzeigen

[autoit]

#include <IE.au3>
$counter = 0

$oIE=_IECreate("http://www.google.de",0,1)
$oDocLinks = _IELinkGetCollection ($oIE); gibt links als Collection aus

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

For $olink IN $oDocLinks
if StringInStr ( $olink.outerText , "fro") Then ; der anzuklickende Link
$zeit=Random(1000,5000,1)
sleep($zeit) ; gibt zufallswert aus und Sleep übernimmt den Wert
$olink.click() ; der Klick auf den Link
ExitLoop
EndIf
Next

_IELoadWait($oIE)

run("reconnect.exe") ; ip erneuern
sleep("10000")

_IEAction($oIE,"back") ; Browser geht eine Seite zurück

While 1

_IELoadWait($oIE) ; warten bis Seite geladen

$counter=$counter+1 ; der Counter wird 1 erhöht

if $counter=2 Then ; Counter größer, gleich 16 dann klickt er auf den Link
$oDocLinks = _IELinkGetCollection ($oIE); gibt links als Collection aus

For $olink IN $oDocLinks
if StringInStr ( $olink.outerText , "fro") Then ;der anzuklickende Link
$zeit=Random(20235, 30595 , 1)
sleep($zeit) ; gibt zufallswert aus und Sleep übernimmt den Wert
$olink.click() ; der Klick auf den Link
_IELoadWait($oIE) ; warten bis Seite geladen
run("reconnect.exe")
sleep("10000")
_IEAction($oIE,"back") ; Browser geht eine Seite zurück
$counter=$counter-2
ExitLoop
EndIf
Next

ElseIf $counter<2 Then ; counter unter 16 dann refresht er
$zeit=Random(16478, 25205, 1)
sleep($zeit) ; gibt zufallswert aus und Sleep übernimmt den Wert
_IEAction($oIE,"refresh")
run("reconnect.exe")
sleep("10000")

EndIf

WEnd

[/autoit]

Wenn es dann immer noch nicht funktioniert kann es an den run("reconnect.exe") liegen. Diese Zeilen dann erst mal auskommentieren und noch mal probieren!

**bernd670**

Er will mehrere Parameter an Batch-Dateien übergeben!

[autoit]

$dif = 5
$error = "ERR5"
$Text = "Das ist ein Test"
ShellExecute("batch.cmd", $dif & " " & $error & " " & Chr(34) & $Text & Chr(34))

[/autoit]

Batch.cmd

Code

echo off
echo der uebergebenen Werte lauten %1, %2 und %3
echo.
echo. 


pause

Wenn man wie beim 3. Parameter einen Text mit mehreren Wörtern als ein Paramter übergeben will muss man den Text in Anführungszeichen >chr(34)< einschliessen.

**bernd670**

Hallo und :willkommen:!

Es geht sowohl mit ShellExecute als auch mit Run.

aufruf:

[autoit]

$dif = 5
ShellExecute("batch.cmd", $dif)

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

Run("batch.cmd " & $dif)

[/autoit]

batch.cmd:

Code

echo off
echo der uebergebene Wert lautet %1
echo.
echo. 


pause

**bernd670**

Eine statische Adresse die jedesmal anders ist ist eine dynamische Adresse und genau die gibt _GetIP() zurück, also quasi die Internetadresse! Statische Adressen sind immer gleich weil sie fest eingestellt werden!

3x hält besser :schild4:!

Beiträge von bernd670

Variable statt fester Angabe

INetSendMail

Schneller sein^^

Schneller sein^^

GUI Größe

GUI Größe

index umbenennen

Verbindung trennen

INetSendMail

script vor login ausführen möglich?

Problem bei der Arbeit mit CMD

Brauche Hilfe

Ist das moeglich???

Programm remote starten - allerdings mit den Rechten des eingeloggten benutzers

Variablen setzen

Internetzugriff

Schleife wird nicht wiederholt

Parameter an Batch Datei übergeben?

Parameter an Batch Datei übergeben?

statische IP-Adresse herausfinden