Beiträge von BugFix

Zitat von Greek

Warum geht das nicht?

Du hast die falsche Datei geändert.

Die Abbrevs findest du unter: ".\Dokumente und Einstellungen\USER\abbrev.properties"

Du kannst es dir einfacher machen, indem du mein Tool zur Abbrev-Verwaltung nutzt: Abkürzungen in SciTE verwalten

Verwende Avira Antivir und um zu sehen ob jemand 'hinaustelefonieren' möchte, die Ashampoo-Firewall. Incoming regelt mein Router.

Oder per Objekt

Local $Path = @ScriptDir ; dein Ordner
Local $sFilter = "txt log"
Local $Log = @ScriptDir & '\Logfile.log' ; deine Ausgabe Logdatei
Local $oFSO = ObjCreate('Scripting.FileSystemObject')
If $oFSO.FolderExists($Path) Then
Local $oFolder = $oFSO.GetFolder($Path)
Else
Exit MsgBox(0, 'ACHTUNG!', 'Ordner: "' & $Path & '", existiert nicht. Referenz wurde nicht erstellt.')
EndIf
Local $name, $ext, $sOut = '', $oFiles = $oFolder.Files
For $file In $oFiles
$name = $file.Name & @CRLF
$ext = StringRight(StringStripWS($name, 2), 3)
If StringInStr($sFilter, $ext) Then
$sOut &= $name & @CRLF & FileRead($file.Path) & @CRLF
EndIf
Next
FileWrite($Log, $sOut)

Also es sollen alle Textbasierten Dateien zu einer Datei zusammengeschrieben werden?

Zitat von ToxicData

2.
Ich bräuchte auch nen tutorial oda ne hilfe wie man ne console erstellt

Hier ein Bsp. zum Eigene Console erstellen.

Und zum IRC-Bot hatte ich dir hier schon geantwortet.

[OT]
Auch wenn ich euer Engagement gegen Bots schätze, so bitte ich euch doch etwas Augenmerk walten zu lassen. Im Allgemeinen sollte man den Deliquenten erst mal anhören und nicht sofort erschiessen.
Wie Pee richtig bemerkte, es gibt nicht nur böse Bots.
[/OT]

So würde es mit INI gehen:

Local $INI = @ScriptDir & '\meine.ini'
; Inhalt der INI
#cs
[verbindungen]
uin_1=pw1
uin_2=pw2
uin_3=pw3
uin_4=pw4
#ce

Local $arVerbindungen = IniReadSection($INI, 'verbindungen')
; $arVerbindungen ist ein 2D-Array mit allen Schlüssel-Wert-Paaren der Sektion 'verbindungen'
; $arVerbindungen[0][0] enthält die Anzahl der Schlüssel-Wert-Paare
; $arVerbindungen[1][0] = Schlüssel 1 (UIN1)
; $arVerbindungen[1][1] = Wert 1 (PW1) usw.

; Ausgabe aller Werte
For $i = 1 To UBound($arVerbindungen) -1
ConsoleWrite('Verbindung: ' & $i & ' UIN: ' & $arVerbindungen[$i][0] & @TAB & 'PW: ' & $arVerbindungen[$i][1] & @CRLF)
Next

Die Länge ist völlig egal. Verwende StringSplit und trenne den Eintrag am Doppelpunkt in UIN und Pw auf.
Kannst auch gleich eine INI verwenden, die speichert ja nach dem Prinzip Schlüssel=Wert.
Wobei ich das Speichern von Pw im Klartext nicht sehr sinnvoll finde.

Zitat von razor09

Und zwar, wie verhindere ich, das random wert nochmal genommen wird

z.B. so:

; Bsp. 5 Zufallszahlen aus 1 bis 40, keine doppelt
Local $aRandom[40]
For $i = 1 To 40
$aRandom[$i-1] = $i
Next

$count = 0
$sRandom = ''
Do
$random = Random(0, 39, 1) ; Index des Array mit den Werten 1 bis 40
If $aRandom[$random] > 0 Then
$sRandom &= $aRandom[$random] & ';'
$aRandom[$random] = 0
$count += 1
EndIf
Until $count = 5

ConsoleWrite(StringTrimRight($sRandom, 1) & @CRLF)

Hi,
da immer wieder angefragt wird, wie man mit Dll's arbeitet, habe ich mich aufgerafft und mal versucht ein kleines Tut zu erstellen. Die Datentypenbeschreibung aus der AutoIt-Hilfe habe ich mit übernommen, damit alles beieinander ist.

Hier findet ihr das Tut. Ich hab es auch angehängt.

Sollte irgendwas fehlerhaft sein, bitte melden. 100% fit bin ich bei dem Thema noch nicht.

Edit: Habe es nochmal überarbeitet und um Strukturen und Pointer erweitert. Außerdem ist es optisch aufgefrischt

Zitat von razor09

das ich mit include einfüge, so kann ichs immer veränderen einfach..

Dann mußt du aber jedes mal neu kompilieren...

Ihr dürft von vorn beginnen: 2-mal 47

