Hallo Leute,
ich suche eine INet Funktion, die zwei Checkboxen checken soll, danach einen String in zwei Inputboxen eintragen soll und einen Bestätigen-Knopf drücken soll... Ist das geschafft, soll sie die Seite aktualiesieren...
Falls jemand die Webseite wissen will: https://www.atrikom.de/ssl/becksmusic…istrierung.html
So soll das dann aussehen:
[Blockierte Grafik: http://www1.picfront.org/picture/8in9BbLO/thb/beckswork.png]
Hoffe ihr könnt mir helfen...
MfG button421
Könntest du mal deinen ganzen Skript posten?
Müssen "05", "52" und "i565" denn am Anfang sein, oder reicht es auch aus, wenn diese Zahlen irgendwo im Namen stehen?
Edit: du meinst wohl Computerart oder sowas... Der Name ist ja was anderes, wie z.B. "HelgasComputer"^^
Hallo, danke erstmal, aber das ist nicht deine Absicht, dass er beim checken den Rest aus der ListView-Spalte entfernt oder?^^
Ich weiß, warum er das mit der Checkbox macht...
If BitAnd(GUICtrlGetState($Checkbox), $GUI_CHECKED) Then
MsgBox(64,"Checkbox","Siehst du!")
EndIf
Dann muss ich allerding vom GUIEventMode auf GUIGetMsg umschalten... Ich hoffe, das macht ihm nichts^^
Das ist seit Post #10 da. Das gehört zu der "Passwort-Hide" Funktion...
Leider ist Zattoo im Urlaub, daher kann ich ihn nicht fragen...
Gut. Mein Skript ist jetzt so:
#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer
Global $inipfad = @ScriptDir & "\log.ini" ;Damit man bei Pfadänderung nicht immer die Befehle wechseln muss
[/autoit] [autoit][/autoit] [autoit]If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================
#region Hauptgui -ANFANG-
$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@ScriptDir & "\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Edit-Test.jpg", 410, 5, 26, 26)
;~ GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Delete-Test.jpg", 450, 5, 26, 26)
;~ GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
;~ GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
;~ GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUISetState(@SW_HIDE, $Account_Manager)
#endregion Hauptgui -ENDE-
GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)
If IniRead(@ScriptDir & "\log.ini", "CHECKBOX", "CHECKED", "0") = "0" Then
;Wenn es nicht gechekt werden soll
Else
GUICtrlSetState($Passwort_Hide, $GUI_CHECKED) ;Geb ihm den State gecheckt!
EndIf
While 1
Sleep(250)
WEnd
Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose
Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize
Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize
Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore
Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)
If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf
GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc
Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account
Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen
Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State
Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions
Func _Passwort_Hide()
;~ IniWrite($inipfad
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$replacer = StringRegExpReplace($Passwort_Input, ".", "*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc
Aber da wird immer noch nichts ersetzt...
Leute,
jetzt ist mein Skript so:
#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer
Global $inipfad = @ScriptDir & "\log.ini" ;Damit man bei Pfadänderung nicht immer die Befehle wechseln muss
[/autoit] [autoit][/autoit] [autoit]If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================
#region Hauptgui -ANFANG-
$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@ScriptDir & "\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Edit-Test.jpg", 410, 5, 26, 26)
;~ GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Delete-Test.jpg", 450, 5, 26, 26)
;~ GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
;~ GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
;~ GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUISetState(@SW_HIDE, $Account_Manager)
#endregion Hauptgui -ENDE-
GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)
If IniRead(@ScriptDir & "\log.ini", "CHECKBOX", "CHECKED", "0") = "0" Then
;Wenn es nicht gechekt werden soll
Else
GUICtrlSetState($Passwort_Hide, $GUI_CHECKED) ;Geb ihm den State gecheckt!
EndIf
While 1
Sleep(250)
WEnd
Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose
Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize
Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize
Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore
Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)
If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf
GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc
Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account
Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen
Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State
Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions
Func _Passwort_Hide()
;~ IniWrite($inipfad
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$chars = chr(97) - chr(122)
$replacer = StringRegExpReplace($Passwort_Input, $chars, "*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc
Jetzt verschlüsselt er aber nicht die Passwörter, wenn ich die Checkbox klicke...
Versuche dich doch mal mit der CommMg.au3 UDF...
Link:
http://www.magicsoftinc.com/software/tiltMouse/CommMG.au3
Poste mal deinen Skript.
Habs probiert, der Exit Code ist nicht mehr 1 aber es steht immer noch error in _comgetstring
Danke, ich probier es nachher mal aus. Ich schreib vom iPod...
Hey, erstmal:
Du hast vergessen eine Variable zu deklarieren, und zwar $timestamp.
Das würde dann so aussehen:
; Einstellungen
Global $UseZack
Global $NoticeUpdate
Global $UseTrayTip
Global $UseSound
Global $MessageBox
Global $Selective
Global $SelectivePArray
Global $GUIActive
Global $data_zack
Global $timestamp ;Hier
Ich würde die Meldung bei Zeile 284 in eine Info (also Flag 64) ändern.
Mit welcher Soundbenachrichtigung willst du es denn machen?
Ich würde Windows-Pling empfehlen.
Habe dein Skript mal entsprechend umgeändert:
; =============================================================================
; HotPrice 0.61a
; 7. August 2011
; =============================================================================
; Dieses Script ruft selbstständig aktuelle Sonderangebote ab
; Es besteht die Möglichkeit, bei gesuchten Produkten benachrichtigt zu werden
; =============================================================================
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <String.au3>
#include <Array.au3>
; Einstellungen
Global $UseZack
Global $NoticeUpdate
Global $UseTrayTip
Global $UseSound
Global $MessageBox
Global $Selective
Global $SelectivePArray
Global $GUIActive
Global $data_zack
Global $timestamp
; Intervall für Aktualisierung, Einstellung in GUI folgt
TraySetToolTip("HotPrice - Zeichne Benutzeroberfläche");
; TrayMenü-Einträge anpassen
Opt("TrayMenuMode", 1)
$show = TrayCreateItem("Nochmal anzeigen")
$refr = TrayCreateItem("Aktualisieren")
$conf = TrayCreateItem("Konfiguration")
$ends = TrayCreateItem("Beenden")
; Erzeuge GUI
$Form1_1 = GUICreate("Benachrichtigungsoptionen", 501, 321, 360, 285)
$Group1 = GUICtrlCreateGroup("Verbindung", 8, 8, 209, 65)
$Checkbox1 = GUICtrlCreateCheckbox("ZackZack", 16, 24, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Mindstar (Mindfactory)", 16, 48, 145, 17)
; Mindfactory Mindstar wird derzeit nicht unterstützt
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Benachrichtigung", 8, 80, 209, 169)
$Checkbox2 = GUICtrlCreateCheckbox("Bei Update benachrichtigen", 16, 96, 185, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Verwende TrayTip", 16, 120, 137, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Akustische Benachrichtigung", 16, 144, 177, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Meldungsfenster öffnen", 16, 168, 161, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Selektive Benachrichtigung", 16, 192, 169, 17)
$Input1 = GUICtrlCreateInput("", 112, 216, 73, 21)
$Label5 = GUICtrlCreateLabel("Intervall (Minuten):", 16, 216, 91, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Selektive Benachrichtigung", 232, 8, 257, 241)
$Edit1 = GUICtrlCreateEdit("", 240, 48, 241, 185)
$Label1 = GUICtrlCreateLabel("Suchmuster (1 pro Zeile)", 240, 24, 243, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Speichern", 8, 256, 209, 25, 0)
$Button2 = GUICtrlCreateButton("Verstecken", 8, 288, 209, 25, 0)
$Group4 = GUICtrlCreateGroup("Über HotPrice", 232, 256, 257, 57)
$Label2 = GUICtrlCreateLabel("Version 0.61a", 240, 272, 213, 17)
$Label3 = GUICtrlCreateLabel("", 240, 288, 4, 4)
$Label4 = GUICtrlCreateLabel("7. August 2011", 240, 288, 114, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
TraySetToolTip("HotPrice - Lade Konfiguration");
; Überprüfe, ob Konfigurationsdatei existiert
if Not FileExists(@ScriptDir & "\config.ini") Then
IniWrite(@ScriptDir & "\config.ini", "Verbindung", "UseZack", "1")
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "NoticeUpdate", "1")
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "UseSound", "0")
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "MessageBox", "0")
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "Selective", "0")
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "UseTrayTip", "1")
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "interval", "10")
IniWrite(@ScriptDir & "\config.ini", "Selective", "Line1", "")
; Wenn ja, dann war das der Erststart
$firstrun = 1;
Else
; Wenn nein, dann wurde das Programm bereits ausgeführt
$firstrun = 0;
EndIf
; Lese gespeicherte Werte aus
$UseZack = IniRead(@ScriptDir & "\config.ini", "Verbindung", "UseZack", "")
$NoticeUpdate = IniRead(@ScriptDir & "\config.ini", "Benachrichtigung", "NoticeUpdate", "")
$UseTrayTip = IniRead(@ScriptDir & "\config.ini", "Benachrichtigung", "UseTrayTip", "")
$UseSound = IniRead(@ScriptDir & "\config.ini", "Benachrichtigung", "UseSound", "")
$MessageBox = IniRead(@ScriptDir & "\config.ini", "Benachrichtigung", "MessageBox", "")
$Selective = IniRead(@ScriptDir & "\config.ini", "Benachrichtigung", "Selective", "")
$interval = IniRead(@ScriptDir & "\config.ini", "Benachrichtigung", "interval", "")
; Selektive Benachrichtigung wird etwas schwieriger, da variable Anzahl von Suchstrings
; Erste Zeile: Zeile 1
$i = 1
; Erzeuge Array der Länge 1, da 0 nicht möglich.
Dim $SelectivePArray[1]
; Pseudoendlosschleife, wird abgebrochen, wenn keine Zeile mehr vorhanden ist
while True
$pattern = IniRead(@ScriptDir & "\config.ini", "Selective", "Line"&$i, "")
if $pattern = '' Then
ExitLoop
Else
_ArrayAdd ($SelectivePArray, $pattern)
EndIf
$i = $i+1;
WEnd
; Lösche ersten Eintrag
_ArrayDelete($SelectivePArray, '')
; Text für Bearbeitung wird generiert
$SelectivePattern = _ArrayToString($SelectivePArray, @CRLF)
; Setze GUI-Anzeigeelemente
if $UseZack == 1 Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
EndIf
if $NoticeUpdate == 1 Then
GUICtrlSetState($Checkbox2, $GUI_CHECKED)
EndIf
if $UseTrayTip == 1 Then
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
EndIf
if $UseSound == 1 Then
GUICtrlSetState($Checkbox4, $GUI_CHECKED)
EndIf
if $MessageBox == 1 Then
GUICtrlSetState($Checkbox5, $GUI_CHECKED)
EndIf
if $Selective == 1 Then
GUICtrlSetState($Checkbox6, $GUI_CHECKED)
EndIf
GUICtrlSetData($Edit1, $SelectivePattern);
GUICtrlSetData($Input1, $interval);
; Prüfe, ob Erststart
If $firstrun = 1 Then
; Wenn ja, zeige GUI und überspringe ersten Abruf
GUISetState(@SW_SHOW)
$GUIActive = 1;
TraySetToolTip("Erststart - Konfiguration");
Else
; Wenn nein, verstecke GUI und beginne mit Abruf
GUISetState(@SW_HIDE)
$GUIActive = 0;
$timestamp = TimerInit()
$data_zack = _GetZackZack();
_DoMessage();
EndIf
; Endlosschleife - Programm läuft
While 1
; Interaktion mit GUI
$nMsg = GUIGetMsg()
Switch $nMsg
; X gedrückt
Case $GUI_EVENT_CLOSE
; Möglichkeit: Beenden, Verstecken, Abbrechen
$end = MsgBox(291, "HotPrice - Programm beenden", "Wollen Sie HotPrice vollständig beenden? Bei Nein wird das Programm in den SystemTray minimiert.")
if $end == 6 Then
exit;
ElseIf $end == 2 Then
$timestamp = TimerInit()
Else
GUISetState(@SW_HIDE)
$GUIActive = 0;
$timestamp = TimerInit()
$data_zack = _GetZackZack();
_DoMessage();
EndIf
Case $Button1
; Speichere Einstellungen in Ini
; == Nicht implementiert, da ZackZack einzige bisher unterstützte Quelle
;if GUICtrlRead($Checkbox1) == $GUI_CHECKED Then
; IniWrite(@ScriptDir & "\config.ini", "Verbindung", "UseZack", "1")
; $UseZack = 1
;Else
; IniWrite(@ScriptDir & "\config.ini", "Verbindung", "UseZack", "0")
; $UseZack = 0
;EndIf
; == MARKIERUNG
$UseZack = 1
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
if GUICtrlRead($Checkbox2) == $GUI_CHECKED Then
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "NoticeUpdate", "1")
$NoticeUpdate = 1
Else
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "NoticeUpdate", "0")
$NoticeUpdate = 0
EndIf
if GUICtrlRead($Checkbox3) == $GUI_CHECKED Then
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "UseTrayTip", "1")
$UseTrayTip = 1
Else
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "UseTrayTip", "0")
$UseTrayTip = 0
EndIf
if GUICtrlRead($Checkbox4) == $GUI_CHECKED Then
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "UseSound", "1")
$UseSound = 1
Else
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "UseSound", "0")
$UseSound = 0
EndIf
if GUICtrlRead($Checkbox5) == $GUI_CHECKED Then
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "MessageBox", "1")
$MessageBox = 1
Else
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "MessageBox", "0")
$MessageBox = 0
EndIf
if GUICtrlRead($Checkbox6) == $GUI_CHECKED Then
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "Selective", "1")
$Selective = 1
Else
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "Selective", "0")
$Selective = 0
EndIf
$interval = GUICtrlRead($Input1)
IniWrite(@ScriptDir & "\config.ini", "Benachrichtigung", "interval", $interval)
; Selektive Benachrichtigung: Lösche zuerst letzte Einträge in Ini
IniDelete(@ScriptDir & "\config.ini", "Selective")
; Trenne Eingabe in einzelne Suchanfragen
$SelectivePArray = _StringExplode(GUICtrlRead($Edit1), @CRLF)
; Schreibe Zeilen in INI
For $i = 0 to UBound($SelectivePArray) - 1
IniWrite(@ScriptDir & "\config.ini", "Selective", "Line"&$i+1, $SelectivePArray[$i])
Next
MsgBox(64, "HotPrice - Information", "Einstellungen wurden gespeichert")
Case $Button2
MsgBox(64, "HotPrice - Programm minimieren", "HotPrice wird nun in den SystemTray minimiert.")
; Bei Betätigung des Verstecken-Buttons wird das Programm in den Systemtray minimiert
GUISetState(@SW_HIDE)
$GUIActive = 0;
; Neue Daten werden abgerufen
$timestamp = TimerInit()
$data_zack = _GetZackZack()
_DoMessage()
EndSwitch
; Interaktion durch TrayIcon
$msg = TrayGetMsg()
Switch $msg
; Konfiguration
case $conf
; Konfiguration: Zeige Fenster an
GUISetState(@SW_SHOW)
$GUIActive = 1
; Beenden
case $ends
; Beende Programm
$end = MsgBox(324, "HotPrice - Programm beenden", "Wollen Sie HotPrice wirklich vollständig beenden?")
if $end == 6 Then
exit;
EndIf
; Aktualisieren
case $refr
; Rufe Daten von ZackZack ab.
$data_zack = _GetZackZack()
$timestamp = TimerInit()
_DoMessage()
; Nochmal anzeigen
case $show
; Letzte Meldung ausgeben
_DoMessage()
EndSwitch
; Nach 10 Minuten erneuter Abruf
if TimerDiff($timestamp) > ($interval*60000) AND $GUIActive = 0 Then
$timestamp = TimerInit()
_DoMessage()
EndIf
WEnd
; UDF: DoZackMessage gibt Informationen von ZackZack aus
Func _DoMessage()
; Übersichtlichkeit: Array der Abruffunktion aufteilen
$name = $data_zack[0]
$prs = $data_zack[2]
$proz = $data_zack[3]
; Generiere Text für Benachrichtigung
Dim $astrng[UBound($name)]
For $i = 0 to UBound($name)-1
$astrng[$i] = $name[$i] & " für " & $prs[$i] & "("&$proz[$i]&")"
Next
; Füge generiertes Array zusammen
$string = _ArrayToString($astrng, @CRLF)
; Benachrichtige bei normalem Preisabruf?
if $NoticeUpdate = 1 Then
; Verwende TrayTip (Fenster am Tray) ?
if $UseTrayTip = 1 Then
TrayTip("Preisinformationen", $string, 15)
EndIf
; Verwende Informationsfenster (Nervig) ?
if $MessageBox = 1 Then
MsgBox(64,"HotPrice - Preisinformationen", $string)
EndIf
EndIf
TraySetToolTip("HotPrice - Aktuelle Daten abgerufen");
; Selektive Benachrichtigung beginnt hier
; Prüfe, ob aktiviert
If $Selective = 1 Then
; Wieder Array der Länge 1, 0 geht ja nicht....
Dim $selectiveresult[1]
; Suche alle angegebenen Produkte nach Übereinstimmungen ab (Durchsucht nur Name)
For $i = 0 to UBound($name) - 1
For $y = 0 to UBound($SelectivePArray) - 1
if StringInStr(StringUpper($name[$i]), StringUpper($SelectivePArray[$y])) Then
_ArrayAdd($selectiveresult, $name[$i] & " für " & $prs[$i] & "("&$proz[$i]&")")
EndIf
Next
Next
; Gibt es welche, also Länge vom Array größer 1
if UBound($selectiveresult) > 1 Then
; Entferne Pseudoeintrag
_ArrayDelete($selectiveresult, '')
; Meldung generieren
$string = _ArrayToString($selectiveresult, @CRLF)
; Ausgabe
TraySetToolTip("HotPrice - Suche erfolgreich!");
; Verwende TrayTip (Fenster am Tray) ?
if $UseTrayTip = 1 Then
TrayTip("Suche erfolgreich!", $string, 20)
EndIf
; Verwende Informationsfenster (Nervig) ?
if $MessageBox = 1 Then
MsgBox(0,"HotPrice - Suche erfolgreich!", $string)
EndIf
EndIf
EndIf
EndFunc
; UDF: GetZackZack holt Daten von ZackZack-Homepage
Func _GetZackZack()
TraySetToolTip("HotPrice - Rufe neue Daten ab");
; ZackZack-Seite aufrufen und Quelltext ausgeben
$source = _INetGetSource ("http://www.zack-zack.com/html/index.html")
; Suche nach Begrenzer für Produkte und trenne alles davor und dannach ab
$temp = _StringExplode($source, '<div class="highlightsArea">')
$source = $temp[1]
$temp = _StringExplode($source, '<div id="footer">')
$source = $temp[0]
; Zeilenumbrüche entfernen, übernommen aus vorherigem PHP-Script
$source = StringReplace($source, '\r', "");
$source = StringReplace($source, '\n', "");
; Produkt-ID herausbekommen
$id = _StringBetween($source, '<span id="percent_', '">')
; Anzahl der Produkte herausfinden
$anzahl = UBound($id);
; Verfügbarkeit der angegebenen Produkte herausfinden
Dim $prozent[$anzahl]
For $i = 0 to $anzahl - 1
$percent = _StringBetween($source, '<span id="percent_' & $id[$i] & '">', '</span>')
$prozent[$i] = $percent[0] & "%";
Next
; Artikeldaten rausbekommen
$cat = _StringBetween($source, '<div class="category">', '</div>')
$name = _StringBetween($source, '<div class="articleName">', '</div>')
$prs = _StringBetween($source, '<span style="font-size:18px;">nur € ', '*</span>')
; Leerzeichen korrigieren
For $i = 0 to $anzahl - 1
$name[$i] = Stringreplace($name[$i], " ", " ")
Next
; Datenarray, welches zurückgegeben wird
Dim $data_zack[5]
$data_zack[0] = $name;
$data_zack[1] = $cat;
$data_zack[2] = $prs;
$data_zack[3] = $prozent;
$data_zack[4] = $id;
Return $data_zack;
EndFunc
Was ich gemacht habe?
Ein paar Schönheitsaufgaben: Style der MsgBox bei Benachrichtigung auf 64(Info) geändert und ein paar andere Sachen ($timestamp definiert).
Hier ist eine Zeile, die du in deiner Sound-Funktion benutzen solltest (wegen dem Pfad der Pling-Datei von Windows)
SoundPlay(@WindowsDir & "\Media\Benachrichtigung.wav") ;Spielt den Sound aus dem Windows-Media Ordner
Sonst gutes Programm...
Könntest ja ein paar Checkboxen einbauen, wo man einstellen kann, bei welchen Shop man benachrichtigt werden möchte, wie z.B. eBay, Amazon etc..
MfG button421
;================================================================================
;
; Function Name: _CommGetstring()
; Description: Get whatever characters are available received by the port for the selected channel
; Parameters: none
; Returns: on success the string and @error is 0
; if input buffer empty then empty string returned
; on failure an empty string and @error set to the error set by DllCall
; Notes: Use GetLIne to get a whole line treminated by @CR or a defined character.
;=================================================================================
Func _Commgetstring()
;get a string NB could be part of a line depending on what is in buffer
Local $vDllAns
;$sStr1 = ''
;$vDllAns = DllCall($hDll,'str','GetByte')
$vDllAns = DllCall($hDll,'str','GetString')
If @error <> 0 Then
SetError(1)
ConsoleWrite('error in _commgetstring' & @CRLF)
Return ''
EndIf
Return $vDllAns[0]
EndFunc
Wenn @error ungleich mit 0 ist.
Daraus kann ich nicht viel schließen
Du meinst, ich soll _comgetstring() makieren und dann Strg-J drücken?
der Exit-Code ist 0, SciTE hat kein Error zu meckern, nur in der Konsole steht immer
error in _comgetstring
Danke, aber ich habe noch ein Problem:
Zattoo will, dass das Skript speichert, welchen State die Checkbox zuletzt hatte und beim nächsten Start entweder Checkt oder nicht Checkt. Ich habe da an IniWrite gedacht...
#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer
If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================
$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@ScriptDir & "\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Edit-Test.jpg", 410, 5, 26, 26)
GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Delete-Test.jpg", 450, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
;$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)
If IniRead(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0") Then
;Wenn es nicht gechekt werden soll
EndIf
If IniRead(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","1") Then
GUICtrlSetState($Passwort_Hide,$GUI_CHECKED) ;Geb ihm den State gecheckt!
EndIf
While 1
Sleep(250)
WEnd
Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose
Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize
Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize
Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore
Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)
If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf
GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc
Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account
Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen
Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State
Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions
Func _Passwort_Hide()
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$chars = chr(97) - chr(122)
$replacer = StringRegExpReplace($Passwort_Input, ".", "*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc
Meine gebastelte If fängt bei Zeile 80 an und hört bei 85 auf. Nun ist die Checkbox aber immer gecheckt. Was kann ich tun?
Danke
Hallo Leute,
ich arbeite gerade an einem Skript für Zattoo...
Er möchte, dass auf Checkboxklick das eingegebene Passwort IN DER LISTVIEW-SPALTE PASSWORT durch Sternchen* ersetzt wird. Ich habe es so probiert:
Func _Passwort_Hide()
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$chars = chr(97) - chr(122)
$replacer = StringReplace($chars,$List[$i],"*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc
Wobei $chars die ASCII Tabelle darstellen soll und $replacer alles in * erstezen soll. Leider erfüllt dies nicht seinen Zweck...
Wisst ihr, was sich da machen lässt?
#include <ButtonConstants.au3>
#include <File.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
Global $Item, $List, $replacer
If Not FileExists(@ScriptDir & "\log.ini") Then ;Wenn die ini-Datei nicht existiert, dann...
IniWrite(@ScriptDir & "\log.ini","CHECKBOX","CHECKED","0"); Schreibe die ini-Datei
Else ;Wenn sie existiert, dann...
;Nichts^^
EndIf
;====================================================================================================================================
;=======================================================| Account Manager Design |===================================================
;====================================================================================================================================
$Account_Manager = GUICreate("Account Manager", 680, 380, -1, -1)
GUISetBkColor(0xC0C0C0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Account_ManagerClose")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_Account_ManagerMinimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "_Account_ManagerMaximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "_Account_ManagerRestore")
$ID_Input = GUICtrlCreateInput("ID", 8, 8, 170, 21)
$Passwort_Input = GUICtrlCreateInput("Passwort", 185, 8, 160, 21)
$AddOptions = GUICtrlCreateCheckbox("", 350, 6, 17, 25)
GUICtrlSetOnEvent($AddOptions, "_Check_AddOptions")
GUICtrlSetTip(-1, "Optionale Daten")
$Add_Account = GUICtrlCreatePic(@ScriptDir & "\Add-Test.jpg", 370, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Check_Add_Account")
GUICtrlSetTip(-1, "Account hinzufügen")
$Edit_Account = GUICtrlCreatePic(@ScriptDir & "\Edit-Test.jpg", 410, 5, 26, 26)
GUICtrlSetOnEvent($Edit_Account, "_Edit_Account")
GUICtrlSetTip(-1, "Account bearbeiten")
$Delete_Account = GUICtrlCreatePic(@ScriptDir & "\Delete-Test.jpg", 450, 5, 26, 26)
GUICtrlSetOnEvent($Add_Account, "_Delete_Account")
GUICtrlSetTip(-1, "Account löschen")
$Import_Account = GUICtrlCreatePic(@ScriptDir & "\Import-Test.jpg", 490, 5, 26, 26)
GUICtrlSetOnEvent($Import_Account, "_Import_Account")
GUICtrlSetTip(-1, "Account(s) importieren")
$Export_Account = GUICtrlCreatePic(@ScriptDir & "\Export-Test.jpg", 530, 5, 26, 26)
GUICtrlSetOnEvent($Export_Account, "_Export_Account")
GUICtrlSetTip(-1, "Account(s) exportieren")
$Einstellungen = GUICtrlCreatePic(@ScriptDir & "\Einstellungen.jpg", 645, 3, 30, 30)
GUICtrlSetOnEvent($Einstellungen, "_Einstellungen")
GUICtrlSetTip(-1, "Einstellungen bearbeiten")
$AccountList = GUICtrlCreateListView("ID|Passwort|E-Mail|Geheimfrage|Geheimantwort", 0, 35, 680, 318, -1)
_GUICtrlListView_SetColumnWidth($AccountList, 0, 140)
_GUICtrlListView_SetColumnWidth($AccountList, 1, 130)
_GUICtrlListView_SetColumnWidth($AccountList, 2, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 3, 135)
_GUICtrlListView_SetColumnWidth($AccountList, 4, 135)
_GUICtrlListView_RegisterSortCallBack(GUICtrlGetHandle($AccountList))
;$Head_Pic = GUICtrlCreatePic(@DesktopDir & "\Grau.jpg", 0, 0, 580, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ;Wenn BK Colour aktiv = unnötig
$EMail_Label = GUICtrlCreateLabel("E-Mail Adresse", 30, 43)
$EMail_Input = GUICtrlCreateInput("", 110, 40, 200, 21)
$Geheimfrage_Label = GUICtrlCreateLabel("Geheimfrage", 30, 68)
$Geheimfrage_Input = GUICtrlCreateInput("", 110, 65, 200, 21)
$Geheimantwort_Label = GUICtrlCreateLabel("Geheimantwort", 30, 93)
$Geheimantwort_Input = GUICtrlCreateInput("", 110, 90, 200, 21)
$Passwort_Hide = GUICtrlCreateCheckbox("Passwörter anzeigen", 555, 356)
GUICtrlSetOnEvent($Passwort_Hide, "_Passwort_Hide")
GUICtrlCreateCheckbox("Daten verschlüsseln", 430, 356)
_State($GUI_HIDE)
Dim $Accounts
_FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($Accounts) Then
For $i = 1 To $Accounts[0]
GUICtrlCreateListViewItem(_StringEncrypt(0, $Accounts[$i], "y#h0O", 3), $AccountList)
Next
EndIf
GUISetState(@SW_SHOW)
While 1
Sleep(250)
WEnd
Func _Account_ManagerClose()
Exit
EndFunc ;==>_Account_ManagerClose
Func _Account_ManagerMinimize()
EndFunc ;==>_Account_ManagerMinimize
Func _Account_ManagerMaximize()
EndFunc ;==>_Account_ManagerMaximize
Func _Account_ManagerRestore()
EndFunc ;==>_Account_ManagerRestore
Func _Check_Add_Account()
GUICtrlSetState($ID_Input, $Gui_Disable)
GUICtrlSetState($Passwort_Input, $Gui_Disable)
GUICtrlSetState($EMail_Input, $Gui_Disable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Disable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Disable)
$ID = GUICtrlRead($ID_Input)
$Passwort = GUICtrlRead($Passwort_Input)
If StringLen($ID) < 32 Then
If StringLen($Passwort) < 32 Then
If StringLen($ID) < 3 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu kurz")
Else
If StringLen($Passwort) < 5 Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu kurz")
Else
If $ID = "ID" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib eine ID ein")
Else
If $Passwort = "Password" or "" Then
MsgBox(0, "Account Manager - Fehler", "Fehler: Bitte gib ein Passwort ein")
Else
_Add_Account()
EndIf
EndIf
EndIf
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Das Passwort ist zu lang")
EndIf
Else
MsgBox(0, "Account Manager - Fehler", "Fehler: Die ID ist zu lang")
EndIf
GUICtrlSetState($ID_Input, $Gui_Enable)
GUICtrlSetState($Passwort_Input, $Gui_Enable)
GUICtrlSetState($EMail_Input, $Gui_Enable)
GUICtrlSetState($Geheimfrage_Input, $Gui_Enable)
GUICtrlSetState($Geheimantwort_Input, $Gui_Enable)
EndFunc
Func _Add_Account()
FileWriteLine("3hD29sWpOe9mNd7.kgj", _StringEncrypt(1, GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), "y#h0O", 3))
GUICtrlCreateListViewItem(GUICtrlRead($ID_Input) & "|" & GUICtrlRead($Passwort_Input) & "|" & GUICtrlRead($EMail_Input) & "|" & GUICtrlRead($Geheimfrage_Input) & "|" & GUICtrlRead($Geheimantwort_Input), $AccountList)
MsgBox(0, "Account Manager - Erfolgreich", "Erfolgreich: Account erfolgreich hinzugefügt")
EndFunc ;==>_Add_Account
Func _Einstellungen()
MsgBox(1, "Einstellungen", "Jetzt müssten sich die Einstellungen öffnen...")
EndFunc ;==>_Einstellungen
Func _State($State)
GUICtrlSetState($EMail_Label, $State)
GUICtrlSetState($EMail_Input, $State)
GUICtrlSetState($Geheimfrage_Label, $State)
GUICtrlSetState($Geheimfrage_Input, $State)
GUICtrlSetState($Geheimantwort_Label, $State)
GUICtrlSetState($Geheimantwort_Input, $State)
EndFunc ;==>_State
Func _Check_AddOptions()
If GUICtrlRead($AddOptions) = 1 Then
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 20 + $i, 680, 333 - $i)
Next
_State($GUI_SHOW)
ElseIf GUICtrlRead($AddOptions) = 4 Then
_State($GUI_HIDE)
For $i = 0 To 100 Step 2
GUICtrlSetPos($AccountList, 0, 135 - $i, 680, 218 + $i)
Next
EndIf
EndFunc ;==>_Check_AddOptions
_Passwort_Hide()
Func _Passwort_Hide()
Dim $FileRead
$FileRead = _FileReadToArray("3hD29sWpOe9mNd7.kgj", $Accounts)
If IsArray($FileRead) Then
For $i = 1 To $FileRead[0]
$Split = StringSplit($Item[$i], '|')
$chars = chr(97) - chr(122)
$replacer = StringReplace($chars,$List[$i],"*")
$List[$i] = GUICtrlCreateListViewItem($i & "|" & $Split[1] & "|"&$replacer&"|" & $Split[3] & "|" & $Split[4] & "|" & $Split[5], $AccountList)
Next
EndIf
EndFunc
MfG button421
Danke, aber die Konsole gibt jetzt immer das zurück:
error in _commgetstring
Was tun?
Hallo Leute,
ich habe ein Problem mit der CommMG.au3 UDF. Ich möchte mein Arduino mit AutoIt verbinden. Das heißt, ich will, das Arduino einen String (in meinem Falle "Hallo CommMG.au3!") an den PC (mit AutoIt) sendet. Wie das Arduino Programm aussieht weiß ich. Falls es einer wissen will:
void setup() //Einmal-Schleife
{
Serial.begin(9600); //Baudrate 9600
}
void loop() //Schleife
{
Serial.println("Hallo CommMG.au3!"); //Hallo CommMG.au3 schreiben
delay(1000); //1 Sekunde warten
}
und mein AutoIt Code:
#include "CommMG.au3"
_CommSetport(20,0,9600,8,0,1,0) ;Mein COM-Port ist 20.
[/autoit] [autoit][/autoit] [autoit]While 1
$instr = _CommGetString()
ConsoleWrite($instr)
WEnd
Da sagt SciTE aber immer:
C:\Users\Jonathan Verbeek\Documents\test.au3(3,31) : ERROR: _CommSetPort() called with Const or expression on ByRef-param(s).
_CommSetport(20,0,9600,8,0,1,0)
~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\AutoIt3\Include\CommMG.au3(202,85) : REF: definition of _CommSetPort().
Func _CommSetPort($iPort,ByRef $sErr,$iBaud=9600,$iBits=8,$iPar=0,$iStop=1,$iFlow=0)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Jonathan Verbeek\Documents\test.au3 - 1 error(s), 0 warning(s)
!>18:16:59 AU3Check ended.rc:2
Was ist mein Fehler?
Danke
MfG button421
Hallo Rey96,
ich bin kein Profi, aber ich meine so könnte es klappen(mit einer einfachen MsgBox)
Global $maximaleZeit = 10 ;Deine maximale Sekundenzahl
Global $i = 00 ;Deine aktuelle Sekundenzahl
For $i = 00 To $maximaleZeit Step +01
MsgBox(64,"Zeit","00:00:"&$i,1)
Next
Habs selber noch nicht getestet, also Fehler vorbehalten...
Hallo, ich bin kein Profi... Versuche es mal mit
[autoit]
GUICtrlSetColor($aSpalten[0],0x000B200)
Dabei ist $aSpalten ein Array, indem du die Spalten definieren musst.
Beispiel:
$aSpalten[0] = "Spalte1"
$aSpalten[1] = "Spalte2"
$aSpalten[2] = "Spalte3"
An welcher Seite willst du das denn ausprobieren?