Beiträge von Oscar

**Oscar**

Dazu muss man nur einen weiteren Befehl einfügen:

Spoiler anzeigen

[autoit]

#include <GuiComboBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Global $sInifile = @ScriptDir & '\prog.ini'
Global $sComboContent = IniRead($sInifile, 'Config', 'Combo', '')
GUICreate('Test', 280, 80)
$hCombo = GUICtrlCreateCombo('', 10, 10, 200, 20)
GUICtrlSetData(-1, $sComboContent)
$hSave = GUICtrlCreateButton('Save', 211, 10, 60, 20)
GUISetState()
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
While True
If GUICtrlRead($hCombo) <> '' Then
If BitAND(GUICtrlGetState($hSave), $GUI_DISABLE) Then GUICtrlSetState($hSave, $GUI_ENABLE)
Else
If BitAND(GUICtrlGetState($hSave), $GUI_ENABLE) Then GUICtrlSetState($hSave, $GUI_DISABLE)
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hSave
$sTmp = GUICtrlRead($hCombo)
If $sComboContent <> '' Then $sComboContent &= '|'
$sComboContent &= $sTmp
IniWrite($sInifile, 'Config', 'Combo', $sComboContent)
GUICtrlSetData($hCombo, '')
GUICtrlSetData($hCombo, $sComboContent, $sTmp)
EndSwitch
WEnd

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

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $nNotifyCode, $nID
$nNotifyCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0x0000FFFF)
If $nID = $hCombo And $nNotifyCode = 5 Then _GUICtrlComboBox_SetEditText($hCombo, StringRegExpReplace(StringLeft(GUICtrlRead($hCombo), 6), '[^0-9]', ''))
Return $GUI_RUNDEFMSG
EndFunc

[/autoit]

**Oscar**

~~Und Du schaffst es nicht das "*ho*" durch "*aasddaass*" zu ersetzen?~~

Edit: Achso, dann halt so:

[autoit]

#include <Array.au3>
$t="Hey*ho*ho2"
$array = StringSplit(StringRegExpReplace($t, '(\*.*\*)', '*'), '*',3)
_ArrayDisplay($array)
Exit

[/autoit]

Wieder so ein Fall von "mangelhafter Problembeschreibung".

**Oscar**

Oder vorher anpassen:

[autoit]

#include <Array.au3>
$t="Hey*ho*ho2"
$array = StringSplit(StringReplace($t, '*ho*', '*'), '*')
_ArrayDisplay($array)

[/autoit]

**Oscar**

Hier eine erweiterte Version (nur Zahlen bei der Eingabe erlaubt):

Spoiler anzeigen

[autoit]

#include <GuiComboBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Global $sInifile = @ScriptDir & '\prog.ini'
Global $sComboContent = IniRead($sInifile, 'Config', 'Combo', '')
GUICreate('Test', 280, 80)
$hCombo = GUICtrlCreateCombo('', 10, 10, 200, 20)
GUICtrlSetData(-1, $sComboContent)
$hSave = GUICtrlCreateButton('Save', 211, 10, 60, 20)
GUISetState()
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
While True
If GUICtrlRead($hCombo) <> '' Then
If BitAND(GUICtrlGetState($hSave), $GUI_DISABLE) Then GUICtrlSetState($hSave, $GUI_ENABLE)
Else
If BitAND(GUICtrlGetState($hSave), $GUI_ENABLE) Then GUICtrlSetState($hSave, $GUI_DISABLE)
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hSave
$sTmp = GUICtrlRead($hCombo)
If $sComboContent <> '' Then $sComboContent &= '|'
$sComboContent &= $sTmp
IniWrite($sInifile, 'Config', 'Combo', $sComboContent)
GUICtrlSetData($hCombo, '')
GUICtrlSetData($hCombo, $sComboContent, $sTmp)
EndSwitch
WEnd

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

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $nNotifyCode, $nID
$nNotifyCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0x0000FFFF)
If $nID = $hCombo And $nNotifyCode = 5 Then _GUICtrlComboBox_SetEditText($hCombo, StringRegExpReplace(GUICtrlRead($hCombo), '[^0-9]', ''))
Return $GUI_RUNDEFMSG
EndFunc

[/autoit]

**Oscar**

Hier mal ein Beispiel, wo man die Daten in das Combo-Control einträgt:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
Global $sInifile = @ScriptDir & '\prog.ini'
Global $sComboContent = IniRead($sInifile, 'Config', 'Combo', '')
GUICreate('Test', 280, 80)
$hCombo = GUICtrlCreateCombo('', 10, 10, 200, 20)
GUICtrlSetData(-1, $sComboContent)
$hSave = GUICtrlCreateButton('Save', 211, 10, 60, 20)
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hSave
$sTmp = GUICtrlRead($hCombo)
$sComboContent &= '|' & $sTmp
IniWrite($sInifile, 'Config', 'Combo', $sComboContent)
GUICtrlSetData($hCombo, $sComboContent, $sTmp)
EndSwitch
WEnd