Hi,
hab mal im Bsp. eine Combo verwendet. Kannst du ja umbauen, wie du möchtest.

#Include <SendMessage.au3>
Global $INI = @ScriptDir & '\fragen.ini'
Global $arLevel1 = IniReadSection($INI, 'level1') ; in [n][0] sind Fragen, in [n][1] die zugehörigen Antworten
Global $arLevel2 = IniReadSection($INI, 'level2')
Global $arLevel3 = IniReadSection($INI, 'level3')
Global $msg, $gui, $bt1, $bt2, $bt3, $bt4, $combo, $current

Global Const $CB_ADDSTRING = 0x143
Global Const $CB_GETCURSEL = 0x147
Global Const $CB_SETCURSEL = 0x14E
Global Const $CB_RESETCONTENT = 0x14B

$gui = GUICreate('Test')
$bt1 = GUICtrlCreateButton('Level 1', 20, 20, 100)
$bt2 = GUICtrlCreateButton('Level 2', 140, 20, 100)
$bt3 = GUICtrlCreateButton('Level 3', 260, 20, 100)
$combo = GUICtrlCreateCombo('', 20, 60)
$bt4 = GUICtrlCreateButton('Zeige Antwort', 20, 100, 100)
GUISetState()

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $bt1
_FillCombo($arLevel1, $combo)
$current = 1
Case $bt2
_FillCombo($arLevel2, $combo)
$current = 2
Case $bt3
_FillCombo($arLevel3, $combo)
$current = 3
Case $bt4
MsgBox(0, 'Antwort', _GetAnswer() )
EndSwitch
WEnd

Func _FillCombo($ARRAY, $IDcombo)
Local $struc, $hWnd = GUICtrlGetHandle($IDcombo)
_SendMessage($hWnd, $CB_RESETCONTENT)
For $i = 1 To UBound($ARRAY) -1 ; du kannst natürlich auch GuiCtrlSetData verwenden ;=)
$struc = DllStructCreate('char [' & StringLen($ARRAY[$i][0])+1 & ']')
DllStructSetData($struc, 1, $ARRAY[$i][0])
_SendMessage($hWnd, $CB_ADDSTRING, 0, DllStructGetPtr($struc))
Next
_SendMessage($hWnd, $CB_SETCURSEL)
EndFunc

Func _GetAnswer()
Local $indx = _SendMessage(GUICtrlGetHandle($combo), $CB_GETCURSEL)
Switch $current
Case 1
Return $arLevel1[$indx+1][1]
Case 2
Return $arLevel2[$indx+1][1]
Case 3
Return $arLevel3[$indx+1][1]
EndSwitch
EndFunc

Schau dir das mal an: Basis-Client für IRC-Chat

Du kannst es auch mit einer INI machen und dann in einem Rutsch alle Fragen/Antworten eines Levels in ein Array einlesen (IniReadSection).
Bsp. für INI:

[level1]
Frage=Antwort
Frage=Antwort
Frage=Antwort


[level2]
Frage=Antwort
Frage=Antwort
Frage=Antwort


[level3]
Frage=Antwort
Frage=Antwort
Frage=Antwort

Zitat von H2112

Warum?

Weil du zuerst AdlibEnable() startest (geht übrigens nur EINMAL !!!) und in der zugeordneten Funktion die noch nicht deklarierte Variable genutzt wird.

Hier hast du das Array befüllt:

$aFiles[$i][0] = $aFilelist[$i]
$aFiles[$i][1] = FileGetTime($imagepath & $ListViewText[1] & '\' & $aFilelist[$i], 0, 1)

und hier brauchst du einen Wert davon für das ListView:
GUICtrlCreateListViewItem($ListViewText[1] & $aFiles[$i][0], $LVNP)

Zitat von Alina

Hier rate ich zur Seriennummer, da diese ja nicht mal ebend geändert werden kann.

Das setzt aber voraus, dass dein Stick eine Seriennummer hat. Von meinen 5 Sticks sind 3 ohne SNr.

Bitte lies doch die Fehlermeldung.
Du willst auf ein 2D-Array Eindimensional zugreifen - dat jeht nich

Erstelle ein 2D-Array
$array[n][0] = 'Frage'
$array[n][1] = 'Antwort'

Wozu überhaupt die Idlezeit abfragen?
Setz doch einfach die Idletime entsprechend hoch (z.B. auf 10 Stunden). Wenn diese Einstellungen beim Neustart verschwunden sind, füge einfach dieses Skript in den Autostart ein:

#Include <WinAPI.au3>
Const $SPI_SETSCREENSAVETIMEOUT = 15
Local $timeout = 36000 ; Angabe in Sekunden
_WinAPI_SystemParametersInfo($SPI_SETSCREENSAVETIMEOUT, $timeout, 0, 0)

Eigentlich sollte sich der Bildschirmschoner mit dieser Funktion und der Message: SPI_SETSCREENSAVEACTIVE direkt deaktivieren lassen, das konnte ich bisher aber nicht erreichen. Obwohl die Funktion Erfolg meldete.