[Solved] InetRead Add Function

[zxtnt09]

Hi guys,

* Sorry for my many questions,

------------------------------------------------

i use that and it's true and fine,

Local $dData = InetRead("http://example.com/my.html",1)
$my = BinaryToString(StringReplace($dData, "0A", "0D0A"), 4)

now how can i add functions in "my.html" and autoit run that function,

it's meant when ever "Read" data from website, use that serve as "Autoit Function",

something like that : 

In "my.html" we have this : 

MsgBox (1,"This is from website","this is from website")

In script we have this : 

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)
GuiSetState()

Local $dData = InetRead("http://example.com/my.html",1)
$my = BinaryToString(StringReplace($dData, "0A", "0D0A"), 4)
;this place is for MsgBox from "my.html"

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Thanks Alot, 

Edited October 11, 2015 by zxtnt09
Solved

[zxtnt09]

Help 

[mikell]

?

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)
GuiSetState()

Local $dData = BinaryToString(InetRead("http://example.com/my.html", 1))
$tmp = @tempdir & "\test.au3"
FileWrite($tmp, $dData)
ShellExecute($tmp)
FileDelete($tmp)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

 

[zxtnt09]

?

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)
GuiSetState()

Local $dData = BinaryToString(InetRead("http://example.com/my.html", 1))
$tmp = @tempdir & "\test.au3"
FileWrite($tmp, $dData)
ShellExecute($tmp)
FileDelete($tmp)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

 

 

[mikell]

Hmm sorry, the file was deleted too fast 

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)
GuiSetState()

Local $dData = "msgbox(0,'', 'this is a test')" ;BinaryToString(InetRead("http://example.com/my.html", 1))
$tmp = @tempdir & "\test.au3"
FileWrite($tmp, $dData)
ShellExecute($tmp)
sleep(1000)
FileDelete($tmp)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

 

[zxtnt09]

hooray  

thanks a lot it's work fine .

 

[zxtnt09]

 

but , if i have not any autoit, it wont be work is that true ? 

 

 

[water]

Compile the script and run the resulting Exe.

[Jos]

You can use the compiled script also as the stub to run the file, but make sure you use the "#pragma compile(AutoItExecuteAllowed, true)".

RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $tmp & '"')

Jos

[zxtnt09]

Compile the script and run the resulting Exe.

it is true, ( when i was compile that and run that it is true ) 

but if i send that to my friend ( have not Autoit ) 

is that worked for him too ? 

because it was make a test.au3 in %temp% directory,

and run that from %temp%, and if my friend haven't autoit it won't be run

[zxtnt09]

You can use the compiled script also as the stub to run the file, but make sure you use the "#pragma compile(AutoItExecuteAllowed, true)".

RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $tmp & '"')

Jos

is that true ? 

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)
GuiSetState()

Local $dData = BinaryToString(InetRead("http://example.com/my.html", 1))

$temp = @TempDir & "\"
RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $tmp & '"')


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

[mikell]

No problem if you compile the script using the directives as Jos said

BTW use ShellExecuteWait instead of ShellExecute so you can remove the sleep()

[water]

is that true ?

Have you tried? If yes, which errors did you get?

[zxtnt09]

Have you tried? If yes, which errors did you get?

 i use that,

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)
GuiSetState()

Local $dData = BinaryToString(InetRead("http://example.com/my.html", 1))
$tmp = @Tempdir & "\test.au3"
FileWrite($tmp, $dData)
RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $tmp & '"')
FileDelete($tmp)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

but i see this in %temp%, and i don't know is that work in another computer thats haven't Autoit.

is that work ? 

[water]

As you use the @TempDir macro to write and read/execute the script it should work on any computer.

[zxtnt09]

As you use the @TempDir macro to write and read/execute the script it should work on any computer.

i use that from another computer : 

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)
GuiSetState()

Local $dData = BinaryToString(InetRead("http://example.com/my.html", 1))
$tmp = @tempdir & "\test.au3"
FileWrite($tmp, $dData)
ShellExecute($tmp)
sleep(1000)
FileDelete($tmp)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

and got this error : 

[Jos]

is that true ? 

Of  course not ...  I am just bullshitting. 

[water]

You need to use the code Jos provided in post #9 to execute the au3 file!

[zxtnt09]

You need to use the code Jos provided in post #9 to execute the au3 file!

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)
GuiSetState()

Local $dData = BinaryToString(InetRead("http://example.com/my.html", 1))
$tmp = @tempdir & "\test.au3"
FileWrite($tmp, $dData)
RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteScript "' & $tmp & '"')
FileDelete($tmp)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
 WEnd

i use that , but it wasn't be work, 

If run .au3 file : It's worked fine but,

In compiled : no error , no result , no  

 

Edited October 11, 2015 by zxtnt09

[Jos]

Did you do both things I mentioned in my post since I am missing the first part?

Jos