Hast Du schon mal die Suchfunktion benutzt?
Automatische Anmeldung
Beiträge von bernd670
-
-
Wie wäre es denn wenn Du die 5 Karten aus einem 2. (virtuellen) Satz Karten nimmst und es müssen 2 oder 3 Karten genau übereinstimmen.
-
Hast Du dir schon mal den 1. Beitrag durchgelesen?
-
komisch ist folgedes auszug aus regedit
geht nicht "ProductVersion"=dword:0150032b
geht "ProductVersion"=dword:177a03f8sind die gleichen werte was meint ihr wo ich suchen sollte oder den fehler abfangen kann?
Das sind doch nicht die gleichen Werte:
0150032b = 8.1.1.336
177a03f8 = 10.1.6.6010Wie Du siehst ist bei 0150032b die MayorVersion vorne 1stellig und deshalb gibt $NAVMajorVersion[4] auch einen Fehler.
Probiers mal so:
Spoiler anzeigen
[autoit]Func _SymantecGetVersion()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Local $Hostname = ""
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Local Const $NAVVersionKey = "HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion"
Local Const $NAVVersionValue = "ProductVersion"
Local Const $NAVEngineKey = "HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion"
Local Const $NAVEngineValue = "ScanEngineVersion"
Local Const $NAVDefinitionsKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\SharedDefs"
Local Const $NAVDefinitionsValue = "NAVCORP_70"
Local $NAVMajorVersion
Local $NAVMinorVersion
Local $strVersion
Local $strEngine
Local $strDefinitions
Local $tmp, $tmp2, $tmp3
Local $tmpArray$tmp = RegRead("\\" & $Hostname & "\" & $NAVVersionKey, $NAVVersionValue)
[/autoit] [autoit][/autoit] [autoit]
$tmp2 = RegRead("\\" & $Hostname & "\" & $NAVEngineKey, $NAVEngineValue)
$tmp3 = RegRead("\\" & $Hostname & "\" & $NAVDefinitionsKey, $NAVDefinitionsValue)ConsoleWrite($tmp & " -> " & Hex($tmp) & @CRLF)
[/autoit] [autoit][/autoit] [autoit]
If $tmp = "" Then
$strVersion = "Unavailable"
Else
$NAVMinorVersion = Dec(StringLeft(Hex($tmp), 4))
$NAVMajorVersion = StringSplit(Dec(StringRight(Hex($tmp), 4)), "")
If Dec(StringRight(Hex($tmp), 4)) < 1000 Then
$strVersion = $NAVMajorVersion[1] & "." & $NAVMajorVersion[2] & "." & $NAVMajorVersion[3] & "." & $NAVMinorVersion
Else
$strVersion = $NAVMajorVersion[1] & $NAVMajorVersion[2] & "." & $NAVMajorVersion[3] & "." & $NAVMajorVersion[4] & "." & $NAVMinorVersion
EndIf
EndIf
If $tmp2 = "" Then
$strEngine = "Unavailable"
Else
$strEngine = Dec(StringMid(Hex($tmp2), 1, 2)) & "." & Dec(StringMid(Hex($tmp2), 3, 2)) & "." & Dec(StringMid(Hex($tmp2), 5, 2)) & "." & Dec(StringMid(Hex($tmp2), 7, 2))
EndIf
If $tmp3 = "" Then
$strDefinitions = "Unavailable"
Else
$tmpArray = StringSplit($tmp3, "\")
$strDefinitions = StringMid($tmpArray[$tmpArray[0]], 7, 2) & "/" & StringMid($tmpArray[$tmpArray[0]], 5, 2) & "/" & StringMid($tmpArray[$tmpArray[0]], 1, 4) & " rev." & StringMid($tmpArray[$tmpArray[0]], 10, 3)
EndIf
Local $Array[3] = [$strDefinitions, $strVersion, $strEngine]
Return $Array
EndFunc ;==>_SymantecGetVersion$arr2 = _SymantecGetVersion()
[/autoit] [autoit][/autoit] [autoit]If IsArray($arr2) Then
[/autoit]
MsgBox(1, "", "Definitions date: " & $arr2[0] & @CRLF & _
"Software version: " & $arr2[1] & @CRLF & _
"Engine version: " & $arr2[2])
Else
MsgBox(1, "", "Failed with error code: " & $arr2)
EndIf -
Probiers mal so:
Spoiler anzeigen
[autoit]WinWait("Recorder: Verbindung zum COM1 hergestellt.")
[/autoit]
ControlClick("Recorder: Verbindung zum COM1 hergestellt.","Start", "Button19")
WinWait("In Datei...")
ControlClick("In Datei...","",1130)
WinWait("Recorder: Verbindung zum COM2 hergestellt.","")
ControlClick("Recorder: Verbindung zum COM2 hergestellt.","Start", "Button19")
WinWait("In Datei...")
ControlClick("In Datei...","",1130)
WinWait("Recorder: Verbindung zum COM3 hergestellt.","")
ControlClick("Recorder: Verbindung zum COM3 hergestellt.","Start", "Button19")
WinWait("In Datei...")
ControlClick("In Datei...","",1130)
WinWait("Recorder: Verbindung zum COM4 hergestellt.","")
ControlClick("Recorder: Verbindung zum COM4 hergestellt.","Start", "Button19")
WinWait("In Datei...")
ControlClick("In Datei...","",1130)wenn das nicht funktioniert muss evtl. bei ControlClick("In Datei...","",1130) noch ein Kriterium für Text eingetragen werden. Vllt. haben ja die Dateien unterschiedliche Namen oder heißen die alle message.dat.
-
Du musst beim Client die IP-Adresse von dem Rechner eintragen auf dem der Server läuft.
-
Du kannst auch warten bis der Server-Dienst antwortet.
Spoiler anzeigen
[autoit]$szIP = "127.0.0.1" ; IP-Adresse oder Name des MySQL-Servers
[/autoit] [autoit][/autoit] [autoit]
$iPort = 3306 ; kann auch 3333 seinTCPStartUp()
[/autoit]
do
$socket = TCPConnect(TCPNameToIP($szIP), $iPort)
Sleep(100)
Until $socket <> -1
TCPShutdown() -
Bitte, einfach die Constante $ExpireDays anpassen!
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>
#include <Date.au3>Const $ExpireDays = 30
[/autoit] [autoit][/autoit] [autoit]
Const $ADS_NAME_INITTYPE_GC = 3
Const $ADS_NAME_TYPE_NT4 = 3
Const $ADS_NAME_TYPE_1779 = 1
Dim $unlock
Dim $mgrvalue
Dim $mgrsplit
Dim $manager
Dim $mgr
Dim $title
Dim $pwdexpires
$username = InputBox("Username", "Please input a username:")
If @error Then Exit
$oMyError = ObjEvent("AutoIt.Error", "ComError")
$objRootDSE = ObjGet("LDAP://RootDSE")
If @error Then
MsgBox(0, 'username', 'Username does not exist or not able to communicate with ' & @LogonDomain)
Else
; DNS domain name.
$objTrans = ObjCreate("NameTranslate")
$objTrans.Init ($ADS_NAME_INITTYPE_GC, "")
$objTrans.Set ($ADS_NAME_TYPE_1779, @LogonDomain)
$objTrans.Set ($ADS_NAME_TYPE_NT4, @LogonDomain & "\" & $username)
$strUserDN = $objTrans.Get ($ADS_NAME_TYPE_1779)
$UserObj = ObjGet("LDAP://" & $strUserDN)
If @error Then
MsgBox(0, 'username', 'Username does not exist or not able to communicate with ' & @LogonDomain)
Else
Call("Displayinfo")EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndIf
$UserObj = ""
$oMyError = ObjEvent("AutoIt.Error", "")
;COM Error function
Func ComError()
If IsObj($oMyError) Then
$HexNumber = Hex($oMyError.number,
SetError($HexNumber)
Else
SetError(1)
EndIf
Return 0
EndFunc ;==>ComErrorFunc Displayinfo()
[/autoit] [autoit][/autoit] [autoit]
GUICreate("Active Directory Information", 500, 600, 300, 300)GUICtrlCreateLabel("Username: ", 10, 10, 60, 20)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateLabel("First Name: ", 10, 30, 60, 20)
GUICtrlCreateLabel("Last Name: ", 200, 30, 60, 20)
GUICtrlCreateLabel("Display Name: ", 10, 50, 100, 20)
GUICtrlCreateLabel("Title: ", 10, 70, 100, 20)
GUICtrlCreateLabel("Manager: ", 10, 90, 100, 20)
GUICtrlCreateLabel("Description: ", 10, 150, 100, 20)
GUICtrlCreateLabel("Office: ", 10, 190, 60, 20)
GUICtrlCreateLabel("Department: ", 10, 250, 100, 20)
GUICtrlCreateLabel("Telephone Number: ", 10, 290, 90, 40)
GUICtrlCreateLabel("Mobile Number: ", 10, 320, 100, 20)
GUICtrlCreateLabel("Home Number: ", 10, 350, 100, 20)
GUICtrlCreateLabel("Email Address: ", 10, 370, 100, 20)
GUICtrlCreateLabel("Logon Script: ", 10, 410, 100, 20)
GUICtrlCreateLabel("Account:", 10, 430, 100, 20)
GUICtrlCreateLabel("Number of bad logon attempts since last reset: ", 310, 420, 120, 40)
GUICtrlCreateLabel("Password Last Changed: ", 10, 460, 100, 40)
GUICtrlCreateLabel($ExpireDays & " Day Password Expiration: ", 10, 490, 100, 40)
GUICtrlCreateLabel("Last Logon: ", 10, 540, 100, 20)$font = "Tahoma"
[/autoit] [autoit][/autoit] [autoit]
GUISetFont(9, 600, $font) ; will display underlined characters
$unlock = GUICtrlCreateButton("UNLOCK Account", 180, 425, 120, 25)
GUICtrlSetState($unlock, $Gui_Disable)
GUICtrlCreateLabel('' & $username, 100, 10, 100, 20)
GUICtrlSetColor(-1, 0x0000CC) ; Blue
GUICtrlCreateLabel('' & $UserObj.FirstName, 100, 30, 100, 20)
GUICtrlCreateLabel('' & $UserObj.LastName, 300, 30, 100, 20)
GUICtrlCreateLabel('' & $UserObj.FullName, 100, 50, 300, 20)
GUICtrlCreateLabel('' & $UserObj.Title, 100, 70, 100, 20)
$title = GUICtrlRead($title)
If $title = 0 Then
GUICtrlCreateLabel('', 100, 70, 100, 20)
EndIf$mgr = GUICtrlCreateLabel('' & $UserObj.Manager, 100, 90, 400, 70)
[/autoit] [autoit][/autoit] [autoit]
$mgrvalue = GUICtrlRead($mgr)
$mgrsplit = StringSplit("" & $mgrvalue, ",")
$manager = StringTrimLeft('' & $mgrsplit[1], 3)
GUICtrlCreateLabel('' & $manager, 100, 90, 400, 70)
GUICtrlCreateLabel('' & $UserObj.Description, 100, 150, 300, 40)
GUICtrlCreateLabel('' & $UserObj.physicalDeliveryOfficeName, 100, 190, 100, 50)
GUICtrlCreateLabel('' & $UserObj.Department, 100, 250, 200, 20)
GUICtrlCreateLabel('' & $UserObj.TelephoneNumber, 100, 300, 250, 20)
GUICtrlCreateLabel('' & $UserObj.TelephoneMobile, 100, 320, 250, 20)
GUICtrlCreateLabel('' & $UserObj.TelephoneHome, 120, 350, 250, 20)
GUICtrlCreateLabel('' & $UserObj.EmailAddress, 100, 370, 300, 20)
GUICtrlCreateLabel('' & $UserObj.LoginScript, 100, 410, 200, 15)
$userlocked = GUICtrlCreateLabel("?????", 100, 430, 80, 15)
If Not $UserObj.IsAccountLocked Then
GUICtrlSetData($userlocked,"NOT Locked")
GUICtrlSetBkColor($userlocked, 0x00ff00);Green
GUICtrlSetState($unlock, $Gui_Disable)
Else
GUICtrlSetData($userlocked,"Locked")
GUICtrlSetBkColor($userlocked, 0xff0000) ; Red
GUICtrlSetState($unlock, $Gui_Enable)
EndIf
$lastchange = $UserObj.PasswordLastChanged
$ExpireDate = StringReplace(_DateAdd("d", $ExpireDays, StringMid($lastchange, 1, 4) & "/" & StringMid($lastchange, 5, 2) & "/" & StringMid($lastchange, 7, 2)), "/", "")
$Date = StringMid($lastchange, 5, 2) & "/" & StringMid($lastchange, 7, 2) & "/" & StringMid($lastchange, 1, 4)
$Time = StringMid($lastchange, 9, 2) & ":" & StringMid($lastchange, 11, 2) & ":" & StringMid($lastchange, 13, 2)
GUICtrlCreateLabel($Date & " " & $Time, 100, 460, 150, 20)
$pwdexpires = StringMid($ExpireDate, 5, 2) & "/" & StringMid($ExpireDate, 7, 2) & "/" & StringMid($ExpireDate, 1, 4)
GUICtrlCreateLabel($pwdexpires & ' ' & $Time, 100, 490, 150, 20)$lastlogin = $UserObj.LastLogin
[/autoit] [autoit][/autoit] [autoit]$Date = StringMid($lastlogin, 5, 2) & "/" & StringMid($lastlogin, 7, 2) & "/" & StringMid($lastlogin, 1, 4)
[/autoit] [autoit][/autoit] [autoit]
$Time = StringMid($lastlogin, 9, 2) & ":" & StringMid($lastlogin, 11, 2) & ":" & StringMid($lastlogin, 13, 2)
GUICtrlCreateLabel($Date & " " & $Time, 100, 540, 150, 20)
$badlogin = GUICtrlCreateLabel("" & $UserObj.BadLoginCount, 430, 430, 20, 15)
If GUICtrlRead($badlogin) = 0 Then
GUICtrlSetBkColor(-1, 0x00ff00);Green
Else
GUICtrlSetBkColor(-1, 0xff0000) ; Red
EndIfGUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Select
Case $msg = $unlock
If $UserObj.IsAccountLocked Then
$UserObj.IsAccountLocked = False
$UserObj.SetInfo
Sleep(500)
If Not $UserObj.IsAccountLocked Then
GUICtrlSetData($userlocked,"NOT Locked")
GUICtrlSetBkColor($userlocked, 0x00ff00);Green
GUICtrlSetState($unlock, $Gui_Disable)
Else
GUICtrlSetData($userlocked,"Locked")
GUICtrlSetBkColor($userlocked, 0xff0000) ; Red
GUICtrlSetState($unlock, $Gui_Enable)
EndIf
GUICtrlSetData($badlogin,$UserObj.BadLoginCount)
If GUICtrlRead($badlogin) = 0 Then
GUICtrlSetBkColor(-1, 0x00ff00);Green
Else
GUICtrlSetBkColor(-1, 0xff0000) ; Red
EndIf
EndIf
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEndEndFunc ;==>Displayinfo
[/autoit] -
Man kann während des Spiels das Limit und somit den Gewinn/Verlust verändern, dass ist doch so bestimmt nicht gewollt oder!?
-
Nach knapp 2h spielen mein 1. Royal Flush!
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. -
Man kann auch einfach im SciTE "Ctrl+1" drücken und bei "User Include Dir" den Pfad eintragen.
-
Probiers mal mit der Funktion _GUICtrlListView_GetSelectedIndices
-
Den Fehler hab ich vor ca. 30 Minuten schon behoben, der Code oben ist korrigiert.
-
Probiers mal so:
[autoit]GUICtrlSetData(-1,_ArrayToString($FileList, "|", 1))
[/autoit] -
Probiers mal mit der Funktion _GUICtrlEdit_GetSel, die sollte auch mit Inputfeldern funktionieren, die sind normal von Edit abgeleitet.
Edit:
[autoit]
Ein Beispiel!#include <GUIEdit.au3>
[/autoit][autoit][/autoit][autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 267, 117, 192, 114)
$Input1 = GUICtrlCreateInput("HISTORY NOW MOVED TO THE HELP FILE WITH THE MAIN", 16, 24, 225, 21)
$Button1 = GUICtrlCreateButton("Markierung lesen", 120, 72, 107, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button1
[/autoit]
$aSel = _GUICtrlEdit_GetSel($Input1)
MsgBox(0, "", StringMid(GUICtrlRead($Input1), $aSel[0] + 1, $aSel[1] - $aSel[0]))
EndSwitch
WEndEdit: Fehler behoben!
-
Du hast doch erst gestern ein Thema dazu eröffnet! Bitte dort weiter posten.
Thema closed!
-
Ich hab ein kleines Problem mit einem Objekt
Das Problem ist simple, das Script wird entweder beenden,
hängt sich auf oder zeigt einen Fehler an.Jemand ne Idee?
Wo steht hier das der Fehler erst beim Suchen auftritt?!
Du solltest vllt. mal folgenden Beitrag lesen:
Wie man Fragen richtig stelltSo, jetzt hab ich genug meiner Zeit für dieses Thema verschwendet.
-
Davon hast Du ja bisher nichts geschrieben, wenn man den 1. Beitrag liest geht man halt davon aus das das Object gar nicht erzeugt wird. In Zukunft bitte gleich schreiben wann wo welcher Fehler auftritt.
-
Bei mir gehts auch!
Existiert in deiner Registry der Schlüssel HKEY_CLASSES_ROOT\SrchUI.SearchAssistant.1
Mach evtl. mal die .1 am Ende weg.
[autoit]ObjCreate("SrchUI.SearchAssistant")
[/autoit] -
hier gibt es die Orginal-UDF.
Dort findest Du auch eine Funktion zum starten und stoppen.
