My First Script PDA

[testingtest]

Hi this is my first script that contains a GUI.

I wasn't going to release this it was just a test please laugh at me if you must .

I might make it better if I get some skills with photo shop or gimp or something on the lines of that.

all it does is let you write a simple line of text to a file.

CODE

#include <GUIConstants.au3>

#include <File.au3>

$Name = "Untitled PDA.txt"

If Not FileExists($Name) Then

_FileCreate($Name)

EndIf

$File = FileOpenDialog("Open a saved project" , @ScriptDir , "All File Types (*.*)")

If @Error Then

MsgBox(16 , "" , "No File(s) chosen")

EndIf

$PDA = GUICreate("PDA", 282, 402, 406, 224)

$Main = GUICtrlCreatePic(@ScriptDir & "\Main.bmp", 0, 0, 281, 401, BitOR($SS_NOTIFY,$WS_GROUP))

GUICtrlSetState(-1, $GUI_DISABLE)

$Text = GUICtrlCreateEdit("", 48, 64, 185, 225)

If $File = "" Then

GUICtrlSetData(-1 , "Type your text in here")

Else

GUICtrlSetData(-1 , $File)

EndIf

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

$Save = FileSaveDialog("Save your file" , @ScriptDir , "All File Types (*.*)")

If $Save = "" Then

Exit

Else

If FileExists($Name) Then

ProgressOn("Please Wait" , "Creating then Writing to the file" , "Shouldn't take long")

_FileCreate($Name)

FileOpen($Name , 2)

FileWrite($Name , GUICtrlRead($Text) & @CRLF)

FileClose($Name)

ProgressOff()

Else

Exit

EndIf

EndIf

Exit

EndSwitch

WEnd

my coding is pretty poor right now and I hope it will get better withing a few months.

My GUI is lacking on some stuff I couldn't figure out how to hide the GUI so it just shows the PDA picture.

What I plan to add if I continue this project will be...

- Font

- Font Size

- Font Colour

- Embed Internet Explorer

- Embed Windows Media Player

- Create a Ini file so the script knows if your a new user or not and can check for safed files

- Add the date to the top of every safed file

- This one is a bit advance but I want it to be able to store files in side it's self sort of like a win zip file

- Better GUI set up

sorry if this was a waste of time and sorry for my spelling mistakes and spelling habits (English is not my main language)

[updates]

CODE

$Main = GUICtrlCreatePic(@ScriptDir & "\Main.bmp", 0, 0, 281, 401, BitOR($SS_NOTIFY,$WS_GROUP))

Edited February 21, 2007 by testingtest

[James]

A good start. So basically your trying to make a PDA Shell in AutoIT. I like it.

Edit: You might want to change:

$Main = GUICtrlCreatePic("C:\Documents and Settings\Proxy-Demon.JOHN\Desktop\pda\Main.bmp", 0, 0, 281, 401, BitOR($SS_NOTIFY,$WS_GROUP))
oÝ÷ Ù:ºÚ"µÍÌÍÓXZ[HÕRPÝÜX]TXÊØÜ  [È ][ÝÉÌLÓXZ[  ][ÝËK
K]Ô    ÌÍÔÔ×ÓÕQK    ÌÍÕÔ×ÑÔÕT
JB

Also you should look at ShapedGUI so you can get the PDA background as the GUI.

Edited February 21, 2007 by Secure_ICT

[testingtest]

A good start. So basically your trying to make a PDA Shell in AutoIT. I like it.

Edit: You might want to change:

$Main = GUICtrlCreatePic("C:\Documents and Settings\Proxy-Demon.JOHN\Desktop\pda\Main.bmp", 0, 0, 281, 401, BitOR($SS_NOTIFY,$WS_GROUP))
oÝ÷ Ù:ºÚ"µÍÌÍÓXZ[HÕRPÝÜX]TXÊØÜ  [È ][ÝÉÌLÓXZ[  ][ÝËK
K]Ô    ÌÍÔÔ×ÓÕQK    ÌÍÕÔ×ÑÔÕT
JB

