Hey community,
bin ja neu und will mir mal einen guten Ruf verschaffen.
Hier mein (etwa 3 Wochen altes ;-)) Proggi:
Spoiler anzeigen
#include
#include
#include
#RequireAdmin
#NoTrayIcon
; LESEN-------
;
; Hey leute, ich habs nicht so mit kommentaren also einfach im Forum fragen, wenn ich was nicht checkt!!!
;
; LESEN-------
Global $old_klapp = 0, $ausgefahren = False, $editleft = 170, $listleft = 0, $nowreading = "", $newstatus = 0, $status1 = 0
[/autoit] [autoit][/autoit] [autoit]$regread = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","noteside")
;~ MsgBox(0, "hi", $regread)
If $regread <> """" & @ScriptFullPath & """" Then ; Liest die Registry aus!!!
$msgbox = MsgBox(68, "Autostart?", "Wollen sie Noteside in den Autostart schieben, so dass es bei jedem Hochfahren gestartet wird?")
If $msgbox = 6 Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","Noteside", "REG_SZ", """" & @ScriptFullPath & """")
EndIf
EndIf
; hidden gui----
$hiddengui = GUICreate("hiddengui")
GUISetState(@SW_HIDE)
; hidden gui----
$Maingui = GUICreate("noteside", 170,180,-160,0, $WS_POPUP,$WS_EX_TOPMOST,$hiddengui)
GUISetBkColor(0xFF8800)
$List1 = GUICtrlCreateList("",0,25,160,170-25)
GUICtrlSetTip(-1, "Zum ansehen klicken")
$Edit1 = GUICtrlCreateEdit("",170,25,160,160-25,$ES_WANTRETURN)
$back = GUICtrlCreateButton("<<",5,2,20,21)
GUICtrlSetState(-1,$GUI_DISABLE)
$exit = GUICtrlCreateButton("X",27,2,20,21)
GUICtrlSetTip(-1,"Beendet das Programm")
GUICtrlSetColor(-1,0xCF2202)
GUICtrlSetFont(-1,10,700)
GUICtrlCreateLabel("Noteside - Notizen",50,5,120,19)
GUICtrlSetFont(-1,10,700)
$new = GUICtrlCreateButton("+",5,162,20,18)
GUICtrlSetFont(-1,9,600)
GUICtrlSetTip(-1,"Neue Notiz hinzufügen")
$del = GUICtrlCreateButton("-",28,162,20,18)
GUICtrlSetFont(-1,9,600)
GUICtrlSetTip(-1,"Notiz löschen")
GUICtrlCreateLabel("by Answer",75,163)
If FileExists(@MyDocumentsDir & "\noteside.ini") Then
$iniread = IniReadSectionNames(@MyDocumentsDir & "\noteside.ini")
For $i = 1 To $iniread[0]
GUICtrlSetData($List1, $iniread[$i])
Next
EndIf
WinSetTrans($Maingui, "",0)
GUISetState()
For $i = 1 To 180 Step 3
Sleep(1)
WinSetTrans($Maingui, "", $i)
Next
While 1
$msg = GUIGetMsg()
$pos = MouseGetPos()
If $ausgefahren = True Then
If $pos[0] > 170 Or $pos[1] > 180 Then
For $i = 0 To - 160 Step -10
Sleep(7)
WinMove("noteside", "", $i, 0)
Next
$ausgefahren = False
WinSetTrans($Maingui, "", 180)
EndIf
Else
If $pos[0] < 10 And $pos[1] < 180 Then
For $i = -160 To 0 Step 10
Sleep(10)
WinMove("noteside", "", $i, 0)
Next
$ausgefahren = True
WinSetTrans($Maingui, "", 255)
EndIf
EndIf
If $msg = $exit Then Exit
If $msg = $back Then
If $newstatus = 0 And $nowreading <> "" Then
IniWrite(@MyDocumentsDir & "\noteside.ini", $nowreading, "notiz", GUICtrlRead($Edit1))
ElseIf $newstatus = 1 Then
$name = InputBox("Name", "Bitte den namen der Notiz eingeben")
If $name <> "" And Not @error Then
IniWrite(@MyDocumentsDir & "\noteside.ini",$name,"notiz", GUICtrlRead($Edit1))
EndIf
$newstatus = 0
$status1 = 1
EndIf
Do
Sleep(7)
$editleft = $editleft + 5
$listleft = $listleft + 5
GUICtrlSetPos($List1,$listleft,25)
GUICtrlSetPos($Edit1,$editleft,25)
Until $editleft = 170
GUICtrlSetState($back,$GUI_DISABLE)
If $status1 = 1 Then
$status1 = 0
GUICtrlSetData($List1,"")
If FileExists(@MyDocumentsDir & "\noteside.ini") Then
$iniread = IniReadSectionNames(@MyDocumentsDir & "\noteside.ini")
For $i = 1 To $iniread[0]
GUICtrlSetData($List1, $iniread[$i])
Next
Else
GUICtrlSetData($List1, "")
EndIf
EndIf
EndIf
If $msg = $List1 Then
GUICtrlSetState($back,$GUI_ENABLE)
$nowreading = GUICtrlRead($List1)
GUICtrlSetData($Edit1, IniRead(@MyDocumentsDir & "\noteside.ini",GUICtrlRead($List1),"notiz","ERROR - Text Not Found"))
Do
Sleep(7)
$editleft = $editleft - 5
$listleft = $listleft - 5
GUICtrlSetPos($List1,$listleft,25)
GUICtrlSetPos($Edit1,$editleft,25)
Until $editleft = 0
EndIf
If $msg = $new Then
GUICtrlSetState($back,$GUI_ENABLE)
$newstatus = 1
Do
Sleep(7)
$editleft = $editleft - 5
$listleft = $listleft - 5
GUICtrlSetPos($List1,$listleft,25)
GUICtrlSetPos($Edit1,$editleft,25)
Until $editleft = 0
EndIf
If $msg = $del Then
If GUICtrlRead($List1) <> "" Then
If MsgBox(4,"Löschen", "Wollen Sie diese Notiz löschen") = 6 Then
MsgBox(0, "", GUICtrlRead($List1))
IniDelete(@MyDocumentsDir & "\noteside.ini",GUICtrlRead($List1))
If FileRead(@MyDocumentsDir & "\noteside.ini") = "" Then
FileDelete(@MyDocumentsDir & "\noteside.ini")
EndIf
If FileExists(@MyDocumentsDir & "\noteside.ini") Then
$iniread = IniReadSectionNames(@MyDocumentsDir & "\noteside.ini")
For $i = 1 To $iniread[0]
GUICtrlSetData($List1, $iniread[$i])
Next
Else
GUICtrlSetData($List1, "")
EndIf
EndIf
EndIf
EndIf
WEnd
Es erscheint oben links/rechts ein kleiner Oranger streifen der wenn man mit der Maus drüber geht, sich rauszieht. Dann kann man Notizen reinschreiben, löschen. Wird natürlich alles gespeichert. Mit Autostart funktion.
Enjoy
F: Warum hab ich das gemacht?
A: Weil mich die Windoof Notizen aufregen. Die sind zu groß und nie da, wenn man sie braucht. Sie stören und sehen doof aus. Schlechte übersicht.