WGA kannst du silent installieren:
First download the latest WGA installer.
Note: At the moment of writing, the file name was WindowsXP-KB905474-ENU-x86.exe. You will need to modify the name in the following code if it were to change with a future update.Next, extract the actual installer from the downloaded executable to the current directory ("%cd%"):
WindowsXP-KB905474-ENU-x86.exe" /extract:"%cd%" /quiet
Then run the WGA setup:
wgasetup.exe /autoauto /quiet /norestart
Kannst du so machen:
[autoit]#include <Array.au3>
Local $avArray[6][2] = [ _
["String0", "SubString0"], _
["String1", "SubString1"], _
["String2", "SubString2"], _
["String3", "SubString3"], _
["String4", "2"], _
["String5", "SubString5"]]
$wert = _ArraySearch($avArray,"2",0,0,0,0,1,1)
MsgBox(0,"","Index: " & $wert)
Immer diese Ansprüche *g*. Hier:
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <String.au3>
#RequireAdmin
Opt("TrayIconHide", 1)
[/autoit] [autoit][/autoit] [autoit];~ #include-once 'UPS-login.exe'
[/autoit] [autoit][/autoit] [autoit]$crypt = 'QWERTZ'
$winuser = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\winlogon", "Defaultusername")
$loginGui = GUICreate("FIRST RUN - Choose Master PW", 270, 70)
GUICtrlCreateLabel("Please choose a Master Password to protect your data:", 5, 5)
$input = GUICtrlCreateInput("", 5, 20, 260, 20, 0x21)
$button = GUICtrlCreateButton("Save", 110, 43, 55, 25)
$read = GUICtrlRead($input)
$check = IniRead("pws.ini", "MASTER", "MASTER", "")
If $check = "" Then
GUISetState()
Else
If Not FileExists(@TempDir & "\UPS-login.exe") Then
FileInstall("C:\Documents and Settings\751076\Desktop\UPS\UPS-login.exe", @TempDir & "\UPS-login.exe")
EndIf
ShellExecute(@TempDir & "\UPS-login.exe")
Exit
EndIf
Func _enter()
$read = GUICtrlRead($input)
IniWrite("pws.ini", "MASTER", "MASTER", _StringEncrypt(1, GUICtrlRead($input), $crypt, 2))
MsgBox(0, "", "Password saved successful!")
If Not FileExists(@TempDir & "\UPS-login.exe") Then
FileInstall("C:\Documents and Settings\751076\Desktop\UPS\UPS-login.exe", @TempDir & "\UPS-login.exe")
EndIf
ShellExecute(@TempDir & "\UPS-login.exe")
Exit
EndFunc ;==>_enter
While 1
If WinActive("FIRST RUN - Choose Master PW") Then
If _IsPressed("0D") Then
_enter()
EndIf
EndIf
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $button
$read = GUICtrlRead($input)
IniWrite(@WindowsDir & "\" & $winuser & "pws.ini", "MASTER", "MASTER", _StringEncrypt(1, GUICtrlRead($input), $crypt, 2))
MsgBox(0, "", "Password saved successful!")
If Not FileExists(@TempDir & "\UPS-login.exe") Then
FileInstall("C:\Documents and Settings\751076\Desktop\UPS\UPS-login.exe", @TempDir & "\UPS-login.exe")
EndIf
ShellExecute(@TempDir & "\UPS-login.exe")
Exit
EndSwitch
WEnd
Versuch mal den errorlevel mit
[autoit]StderrRead
[/autoit]auszulesen.
Habs mal mit deinem WinAtivate angepasst jetzt sollte es gehen:
#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]Opt("TrayIconHide", 1)
[/autoit] [autoit][/autoit] [autoit]#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstants.au3>
#include <String.au3>
#include-once 'UPS-login.exe'
HotKeySet("{enter}", "_enter")
$crypt = 'QWERTZ'
$winuser = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\winlogon", "Defaultusername")
$loginGui = GUICreate("FIRST RUN - Choose Master PW", 270, 70)
GUICtrlCreateLabel("Please choose a Master Password to protect your data:", 5, 5)
$input = GUICtrlCreateInput("", 5, 20, 260, 20, 0x21)
$button = GUICtrlCreateButton("Save", 110, 43, 55, 25)
$read = GUICtrlRead($input)
$check = IniRead(@WindowsDir & "\" & $winuser & "pws.ini", "MASTER", "MASTER", "")
If $check = "" Then
GUISetState()
Else
If Not FileExists(@TempDir & "\UPS-login.exe") Then
FileInstall("C:\Documents and Settings\751076\Desktop\UPS\UPS-login.exe", @TempDir & "\UPS-login.exe")
EndIf
ShellExecute(@TempDir & "\UPS-login.exe")
Exit
EndIf
Func _enter()
If WinActive("FIRST RUN - Choose Master PW") Then
$read = GUICtrlRead($input)
IniWrite(@WindowsDir & "\" & $winuser & "pws.ini", "MASTER", "MASTER", _StringEncrypt(1, GUICtrlRead($input), $crypt, 2))
MsgBox(0, "", "Password saved successful!")
If Not FileExists(@TempDir & "\UPS-login.exe") Then
FileInstall("C:\Documents and Settings\751076\Desktop\UPS\UPS-login.exe", @TempDir & "\UPS-login.exe")
EndIf
ShellExecute(@TempDir & "\UPS-login.exe")
Exit
EndIf
EndFunc ;==>_enter
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $button
$read = GUICtrlRead($input)
IniWrite(@WindowsDir & "\" & $winuser & "pws.ini", "MASTER", "MASTER", _StringEncrypt(1, GUICtrlRead($input), $crypt, 2))
MsgBox(0, "", "Password saved successful!")
If Not FileExists(@TempDir & "\UPS-login.exe") Then
FileInstall("C:\Documents and Settings\751076\Desktop\UPS\UPS-login.exe", @TempDir & "\UPS-login.exe")
EndIf
ShellExecute(@TempDir & "\UPS-login.exe")
Exit
EndSwitch
WEnd
Prüf am besten ob
[autoit]$input = GUICtrlCreateInput("", 5, 20, 260, 20, 0x21)
[/autoit]den Fokus hat, weil dann geht Enter wirklich nur wenn der Curser auch in deinen Passwortfeld ist. So wie es bei anderen Programme auch der Fall ist die Enter als Bestätigung haben.
Wird den überhaupt etwas in die CMD geschrieben wenn StdinWrite machst?
Also z.b.
[autoit]StdinWrite($foo,"echo laal")
[/autoit]bzw. probier es mal ohne echo also
[autoit]StdinWrite($foo,"%errorlevel%")
[/autoit]Aaah da klärt warum ich in der SB mod rechte habe XD. Hab mich schon gewundert *lach*. Danke zur Beförderung.
Änder aber nichts an dem Problem mit den Button :). Diese erzeugt nach wie vor den Fehler:
Case $hList, $hWndList
Case $hList, ^ ERROR
Es scheint so als wurde sich durch drücken des Buttons der Inhalt von $hWndList geleert.
Edit:
Habs nun so gemacht:
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
GUICreate("Softwareinfo", 500, 400)
$programminfo = GUICtrlCreateLabel("", 260, 4, 228, 80)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$programmliste = GUICtrlCreateList("", 4, 4, 250, 395)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$programme = IniReadSectionNames("programm.ini")
For $i = 1 To $programme[0]
GUICtrlSetData($programmliste, $programme[$i])
Next
$lizenzfile = GUICtrlCreateButton("Lizenzfile", 260, 4)
GUICtrlSetState($lizenzfile, $GUI_DISABLE)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
Global $hList = GUICtrlGetHandle($programmliste)
Global $sItem = ""
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $lizenzfile
MsgBox(0, "", "Lizenzfile")
EndSwitch
WEnd
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
$hWndFrom = $ilParam
$iCode = BitShift($iwParam, 16)
Switch $hWndFrom
Case $hList
Switch $iCode
Case $LBN_SELCHANGE
$sCurrent = _GUICtrlListBox_GetText($hList, _GUICtrlListBox_GetCurSel($hList))
If $sCurrent <> $sItem Then
$sItem = $sCurrent
GUICtrlSetState($lizenzfile, $GUI_ENABLE)
$programmfirma = IniRead("programm.ini", $sItem, "Firma", "")
$programmversion = IniRead("programm.ini", $sItem, "Version", "")
$programmlizenzart = IniRead("programm.ini", $sItem, "Lizenzart", "")
$programmlizenzanzahl = IniRead("programm.ini", $sItem, "Anzahl", "")
$programmtext = "Firma: " & $programmfirma & @CRLF & "Version: " & $programmversion & @CRLF & @CRLF & "Lizenzart: " & $programmlizenzart & @CRLF & "Anzahl: " & $programmlizenzanzahl
[/autoit] [autoit][/autoit] [autoit]If $programmlizenzart = "Netzwerk" Then
$programmserver = IniRead("programm.ini", $sItem, "Server", "")
$programmtext = $programmtext & @CRLF & "Lizenzserver: " & $programmserver
GUICtrlSetPos($programminfo, 260, 4, 228, 96)
If IniRead("programm.ini", $sItem, "Dongel", "") <> "" Then
$programmtext = $programmtext & @CRLF & "Dongel"
GUICtrlSetPos($programminfo, 260, 4, 228, 112)
EndIf
EndIf
$programmlizenzfile = IniRead("programm.ini", $sItem, "Lizenzfile", "")
If $programmlizenzfile <> "" Then
$pos = ControlGetPos("Softwareinfo", "", $programminfo)
GUICtrlSetPos($lizenzfile, 260, 4 + $pos[3] + 16)
EndIf
GUICtrlSetData($programminfo, $programmtext)
EndIf
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Danke für die Antwort, allerdings hast du etwas überlesen ;):
[autoit]Global $hList = GUICtrlGetHandle($programmliste)
[/autoit]Das Script hatte ich von i2c, hab da nicht weiter groß reingeschaut.
Das zwite stimmt zwar, ändert aber auch ncihts an der Fehlemeldung beim drücken des Buttons.
Hi,
habe grade bei einem Thread das Problem gehabt, das ich lediglich eine kleine Ini-Datei als Anhang rein machen wollte dies allerdings ein unerlaubtes Format ist. Fände es gut wenn man den Upload von Ini-Dateien auch erlauben würde.
mfg
Hi,
habe folgendes Script:
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
GUICreate("Softwareinfo", 500, 400)
$programminfo = GUICtrlCreateLabel("", 260, 4, 228, 80)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$programmliste = GUICtrlCreateList("", 4, 4, 250, 395)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$programme = IniReadSectionNames("programm.ini")
For $i = 1 To $programme[0]
GUICtrlSetData($programmliste, $programme[$i])
Next
$lizenzfile = GUICtrlCreateButton("Lizenzfile", 260, 4)
GUICtrlSetState($lizenzfile, $GUI_DISABLE)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
Global $hList = GUICtrlGetHandle($programmliste)
Global $sItem = ""
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
;~ Case $lizenzfile
;~ MsgBox(0, "", "Lizenzfile")
EndSelect
WEnd
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
If Not IsHWnd($hList) Then $hWndList = GUICtrlGetHandle($hList)
$hWndFrom = $ilParam
$iCode = BitShift($iwParam, 16)
Switch $hWndFrom
Case $hList, $hWndList
Switch $iCode
Case $LBN_SELCHANGE
$sCurrent = _GUICtrlListBox_GetText($hList, _GUICtrlListBox_GetCurSel($hList))
If $sCurrent <> $sItem Then
$sItem = $sCurrent
GUICtrlSetState($lizenzfile, $GUI_ENABLE)
$programmfirma = IniRead("programm.ini", $sItem, "Firma", "")
$programmversion = IniRead("programm.ini", $sItem, "Version", "")
$programmlizenzart = IniRead("programm.ini", $sItem, "Lizenzart", "")
$programmlizenzanzahl = IniRead("programm.ini", $sItem, "Anzahl", "")
$programmtext = "Firma: " & $programmfirma & @CRLF & "Version: " & $programmversion & @CRLF & @CRLF & "Lizenzart: " & $programmlizenzart & @CRLF & "Anzahl: " & $programmlizenzanzahl
[/autoit] [autoit][/autoit] [autoit]If $programmlizenzart = "Netzwerk" Then
$programmserver = IniRead("programm.ini", $sItem, "Server", "")
$programmtext = $programmtext & @CRLF & "Lizenzserver: " & $programmserver
GUICtrlSetPos($programminfo, 260, 4, 228, 96)
If IniRead("programm.ini", $sItem, "Dongel", "") <> "" Then
$programmtext = $programmtext & @CRLF & "Dongel"
GUICtrlSetPos($programminfo, 260, 4, 228, 112)
EndIf
EndIf
$programmlizenzfile = IniRead("programm.ini", $sItem, "Lizenzfile", "")
If $programmlizenzfile <> "" Then
$pos = ControlGetPos("Softwareinfo", "", $programminfo)
GUICtrlSetPos($lizenzfile, 260, 4 + $pos[3] + 16)
EndIf
GUICtrlSetData($programminfo, $programmtext)
EndIf
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Das Problem ist nun wenn ich auf den Button Lizenzfile klicke die Fehlermeldung:
Case $hList, $hWndList
Case $hList, ^ ERROR
Und wenn ich das
Case $lizenzfile
MsgBox(0, "", "Lizenzfile")
in wer while einkommentiere in einer Endlosschleife die Msg kommt auch wenn garnicht der Button Lizenzfile gedrückt wird. Jemand eine Idee zu den Problemen?
P.s. Ini hochladen geht nicht also die Datei im Anhang in programm.ini umbenennen.
Ganz ehrlich. Lern erstmal 1-2 Jahre eine Sprache richtig bevor du dich an ein 3D-Spiel machst.
Bei mir gehts Problemlos.
Wurde in der SB geklärt. Nur zur vollständigkeithalber hier nochmal das Script:
#include <Constants.au3>
[/autoit] [autoit][/autoit] [autoit]$foo = Run("C:\Program Files (x86)\Cisco Systems\VPN Client\vpnclient.exe connect profil", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
[/autoit] [autoit][/autoit] [autoit]While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
If $line <> "" Then
ConsoleWrite("STDOUT gelesen:" & $line & @CRLF)
EndIf
WEnd
While 1
$line = StderrRead($foo)
If @error Then ExitLoop
If $line <> "" Then
ConsoleWrite("STDERR gelesen:" & $line & @CRLF)
EndIf
WEnd
Damit kannst du den Inhalt der Zwischenablage in eine Variable speichern:
[autoit]ClipGet()
[/autoit]Du deinstallierst es mit Autoit so wie du es auch per Hand machen würdest ;). Sprech deinstallationsroutine des Programms aufrufen und per Autoit dann automatisiert druchklicken lassen.
Rückmeldung von den Herstellern.
Die Linkstation ist zu als und ich sollte ein XP virtuell auf den PC erstellen und dann klappt es auch mit Win7-HomePrem.
Nur das Win7-HomePrem, meines Wissens keine Vrtuallisierungsoberfläche hat.
Enstprechend Leistungsstarken Rechner vorrausgesetzt hier: http://forum.computerbild.de/benutzer-tutor…eren_62280.html
Dürfte alles sagen ;):
Letzte Aktivität:
Montag, 31. Oktober 2011, 23:05
So gehts:
[autoit]#include <IE.au3>
$oIE = _IECreate ("https://www.alldebrid.com/register/")
_IENavigate($oIE,"javascript:javascript:createacct()")
