Beiträge von Mahagon

Mahagon

Bei der AntiVir Meldung dürfte das hier Abhilfe schaffen:

http://analysis.avira.com/samples/index.php

Einfach Verdacht auf Fehlalarm auswählen, Formular ausfüllen und die .exe hochladen
Dauert meist nur ein paar Tage Hatte das auch schon 1-2 mal

Mahagon

Da reicht doch dann eine einfache If Abfrage...

[autoit]

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $List
If GUICtrlRead($List) = "Item1" Then GUISetState(@SW_HIDE, $Form1)
If GUICtrlRead($List) = "Item2" Then GUISetState(@SW_SHOW, $Form2)
EndSwitch
WEnd

[/autoit]

Mahagon

[autoit]

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $List
MsgBox(0,"Eintrag",GUICtrlRead($List))
EndSwitch
WEnd

[/autoit]

Also das hättest du doch hinbekommen können oder ?

Mahagon

Im Prinzip ja (habs nicht getestet) bis auf das Case Item1, aber schau dir nochmal mein Script an, das funzt

Mahagon

Dafür gibt es GUICtrlSetLimit($Input, 5)
Ich glaub du solltest dir mal ein Tutorial zu AutoIt anschauen

Mahagon

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 117, 84, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 16, 16, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Paused

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_funktion1()
EndSwitch
WEnd

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

Func _funktion1()
GUICtrlSetData($Button1,"Ausgeführt")
HotKeySet("{F10}", "_funktion2")
EndFunc

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

Func _funktion2()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script ist pausiert',0,0)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
ToolTip("")
EndFunc

[/autoit]

Du musst dann natürlich die Guievents in der Schleife abfragen -> GUIGetMsg <-
Die Schrift kannst du mit GUICtrlSetFont verändern

Mahagon

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 117, 84, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 16, 16, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Paused

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_funktion1()
EndSwitch
WEnd

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

Func _funktion1()
GUICtrlSetData($Button1,"Ausgeführt")
HotKeySet("{F10}", "_funktion2")
EndFunc

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

Func _funktion2()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script ist pausiert',0,0)
WEnd
ToolTip("")
EndFunc

[/autoit]

Stand so in der Hotkey Hilfe

EDIT: Den Comment hab ich rausgenommen, hatte davor die linke Alt Taste drinne (Habe mich dann aber kurzfristig um entschieden)

Mahagon

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 117, 84, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 16, 16, 75, 25, $WS_GROUP)
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
_funktion1()
EndSwitch
WEnd

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

Func _funktion1()
GUICtrlSetData($Button1,"Ausgeführt")
HotKeySet("{F10}", "_funktion2") ;
EndFunc

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

Func _funktion2()
MsgBox(0,"","bla")
EndFunc

[/autoit]

Was meinst du mit Hotkey start und stop?^^

Mahagon

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 117, 84, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 16, 16, 75, 25, $WS_GROUP)
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
_funktion1()
EndSwitch
WEnd

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

Func _funktion1()
MsgBox(0,"","Hotkey aktiv")
HotKeySet("{F10}", "_funktion2")
EndFunc

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

Func _funktion2()
MsgBox(0,"","bla")
EndFunc

[/autoit]

In der Richtung müsstest du dein Script aufbauen

Mahagon

Du solltest dir auch vielleicht

[autoit]

_Crypt_DecryptData
_Crypt_EncryptData

[/autoit]

anschauen!
Wie gesagt... Benutzerdaten in Klartext in eine INI zu schreiben ist nicht gerade intelligent ;).

Mahagon

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

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

Global $name_read = IniRead("raz0r.ini","server","name","error!")
Global $pw_read = IniRead("raz0r.ini","server","pw","error!")
Global $lizenz_read = IniRead("raz0r.ini","server","lizenz","error!")

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

