Cool ich versuch in den Ferien einen Editor zu schreiben
MFG,
StevenX
Cool ich versuch in den Ferien einen Editor zu schreiben
MFG,
StevenX
Ahhh, die ganzen Tipps muss ich mir aufschreiben . Mir war heute langweilig und musste das eben mal ausprobieren. Aber dein "Action" System raff ich nicht...
MFG,
StevemX
Ich weiß noch, wie ich früher mit ConsoleWrite experimentiert habe (ich habe immer wieder Phasen, wo ich eine bestimmte Funktion so gut wie möglich ausprobieren will). Jedenfalls, ich scheiterte damals kläglich :(. Laut der AutoIt Konsole wird Telnet aber ausgeführt...
MFG,
StevenX
Probiers mal mit einer größeren Step Zahl und/oder statt ConsoleWrite Send.
MFG,
StevenX
So, die Erste App aus dem Hause LimeSoft:
Wiki Live Search 2.0 Dashboard Edition
Alles inludiert, sofort mit Dashboard importierbar.
Linkes Eingabefeld --> Suchbegriff
Rechtes Eingabefeld --> "Domain"
Wikipedia Icon --> Start
Screenshot:
[Blockierte Grafik: http://www.abload.de/img/wls_dashboard18u56h.png]
Viel Spaß!
MFG,
StevenX
Naja, Speicher und Traffic. Außer du machst nen eigen Server. Glaub aber nicht, dass autoit.ws so einen verwendet...
MFG,
StevenX
Da brauchchst du schon einen ordentlichen Hoster... Apropos, ich will meine Website neu gestalten, will mir helfen? Und um den Thread nicht zuzumüllen, bitte per PN. Danke!
MFG,
StevenX
Willkommen auf dem AutoIt Forum! Schau dir am besten das AutoIt Tutorial an und falls du Hilfe brauchst ---> posten! Und wunder dich nicht wenn du mitte in der Woche nicht sofort eine Antwort kriegst - die meisten von uns gehen noch zur Schule ;).
Also, hoffen wir auf ein super Jahr zum Programmieren und Lernen,
StevenX
Hab immer ne frage zu diesen shortener: nach welchem Prinzip funktionieren die?
MFG,
StevenX
Wie findest du mein Script? Es reicht ja auch eine Gallery, wo man einzelne runterladen kann. gem: Ich verstehe langsam dein System für die Apps
MFG,
StevenX
EDIT: Wollte nicht so "arrogant" wirken
EDIT2: Ja, und ich mag Smileys
So, hab das mal schnell extra überarbeitet. Mann kann jetzt über ENTER suchen und Domain in das Inputfeld eingeben. Eine Frage hab ich noch: Wie hast du die Ecken der GUIs gerundet? Außerdem finde ich, man sollte eine eigne INI Datei für alle Apps einstellen (Falls du diese Idee übernehmen willst, ich habe es schon eingestellt ;)) Theoretisch können wir sogar einen "AppStore" eröffnen
Hier ist das Script:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=Wiki Live Search.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Search Wikipedia!
#AutoIt3Wrapper_Res_Description=Search Wikipedia!
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions 2011
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
FileInstall( "C:\Users\Administrator\Documents\StevenX Media\Wiki Search\Icon.ico", @ScriptDir & "Icon.ico")
#Region Trayicon
Global $trayinfo, $infoitem1, $infoitem2, $ExitTray
Opt('TrayMenuMode', 1)
TraySetIcon( @ScriptDir & '\Images\Icon.ico')
TraySetIcon( @ScriptFullPath, 0)
TraySetClick(16)
$About_Program = TrayCreateItem( 'The Program')
$About_Website = TrayCreateItem( 'The Website')
TrayCreateItem("")
$ExitTray = TrayCreateItem( 'Exit Wiki Live Search')
TraySetState()
#endregion
Global $DOMAIN = IniRead("Settings.ini", "Wiki_Live_Search_App", "Domain", "de")
InetGet( "http://www.pro-linux.de/images/NB3/imgdb/o_wikipedia-logo-1.jpg", @ScriptDir & "\Cache.png")
Global $Form1
$ping = Ping("www.google.com")
If $ping = 0 then
MsgBox(16+0, "Error", "You have no Internet Connection!")
EndIf
HotKeySet( "{ENTER}", "_Search")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wiki Live Search by LimeSoft Solutions", 582, 193, 192, 124,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
GUISetBkColor(0xFFFFF0)
$Search = GUICtrlCreateInput("What are you looking for? Example: United States of America", 8, 104, 545, 21)
$WikiPic = GUICtrlCreatePic("", 100, 10, 100, 78)
GUICtrlSetImage( -1 , @ScriptDir & "\Cache.png")
$Label1 = GUICtrlCreateLabel("Wiki Live Search", 208, 8, 194, 35)
GUICtrlSetFont(-1, 20, 400, 0, "Myriad Web Pro")
$DOMAIN_Input = GUICtrlCreateInput( $DOMAIN, 40, 144, 100, 25)
$SearchStart = GUICtrlCreateButton("Search", 160, 144, 147, 25)
$Close = GUICtrlCreateButton("Close", 320, 144, 147, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$DOMAIN = IniRead( "Settings.ini", "Settings", "Domain", "de")
$URL = ".wikipedia.org/wiki/"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState( @SW_HIDE, $Form1)
Case $Search
_Search()
Case $Close
IniWrite( "Settings.ini", "Wiki_Live_Search_App", "Domain", Guictrlread($DOMAIN_Input))
Exit
EndSwitch
WEnd
Func _Search()
$Suche = StringReplace( GUICtrlRead($Search), chr(32), "_")
ShellExecute("http://" & Guictrlread($DOMAIN_Input) & $URL & $Suche)
IniWrite( "Settings.ini", "Wiki_Live_Search_App", "Domain", Guictrlread($DOMAIN_Input))
EndFunc
Hey, hab diese Woche viel zu tun, aber hier ist der bisherige Code:
[autoit]#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=Wiki Live Search.exe
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Search Wikipedia!
#AutoIt3Wrapper_Res_Description=Search Wikipedia!
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions 2011
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
FileInstall( "C:\Users\Administrator\Documents\StevenX Media\Wiki Search\Icon.ico", @ScriptDir & "Icon.ico")
#Region Trayicon
Global $trayinfo, $infoitem1, $infoitem2, $ExitTray
Opt('TrayMenuMode', 1)
TraySetIcon( @ScriptDir & '\Images\Icon.ico')
TraySetIcon( @ScriptFullPath, 0)
TraySetClick(16)
$About_Program = TrayCreateItem( 'The Program')
$About_Website = TrayCreateItem( 'The Website')
TrayCreateItem("")
$ExitTray = TrayCreateItem( 'Exit Wiki Live Search')
TraySetState()
#endregion
Global $DOMAIN
InetGet( "http://www.pro-linux.de/images/NB3/imgdb/o_wikipedia-logo-1.jpg", @ScriptDir & "\Cache.png")
Global $Form1
$ping = Ping("www.google.com")
If $ping = 0 then
MsgBox(16+0, "Error", "You have no Internet Connection!")
EndIf
HotKeySet( "{F7}", "Search")
HotKeySet( "{F8}", "Exitscript")
HotKeySet( "{F9}", "SelectDomain")
Func Search()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wiki Live Search by LimeSoft Solutions", 582, 193, 192, 124,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
GUISetBkColor(0xFFFFF0)
$Search = GUICtrlCreateInput("What are you looking for?", 8, 104, 545, 21)
$WikiPic = GUICtrlCreatePic("", 100, 10, 100, 78)
GUICtrlSetImage( -1 , @ScriptDir & "\Cache.png")
$Label1 = GUICtrlCreateLabel("Wiki Live Search", 208, 8, 194, 35)
GUICtrlSetFont(-1, 20, 400, 0, "Myriad Web Pro")
$SearchStart = GUICtrlCreateButton("Search", 160, 144, 147, 25)
$Close = GUICtrlCreateButton("Close", 320, 144, 147, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$DOMAIN = IniRead( "Settings.ini", "Settings", "Domain", "de")
$URL = ".wikipedia.org/wiki/"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState( @SW_HIDE, $Form1)
Case $Search
$Suche = StringReplace( GUICtrlRead($Search), chr(32), "_")
ShellExecute("http://" & $Domain & $URL & $Suche)
GUISetState( @SW_HIDE, $Form1)
ExitLoop
Case $Close
GUISetState( @SW_HIDE, $Form1)
ExitLoop
EndSwitch
WEnd
EndFunc
While 2
HotKeySet( "{F7}", "Search")
HotKeySet( "{F8}", "Exitscript")
If _IsPressed(77) Then
Exitscript()
EndIf
If _IsPressed(78) Then
SelectDomain()
EndIf
$msg = TrayGetMsg()
Switch $msg
Case $ExitTray
Exit
Case $About_Program
MsgBox( 0+64, 'About', 'Wiki Live Search 1.0 Author: Stefan Blagojevic for (C) LimeSoft Solutions 2011')
Case $About_Website
ShellExecute( "http://LimeSoft.us.tf")
EndSwitch
WEnd
Func Exitscript()
FileDelete( @TempDir & "\Cache.wikisearch")
GUIDelete( $Form1)
Exit
EndFunc
[/autoit][autoit][/autoit][autoit]Func SelectDomain()
#Region ### START Koda GUI section ### Form=
$SettingsGUI = GUICreate("Live Wiki Search - Settings", 169, 250, 192, 124)
$Domain = GUICtrlCreateInput("Type in", 8, 24, 137, 21)
$Label1 = GUICtrlCreateLabel("Enter above the domain for wikipedia, like de or en", 5, 56, 163, 121)
$CloseSettings = GUICtrlCreateButton("Close", 40, 192, 100)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState( @SW_HIDE, $SettingsGUI)
ExitLoop
Case $CloseSettings
IniWrite( "Settings.ini", "Settings", "Domain", GUICtrlRead( $Domain))
$DOMAIN = GUICtrlRead( $Domain)
GUISetState( @SW_HIDE, $SettingsGUI)
ExitLoop
EndSwitch
WEnd
EndFunc
[/autoit]
ich werd ihm am wochenende noch ändern und packe Simple HearTheRadio auch noch dazu!
MFG,
StevenX
Sorry, wenn ich hier den Thread zumülle ;). Habe mal was gescrippted, wo man Wikipedia durchsuchen kann. Bräuchtest du sowas?
MFG,
StevenX
Oh, danke. Falls ich dir helfen kann --> PN
MFG,
StevenX
Wartet alle nur bis euch Apple und Microsoft verklagt... Na Spaß du solltest die sounds selber machen (stichwort: Garageband). Hab ich auch immer gemacht.
MFG,
StevenX
P.S.: Apple hat mal ein Restaurant in Österreich verklagt, weil auf dem Logo ein Apfel war/ist. Ka ob sie es geändert haben.
Nettes Script. Allerding solltest du eine Funktion einbauen, wo Entwickler eigene Apps schreiben können. Und wie hast du den Bildschirm verdunkelt?
Nach dem Erfolg auf AutoIt habe ich Kirjaudu auch in Sourceforge eingetragen: https://sourceforge.net/projects/kirjaudu/
Viel Spaß!
MFG,
StevenX
Dachte ich mir schon...
Hast du vll auch Windows XP?
Version 1.1.1 behebt Fehler bei 64bit System. An diesem Punkt: Danke Matricus!
MFG,
StevenX