Jump to content
Sign in to follow this  
cypher

A Lil help with on event mode

Recommended Posts

cypher

Ok so i realy donno what i did wrong... I`m trying to make a program that will open internetexplorer till now... but he doesn`t want to open or when he does he doesn`t want to close:

; Include
#include <GUIConstants.au3>; Adding basic constants so the grafical user interface variable will work.

;RapidShare Magic Options 
AutoItSetOption("GUICloseOnESC",1)
Opt("GUIOnEventMode", 1)

While 1
  Sleep(10) ; Just idle around 
WEnd

;GUI
GUICreate("RapidShare Magic", 400, 400); Creating the gui.
GUISetState(@SW_SHOW); Making him show his face...

;Menu
$File = GUICtrlCreateMenu("&File")
$Exititem = GUICtrlCreateMenuItem("Exit", $File)
$Control = GUICtrlCreateMenu("&Control")
$Help = GUICtrlCreateMenu("&Help")

;Download Link
GUICtrlCreateInput("Download Link", 35, 335, 335, 20, 0x0001)

;Buttons
$downloadbutton = GUICtrlCreateButton("Download", 175, 300)
GUICtrlSetOnEvent(-1, "Download")

;Functions
Func Download()
    Run("C:\Program Files\Internet Explorer\iexplore.exe")
EndFunc

Func CLOSEClicked()
  Exit
EndFunc
Edited by cypher

Share this post


Link to post
Share on other sites
d4rk

Func Download()

_IECreat("about:blank")

EndFunc


[quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys

Share this post


Link to post
Share on other sites
cypher

ok so i`d like to open a ie with the address that is tiped on the $link input

Share this post


Link to post
Share on other sites
d4rk

ok so i`d like to open a ie with the address that is tiped on the $link input

$link=GUICtrlCreateInput("Download Link", 35, 335, 335, 20, 0x0001)

Func Download()

_IECreat($link)

EndFunc


[quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys

Share this post


Link to post
Share on other sites
cypher

$link=GUICtrlCreateInput("Download Link", 35, 335, 335, 20, 0x0001)

Func Download()

_IECreat($link)

EndFunc

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Cypher\Desktop\rs prj\project.au3"

C:\Users\Cypher\Desktop\rs prj\project.au3 (37) : ==> Unknown function name.:

_IECreat($link)

^ ERROR

>Exit code: 1 Time: 2.924

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.10.0
 Author:         Cypher

 Script Function:
    Download a file from rapidshare, then click the magic button and your ip will renew and clear cache also.

#ce ----------------------------------------------------------------------------

; Include
#include <GUIConstants.au3> ; Adding basic constants so the grafical user interface variable will work.

;RapidShare Magic Options 
AutoItSetOption("GUICloseOnESC",1)
Opt("GUIOnEventMode", 1)

;GUI
GUICreate("RapidShare Magic", 400, 400) ; Creating the gui.
GUISetState(@SW_SHOW) ; Making him show his face...

;Menu
$File = GUICtrlCreateMenu("&File")
$Exititem = GUICtrlCreateMenuItem("Exit", $File)
$Control = GUICtrlCreateMenu("&Control")
$Help = GUICtrlCreateMenu("&Help")

;Download Link
$link = GUICtrlCreateInput("Download Link", 35, 335, 335, 20, 0x0001)

;Buttons
$downloadbutton = GUICtrlCreateButton("Download", 175, 300)
GUICtrlSetOnEvent(-1, "Download")

;Functions
Func Download()
    _IECreate($link)
EndFunc

Func CLOSEClicked()
  Exit
EndFunc

While 1
    Sleep(10)
WEnd

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Cypher\Desktop\rs prj\project.au3"

C:\Users\Cypher\Desktop\rs prj\project.au3 (37) : ==> Unknown function name.:

_IECreate($link)

^ ERROR

>Exit code: 1 Time: 2.733

Edited by cypher

Share this post


Link to post
Share on other sites
d4rk

#include<IE.au3>


[quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys

Share this post


Link to post
Share on other sites
cypher

#include<IE.au3>
well now got more problems:

1. It opens 2 ie windows (doesn`t matter what i have in the download link)

one of them has address: http://0.0.0.7 and the other one no adress but it doesn`t load anything.

Any other ideas?

here is my source now:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.10.0
 Author:         Cypher

 Script Function:
    Download a file from rapidshare, then click the magic button and your ip will renew and clear cache also.

#ce ----------------------------------------------------------------------------

; Include
#include <GUIConstants.au3> ; Adding basic constants so the grafical user interface variable will work.
#include<IE.au3> ; Support for ie module.

;RapidShare Magic Options 
AutoItSetOption("GUICloseOnESC",1)
Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

;GUI
GUICreate("RapidShare Magic", 400, 400) ; Creating the gui.
GUISetState(@SW_SHOW) ; Making him show his face...

;Menu
$File = GUICtrlCreateMenu("&File")
$Exititem = GUICtrlCreateMenuItem("Exit", $File)
$Control = GUICtrlCreateMenu("&Control")
$Help = GUICtrlCreateMenu("&Help")

;Download Link
$link = GUICtrlCreateInput("Download Link", 35, 335, 335, 20, 0x0001)

;Buttons
$downloadbutton = GUICtrlCreateButton("Download", 175, 300)
GUICtrlSetOnEvent(-1, "Download")

;Functions
Func Download()
    _IECreate($link)
EndFunc

Func CLOSEClicked()
  Exit
EndFunc

While 1
    Sleep(10)
WEnd

also my app won`t close by pressing the X button. Why?

esc, alt F4 not working why???

Edited by cypher

Share this post


Link to post
Share on other sites
cypher

*bump*

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×