Chrome App Creator

[Maffe811]

Due to school I haven't been too active doing AutoIt stuff so i thought I would write up something.

As im currently customizing my newly formatted desktop i thought i would make something to aid at that.

Say hi to my Chrome App Creator!

Let's do this systematical and nice.

What is an app?

- You know the chrome web store, gmail, youtube icons ?

Well thats the kind of app this is making.

Its basicly a shortcut.

You choose what icon it will be using, and where it will take you when you click it.

What does it do?

- It takes the image file and copy/move it to a folder together with creating a manifest.json.

The manifest is where it saves the name of the app, and the web page you set it to open.

Isn't this the wrong forum part if you're showing off your program?

- No, I don't think so, since the main reason for posting is to get feedback on the way its coded.

Any particular "rules" to follow?

- Yes, keep the image at 128x128 or less.

I always use 128x128, so i don't know what happens if you use less, but the program stops you if its bigger.

Also if you don't remember to add Http:// it will add it for you.

The code?

- Here:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#Include <GDIPlus.au3>
Local $msg
Global $HorizontalPlacement = 1
Global $HorizontalSpacing = 10
;Global $VerticalPlacement = 1
;Global $VerticalSpacing = 10
Global $FileLocation
Global $JSON
Global $hImage
$GUI = GUICreate("App Creator", 230, 400)
$NameInput = GUICtrlCreateInput("Name", 10, ($HorizontalPlacement*$HorizontalSpacing), 210)
;$HorizontalPlacement += 3
;$DescriptionInput = GUICtrlCreateInput("Description", 10, ($HorizontalPlacement*$HorizontalSpacing), 210)
$HorizontalPlacement += 3
$WebsiteInput = GUICtrlCreateInput("Website", 10, ($HorizontalPlacement*$HorizontalSpacing))
$HorizontalPlacement += 3
$ImageLocationOutput = GUICtrlCreateInput("No file selected", 10, ($HorizontalPlacement*$HorizontalSpacing))
GUICtrlSetState(-1,$GUI_DISABLE)
$HorizontalPlacement += 3
$MoveFileCheckbox = GUICtrlCreateCheckbox("Move the image file instead of copying it", 10, ($HorizontalPlacement*$HorizontalSpacing))
$HorizontalPlacement += 3
$ImageBrowseButton = GUICtrlCreateButton("Browse", 10, ($HorizontalPlacement*$HorizontalSpacing),80)
$CreateAppButton = GUICtrlCreateButton("Create App", 220-10-70, ($HorizontalPlacement*$HorizontalSpacing),80)

GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
Select
  Case $msg = $GUI_EVENT_CLOSE
   _GDIPlus_ImageDispose ($hImage)
   _GDIPlus_ShutDown ()
   Exit
  Case $msg = $ImageBrowseButton
   $FileLocation = FileOpenDialog("Select the image file.", @UserProfileDir & "\pictures", "Png Images(*.png)", 1)
   If @error Then
    MsgBox(4096, "Error", "No File(s) chosen!")
   Else
    _GDIPlus_Startup ()
    Local $hImage = _GDIPlus_ImageLoadFromFile($FileLocation)
    If @error Then
     MsgBox(16, "Error", "Does the file exist?")
    EndIf
;~    ConsoleWrite(_GDIPlus_ImageGetWidth($hImage) & @CRLF)
;~    ConsoleWrite(_GDIPlus_ImageGetHeight($hImage) & @CRLF)
    If _GDIPlus_ImageGetWidth($hImage) > 128 or _GDIPlus_ImageGetHeight($hImage) > 128 Then
     MsgBox("","Error!","The image you selected is " & _GDIPlus_ImageGetWidth($hImage) & " x " & _GDIPlus_ImageGetHeight($hImage) & " pixels." & @CRLF & "Maximum size allowed for image is 128x128.")
    Else
     ;MsgBox("","",$FileLocation)
     $StringReturn = StringInStr($FileLocation,"\",0,-1)
     If $StringReturn = 0 then Exitloop
     ;MsgBox("","",$StringReturn)
     $StringReturn = StringTrimLeft($FileLocation, $StringReturn)
     $FileName = $StringReturn
     ;MsgBox("","",$StringReturn)
     GUICtrlSetData($ImageLocationOutput, $FileName)
;~    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hImage)
;~    _GDIPlus_GraphicsDrawRect($hGraphics,10, 10, 128,128)


    EndIf
   ;------------------------------------
   EndIf
  Case $msg = $CreateAppButton
   If @error Then
    MsgBox(4096, "Error", "No File(s) chosen!")
   Else
    ;MsgBox("","",GUICtrlRead($MoveFileCheckbox))
    ; 1 = Checked, 4 = Unchecked
    $FileSaveDirectory = FileSaveDialog("Choose directory",@UserProfileDir & "\documents","Folder(*.*)",-1, "My Chrome App")
    DirCreate ($FileSaveDirectory)
;~   #cs
    If Not StringInStr(Guictrlread($WebsiteInput),"http://") Then
;~    MsgBox("","",Guictrlread($WebsiteInput))
     $WebsiteInput = "http://" & Guictrlread($WebsiteInput)
;~    MsgBox("","",$WebsiteInput)
    EndIf