[/autoit]

**Oscar**

Meinst Du sowas:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Opt('MustDeclareVars', 1)
Example1()
Func Example1()
Local $hname, $section, $msg, $ButtonMsg, $ButtonEnd
GUICreate(" GUI ", 200, 250) ; will create a dialog box that when displayed is centered
GUICtrlCreateLabel("HostName ", 11, 80)

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

$hname = GUICtrlCreateCombo("", 10, 103)
$section = IniReadSection("muster.ini", "HostName")
For $i = 1 To UBound($section) - 1
GUICtrlSetData($hname, $section[$i][1])
Next
$ButtonMsg = GUICtrlCreateButton("Button Msg", 20, 150)
$ButtonEnd = GUICtrlCreateButton("Button End", 90, 150)

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

GUISetState(@SW_SHOW) ; will display an empty dialog box
While 1
If GUICtrlRead($hname) <> "" Then
If BitAND(GUICtrlGetState($ButtonMsg), $GUI_DISABLE) Then GUICtrlSetState($ButtonMsg, $GUI_ENABLE)
Else
If BitAND(GUICtrlGetState($ButtonMsg), $GUI_ENABLE) Then GUICtrlSetState($ButtonMsg, $GUI_DISABLE)
EndIf
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $ButtonEnd
Exit
Case $ButtonMsg
MsgBox(1, "", GUICtrlRead($hname))
EndSwitch
WEnd
EndFunc ;==>Example1

[/autoit]

**Oscar**

Progandy hat hier ein Skript gepostet, was Dir die Rechner im lokalen Netz anzeigt. Damit siehst Du, ob der Rechner noch im Netz ist oder nicht (setzt voraus, dass der Rechner ausgeschaltet wird).

**Oscar**

Eine Möglichkeit für eine Offline-Verwendung wäre:
- Man erstellt und speichert eine große Anzahl an Keys (je nach Verbreitungsgrad der Software). Nehmen wir mal 10.000 Keys an.
- Von diesen Keys erstellt man die MD5-Checksummen und speichert diese Checksummen verschlüsselt in einer Datei.
- Die verschlüsselte Checksummen-Datei gibt man zusammen mit dem Skript weiter.
- Die gespeicherten Keys behält man für sich und gibt die Keys nur einzeln weiter.

So kann man dann im Skript überprüfen, ob der eingegebene Key gültig ist oder nicht.
Das ist zwar auch nicht 100%ig sicher, aber man macht es einem Angreifer schwerer. Der müsste dann schon decompilieren und sich anhand der Checksummen einen passenden Key erstellen oder gleich die Überprüfung im Skript entfernen.

**Oscar**

blubbstar: geht noch etwas kürzer

[autoit]

MsgBox(0, 'Key', _GenKey(4, 3))

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

Func _GenKey($iBlocks, $iLenght)
Local $sKey = ''
For $i = 1 To $iBlocks * $iLenght
$sKey &= StringMid('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890', Random(1, 36, 1), 1)
If $i/$iLenght = Int($i/$iLenght) And $i < $iBlocks * $iLenght Then $sKey &= '-'
Next
Return $sKey
EndFunc

[/autoit]

**Oscar**

Wenn das Dein "bester" Versuch war, dann frage ich mich ernsthaft welches Programm Du da verkaufen willst.
Sollen das auch die anderen für Dich schreiben? [Kopfschüttel]

**Oscar**

Kann jemand was machen?

**Oscar**

Dann achte aber auch darauf die Daten verschlüsselt zu übertragen.

Und es gibt dann auch noch...aber das lassen wir jetzt lieber...

**Oscar**

Du könntest für jede Datei zweimal kurz hintereinander (kurzen Sleep dazwischen) die Größe holen (FileGetSize) und vergleichen. Wenn die Größe übereinstimmt, dann ist der Kopiervorgang beendet.
Das ist zwar auch nicht ganz sicher (je nach Sleep und Kopiergeschwindigkeit), aber wenn Du ansonsten keine Möglichkeit hast...

Gibt es denn nicht die Möglichkeit, dass die verschiedenen Benutzer am Ende des Kopiervorgangs eine Null-Byte-Datei mit einem definierten Dateinamen kopieren? Dann könnte Dein Skript auf diese spezielle Datei warten.

**Oscar**

Ich hatte mal eine Funktion dazu geschrieben:

Spoiler anzeigen

[autoit]

; Beispiel für einen Countdown
#include <Date.au3>
$bStop = False
HotKeySet('{ESC}', '_Stop')
Do
$iDiff = _DateDiff('s', '2010/01/01 00:00:00', _NowCalc())
ToolTip(_SecondsToDateTime($iDiff), @DesktopWidth / 2 - 100, 2, '[ESC] = beenden', 1, 4)
Sleep(500)
Until $bStop
Exit

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

