Gefällt mir richtig gut
Wollt dir ein bisschen helfen und habe das Design ein bisschen verbessert und einen Fragen Editor schnell mal gebaut. Bis jetzt kann man allerdings nur fragen erstellen (ADD) Aber ich werd noch dran arbeiten
MFG
Gefällt mir richtig gut
Wollt dir ein bisschen helfen und habe das Design ein bisschen verbessert und einen Fragen Editor schnell mal gebaut. Bis jetzt kann man allerdings nur fragen erstellen (ADD) Aber ich werd noch dran arbeiten
MFG
Kirjaudu 2 - Countdown bis 20:00!! Auf kirjaudu.Limesoft.at.tf
Soooo,
ich hab mich jetzt mal ins Zeug gelegt. Ich arbeite noch an einem T-Shirt mit einem Script. Wenn ihr ein "lustiges" (falls es sowas überhaupt gibt) kennt, schreibt es einfach als Kommentar. Zu den Entwürfen: Ich habe mich ein wenig von Adidas inspirieren lassen. Das TS3 gefällt mir persönlich am besten.
Ja, aber das ist nur eine Weiterleitung. Die T-Shirts stellt SpreadShirt an. Die URL ist eigentlich 667372.spreadshirt.de .
Haha, danke
Ahh noch was: wenn ich 10€ spenden soll pro T-Shirt, dann muss jeder 30€ bezahlen. Die eigentlichen Preise setz nicht ich fest
Xorianator: schei** Suchfunktion
Neuer Entwurf online. Die T-Shirts sind bisweilen offline, wegen Copyright. Ich hab Jonathan Bennett schon E-Mail geschrieben und warte nur noch darauf. Also, überlegt euch was!
MFG,
StevenX
Ok, eigentlich heißts LimeSoft Solutions, da z.B. HearTheRadio unter dem Namen ist. Siehe limesoft.us.tf und Heartheradio.int.tf ganz unten. Limesoft klingt nur besser, aber in jedem About steht LimeSoft Solutions. Aber eine Frage: darf ich überhaupt das AutoIt verwenden oder den Namen oder muss ich einen Hinweis schreiben?
Sry das es auf Englisch ist, ich erstell dann morgen bzw heute eine deutsche Version. Schreibt nur eure Wünsche rein, ich änders dann. Wenn wer auch coole AutoIt Logos hat, dann immer her damit
Neue Bilder uploaded. Und sorry deswegen.
UUhh verdammt.... Werds gleich ändern
Hey Leute,
aktuell machen viele Leute beim Designen mit
Nur wenige Vorschläge haben es in den Shop geschafft. Hier die aktuellen Produkte. [Blockierte Grafik: http://www.abload.de/img/aktuelljmqmj.png]
Die Produkte könnt ihr besser auf der offiziellen Seite einsehen. Shop.LimeSoft-Solutions.com
MFG,
StevenX
Ich hab mal deinen Ratschlag befolgt, AutoBERT und die FTPEx.au3 verwendet. Allerding uploadet es trotzdem nicht.
[autoit]#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Include <GuiListView.au3>
#Include <FTPEx.au3>
HotKeySet( "{ENTER}", "Login")
#Region ### START Koda GUI section
GUICreate( "LimeCloud Startup", 900, 600,Default,Default,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
GUICtrlCreatePic( @ScriptDir & '\startup.jpg',0, 0, 900,600)
GUISetState( @SW_SHOW)
Sleep( 3000)
GUISetState( @SW_HIDE)
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Login = GUICreate("LimeCloud Login", 587, 349, 192, 124)
$Label1 = GUICtrlCreateLabel("Login", 208, 32, 122, 59)
GUICtrlSetFont(-1, 36, 400, 0, "Myriad")
$Label2 = GUICtrlCreateLabel("If you don't setup a file, just type a new username in. Please make sure, that you don't use a normal name like 'Jeff', " & @CRLF & 'because all files will be overwritten! Press enter to login', 8, 112, 548, 30)
GUICtrlSetFont(-1, Default, Default, Default, "Myriad")
$filenameuser = GUICtrlCreateInput("eg. kisskiss265", 104, 200, 393, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=C:\Users\Stefan\Documents\Radio\ToolzGui1.kxf
#Region ### START Koda GUI section ### Form=C:\Users\Stefan\Documents\Radio\ToolzGui1.kxf
$Form1 = GUICreate("Hear The Radio Toolz", 597, 513, 192, 124)
$object = ObjCreate("Shell.Explorer.2")
$CreateStation = GUICtrlCreateButton("Hinzufügen", 32, 32, 75, 25, $WS_GROUP)
$DeleteStation = GUICtrlCreateButton("Refresh/Upload", 117, 32, 75, 25, $WS_GROUP)
$SearchStation = GUICtrlCreateButton("Start Browser", 202, 32, 123, 25, $WS_GROUP)
$DeleeteStation = GUICtrlCreateButton( 'Löschen', 335, 32, 123, 25, $WS_GROUP)
$RenameStation = GUICtrlCreateButton( "Umbennen",468, 32, 123, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
GUISetState( @SW_ENABLE)
#EndRegion ### END Koda GUI section ###
$ListView1 = GUICtrlCreateListView("Nummer|Station|URL ", 32, 64, 513, 417)
;;;;;;;;;;;FTP;;;;;;;;;;
[/autoit][autoit][/autoit][autoit]Dim $user = 'user1892733'
Dim $pwd = 'imsohappy'
Dim $server = ''
Dim $port = 21
Dim $searchfile = '/www/limecloud/' & $filenameuser & '.htr' ; ABSOLUTERPFAD ZUM DOKUMENT!!!!!
$FTP = _FTP_Open( "LimeCloud")
$FTPServer = _FTP_Connect($FTP,$server,$user,$pwd)
Global $Item, $Quelle
If InetGet( "http://limesoftrepo.co.de/limecloud/" & $filenameuser & ".htr", @ScriptDir & '\user.htr') = 0 Then
$Quelle = @ScriptDir & '\Standard.htr'
Else
$Quelle = @ScriptDir & '\user.htr'
EndIf
_Fill_Listview()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $DeleteStation
_GUICtrlListView_DeleteAllItems( $ListView1)
_Fill_Listview()
Case $CreateStation
$NameSender = InputBox( 'Name von Station', 'Geben Sie den Namen von der Station ein.')
$URLSender = InputBox( 'URL', 'Geben Sie die URL ein')
$Schreiben = IniWrite( $Quelle, 'Sender', $NameSender, $URLSender)
If $Schreiben = 1 Then
MsgBox( 0+64, 'Erfolgreich', 'Station wurde hinzugefügt! Falls HearTheRadio offen ist, bitte "POS1" oder "HOME" drücken')
_GUICtrlListView_DeleteAllItems( $ListView1)
_Fill_Listview()
Else
MsgBox( 0+16, 'ERROR!', 'ERROR001')
EndIf
Case $SearchStation
Browser()
Case $DeleeteStation
_Delete_Staion()
_FTP_Fileput($FTPServer, 'standard.htr', $searchfile)
Case $RenameStation
$NameSender = InputBox( 'Name von Station', 'Geben Sie den NEUEN Namen ein.')
$ReadListView = GUICtrlRead(GUICtrlRead($ListView1))
$ReadListView = StringSplit( $ReadListView, "|", 1)
$Selected_URL = $ReadListView[3]
$Selected = $ReadListView[2]
$loeschen = IniDelete( $Quelle, 'Sender', $ReadListView[2])
IniWrite( $Quelle, "Sender", $NameSender, $Selected_URL)
_GUICtrlListView_DeleteAllItems( $ListView1)
_Fill_Listview()
If @error Then
MsgBox( 0+16, 'ERROR!', 'ERROR003')
Else
MsgBox( 0+64, 'Erfolgreich','Die Station "' & $Selected & '" wurde umbenannt in "' & $NameSender & '" ! Falls HearTheRadio offen ist, bitte "POS1" oder "HOME" drücken')
EndIf
EndSwitch
WEnd
Func _Fill_Listview()
Dim $Item[50]
$a_ini_test = IniReadSection($Quelle,"Sender")
for $i_cnt = 1 to UBound($a_ini_test,1) -1
$Item = GUICtrlCreateListViewItem($i_cnt & "|" & $a_ini_test[$i_cnt][0] & "|" & $a_ini_test[$i_cnt][1], $ListView1)
Next
EndFunc
Func Browser()
Run( 'Browser.exe')
If @error Then
MsgBox( 0+16, 'ERROR', 'Browser.exe wurde NICHT gefunden!')
EndIf
EndFunc
[/autoit][autoit][/autoit][autoit]Func _Delete_Staion()
$ReadListView = GUICtrlRead(GUICtrlRead($ListView1))
$ReadListView = StringSplit( $ReadListView, "|", 1)
$Selected = $ReadListView[2]
$loeschen = IniDelete( $Quelle, 'Sender', $ReadListView[2])
If $loeschen = 0 Then
MsgBox( 0+16, 'ERROR!', 'ERROR002')
Else
MsgBox( 0+64, 'Erfolgreich','Die Station "' & $Selected & '" wurde gelöscht! Falls HearTheRadio offen ist, bitte "POS1" oder "HOME" drücken')
_GUICtrlListView_DeleteAllItems( $ListView1)
_Fill_Listview()
EndIf
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func Login()
GUISetState( @SW_HIDE, $Login)
GUISetState( @SW_Show, $Form1)
EndFunc
Hey Leute!
Ich arbeite an einem kleinem Cloud Projekt und ich habe dazu ein kleines FTP Problem: Es kommt dauernd ein Fehler in Form von:
Zitat$GENERIC_READ previously declared as a 'Const'
Hier das Script:
[autoit]#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Include <GuiListView.au3>
#include <FTP_Ex.au3>
HotKeySet( "{ENTER}", "Login")
#Region ### START Koda GUI section
GUICreate( "LimeCloud Startup", 900, 600,Default,Default,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
GUICtrlCreatePic( @ScriptDir & '\startup.jpg',0, 0, 900,600)
GUISetState( @SW_SHOW)
Sleep( 3000)
GUISetState( @SW_HIDE)
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Login = GUICreate("LimeCloud Login", 587, 349, 192, 124)
$Label1 = GUICtrlCreateLabel("Login", 208, 32, 122, 59)
GUICtrlSetFont(-1, 36, 400, 0, "Myriad")
$Label2 = GUICtrlCreateLabel("If you don't setup a file, just type a new username in. Please make sure, that you don't use a normal name like 'Jeff', " & @CRLF & 'because all files will be overwritten! Press enter to login', 8, 112, 548, 30)
GUICtrlSetFont(-1, Default, Default, Default, "Myriad")
$filenameuser = GUICtrlCreateInput("eg. kisskiss265", 104, 200, 393, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=C:\Users\Stefan\Documents\Radio\ToolzGui1.kxf
#Region ### START Koda GUI section ### Form=C:\Users\Stefan\Documents\Radio\ToolzGui1.kxf
$Form1 = GUICreate("Hear The Radio Toolz", 597, 513, 192, 124)
$object = ObjCreate("Shell.Explorer.2")
$CreateStation = GUICtrlCreateButton("Hinzufügen", 32, 32, 75, 25, $WS_GROUP)
$DeleteStation = GUICtrlCreateButton("Refresh/Upload", 117, 32, 75, 25, $WS_GROUP)
$SearchStation = GUICtrlCreateButton("Start Browser", 202, 32, 123, 25, $WS_GROUP)
$DeleeteStation = GUICtrlCreateButton( 'Löschen', 335, 32, 123, 25, $WS_GROUP)
$RenameStation = GUICtrlCreateButton( "Umbennen",468, 32, 123, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
GUISetState( @SW_ENABLE)
#EndRegion ### END Koda GUI section ###
$ListView1 = GUICtrlCreateListView("Nummer|Station|URL ", 32, 64, 513, 417)
;;;;;;;;;;;FTP;;;;;;;;;;
[/autoit][autoit][/autoit][autoit]Dim $user = 'user1892733'
Dim $pwd = 'imsohappy'
Dim $server = ''
Dim $port = 21
Dim $searchfile = '/www/limecloud/' & $filenameuser & '.htr' ; ABSOLUTERPFAD ZUM DOKUMENT!!!!!
$FTP = _FTPOpen("AutoIt v3")
$FTPServer = _FTPConnect($FTP,$server,$user,$pwd,1)
Global $Item, $Quelle
If InetGet( "http://limesoftrepo.co.de/limecloud/" & $filenameuser & ".htr", @ScriptDir & '\user.htr') = 0 Then
$Quelle = @ScriptDir & '\Standard.htr'
Else
$Quelle = @ScriptDir & '\user.htr'
EndIf
_Fill_Listview()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $DeleteStation
_GUICtrlListView_DeleteAllItems( $ListView1)
_Fill_Listview()
Case $CreateStation
$NameSender = InputBox( 'Name von Station', 'Geben Sie den Namen von der Station ein.')
$URLSender = InputBox( 'URL', 'Geben Sie die URL ein')
$Schreiben = IniWrite( $Quelle, 'Sender', $NameSender, $URLSender)
If $Schreiben = 1 Then
MsgBox( 0+64, 'Erfolgreich', 'Station wurde hinzugefügt! Falls HearTheRadio offen ist, bitte "POS1" oder "HOME" drücken')
_GUICtrlListView_DeleteAllItems( $ListView1)
_Fill_Listview()
Else
MsgBox( 0+16, 'ERROR!', 'ERROR001')
EndIf
Case $SearchStation
Browser()
Case $DeleeteStation
_Delete_Staion()
PutFile($InternetConnect, 'standard.htr', $searchfile)
Case $RenameStation
$NameSender = InputBox( 'Name von Station', 'Geben Sie den NEUEN Namen ein.')
$ReadListView = GUICtrlRead(GUICtrlRead($ListView1))
$ReadListView = StringSplit( $ReadListView, "|", 1)
$Selected_URL = $ReadListView[3]
$Selected = $ReadListView[2]
$loeschen = IniDelete( $Quelle, 'Sender', $ReadListView[2])
IniWrite( $Quelle, "Sender", $NameSender, $Selected_URL)
_GUICtrlListView_DeleteAllItems( $ListView1)
_Fill_Listview()
If @error Then
MsgBox( 0+16, 'ERROR!', 'ERROR003')
Else
MsgBox( 0+64, 'Erfolgreich','Die Station "' & $Selected & '" wurde umbenannt in "' & $NameSender & '" ! Falls HearTheRadio offen ist, bitte "POS1" oder "HOME" drücken')
EndIf
EndSwitch
WEnd
Func _Fill_Listview()
Dim $Item[50]
$a_ini_test = IniReadSection($Quelle,"Sender")
for $i_cnt = 1 to UBound($a_ini_test,1) -1
$Item = GUICtrlCreateListViewItem($i_cnt & "|" & $a_ini_test[$i_cnt][0] & "|" & $a_ini_test[$i_cnt][1], $ListView1)
Next
EndFunc
Func Browser()
Run( 'Browser.exe')
If @error Then
MsgBox( 0+16, 'ERROR', 'Browser.exe wurde NICHT gefunden!')
EndIf
EndFunc
[/autoit][autoit][/autoit][autoit]Func _Delete_Staion()
$ReadListView = GUICtrlRead(GUICtrlRead($ListView1))
$ReadListView = StringSplit( $ReadListView, "|", 1)
$Selected = $ReadListView[2]
$loeschen = IniDelete( $Quelle, 'Sender', $ReadListView[2])
If $loeschen = 0 Then
MsgBox( 0+16, 'ERROR!', 'ERROR002')
Else
MsgBox( 0+64, 'Erfolgreich','Die Station "' & $Selected & '" wurde gelöscht! Falls HearTheRadio offen ist, bitte "POS1" oder "HOME" drücken')
_GUICtrlListView_DeleteAllItems( $ListView1)
_Fill_Listview()
EndIf
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func Login()
GUISetState( @SW_HIDE, $Login)
GUISetState( @SW_Show, $Form1)
EndFunc
Ich verwende hier die FTP_Ex.au3 UDf.
MFG,
StevenX
Hey Gem, bräuchtest du eigene Dashboard seite? Die User fahren heute voll ab auf Mac Fakes . Könntest du vll. Wiki Live Search dazupacken oder in den Startpost hinzufügen?
MFG,
StevenX
Ja, ok so gehts auch. Aber wenn du es direkt einbaust geht es viel bequemer!
MFG
Nein nein, da kann man Hintergrundfarbe vom Dashboard die Hintergrundfarbe.
MFG,
StevenX
Alles Gute!
Hey, änder mal Zeile 48 in:
[autoit]GUISetBkColor(IniRead("dashboard.ini", "Dashboard", "Background Color",0x000000))
[/autoit]
Dann kann mans ein bisschen persönlicher machen . Wo ist denn das Update? Ich bräuchte auch eine Combobox für meine Radio App
MFG,
StevenX