Also you should look at ShapedGUI so you can get the PDA background as the GUI.

thanks for the suggestions.

I am always willing for help, questions and even people who think it is a stupid idea I would still like the truth to make everybody happy

[James]

That's good! You could also look at one of Larry's posts. I will find it soon. But it cuts around an image and so that would make it easier. So are you going to make it like a mobile shell but in AutoIt? You could cut around the buttons at the bottom of the image and then make them into buttons and then when they are pressed they can bring up menus etc.

I will make you a small list of useful links to things you may find useful.

Edit: List below:

• Larry's Skin GUI
• PDA Image with black outline

Ill edit with more later. Edited February 22, 2007 by Secure_ICT

[testingtest]

That's good! You could also look at one of Larry's posts. I will find it soon. But it cuts around an image and so that would make it easier. So are you going to make it like a mobile shell but in AutoIt? You could cut around the buttons at the bottom of the image and then make them into buttons and then when they are pressed they can bring up menus etc.

I will make you a small list of useful links to things you may find useful.

Edit: List below:

• Larry's Skin GUI
• PDA Image with black outline

Ill edit with more later.

I really am pleased to see people helping me, because of you I will try the best to keep working on the project to the best of my ability.

Tanks again Ill try to make it worth everyones wild when I am finished.

[Edited]

Here is what I got. I must be doing something wrong not sure of what though. The image is not fully showed and it isn't hiding the GUI part.

CODE

#include <GUIConstants.au3>

$gui = GUICreate("PDA", 282, 402, 406, 224 , $WS_POPUP)

GUICtrlCreatePic(".\Main2.bmp", 0 , 0, 346 , 548)

$a = DLLCall(".\BMP2RGN.dll","int","BMP2RGN", _

"str",".\Main2.bmp", _

"int",0, _

"int",0, _

"int",0)

SetWindowRgn($gui, $a[0])

GUISetState()

Sleep(2000)

Func SetWindowRgn($h_win, $rgn)

DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $rgn, "int", 1)

EndFunc

Note I did look at the pictures height and width

[qoute]

So are you going to make it like a mobile shell but in AutoIt

[/qoute]

I am not sure it will be something to keep notes in and will remind you of important stuff but I plan on making it do a lot of stuff. I would love it if you could explain a little more by the term mobile shell. I seen a few phone scripts maybe I can add that in as well

Edited February 22, 2007 by testingtest

[James]

Hey,

I am pleased to hear you are going to carry on.

Here is what I got. I must be doing something wrong not sure of what though. The image is not fully showed and it isn't hiding the GUI part.

Hmm.. I see what you mean. I will have a look and see if I can try to fix it. I don't know.

I would love it if you could explain a little more by the term mobile shell.

Well, like a M$ phone works. You click a button and a little menu drops down or whatever it does.

Do you use Koda? Because if you do, then you can look at Com objects and place them in. This will allow you to use Windows Media Player and such.

Thanks,

Secure

[Valuater]

Cool!...

I did one of these a while back, maybe it could help you

http://www.autoitscript.com/forum/index.ph...ost&p=88961

8)

[James]

Wow, that's pretty neat Val.

[Touch]

I suggest asking Larry to help with the Image as a GUI. I found that it is hard to use.

[testingtest]

wow thanks guys. I am pleased you are all willing to help. If anyone has any thing else they would like to see added suggest it, but if you can supply the script that will help much more.

thanks

Edited February 22, 2007 by testingtest

[testingtest]

need bmp...attached

#include <GUIConstants.au3>
$gui = GUICreate("",346,548,-1,-1,$WS_POPUP)
GUICtrlCreatePic(".\main.bmp",0,0,346,548)