Func _Stop()
$bStop = True
EndFunc ;==>_Stop

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

;===============================================================================
; Function Name..: _SecondsToDateTime($iSeconds[, $iLang])
; Description....: Umwandlung von Sekunden in einen String mit Zeitangaben
; Parameter(s)...: $iSeconds = Wert in Sekunden
; $iLang
; 0 = Ausgabe in deutsch
; 1 = Ausgabe in englisch
; Return Value...: String (Wochen, Tage, Stunden, Minuten, Sekunden)
; Author.........: Oscar (http://www.autoit.de)
;===============================================================================
Func _SecondsToDateTime($iSeconds, $iLang = 0)
If $iLang < 0 Or $iLang > 1 Then $iLang = 0
Local $sOut = '', $bCheck = False, $bNegative = False, $aDiv[5] = [604800, 86400, 3600, 60, 1]
Local $aFormat[5][2] = [['Wochen', 'Weeks'],['Tage', 'Days'],['Stunden', 'Hours'],['Minuten', 'Minutes'],['Sekunden', 'Seconds']]
If $iSeconds = 0 Then Return '0 ' & $aFormat[4][$iLang]
If $iSeconds < 0 Then
$bNegative = True
$iSeconds = Abs($iSeconds)
EndIf
For $i = 0 To 4
If ($iSeconds >= $aDiv[$i]) Or $bCheck Then
$sOut &= Int($iSeconds / $aDiv[$i]) & ' '
If Int($iSeconds / $aDiv[$i]) = 1 Then
$sOut &= StringTrimRight($aFormat[$i][$iLang], 1) & ', '
Else
$sOut &= $aFormat[$i][$iLang] & ', '
EndIf
$bCheck = True
EndIf
$iSeconds = Mod($iSeconds, $aDiv[$i])
Next
If $bNegative Then $sOut = ' - ' & $sOut
Return StringTrimRight($sOut, 2)
EndFunc ;==>_SecondsToDateTime

[/autoit]

**Oscar**

Hier mal eine Version ohne die IE-UDF:

Spoiler anzeigen

[autoit]

$sURL = 'http://www.etsi.org/deliver/'
$sTarget = @ScriptDir & '\tmp\' ; <- anpassen!

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

If Not FileExists($sTarget) Then DirCreate($sTarget)
$sServer = StringRegExpReplace($sURL, '(http:\/\/.+?)\/.+', '$1')
_RekDownload($sURL)

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

Func _RekDownload($sURL)
Local $aFiles, $sFilename
$aFiles = StringRegExp(BinaryToString(InetRead($sURL)), '(?i)<a href="(.+?)"', 3)
If Not IsArray($aFiles) Then Return

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

For $i = 1 To UBound($aFiles) - 1
If StringRight($aFiles[$i], 1) = '/' Then
_RekDownload($sServer & $aFiles[$i])
Else
$sFilename = StringRegExpReplace($aFiles[$i], '.+\/(.+)', '$1')
ToolTip('Download "' & $sServer & $aFiles[$i] & '"' & @CR & 'Please wait...')
InetGet($sServer & $aFiles[$i], $sTarget & $sFilename)
EndIf
Next
EndFunc

[/autoit]

**Oscar**

Geht doch ganz einfach so:

[autoit]

If ProcessExists('iexplore.exe') Then
$aIEWinList = WinList('[CLASS:IEFrame]')
For $i = 1 To $aIEWinList[0][0]
WinSetState($aIEWinList[$i][1], '', @SW_MINIMIZE)
Next
EndIf

[/autoit]

**Oscar**

Hallo Schnuffel!

Herzlichen Glückwunsch
zum 42. Geburtstag.

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

**Oscar**

Du kannst Dir ja mal meinen Versuch anschauen: Random-Obfuscator

**Oscar**

Herzlich willkommen auch von mir!

Aber der neue Film "Per Anhalter durch die Galaxis" ist einfach nur blöd.
Falls Du das Original nicht kennst, unbedingt anschauen! Das ist total kultig.
Gerade Marvin ist im Original viel besser.

**Oscar**

Ich hab's mal nach "Hilfe & Unterstützung" verschoben.

Beiträge von Oscar

daten aus ini-datei in combo

GegenTeil von _StringBetween()

GegenTeil von _StringBetween()

daten aus ini-datei in combo

daten aus ini-datei in combo

Sicherstellung von Feldauswahl ?

PC an Router angeschlossen bzw aktiv

Script Schützen

Script Schützen

Script Schützen

Script Schützen

Script Schützen

Kopiervorgang überprüfen

Zeitrechner möglich?

rekursiv links verfolgen

Tool will nicht funktionieren: Alle Internet Explorer Instanzen verstecken

Schnuffel hat Geburtstag

AutoIt Obfuscator

M4rv1n ist da :)

Mein erstes Script