;~   #CE
    If GUICtrlRead($MoveFileCheckbox) = 1 then
     FileMove($FileLocation, $FileSaveDirectory)
    ElseIf GUICtrlRead($MoveFileCheckbox) = 4 then
     FileCopy($FileLocation, $FileSaveDirectory)
    EndIf
    ;MsgBox("","",$FileSaveDirectory & "\manifest.json")
    _FileCreate($FileSaveDirectory & "\manifest.json")
    $JSONFile = FileOpen($FileSaveDirectory & "\manifest.json",1)
    $JSON ='{' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"name": "' & GUICtrlRead($NameInput) & '",' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"description": "' & GUICtrlRead($NameInput) & ' App",' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"version": "1.0",' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"icons": {' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"128": "' & $FileName & '"' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '},' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"app": {' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"urls": [' & @CRLF
    FileWriteLine($JSONFile, $JSON)
;~   $JSON = '"' & GUICtrlRead($WebsiteInput) & '"' & @CRLF
    $JSON = '"' & $WebsiteInput & '"' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '],' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"launch": {' & @CRLF
    FileWriteLine($JSONFile, $JSON)
;~   $JSON = '"web_url": "' & GUICtrlRead($WebsiteInput) & '"' & @CRLF
    $JSON = '"web_url": "' & $WebsiteInput & '"' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '}' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '},' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"permissions": [' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"unlimitedStorage",' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '"notifications"' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = ']' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    $JSON = '}' & @CRLF
    FileWriteLine($JSONFile, $JSON)
    MsgBox("","","The folder containing all the files was successfully created!" & @CRLF & "Enjoy your new app!")
    GUICtrlSetData($NameInput,"Name")
    GUICtrlSetData($WebsiteInput,"Website")
    GUICtrlSetData($ImageLocationOutput, "No file selected")
   EndIf
EndSelect
WEnd

So to wrappin it up!

1. If you're gonna comment on HOW something is coded (ofc you are...) please remember to tell me WHY you would do it your way, and explain instead of saying "its better".

2. At, i think it is, line 70 you can see some GDI+ stuff commented out.

I tried to make a preview beneath the buttons, but im lost at GDI+

If anyone have a suggestion on what i need to do here, please tell me.

3. Alot of the commented out MsgBoxes are to debug the script.

If you wonder about anything, please let me know and ill try to explain.

[Maffe811]

Is it THAT shitty?

You guys won't even comment on it??

Well, i should try to work some more on it then ?

Btw, ive changed the the input wheree it tell you what image is chosen to a label.

[JohnOne]

Here's a comment.

Isn't this the wrong forum part if you're showing off your program?

- No, I don't think so, since the main reason for posting is to get feedback on the way its coded.

You're wrong, it belongs in the example scripts if you want feedback, but still, you should not expect any.

You might be proud of your program, and you have every right to be, but that does not mean people

will take the time to read past the first sentence if the idea is uninteresting to them.

Good luck with whatever it is.

[guinness]

I don't use Chrome, hence the very little feedback from me. One idea, a little less FileWriteLine and more of FileOpen & FileWrite!

[Maffe811]

You're wrong, it belongs in the example scripts if you want feedback, but still, you should not expect any.

You might be proud of your program, and you have every right to be, but that does not mean people

will take the time to read past the first sentence if the idea is uninteresting to them.

Okay, thanks.

Seems like i shoulda given it a bit more thought before posting here.

Thanks for feedback none the less.

I don't use Chrome, hence the very little feedback from me. One idea, a little less FileWriteLine and more of FileOpen & FileWrite!

I was waiting for this.

But i tried

$JSON &= "Text here"
$JSON &= "Text here"
$JSON &= "Text here"
$JSON &= "Text here"
FileWrite($JSONFile,$JSON)

I got an empty file then

I guess ill try to fix it.

[water]

Maybe the FileClose is missing. This works just fine here:

Global $JSONFile = FileOpen("C:tempmanifest.json",1)
ConsoleWrite(@error & @CRLF)
Global $JSON
$JSON &= "Text here" & @CRLF
$JSON &= "Text here" & @CRLF
$JSON &= "Text here" & @CRLF
$JSON &= "Text here" & @CRLF
FileWrite($JSONFile,$JSON)
FileClose($JSONFile)

[Maffe811]

Maybe the FileClose is missing. This works just fine here:

Global $JSONFile = FileOpen("C:\temp\manifest.json",1)
ConsoleWrite(@error & @CRLF)
Global $JSON
$JSON &= "Text here" & @CRLF
$JSON &= "Text here" & @CRLF
$JSON &= "Text here" & @CRLF
$JSON &= "Text here" & @CRLF
FileWrite($JSONFile,$JSON)
FileClose($JSONFile)

Yes, i used this to create a .json file and it worked, it also worked without the FileClose.

It did not work without the 1 at FileOpen, which i hadn't used in my script... Small things make big problems...

[water]

Because 0 (read mode) is default.

That' s why I always check the return value and/or @error after such function calls. Then I know why my script doesn't work and where it happens.

Edited June 8, 2012 by water

[Maffe811]

I usually use MsgBox to do that.

But i fixed that and it still didn't work.

Declaring the variable as Global fixed it.