$a = DLLCall(".\BMP2RGN.dll","int","BMP2RGN", _
            "str",".\main.bmp", _
            "int",0, _
            "int",0, _
            "int",0)

SetWindowRgn($gui, $a[0])

GUISetState()
Sleep(2000)

Func SetWindowRgn($h_win, $rgn)
    DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $rgn, "int", 1)
EndFunc

you guys are so nice thanks

[testingtest]

Hello

It's me again one quick question and I should be fine will a button take shape of its picture or is there something to make your buttons into certain shapes.

Hope that makes sense

[James]

I know that GaFrost has made something, and alot of people have put pictures in buttons. I am not sure, but I can do a search for you?

Secure

[James]

Hey,

I found this, its made by Smoke_N:

Global $Pic1 = 100000000000000000
$main = GUICreate('')
$button = GUICtrlCreateButton('Create Pic Button', 10, 10, 100, 30)
GUISetState()
While 1
    $msg = GUIGetMsg()
    If $msg = $button Then
        $Pic1 = GUICtrlCreatePic(@MyDocumentsDir & '\My Pictures\MyPic', 10, 100, 100, 30)
    EndIf
    If $msg = $Pic1 Then
        MsgBox(0, 'Works', 'You clicked the button pic')
    EndIf
WEnd

You will need to change the directory to where the picture is placed. This will allow a picture to become a button

Original Topic: http://www.autoitscript.com/forum/index.ph...l=picture+words

[testingtest]

Hey,

I found this, its made by Smoke_N:

Global $Pic1 = 100000000000000000
$main = GUICreate('')
$button = GUICtrlCreateButton('Create Pic Button', 10, 10, 100, 30)
GUISetState()
While 1
    $msg = GUIGetMsg()
    If $msg = $button Then
        $Pic1 = GUICtrlCreatePic(@MyDocumentsDir & '\My Pictures\MyPic', 10, 100, 100, 30)
    EndIf
    If $msg = $Pic1 Then
        MsgBox(0, 'Works', 'You clicked the button pic')
    EndIf
WEnd

You will need to change the directory to where the picture is placed. This will allow a picture to become a button

Original Topic: http://www.autoitscript.com/forum/index.ph...l=picture+words

thanks a lot I had no clue were to look.

[James]

No Problem. hehe! Need anything else?

[testingtest]

No Problem. hehe! Need anything else?

wow you reply fast. what you doing up so early hehe. I think ill be ok once I can create the the fake buttons into real buttons.

you could help me out with the button idea's though I am not sure of what to make out of all of theses buttons heres a picture. I am sorry for my bad drawing skills

[edited]

forgot to upload the picture oh I see the picture is to big hold on

Edited February 23, 2007 by testingtest

[James]

I'm in a different time zone, and I'm ill, so I'm sat at my computer I have been watching some TV downstairs aswell.

About your picture. The ones in which you say not sure they could be movement through menus. Basically, Send functions with up/down/left/right keys being pressed. And the middle one can be select. The rest is all good.

Anything else? I really think you can do well with this. Keep it up!

[testingtest]

I'm in a different time zone, and I'm ill, so I'm sat at my computer I have been watching some TV downstairs aswell.

About your picture. The ones in which you say not sure they could be movement through menus. Basically, Send functions with up/down/left/right keys being pressed. And the middle one can be select. The rest is all good.

Anything else? I really think you can do well with this. Keep it up!

thanks, with all of this help I must continue on although I will take breaks from the script but it will get done.

I will try and add as many gadgets in this as possible,

I think ill even add something like this in it, if you look at the picture it looks pretty basic what it will allow you to do is make autoit files any were you go

I might even add my cd tray lock if I work out the bugs and make sure it can't be by passed as easy.

I think you guys will get a kick out of this but its ok I though it was funny as well, I got this pda idea from doom 3

[James]

I like the AutoIt compiler idea Do you have a working example? I was going to say use the CD-lock if you get it working, you beat me to it, this time

Doom 3? A great game!