Hallo warum so umständlich und auch fehleranfällig mit PixelgetColor und MouseClick. Nimm doch statt dessen die Pop3.udf zur Lösung. Ein Beispiel wie man sie einsetzen kann findest du hier: Anhang runterladen - Erweiterung für die POP3 UDF
mfg (Auto)Bert
Hallo moritz1243,
tolles Ergebniss bin beindruckt, weiter so 
mfg (Auto)Bert
Hallo 93lucas,
sollte gehen, hast du es mit IE.au3 oder ff.au3 gemacht. Source wäre auch nicht schlecht,
Edit: Beim IE kannst du es mit
[autoit]GuiCtrlSetData($hId_InputI,$oIE.LocationURL)
[/autoit]lösen
mfg (Auto)Bert
Hallo ChingsKane,
so z.B.:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ###
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
#include <_INetSmtpMailCom.au3>
[/autoit] [autoit][/autoit] [autoit];##################################
; Variables
;##################################
$SmtpServer = "smtp.web.de" ; address for the smtp-server to use - REQUIRED
$FromName = "ChingsKhane" ; name from who the email was sent
$FromAddress = "AutoIT-ChingsKhane@web.de" ; address from where the mail should come
$ToAddress = "AutoIT-ChingsKhane@gmx.de" ; destination address of the email - REQUIRED
$Subject = "Userinfo" ; subject from the email - can be anything you want it to be
$Body = "Hallo ChingsKhane" ; 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 = "AutoIT-ChingsKhane@web.de" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "Ausgeschnitten" ; 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
$Form1_1 = GUICreate("Einloggen", 236, 107, -1, -1)
GUISetIcon("D:\008.ico")
$PasswordEdit = GUICtrlCreateInput("", 88, 40, 129, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
$ButtonOk = GUICtrlCreateButton("&OK", 22, 72, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cannel", 135, 72, 75, 25, 0)
$Input1 = GUICtrlCreateInput("", 88, 8, 129, 21)
$Label1 = GUICtrlCreateLabel("Name :", 32, 8, 38, 17)
$Label2 = GUICtrlCreateLabel(" Passwort :", 16, 40, 56, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonOk
$Body = GuiCtrlRead($Label1) & " hat sich angemeldet!"
$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
EndSwitch
WEnd
mfg (Auto)Bert
Hallo Masterking1996,
dachtest du an so etwas:
; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward'
; outside of history bounds does not abort script
; (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 640, 580, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$hInput = GUICtrlCreateInput("Hier URL eingeben: ",10,10,500)
$hGo = GUICtrlCreateButton("&Go",520,10,50)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 480)
GUICtrlSetResizing($GUIActiveX,$GUI_DOCKAUTO)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 530, 100, 30)
GUICtrlSetResizing(-1,$GUI_DOCKSTATEBAR)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 530, 100, 30)
GUICtrlSetResizing(-1,$GUI_DOCKSTATEBAR)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 530, 100, 30)
GUICtrlSetResizing(-1,$GUI_DOCKSTATEBAR)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 530, 100, 30)
GUICtrlSetResizing(-1,$GUI_DOCKSTATEBAR)
$GUI_Button_Print = GUICtrlCreateButton("PRINT", 450, 530, 100, 30)
GUICtrlSetResizing(-1,$GUI_DOCKSTATEBAR)
GUISetState() ;Show GUI
[/autoit] [autoit][/autoit] [autoit]_IENavigate ($oIE, "http://www.autoitscript.com")
[/autoit] [autoit][/autoit] [autoit]; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $hGo
_IENavigate ($oIE, GUICtrlRead($hInput))
Case $msg = $GUI_Button_Home
_IENavigate ($oIE, "http://www.autoitscript.com")
Case $msg = $GUI_Button_Back
_IEAction ($oIE, "back")
Case $msg = $GUI_Button_Forward
_IEAction ($oIE, "forward")
Case $msg = $GUI_Button_Stop
_IEAction ($oIE, "stop")
Case $msg = $GUI_Button_Print
_IEAction ($oIE, "print")
EndSelect
WEnd
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]mfg (Auto)Bert
Hallo ChingsKhane,
ändere einbmal wie folgt ab:
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
#include <_INetSmtpMailCom.au3>
[/autoit] [autoit][/autoit] [autoit];##################################
; Variables
;##################################
$SmtpServer = "smtp.web.de" ; address for the smtp-server to use - REQUIRED
$FromName = "Programm" ; name from who the email was sent
$FromAddress = "Fosti-Mo-Gamer@web.de" ; address from where the mail should come
$ToAddress = "AutoIT-ChingsKhane.@web.de" ; destination address of the email - REQUIRED
$Subject = "Hallo" ; subject from the email - can be anything you want it to be
$Body = "Test1234" ; 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 = "AutoIT-Chingskhane@web.de" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "Ausgeschnitten" ; 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
;##################################
; Script
;##################################
$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
jetzt musst du nur noch gültige Adressen verwenden:
<Fosti-Mo-Gamer@web.de>: host mxint-ha.dlan.cinetic.de[172.20.3.249] said: 550
Unknown local part Fosti-Mo-Gamer in <Fosti-Mo-Gamer@web.de> (in reply to
RCPT TO command)
"AutoIT-ChingsKhane."@web.de>: host mxint-ha.dlan.cinetic.de[172.20.3.249]
said: 550 Unknown local part "AutoIT-ChingsKhane." in
<"AutoIT-ChingsKhane."@web.de> (in reply to RCPT TO command)beim Versuch eine EMail direkt aus Web.de an diese Adressen zu versenden
mfg (Auto)Bert
Hallo Aldi
aus der Hilfe zu GUICtrlCreatePic
filename of the picture to be loaded : supported types BMP, JPG, GIF(but not animated).
mfg (Auto)Bert
Hallo ChingsKhane,
du nimmst immer noch das falsche Skript als Grundlage für dein Skript. Nimm einfach das Skript aus Daten an Email senden #11 ergänze es mit den Angaben aus Daten an Email senden #14 und deinen eigenen. Wenn das läuft kannst du darauf weiter aufbauen,
edit: Skript:
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
#include <_INetSmtpMailCom.au3>
;##################################
; Variables
;##################################
$SmtpServer = "smtp.web.de" ; address for the smtp-server to use - REQUIRED
$FromName = "DeinName" ; name from who the email was sent
$FromAddress = "deineAdresse@web.de" ; address from where the mail should come
$ToAddress = "woeshinsoll@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 = "deineAdresse@web.de" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "deinPasswort" ; 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
;##################################
; Script
;##################################
$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
benötigte UDF:
;##################################
; Include
;##################################
#Include<file.au3>
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 then $IPPort = 25
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "High"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail=""
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc
mfg (Auto)Bert
Hi,
[autoit]
...
[/autoit] [autoit][/autoit] [autoit]WinWaitActive("bla","")
[/autoit] [autoit][/autoit] [autoit]
WinSetState("bla","",@SW_HIDE)...
[/autoit]Dabei taucht das Fenster für ein paar Millisekunden auf und verschwindet dann,
Wie kann ich das Fenster erstgarnicht auftauchen lassen ?
WinWaitActive weglassen,
mfg (Auto)Bert
Hallo ChingsKhane,
Hallo ChingsKhane,
das hier: [ gelöst ] Daten an email senden solltest du dir anschauen,
da habe ich das komplette Thema gemeint und nicht den Eröffnungsbeitrag. Diese beiden
sind zusammen die Lösung,
mfg (Auto)Bert
Hallo Higggiii,
du solltest schon dein kompletes Skript oder zumindest ein lauffähiges Beispiel posten. Mit dem Schnipsel kann man nichts anfangen,
mfg (Auto)Bert
Hallo ChingsKhane,
das hier: [ gelöst ] Daten an email senden solltest du dir anschauen,
mfg (Auto)Bert
Hallo eukalyptus,
schönes Skript, sieht toll aus.
mfg (Auto)Bert
Hallo @Uwe,
ich hatte das gleiche Problem wenn ich die Files normal extrahiert habe. Öfnne ich aber das Zip-File mit Doppelklick und kopiere die Dateien funktioniert alles. BS XP Prof mit SP3
mfg (Auto)Bert
Hallo eliteMatthias,
machs doch einfach so:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 188, 122)
Global $Input1 = GUICtrlCreateInput("Input1", 92, 60, 169, 21)
$Button1 = GUICtrlCreateButton("Button1", 96, 204, 37, 45, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_MsgBox()
EndSwitch
WEnd
Func _MsgBox()
$Input = GUICtrlRead($Input1)
MsgBox(1, "GuiCtrlRead", $Input)
EndFunc ;==>_MsgBox
name22, deines kann nicht laufen,
mfg (Auto)Bert
Hallo stinger2k,
stell doch bitte ein Zip mit den benötigten Bitmaps ein,
mfg (Auto)Bert
Hallo ThePierre,
ja hier:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $aZugang[8][2] = [ _
['ThePierre', 'Test'], _
['User2', 'Test2'], _
['User3', 'Test3'], _
['User4', 'Test4'], _
['User5', 'Test5'], _
['User6', 'Test6'], _
['User7', 'Test7'], _
['User8', 'Test8']]
Global $bPWD_OK = False, $iTry = 0, $sName
[/autoit] [autoit][/autoit] [autoit]#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AlphaMatch Game Tool", 251, 127, -1, -1)
GUISetIcon("D:\008.ico")
$name = GUICtrlCreateInput("", 8, 40, 233, 21)
$passwort = GUICtrlCreateInput("", 8, 64, 233, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
$ButtonOk = GUICtrlCreateButton("&OK", 86, 96, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 96, 75, 25, 0)
$EnterPassLabel = GUICtrlCreateLabel("Enter password and you Name", 8, 12, 149, 17)
GUISetState(@SW_SHOW, $Form1)
#endregion ### END Koda GUI section ###
While ($iTry < 5) And Not $bPWD_OK
$nMsg = GUIGetMsg()
Switch $nMsg
Case $ButtonOk
$iTry += 1
For $i = 0 To UBound($aZugang) - 1
$sName = GUICtrlRead($name)
If $aZugang[$i][0] = $sName Then
If $aZugang[$i][1] = GUICtrlRead($passwort) Then
$bPWD_OK = True
ExitLoop
Else
GUICtrlSetData($passwort, "")
EndIf
EndIf
Next
EndSwitch
WEnd
GUIDelete($Form1)
If $bPWD_OK Then
MsgBox(32, "Found: " & $sName, "Deine Account Daten wurden gefunden!")
Else
MsgBox(32, "Not Found", "Deine Account Daten wurden nicht gefunden!")
Exit
EndIf
;ab hier kannst du dann deine weiteren Guis einbinden in $sName steht der Anmeldenamen
[/autoit]mfg (Auto)Bert
Hallo ThePierre,
so z.B.:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $aZugang[8][2] = [ _
['ThePierre', 'Test'], _
['User2', 'Test2'], _
['User3', 'Test3'], _
['User4', 'Test4'], _
['User5', 'Test5'], _
['User6', 'Test6'], _
['User7', 'Test7'], _
['User8', 'Test8']]
Global $bPWD_OK = False, $iTry = 0
[/autoit] [autoit][/autoit] [autoit]#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AlphaMatch Game Tool", 251, 127, -1, -1)
GUISetIcon("D:\008.ico")
$name = GUICtrlCreateInput("", 8, 40, 233, 21)
$passwort = GUICtrlCreateInput("", 8, 64, 233, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
$ButtonOk = GUICtrlCreateButton("&OK", 86, 96, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 96, 75, 25, 0)
$EnterPassLabel = GUICtrlCreateLabel("Enter password and you Name", 8, 12, 149, 17)
GUISetState(@SW_SHOW, $Form1)
#endregion ### END Koda GUI section ###
While ($iTry < 5) And Not $bPWD_OK
$nMsg = GUIGetMsg()
Switch $nMsg
Case $ButtonOk
$iTry += 1
For $i = 0 To UBound($aZugang) - 1
If $aZugang[$i][0] = GUICtrlRead($name) Then
If $aZugang[$i][1] = GUICtrlRead($passwort) Then
$bPWD_OK = True
ExitLoop
Else
GUICtrlSetData($passwort, "")
EndIf
EndIf
Next
EndSwitch
WEnd
GUIDelete($Form1)
If $bPWD_OK Then
MsgBox(32, "Found", "Deine Account Daten wurden gefunden!")
Else
MsgBox(32, "Not Found", "Deine Account Daten wurden nicht gefunden!")
EndIf
;ab hier kannst du dann deine weiteren Guis einbinden
[/autoit]aber die LoginBox von Oscar ist um Welten besser,
mfg (Auto)Bert
der Link aus meinem vorgehenden Post stimmt, Oscar hat ein Zip-File angehängt,
das wichtigste ist das zuerst die Login Daten erstellst, Beschreibung im Source
[autoit]; Um die Hashwerte für das Array zu ermitteln, die folgenden Zeilen ausführen
; und dann den Wert aus der Zwischenablage unten beim Array einfügen
#cs
While True
$sPass = InputBox('MD5-Hashwert ermitteln', 'Passwort eingeben', '', '', 400, 140)
If @error Then Exit
ClipPut(md5($sPass))
MsgBox(0, 'MD5-Hashwert', 'Der Hashwert zu dem Passwort: ' & $sPass & @CRLF & 'befindet sich nun in der Zwischenablage!')
WEnd
; wenn alle User/Hashwerte erstellt wurden, können die Zeilen 11-16 auskommentiert/gelöscht werden
#ce
; Array mit den korrekten Daten (jeweils: ['Benutzername', 'MD5-Hashwert des Passworts'])
; der Vorteil dieser Methode ist der, dass man hier im Script nicht die Passwörter speichern muss,
; sondern nur die MD5-Hashwerte
Global $aCorrect[5][2] = [ _
['User1', '0cbc6611f5540bd0809a388dc95a615b'], _
['User2', 'bcbe3365e6ac95ea2c0343a2395834dd'], _
['User3', '310dcbbf4cce62f762a2aaa148d556bd'], _
['User4', '550a141f12de6341fba65b0ad0433500'], _
['User5', '15de21c670ae7c3f6f3f1f37029303c9']]
mfg (Auto)Bert
bitte sehr LogIn-Box
mfg (Auto)Bert
