So, hab jetzt neue Vorschläge. Spreadshirt hat die Preise tiefer gesenkt und somit habe ich die Provision pro Produkt auf 2€ gesetzt. Bei den Entwürfen zählt: Minimalismus!
[Blockierte Grafik: http://www.abload.de/img/_37bsox.png]
Wie immer könnt ihr die Produkte auch in meinem Shop sehen. Shop.LimeSoft-Solutions.com
MFG,
StevenX
Geposted! Erwartet aber nicht zu viel 
MFG
So, bitte korrigiert mich wenn ihr anderer Meinung seid. Laut Wikipedia:
Unter einem Bot (von eng. robot „Roboter“) versteht man ein Computerprogramm,
das weitgehend selbstständig sich wiederholende Aufgaben abarbeitet,
ohne dabei auf eine Interaktion mit einem menschlichen Benutzer
angewiesen zu sein.
Quelle: http://de.wikipedia.org/wiki/Bot
Da iUser nur auf Anfrage funktioniert, müsste es kein Bot sein. Ein 'Game Bot' ist zum Manipulieren, iUser nicht. Auch wenn man sagt, dass es Windows manipuliert, es basiert auf CMD und es hat ja nicht den Sinn zu hacken. Eine Game Bot wird ja ausdrücklich dazu verwendet. Aber, Admins entscheiden hier alles.
Apropos: Bitte verzeiht mein Deutsch, es ist spät 
MFG
Ups sorry, man kann jedes Mal was neues lernen
MFG
Chris:
Ehrlich gesagt hab ich einfacher gedacht - CMD
MFG
[Blockierte Grafik: http://www.abload.de/img/artworky1q8w.png]
Hey,
wieder ein kleines Tool für euch Dieses Mal geht es um ein Wikipedia Such Tool, welches gleichzeitig gut ausschaut und total simpel ist. So simpel, dass ich euch nicht einmal die Bedienung erklären muss.
Hier der Code:
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=Wiki Live Search.exe
#AutoIt3Wrapper_Res_Comment=Search Wikipedia!
#AutoIt3Wrapper_Res_Description=Search Wikipedia!
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions 2011
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#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( "D:\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
#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
If _IsPressed("0D") Then
_Search()
EndIf
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
Ihr könnt nebenbei bewerten, ob es nützlich oder unnötig ist.
MFG,
StevenX
[Blockierte Grafik: http://www.abload.de/img/iuser9div3.png]
Hey,
heute hab ich ein altes Programm von mir gefunden: iUser - If you wanna control the user
Bitte verzeiht mir meinen "i" Hype
Der Name ist NICHT gemeint als "Lassen wir Papas Account löschen" sondern wirklich wenn man ein Passwort vergessen hat oder Admin hinzufügen will. Da ich nicht viel über Win8 weiß, ist es noch Alpha. Die Features:Testet das Programm ruhig aus! Ich will den Code aber nur dann JETZT: Der Code! Erwartet nicht so viel, es ist wenig und simpel! Hoffentlich hab ich mit der Diskussion nicht zu viel nie Werbetrommel gerührt
veröffentlichen, wenn die Admins einverstanden sind, da ich nicht weiß,
ob es ein Bot ist.
Script:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=new.ico
#AutoIt3Wrapper_Outfile=iUser.exe
#AutoIt3Wrapper_Res_Comment=If you wanna control the user-
#AutoIt3Wrapper_Res_Description=iUser
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=© LimeSoft Solutions 2012
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Administrator\Documents\StevenX Media\iUser\GUI.kxf
$Form1 = GUICreate("iUser - Alpha ", 603, 280, 192, 124)
$Label1 = GUICtrlCreateLabel("iUser Alpha", 231, 32, 140, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Myriad")
$MenuItem1 = GUICtrlCreateMenu("Informations")
$About = GUICtrlCreateMenuItem("About", $MenuItem1)
$Website = GUICtrlCreateMenuItem("Visit Website", $MenuItem1)
$SystemInfo = GUICtrlCreateButton("Show System Informations", 16, 135, 155, 25, $BS_ICON)
$PassForgot = GUICtrlCreateButton("Forgot Password?", 16, 168, 155, 25, $BS_ICON)
$Del_User = GUICtrlCreateButton("Delete User", 216, 135, 155, 25, $BS_ICON)
$Add_User = GUICtrlCreateButton("Add User", 218, 168, 155, 25, $BS_ICON)
$Add_Group = GUICtrlCreateButton("Add to Group", 410, 135, 155, 25, $BS_ICON)
$Delete_Group = GUICtrlCreateButton("Delete from Group", 410, 168, 155, 25, $BS_ICON)
$Label2 = GUICtrlCreateLabel("©LimeSoft Solutions 2012", 8, 240, 134, 17)
$Label3 = GUICtrlCreateLabel("iUser Alpha", 256, 240, 58, 17)
$Label4 = GUICtrlCreateLabel("Stefan Blagojevic", 504, 240, 87, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $About
MsgBox( 0, "About", "iUser Alpha 1.0" & @CRLF & "Author: Stefan Blagojevic" & @CRLF & "Publisher: LimeSoft Solutions")
Case $Website
ShellExecute( "http://LimeSoft-Solutions.com")
Case $SystemInfo
MsgBox( 0, "Systeminfo", "Windows Version: " & @OSVersion & "Build" & @OSBuild & " " & @OSArch & " " & @OSServicePack & @CRLF & "System Language: " & @OSLang & @CRLF & "Display Dimensions: " & @DesktopWidth & "X" & @DesktopHeight & @CRLF & "Windows is installed on the partition: " & @HomeDrive & @CRLF & "The actual user is: " & @UserName & @CRLF & "Date (DAY/MONTH/YEAR): " & @MDAY & "/" & @MON & "/" & @YEAR & @CRLF & "Time:" & " " & @HOUR & ":" & @MIN & ":" & @MSEC)
Case $PassForgot
Local $Username = InputBox( "iUser", "Username:")
Local $Password = InputBox( "iUser", "The new password:")
Run(@ComSpec & " /c " & 'net user ' & $Username & ' ' & $Password, "", @SW_HIDE)
MsgBox( 0, "iUser", "Password changed")
Case $Del_User
Local $Username = InputBox( "iUser", "Username:")
Run(@ComSpec & " /c " & 'net user ' & $Username & ' /delete', "", @SW_HIDE)
MsgBox(0, "iUser", "User deleted")
Case $Add_User
Local $Username = InputBox( "iUser", "Username:")
Local $Password = InputBox( "iUser", "The new password:")
Run(@ComSpec & " /c " & 'net user ' & $Username & ' ' & $Password & ' /add', "", @SW_HIDE)
MsgBox( 0, "iUser", "User added")
Case $Add_Group
Local $Username = InputBox( "iUser", "Username:")
Local $Group= InputBox( "iUser", "Groupname")
Run(@ComSpec & " /c " & 'net localgroup ' & $Group & ' ' & $Username & ' /add', "", @SW_HIDE)
MsgBox( 0, "iUser", "User added")
Case $Delete_Group
Local $Username = InputBox( "iUser", "Username:")
Local $Group= InputBox( "iUser", "Groupname")
Run(@ComSpec & " /c " & 'net localgroup ' & $Group & ' ' & $Username & ' /delete', "", @SW_HIDE)
MsgBox( 0, "iUser", "User deleted")
EndSwitch
WEnd
Also Admins, gibt einfach euer OK und ich werds online stellen! Oder ihr könnt mich um eine Vorabkopie bitten.
MFG,
StevenX
P.S.: Natürlich muss man Admin sein, um das Programm zu starten
Ahh hab das hier übersehen:
"Andere Top-Level-Domains:
Bislang können wir an TLDs leider nur .de-Domains aus eigener Hand anbieten. Wenn du eine Domain mit anderer Endung von einem anderen Domainprovider hast, schalten wir diese selbstverständlich ebenfalls auf! Es muss somit niemand auf andere Domainendungen wie .com oder .eu verzichten, nur weil wir diese noch nicht im Angebot haben. "
Aber:
"Wie du trotzdem zu einem Account bei uns kommen kannst?
Ganz einfach - schreib uns einfach eine Bewerbung unter support@php-friends.de."
MFG,
StevenX
Xorianator:
Ich will ja nach PHP-Friends, aber:
1. Sie bieten keine neuen Plätze
2. Hab ich noch eine .com Domain und die PHP-Friends nimmt nur .de
MFG,
StevenX
Hey,
meine Skripte entstehen meistens einem "Heureka!" Moment :D. So auch dieses. Mich nervte immer, dass Lima-City nur Roundcube anbietet, da es aus irgendeinen Grund keine Cookies speichert (sprich: ist es nur bei mir so?). So hab ich schnell dieses Skript geschrieben. Für Die Error.html hab ich die EXE gespeichert, diese wird allerdings nicht unbedingt benötigt (ist nur eine Hilfe "Seite", wo steht, wie man das Programm einstellt). Ich will noch eventuell eine Auswahl einbauen für mehrere Benutzer und auch dass das Passwort verschlüsselt gespeichert wird. Das letztere habe ich schon ausprobiert, bin aber kläglich gescheitert 
. Ah, da ist noch was. Ich hasse die Punkte beim Passwort Feld. Am iPhone ist es ja ok, wenn ich grad in der U-Bahn mein Facebook Passwort eingebe. Aber ich hasse es wirklich. Sie vermeiden immer das korrekte schreiben, wenn man grad die Tastatur nicht gerade auswendig kennt. Und so baue ich die Maske in keinem meiner Skripte ein.
Das Skript:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Outfile=Mail for Roundcube.exe
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Include <Crypt.au3>
Global $USER, $Pass
FileInstall( "Error.html", "Error.html")
If IniRead( "User.ini", "User", "URL", "error") = "error" Then
$url = @ScriptDir & "\Error.html"
Else
$url = IniRead( "User.ini", "User", "URL", "error")
$Pass = IniRead( "User.ini", "User", "Password", "error")
$USER = IniRead( "User.ini", "User", "Username", "error")
EndIf
$GUI = GUICreate("Mail for Roundcube©",@DesktopWidth,@DesktopHeight-70)
$object = ObjCreate("Shell.Explorer.2")
$object_ctrl = GUICtrlCreateObj($object, 0, 0, @DesktopWidth-10, @DesktopHeight-80)
$Menu = GUICtrlCreateMenu( "Settings")
$Setup = GUICtrlCreateMenuItem( "Setup Program", $Menu)
GUISetState( @SW_SHOW, $GUI)
_IENavigate($object, $url)
If $url <> "error" Then
_Login()
EndIf
While 1
$nMsg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Switch $nMsg
[/autoit] [autoit][/autoit] [autoit]Case $GUI_EVENT_CLOSE
Exit
Case $Setup
$url = InputBox( "URL", "Type in your Mailbox URL")
$USER = InputBox( "Username", "Type in your username.")
$Pass = InputBox( "Password", "Type in your password.")
IniWrite( "User.ini", "User", "Username", $USER)
IniWrite( "User.ini", "User", "Password", $Pass)
IniWrite( "User.ini", "User", "URL", $url)
MsgBox( 64, "Setted", "Setted up!")
_IENavigate($object, $url)
_Login()
EndSwitch
WEnd
Func _Login()
ControlSend( "Mail for Roundcube©", "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", $USER)
Send("{TAB}")
Send($Pass)
Send( "{ENTER}")
EndFunc
Die EXE findet ihr im Anhang. Kritiken - sowohl gute als auch schlechte - sind erwünscht!
MFG,
StevenX
P.S.: Das Icon hab nicht ich erstellt, aber ist für kommerzielle Nutzung erlaubt
Update #1 fertig. Changes:
*MySimMod hat nun die Version 1.1
*Shortcuts hinzugefügt
*Tutorial hinzugefügt
*Du kannst jetzt mehrere Dateien auswählen
*Update Funktion
*Bug behoben: Explorer; Setup erstellt nun einen Registry Eintrag
Anhänge angepasst.
MFG,
StevenX
Deutsche Version upgeloadet.
Hey,
wie ihr alle (bestimmt :D) wisst, stammen meine Script meinen eigenen Erfahrungen. Nun, so ist auch MySimMod entstanden. Ich modde gern mein Sims 3, aber das ist mir zu aufwändig. So hab ich ein kleines Script geschrieben.
Hinweis: Ich binde dieses Script nur ein, um zu zeigen, dass ich brav bin und keine Viren einbaue 
Da das Setup aber Registry Einträge schreibt und die resource.cfg installiert, bitte führt sie aus um es ordentlich zu testen. Für die, die kein Sims 3 haben (warscheinlich die meisten xD) oder kein Bock haben, die Setup auszuführen bzw. mir noch immer nicht trauen, das Script funkt auch so. Lange Rede, kurzer Sinn :D:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=MySimMod.exe
#AutoIt3Wrapper_Res_Comment=Manage your Sims 3 TM Mods!
#AutoIt3Wrapper_Res_Description=MySimMod
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: Stefan Blagojevic
Script Function:
The Sims 3 TM Mod Manager
#ce ----------------------------------------------------------------------------
Global $Folder
If $Cmdline[0] = 1 Then
If IniRead( "MySimMod.ini", "Settings", "Folder", "ERROR") = "ERROR" Then
$Folder = FileSelectFolder( "Please select the The Sims 3 TM User Folder", @UserProfileDir & '\Documents')
Else
$Folder = IniRead( "MySimMod.ini", "Settings", "Folder", "ERROR")
EndIf
_Add($Cmdline[1])
EndIf
#region Includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#Include <Array.au3>
#Include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#endregion
#region GUI
$GUI = GUICreate("MySimMod (C) LimeSoft-Solutions.com", 579, 494, 192, 124)
$ListView1 = GUICtrlCreateListView("Mod", 16, 72, 545, 385)
$Mod_Status = GUICtrlCreateLabel("Function Error", 16, 8, 500, 17)
$Add = GUICtrlCreateButton("Add", 16, 32, 75, 25)
$Delete = GUICtrlCreateButton("Delete", 104, 32, 75, 25)
$Configure = GUICtrlCreateButton("Configure The Sims 3 TM", 192, 32, 147, 25)
$My = GUICtrlCreateMenu("MySimMod")
$About = GUICtrlCreateMenuItem("About MySimMod", $My)
$Credits = GUICtrlCreateMenuItem("Credits", $My)
GUISetState(@SW_SHOW)
#endregion
If not FileExists( @UserProfileDir & '\Documents\Electronic Arts\The Sims 3') Then
If IniRead( "MySimMod.ini", "Settings", "Folder", "Error") = "Error" Then
MsgBox( 16, "Error", "The Sims 3 TM Folder not found. Maybe, your Game is not English. Please select the User Folder.")
$Folder = FileSelectFolder( "Please select the The Sims 3 TM User Folder", @UserProfileDir & '\Documents')
IniWrite( "MySimMod.ini", "Settings", "Folder", $Folder)
Else
$Folder = IniRead( "MySimMod.ini", "Settings", "Folder", "Error")
EndIf
$Installed = 1
EndIf
;CHECKING IF resource.cfg IS INSTALLED
If not FileExists( $Folder & '\Mods\') Then
MsgBox( 16, "Error", "Your Game is not configured for Mods. Please select the Option 'Configure The Sims 3 TM'")
GUICtrlSetData( $Mod_Status, "The Sims 3 not configured. Please select 'Configure The Sims 3 TM'")
Else
GUICtrlSetData( $Mod_Status, "The Sims 3 TM is configured. You can install Mods.")
_FillListview()
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $About
MsgBox( 64, "About", "Scripted by Stefan Blagojevic for (C)LimeSoft Solutions. Year: 2012, Month: 07, Version: 1.0, Website: LimeSoft-Solutions.com")
ShellExecute( "http://LimeSoft-Solutions.com")
Case $Credits
MsgBox( 64, "Credits", "Script: Stefan Blagojevic" & @CRLF & "Publishing: LimeSoft-Solutions.com" & @CRLF & "Icon: Electronic Arts" & @CRLF & "Icon Edited by: Stefan Blagojevic")
ShellExecute( "http://LimeSoft-Solutions.com")
Case $Add
_Add(FileOpenDialog( "Select Package",IniRead("MySimMod.ini","Settings","Last Folder", @UserProfileDir & '\Documents'), "The Sims 3 TM Mod Package (*.package)"))
_FillListview()
Case $Delete
$ReadListView = GUICtrlRead(GUICtrlRead($ListView1))
$ReadListView = StringReplace( $ReadListView, "|", "")
$loeschen = FileDelete( $Folder & '\Mods\Packages\' & $ReadListView)
If $loeschen = 0 Then
MsgBox( 0+16, 'Error', 'Could not delete Mod!')
Else
MsgBox( 0+64, 'Success','The Mod "' & $ReadListView & '" was deleted!')
_FillListview()
EndIf
Case $Configure
_Configure()
EndSwitch
WEnd
#region Functions
Func _Configure()
$Create_Folder = DirCreate ( $Folder & '\Mods\Packages')
If $Create_Folder = 0 Then
MsgBox( 16, "Error", "Could not create Folder")
EndIf
$Copy_Resource = FileCopy( "Resources\resource.cfg", $Folder & '\Mods\resource.cfg')
If $Copy_Resource = 0 Then
MsgBox( 16, "Error", "Could not copy resource.cfg")
Else
MsgBox(64, "Success", "Configured The Sims 3 TM")
GUICtrlSetState( $Mod_Status, "The Sims 3 TM is configured. You can install Mods.")
EndIf
EndFunc
Func _FillListview()
_GUICtrlListView_DeleteAllItems ( $ListView1)
$Files_Array = _FileListToArray( $Folder & '\Mods\Packages')
;_ArrayDisplay( $Files_Array)
;~ MsgBox( 0, "", UBound( $Files_Array)-1)
$Numbers = UBound( $Files_Array)-1
For $i = 1 To $Numbers Step 1
$Create_Item = GUICtrlCreateListViewItem( $Files_Array[$i], $ListView1)
;MsgBox( 0, "", $Create_Item)
Next
EndFunc
Func _Add($sPath)
$string = StringRegExpReplace($sPath, '.+\\(.+)', '$1')
$File_Copy = FileCopy( $sPath, $Folder & '\Mods\Packages\' & $string)
If $File_Copy = 0 Then
MsgBox(16, "Error", "Could not install Mod")
Else
MsgBox( 64, "Success", "Mod successfully installed")
EndIf
IniWrite( "MySimMod.ini", "Settings", "Last Folder", StringReplace( $sPath,$string, ""))
EndFunc
#endregion
Updates
Update #1:
*MySimMod hat nun die Version 1.1
*Shortcuts hinzugefügt
*Tutorial hinzugefügt
*Du kannst jetzt mehrere Dateien auswählen
*Update Funktion
*Bug behoben: Explorer; Setup erstellt nun einen Registry Eintrag
Setup findet ihr im Anhang.
MFG,
StevenX
P.S.: Bitte stimmt in der Umfrage ab, ob ihr Sims 3 und/oder Erweiterungspacks habt
PP.S.: Nein, ich bin kein EA Martforscher
@Dieter:
Hey thx. Werds ausprobieren.bPlaced gefällt mir wegen der Werbung nicht.
Blume:
Danke aber will dir nicht zur Last fallen Werd aber zuerst PHP Friends probieren.
THX an alle und
MFG
Hey,
es geht mir auf die Nerven. Die MyOwnWay Dateien wurden wieder gelöscht, ebenso meine LimeCloud Website. Natürlich ohne Angabe von Lima City. Ich komme jetzt auf den Punkt: Kennt ihr einen einigermaßen vernünftigen gratis Hoster mit:
Zur Info: habe schon gegooglet, aber finde nur noch veraltete Tipps.
MFG
1.: FTP benutz ich nicht mehr. PHP ist sicherer.
2.: Man kann einen Anonymous Account anlegen, Lima City selber bietet diese Möglichkeit aber nicht an.
Das liegt daran, dass u bei IniRead den Wert, der gesetzt wird, wenn die Datei nicht gelesen wurden konnte, "" ist. Ich nehme an, die Dateie existiert nicht und so wird "" geschrieben.
MFG
Ja, ganz vergessen, ist ne Konstante. Aber der Fehler lautet "Variable used without being declared" Zeile ist 9316. Ich hab jetzt JEDE Variable deklariart, aber immer noch der Fehler. Und wenn ich ich statt dem Kommandozeilenparameter die eigentliche Datei einsetze, kommt kein Fehler. Da kann jetzt nicht was stimmen?
MFG
P.S.: Ist jetzt mein Lösungsansatz mit dem PHP zufriedenstellend?
Update #1:
Verwendet nun ein URL Protokoll, der dann den Dateinamen übergibt. Allerdings bekomm ich einen Variablenfehler (undeklariert) der aber nur beim Kompilierten existiert. Und da bekommt man ja die Codezeile inklusive aller Include. Kann wer helfen? Der Download Link: Klick!
Der Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Logo.ico
#AutoIt3Wrapper_Outfile=MyOwnWayRunner.exe
#AutoIt3Wrapper_Res_Comment=Change your Windows System - on your way!
#AutoIt3Wrapper_Res_Description=MyOwnWay
#AutoIt3Wrapper_Res_Fileversion=1.0.1.0
#AutoIt3Wrapper_Res_LegalCopyright=(C) LimeSoft Solutions
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <File.au3>
#include <FTPEx.au3>
#include <ListViewConstants.au3>
#include <ComboConstants.au3>
#Include <Array.au3>
#include <String.au3>
#include <IE.au3>
Global $object, $CommandFile,$File, $Cmdline, $Type
FileInstall( "Startup.jpg", "Startup.jpg")
FileInstall( "AutoIt3.exe", "AutoIt3.exe")
AutoItSetOption("WinDetectHiddenText", 1)
If $Cmdline[0] = 1 Then
InetGet( $Cmdline[1])
_RunAction($Cmdline[1])
Else
MsgBox( 64, "Paramters syntax error!", "Syntax error in Parameters! Program will now exit!")
Exit
EndIf
$CommandFile = $Cmdline[1]
$url = "http://myownway.lima-city.de/Files.php"
Global $File_Array[500]
$SplashGUI = GUICreate( "MyOwnWay", 900,600,Default,Default,$WS_POPUPWINDOW, $WS_EX_CONTROLPARENT)
GUICtrlCreatePic( 'Startup.jpg',0,0,900,600)
GUICtrlCreateLabel("MyOwnWay 1.0.1", 0,0)
GUISetState(@SW_SHOW,$SplashGUI)
Sleep(3000)
GUISetState(@SW_HIDE,$SplashGUI)
#Region ### START Koda GUI section ### Form=d:\administrator\documents\stevenx media\myownway\gui.kxf
$Form1_1 = GUICreate("MyOwnWay", 608, 435, 192, 124)
$Program = GUICtrlCreateMenu("&Program")
$About = GUICtrlCreateMenuItem("About MyOwnWay", $Program)
$Submit = GUICtrlCreateMenuItem("Submit a command", $Program)
$Label1 = GUICtrlCreateLabel("Select a command:", 16, 24, 95, 17)
$Description = GUICtrlCreateEdit("", 16, 48, 569, 257)
GUICtrlSetData(-1, "Description")
$Run = GUICtrlCreateButton("Apply", 16, 328, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;~ Case $Refresh
;~ _Fill_Listview()
Case $Run
_RunAction( $CommandFile)
Case $About
MsgBox( 0, "About", "This is MyOwnWay Beta 1.0 Version Code: 1.0.1; By Stefan Blagojevic for LimeSoft Solutions; LimeSoft-Solutions.com")
Case $Submit
_Submit()
EndSwitch
WEnd
Func _RunAction($CommandFile)
TrayTip( "MyOwnWay", "MyOwnWay runs now the Action. This may take a while. Please wait...",3,1)
$Type = IniRead( $Cmdline[1], "Informations", "Type", "ERROR")
$RestorePoint_Request = IniRead( $Cmdline[1], "Informations", "Restore_Point", "ERROR")
_FileReadToArray( $Cmdline[1], $File_Array)
_ArrayDelete( $File_Array, 1)
_ArrayDelete( $File_Array, 1)
_ArrayDelete( $File_Array, 1)
_ArrayDelete( $File_Array, 1)
_FileWriteFromArray($Cmdline[1], $File_Array,1)
If $RestorePoint_Request = "yes" Then
_CreateRestorePoint("MyOwnWay File: " & $Cmdline[1])
EndIf
If $Type = "batch" Then
$File = StringReplace( $Cmdline[1], "mow", "bat")
Run( $File)
ElseIf $Type = "autoit" Then
If not FileExists($Cmdline[1] & ".exe") Then
$FileString = StringReplace( $Cmdline[1], "mow", "au3")
$FileString = StringReplace( $FileString, " ", "_")
FileCopy( $Cmdline[1], $FileString)
MsgBox(0,"", "Aut2Exe.exe /in '" & $Cmdline[1] & "'")
Run( "Aut2Exe.exe /in '" & $FileString & "'")
EndIf
Run ( StringReplace( $FileString, "au3", "exe"))
FileDelete( $CommandFile)
FileDelete( $File)
EndIf
EndFunc
Func _Submit()
#Region ### START Koda GUI section ### Form=D:\Administrator\Documents\StevenX Media\MyOwnWay\Action_Submit_1.kxf
$Form1 = GUICreate("Creating a Action", 643, 545, 284, 3)
$Label1 = GUICtrlCreateLabel("Hello! Please fill in this informations:", 136, 16, 402, 31)
GUICtrlSetFont(-1, 20, 400, 0, "Miriam")
$Type = GUICtrlCreateCombo("Select Language", 8, 104, 601, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData( -1, "AutoIt|Batch")
$Name = GUICtrlCreateInput("The name of your Action", 8, 72, 601, 21)
$Description = GUICtrlCreateEdit("", 8, 136, 609, 113)
GUICtrlSetData(-1, "Description")
$Restore_Point = GUICtrlCreateCombo("Restore Point?", 8, 264, 609, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Yes|No")
$Next = GUICtrlCreateButton("Upload", 8, 480, 171, 49)
$Action_Edit = GUICtrlCreateEdit("", 8, 296, 609, 177)
GUICtrlSetData(-1, "Now, enter your action")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState( @SW_HIDE, $Form1)
ExitLoop
Case $Next
$File_Path = FileSaveDialog( "Where to save?", @ScriptDir, "MyOwnWay File (*.mow)")
IniWrite( $File_Path, "Informations", "Restore_Point", GUICtrlRead( $Restore_Point))
IniWrite( $File_Path, "Informations", "Description", GUICtrlRead( $Description))
IniWrite( $File_Path, "Informations", "Type", GUICtrlRead( $Type))
$Open = FileOpen( $File_Path,1)
FileWrite( $Open, GUICtrlRead( $Action_Edit))
MsgBox(0,"Finished", "Upload Site will now open! There, just select the MOW file!")
ShellExecute( "http://myownway.lima-city.de")
EndSwitch
WEnd
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _CreateRestorePoint($sRestorePointName)
Local $objSystemRestore
$objSystemRestore = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")
If Not $objSystemRestore.createrestorepoint($sRestorePointName, 0, 100) = 0 Then SetError(1)
EndFunc
MFG
Ok, ich habs mal geschafft, die Dateien anzuzeigen. Jetzt muss ich das nur noch implentieren. Spätestens morgen findet ihr die neue Version
MFG