#Region ### START Koda GUI section ### Form=c:\programme\koda_2008-10-03\forms\dark messiah.kxf
$Form1_1 = GUICreate("Dark Messiah Server Anmeldung", 930, 420, 282, 150)
GUISetBkColor(0x000000)
$name = GUICtrlCreateInput("", 320, 176, 393, 21,$ES_PASSWORD)
$pw = GUICtrlCreateInput("", 320, 200, 393, 21,$ES_PASSWORD)
$login = GUICtrlCreateButton("Login", 536, 248, 177, 33, 0)
$Label1 = GUICtrlCreateLabel("Benutzername:", 200, 176, 113, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Label2 = GUICtrlCreateLabel("Passwort:", 240, 200, 73, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$lizenz = GUICtrlCreateInput("", 320, 224, 393, 21,$ES_PASSWORD)
$Label3 = GUICtrlCreateLabel("Sicherheitsschlüssel:", 160, 224, 152, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $login
If $name_read = GUICtrlRead($name) And $pw_read == GUICtrlRead($pw) And $lizenz = GUICtrlRead($lizenz_read) Then;Passwort wird Casesensitive gehandelt
MsgBox(0,"","was auch immer")
Else
MsgBox(0,"","Eingabe falsch")
EndIf
EndSwitch
WEnd

[/autoit]

Sowas ???
Das gehört doch nun wirklich zu den Grundlagen, bei der anzahl an Posts sollte man sowas schon beherrschen

Mahagon

Du brauchst den Thread nicht alle 3 Minuten zu pushen....
Ich versteh nicht wirklich was du möchtest.
Könntest du eventuell deine Zeichenfolge im ersten Post in eine korrekte und sinnvolle Reihenfolge bringen?
Bzw. willst du ein Login Programm machen, in dem du deine Benutzerdaten in einer INI speicherst? (wäre mit viel zu unsicher, besonders unverschlüsselt...^^)

Mahagon

naja mit cmd /c notepad.exe | notepad.exe würde es schon gehen, der Nachteil dabei ist, da bleibt so eine nervige Schwarze Box offen
sonst gibt es ja noch die möglichkeit die Bulli genannt hat und verweist deine Verknüpfung auf das Script. Das Icon kann man ja dann wieder vom eigenen Programm nehmen o.ä.

Mahagon

Script funktioniert einwandfrei und Hardware schläft bei Benutzung

Btw: @ DjBlume: ich glaube kaum das dein Prozessor 8 Kerne hat ^^. Hast du eventuell Hyper-Threading aktiviert ?

Mahagon

[autoit]

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $List
TrayTip("Eintrag",GUICtrlRead($List),5,1)
EndSwitch
WEnd

[/autoit]

Sowas in der Art??

Mahagon

Du könntest dir auch mal AutoIt Tutorials vornehmen und es selber machen.
Oder du bietest etwas für die Leistung in der Jobbörse
Es heißt hier Hilfe und Unterstützung nicht Wünsch dir was

Mahagon

Du kannst doch die bereits in der Ini vorhandenen in der Combo auswählen...
Du wählst den link aus ... liest den Wert mit Guictrlread aus und löscht ihn mit Inidelete.. ich sehe da kein Problem?
Ansonsten schau dir mal das Tutorial im Wiki an

Mahagon

[autoit]

IniDelete ; löscht den Inieintrag
GUICtrlCreateButton ;Damit kannst du den Button erstellen
GUICtrlRead ; damit kannst du den ausgewählten Link auslesen

[/autoit]

Damit solltest du es hinbekommen

Mahagon

Ich gehe mal davon aus das bei 220 Rechnern eine Domäne vorhanden ist

Warum regelst du das denn nicht einfach so:

[Blockierte Grafik: http://public.bay.livefilestore.com/y1pnv6C9S64nh8ZiRxspj81F3907m3uZeIfAvhRfIXSOBRMIRW_zq5VTs_3JyvHkMbCDR5diUkhTJOjDFf7rF8qAw/GPODelete.png]

Man muss doch nicht das Rad neu erfinden

Falls du doch keine Domäne hast und du immer mit nem USB-Stick rumrennst oder die Datei sich an unterschiedlichen Orten befindet:

Spoiler anzeigen

[autoit]

$aFiles = _RecursiveFileListToArray(@UserProfileDir, "Dateiname",1)

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

For $i = 1 To $aFiles[0]
FileDelete($aFiles[$i])
Next

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

Func _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
Local $hSearch, $sFile, $sReturn = ''
If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
$hSearch = FileFindFirstFile($sPath & '*.*')
If @error Or $hSearch = -1 Then Return SetError(0, 0, $sReturn)
While True
$sFile = FileFindNextFile($hSearch)
If @error Then ExitLoop
If StringInStr(FileGetAttrib($sPath & $sFile), 'D') Then
If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
$sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
ContinueLoop
EndIf
If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
WEnd
FileClose($hSearch)
If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
Return $sReturn
EndFunc

[/autoit]

Mahagon

Also mit @OSArch wollte ich dir sagen, das X64 zurückgegeben wird (dachte deine Variable liest daraus den Wert)

Aber wenns dir wirklich um das Wartungscenter und die Anpassung geht, warum machst du nicht einfach

[autoit]

ShellExecute("wscui.cpl")
ShellExecute("rundll32.exe","shell32.dll,Control_RunDLL desk.cpl,,2")

[/autoit]

?

Unter http://www.osattack.com/windows-7/huge…shell-commands/ findest du übrigens ne gute Übersicht darüber

Beiträge von Mahagon

Vorschläge (Sammlthread)

ListItems als variable?

ListItems als variable?

ListItems als variable?

Func

Func

Func

Func

Func

Login Help

Login Help

Login Help

Bei Programmstart Script mitstarten

ICQ-Fenster Style (TestMode)

ListItems als variable?

Linkmanager

Linkmanager

Linkmanager

gleiche datei in verschiedenen verzeichnissen löschen.

32Bit Script läuft nicht unter 64Bit? Was muss ich ändern?