Ich meld mich au mal das bin ich
Beiträge von Eistee
-
-
Hallo Liebe Gemeinde
Ich habe mit Hilfe von nuts (Danke Nochmal) einen kleinen Script geschrieben der einem ermöglicht eine Datenbank mit Artikeln und dem Jeweiligen Preis anzulegen,
wenn man diese dann auswählt kann man sich einen EinkaufsZettel schreiben welcher dann Direkt auf dem Desktop gespeichert wird.Ich hoffe ihr könnt es gebrauchen
MFG Eistee
Edit :
Einzelne Strings Löschbar
Auswahl auch per DoppelKlick
Danke an nutsMFG Eistee
-
-
Hallo Liebe Gemeinde wie könnte ich aus folgendem script die 2te Listview auslesen,
in eine txt aufm desktop schreiben
den inputfeld Auslesen
und das in der letzten zeile der zuvor erstellten Datei anhängen ?Vielen Dank im Vorraus
MFG Eistee
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListBox.au3>
#NoTrayIconDirCreate("C:\BS\EK-RECHNER\DB")
[/autoit] [autoit][/autoit] [autoit]
DirCreate("C:\BS\EK-RECHNER\NEU")
DirCreate("C:\BS\EK-RECHNER\PIC")
FileInstall("NEU.exe", @ScriptDir & "\NEU.exe")
FileInstall("Spaghetti.txt", "C:\BS\EK-RECHNER\DB\Spaghetti.txt")
FileInstall("HackFleisch.txt", "C:\BS\EK-RECHNER\DB\HackFleisch.txt")
FileInstall("BG.jpg", "C:\BS\EK-RECHNER\PIC\BG.jpg")$search = FileFindFirstFile("C:\BS\EK-RECHNER\DB" & "\*.*")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$file = FileFindNextFile($search)
If @error Then ExitLoop
$F1 = FileOpen("C:\1.txt", 1)
FileWrite($F1, $file)
FileClose($F1)
$file1 = FileRead("C:\1.txt")
$file2 = StringRegExpReplace($file1, '.txt', "|")
WEnd$Form1 = GUICreate("EinkaufsRechner", 400, 345, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)
$List1 = GUICtrlCreateList("", 8, 28, 160, 240)
GUICtrlSetData(-1, $file2)
$List2 = GUICtrlCreateList("", 230, 28, 160, 240)
$hlist2 = GUICtrlGetHandle($List2)
$Button1 = GUICtrlCreateButton(">", 184, 124, 30, 25, 0)
$Button2 = GUICtrlCreateButton("Clear", 179, 164, 40, 25, 0)
$Input1 = GUICtrlCreateInput("Preis Einkauf in €", 230, 270, 160, 25)
$Button3 = GUICtrlCreateButton("Neuer Artikel", 8, 270, 160, 25, 0)
$Button4 = GUICtrlCreateButton("Druck Einkauf", 148, 309, 100, 25, 0)
$Pic1 = GUICtrlCreatePic("C:\BS\EK-RECHNER\PIC\BG.jpg", 0, 0, 400, 345, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS, $WS_DISABLED))
GUICtrlCreateLabel("Artikel",12,8)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel("Einkaufs Liste",234,8)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)AdlibEnable("_5", 1050)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@ScriptDir & "\NEU.exe")
FileDelete("C:\1.txt")
Exit
Case $Button1
_1()
Case $Button2
_2()
Case $Button3
_3()
Case $Button4
_4()
EndSwitch
WEndFunc _1()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($List2, GUICtrlRead($List1))
EndFunc ;==>_1Func _2()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($List2, "")
EndFunc ;==>_2Func _3 ()
[/autoit] [autoit][/autoit] [autoit]
ShellExecute(@ScriptDir & "\NEU.exe")
FileDelete("C:\1.txt")
Exit
EndFuncFunc _4()
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _5()
[/autoit]
Local $price
Local $lcount = _GUICtrlListBox_GetCount($hlist2)
For $i = 1 To $lcount
Local $open = FileOpen("C:\BS\EK-RECHNER\DB\" & _GUICtrlListBox_GetText($hlist2, $i - 1) & ".txt", 0)
Local $read = FileReadLine($open, 2)
$price += StringReplace($read, ",", ".")
FileClose($open)
Next
GUICtrlSetData($Input1, $price & " €")
$preis = ""
EndFunc -
Cool so geht es
MFG Eistee
-
Die Textdateien sehen folgendermaßen aus :
Spaghetti
1,99MFG Eistee
-
Jo dann dürfte das Legal sein
MFG Eistee
-
Spoiler anzeigen
[autoit]$sUserName=("XXX")
[/autoit]
$sPassword=("XXX")
RunAs($sUserName, @ComputerName, $sPassword, 0, "C:\Programme\Acronis\TrueImageHome\TrueImage.exe", @SystemDir)Ich denke mal in etwa so
MFG Eistee
-
ahhja noch eine seite für die kein bedarf herrscht...
aber für die die es nutzen ist das programm sicher geilThx für die info
MFG Eistee
-
Ich denke mal wenn es nicht Illegal ist das du einen Server des Jeweiligen Games betreibst dann ist das In Ordnung und ein Bot ist es insofenr nicht da du ja nicht das Spiel steuern möchtest sondern den Server was theoretisch Erlaubt sein müsste
MFG Eistee
-
was ist twitter ?
-
und wie wandle ich aufs richtige Format um ?
-
Danke für deine Mühe aber ich habe es aufgegeen ist mir wohl zu hoch
-
Ich sage dazu nur folgendes :
Spoiler anzeigen
42 32 93 00 42 21 74 81 32 00 32 23 42 81 00 62 43 23 32 00 41 32 61 21 23 42 81 00 91 32 43 81 32 73 00 74 63 00 61 33 41 00 32 43 74 81 32 32
-
AH ok nice des wusste ich nicht
THX Leviathan -
das geht bei mir wiederum nicht xD
-
kein thema gerne die animButton Funktion ist nicht von mir die habe ich von jemandem aus dem Forum ich glaube das wer TheMega oder so (oder wie er jetzt heisst)
die is nur da damit es so aussieht als hätte man den Button geklickt du musst se nicht verwenden wenn du nicht willst habe sie einfach mal dazugetan
MFG Eistee
-
mit meinem letzten post müsste es gehen du brauchst natürlich auch ein bild im script dir und der richtige name muss im script sein xD
-
Sorry habs grade getestet geht leider nicht hier ist eines das geht
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <StaticConstants.au3>
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Form1", 287, 304, 193, 125)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\PS CS3 Portable\Nützliches\Vorlagen\BG.jpg", 32, 104, 220, 84, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
_1 ()
EndSwitch
WEndFunc _1 ()
[/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic1)
Exit
EndFuncFunc _AnimButton($IDgui, $IDbtn, $delay=300)
[/autoit]
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc -
In etwa so is aber nicht getestet
Spoiler anzeigen
[autoit]opt("guioneventmode",1)
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("M-T Radio", 205, 140, -1, -1,$WS_Popup)
$Button2 = GUICtrlCreatePic("C:\MT\Play.jpg",22, 89, 30, 30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
guictrlsetonevent(-1,"Play")
GUISetState(@SW_SHOW)
While 1
wendfunc play()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Button2)
Run ("C:\MT\Play.exe")
endfuncFunc _AnimButton($IDgui, $IDbtn, $delay=300)
[/autoit]
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc